1樓：匿名使用者
private sub ***mand1_click()dim i as integer, a1 as integer, a2 as integer, j as integer, s as integer
randomize
for i = 1 to 10
a1 = int(rnd() * 10)
a2 = int(rnd() * 90 + 10)print a1; "+"; a2; "=";
if a1 + a2 = val(inputbox("請輸入答案：")) then
s = s + 10
print a1 + a2
else
if a1 + a2 = val(inputbox("請再一次輸入答案：")) then
s = s + 5
print a1 + a2
end if
end if
next i
print "最後得分："; s
end sub
2樓：
我做了個例項，如果需要源程式可以發給你。
dim score as integer
sub init()
dim i as integer
dim n1, n2 as integerscore = 0
randomize
for i = 0 to 9
n1 = int(rnd * 10)
n2 = int(rnd * 90) + 10lbnum1(i).caption = n1lbnum2(i).caption = n2txtresult(i).text = ""
lbresult(i).caption = "⊙"
next i
end sub
private sub cmdinit_click()call init
end sub
private sub cmdscore_click()dim i as integer
for i = 0 to 9
if val(txtresult(i).text) = val(lbnum1(i).caption) + val(lbnum2(i).caption) then
lbresult(i).caption = "√"
score = score + 10
else
lbresult(i).caption = "×"
end if
next i
if msgbox("分數：" & score, vbokcancel, "提示") = vbok then
call init
else
unload me
end if
end sub
3樓：匿名使用者
我寫了一個符合你要求的程式，用的是控制元件陣列，要源**的話可以與我聯絡，我發給你。
dim num1(10), num2(10), count1(10), score
private sub ***mand1_click()
randomize
for i = 0 to 9
num1(i) = int((9 * rnd))
' num1(i) = int((9 * rnd)+1) '如果不含0請用這一句
num2(i) = int((90 * rnd) + 10)
label1(i).caption = num1(i) & "+" & num2(i) & "="
***mand2(i).enabled = true
next i
end sub
private sub ***mand2_click(index as integer)
if num1(index) + num2(index) = val(text1(index).text) then
if count1(index) = 1 then score = score + 5 else score = score + 10
***mand2(index).enabled = false
else
count1(index) = count1(index) + 1
if count1(index) = 2 then ***mand2(index).enabled = false
end if
label2.caption = "得分：" & score
end sub
4樓：匿名使用者
可以加個 text1.text ，內容為0。
text2.text為加分的框
當 回答錯誤，就 text1.text = 1 '隨便隨便寫------------------------------------
然後 用 if 判斷 text1.text = 0 thentext2.text + 10
else if text1.text = 1 thentext2.text + 5
end if
當然，text2.text 要定義一個變數，如 dim a,b as long
然後 a接收 text2.text 中的值。
a=val(text2.text)
b= a+ 10
text2.text = b
上面的意思就是 比如 text2.text 有10分a接收了10，答對加10
就是a+10
然後又把值送給b
然後text2.text重新生成值 = b---------------
**整體是這樣
dim a,b as long
a = val(text2.text)
if text1.text = "0" thenb = a + 10
text2.text = b
else if
text1.text = "1" thenb = a + 5
text2.text = b
end if
---------------------當進入下一道，可以把text1.text中的東西清空 text1.text = ""
然後又是那樣,就達到你的要求了,**簡單易懂.
請教各位大蝦，關於佛經的問題請教各位大蝦，一個關於佛經的問題！
根本就沒有一部經叫 嚴華經 沒有的，你叫人如何變？偽造？莫非 密嚴經 又名 厚嚴經 此經未傳中土。一說為唐代日照譯的 大乘密嚴經 經中宣說阿賴耶識能示現眾法，染淨諸法恆以此識為所依，更闡明阿賴耶識隨迷悟之緣而別凡聖。2 唐代不空三藏譯 本經主旨在說明一切法乃心識所變，共分密嚴會 妙身生 胎生 顯示自...
關於vb的問題謝謝答了追加分數，關於vb的問題 謝謝 答了 追加分數 ！！！！！
第一題 textbox控制元件中提供multiline 屬性，設定為true時會使文字框支援多行顯示。而其scrollbars屬性則是提供滾動條控制的，值為0時沒有滾動條，值為1時在控制元件右側提供垂直滾動條，值為2時在下方提供水平滾動條，值為3時同時在右側和下方提供滾動條。具體效果可以在執行時看到...
電腦配置問題，請各位大蝦幫忙，謝謝
只給你配置了，wow的要求不算高，但也不低的。主機板 昂達785gs 魔笛版 460元 cpu amd x2250盒裝 420元 記憶體 金士頓 2gddr3 1333 355元 硬碟 西部資料500g sata 16m藍盤 325元 機箱 普通機箱 80元電源 長城350sd 170元 顯示卡 七...