1樓：奮鬥
option explicit
dim temper
dim num, up, down
private sub command1_click()num = val(text1.text)if num < up and num > down thenelse
msgbox "輸入有誤，請輸入區間內的數字"
exit sub
end if
if num = temper then
msgbox "已經找到，此數為" & numelseif num > temper thenup = num
text2.text = up
elseif num < temper thendown = num
text3.text = down
end if
end sub
private sub form_load() '窗體click()事件
up = 99
down = 0
randomize
'防止每次生出隨機數一樣
temper = int(rnd * 99) + 1'rnd()生成[0，1）的隨機數，int（）是取整end sub
2樓：寒信
你的意思是說你輸入30，程式會提示你說你的數大了還是小了對吧你放一個command1一個text1 。隨機數是a,**如下：
private sub command1_clickif cint(text1.text)>a thenmsgbox "小了"
elseif
msgbox "小了" else msgbox "對了大神" end if end sub 1 有如下程式 for j 10 to 6 step 1k j next j print k j end執行時輸出的結果是c 6 5 2 有如下程式 a 12345 b abcde for j 1 to 5 c c left a 1 right b 1 next j print c end執行時輸出... 5 不同控制元件的tabindex屬性可以相同。7 有宣告語句 dim a 3 to 1，3 as integer，則陣列a是二維動態陣列。這兩個不對,其他的不清楚.我對vb也只是略知一二，您的這些問題好像在書上或是資料裡都有的啊，為什麼非的到這來問呢？vb判斷題 vb判斷題 幫忙做一下啊 1.語句... 堅牧 case comevreceive 有接受事件發生delay子程式是延時用的，就是等一會，用在程式中就是讓系統等待一會，讓串列埠把資料傳送完全 起作用的句子是 讀串列埠送來的串的後8位 前3位放在文字框中 mscomm1.inbuffercount 0 清空輸入暫存器 ch 這個條件成立與否要...幫忙做一下VB題，救急，多謝了
急！VB判斷題，VB判斷題 幫忙做一下啊
哪位vb大神給解釋一下這段程式什麼意思