1樓：匿名使用者
用兩個frame框，每個frame裡都放3個option控制項，設為控制項陣列。放乙個command按鈕。
dim 我 as integer, 觀眾 as integer, 總分 as integer
private sub command2_click()
總分 = 我 + 觀眾。
msgbox "總分=" 總分。
end sub
private sub option1_click(index as integer)
select case index
case 0
我 = 10
case 1
我 = 5case 2
我 = 3end select
end sub
private sub option2_click(index as integer)
select case index
case 0
觀眾 = 10
case 1
觀眾 = 5
case 2
觀眾 = 3
end select
end sub
2樓：匿名使用者
霧裡看花，怎麼也看不明白。
你可以做乙個command控制項。
在他的click事件裡判斷option的值得到分數。
關於VB的問題，關於VB模組的問題
not isempty 試下，最好說下報的什麼錯誤。按我理解應該改成如下的 private sub 計算1 click if isnumeric tbis1 and isnumeric tbu1 and isnumeric tbut1 then tbid1 tbis1 exp tbu1 tbut1 ...
vb問題timer控制項的用法，VB問題，timer 控制項的用法。
dim t private sub command1 click t 0 timer1.interval 1000 計時事的毫秒數,即每1秒呼叫一次timer1 timer timer1.enabled trueend sub private sub timer1 timer t t 1 text1...
vb中的問題，vb中的乙個問題
這個格式化數字的函式,可以把數字按使用者要求的格式顯示,2.34 對應後面的引號內的 0.00 表示格式為小數點前一位數及後面兩位數,其餘位數字四捨五入,後面 e 00 表示指數形式,e 02 表示10的兩次方.這是將 234.45 轉變為科學計數法，不進行四捨五入print format 234....