1樓：匿名使用者
private sub command1_click()randomize
dim a as integer, b as integera = int(rnd * 90) + 10b = int(rnd * 90) + 10text1.text = text1.text & a & " + " & b & " =()" & vbcrlf
end sub
2樓：匿名使用者
private sub command1_click()dim a, b as integer
randomize (time)
a = int(rnd * 90) + 10b = int(rnd * 90) + 10text1.text=a
text2.text=b
text3.text=""
end sub
private sub text3_keypress(keyascii as integer)
if keyascii = chr(13) + chr(10) then
if val(trim(text1.text))+val(trim(text2.text))=val(trim(text3.text)) then
msgbox("答案正確")
else
msgbox("答案錯誤")
end if
end if
end sub
3樓：
keypress想表達什麼？
實在是不知道你想表達啥 沒法改
print "a & " + "b & " = "( )"
這句有問題
應該是text1.text=a & " + " & b & " = ( )"
4樓：
dim a as integer, b as integer, c'把變數宣告在全域性，這樣變數才可以在整個窗體上使用private sub command1_click()a = int(rnd * 90) + 10b = int(rnd * 90) + 10print a & " + "; b & "= ( )"
'你把變數也引住了
end sub
private sub text1_change()c = a + b
if text1.text = c thenmsgbox "正確！"
end if
end sub
我也是初學。希望對你有幫助
你基礎都沒學好，怎麼寫**？不要只看書。要多實踐。
vb隨機函式，vb隨機函式
dim a 1 to 35 randomize for i 1 to 35 a a i int rnd 36 for j 1 to i 1 if a i a j then goto anext j next i 請參考這個題我的回答 同樣是關於vb隨機數生成的。這很簡單 以窗體click事件為例 d...
vb程式設計，產生隨機數，vb程式設計，產生隨機數
可以的，先設定textbox的屬性值，確定範圍，隨機數產生用 rnd函式。比如 int rnd 整數n 產生0,1,2,3，n 1中的隨機數。rnd產生的是0 1的隨機數。例如 int rnd n m 1 m 產生的是在區間 m，n 內的數。randomize 關鍵必須有，不然每次執行隨機數都不變n...
用VB編計算器，用VB編乙個計算器
給我你的郵箱，我把工程發過去 dim pi as double dim temp as double dim j as integer dim te as string dim yf as string dim m as boolean dim f as boolean private sub co...
vb中如何讓取隨機數，VB中如何讓取隨機數
int upperbound lowerbound 1 rnd lowerbound upperbound是上限的意思，lowerbound是下限的意思，根據你的要求來指定數字 比如我要乙個0到10的隨機數 randomize 初始化隨機數種子text1 int rnd 10 0 1 0 在vb中，...
vb題目 單擊「生成隨機數」按鈕，隨機生成兩3位正整數M N分別顯示在對應文字框中
使用 random類 可以實現。private sub button1 click sender as object,e as eventargs handles button1.click dim newrandom1 as new random dim newrandom2 as new ran...