1樓：匿名使用者
f text1.text > x and (x + 10) < text1.text then msgbox "你猜的數字偏大。「
if text1.text < x and (x - 10) > text1.text then msgbox "你猜的數字偏小。"
後面的兩個大於小於好互換
2樓：小羅哥
private sub command1_click()randomize
x = int(rnd * 100) + 1command3.enabled = true『text1.text = "":
text1.setfocus』這一句已經把資料清空了，沒有辦法判斷
end sub
3樓：張
感覺好多地方看著很彆扭= =
if text1.text > x and (x + 10) > text1.text then msgbox "你猜的數字偏大。
", vbokonly + vbcritical, "提示資訊"
if text1.text < x and (x - 10) < text1.text then msgbox "你猜的數字偏小。
", vbokonly + vbcritical, "提示資訊" '這個用select語句好一點吧
另外在dim x as long '100以內用integer就好了
下面加上 dim a as integer
VB程式設計的簡單問題，VB簡單程式設計問題
1.do while loop 如果while的條件成立，就執行裡面的語句 比如，while a 2，先判斷a，a不大於2就不執行了 這個是不滿足就不執行 2.do loop while e 這個是不管while的條件成不成立，都會先執行裡面的語句，執行完之後再判斷while的條件成不成立，成立就繼...
問個簡單的數學問題，問個簡單的數學問題
將三張卡片按某一順序排好，每張卡片上的都有兩個數字可選，且所選數字不受其他卡片數字影響。故數字的選法有2 2 2 8種，其中每種的卡片都可以全排列為3 6個不同的三位數。所以能組成的三位數的個數是6 8 48個。2 3 4 2 48個。思路 選第一張卡片的是3張中選一個，同時選定後有兩面，所以是2 ...
VB簡單問題 加分
窗體上放一個 timer 一個按鈕即可 private sub form load randomize command1.caption 開始 timer1.interval 200timer1.enabled falseend sub private sub timer1 timer label1...