VB猜字程序的问题 !!! 刚才那个按错了

来源：百度知道编辑：UC知道时间：2024/06/29 02:19:19

Dim a As Integer, b As Integer
Randomize
a = Int(Rnd * 10 + 1)
b = InputBox("dd")
If b > a Then
MsgBox "1-" & b
ElseIf a > b Then
MsgBox b & "-10"
Else
Print "right"
End If
Print a
我这个只能做到输入什么然后在1-几或者几-10 之间
哪位高手能不能做比如随即数是5 第一次我输入6 是 1-6, 第二次我输入3是3-6之间这样的 ???????/高手快来帮忙

Dim a As Integer, b As Integer,min as integer,max as integer
Randomize
a = Int(Rnd * 10 + 1)
min=1:max=10 '初始化min和max
do while(1)
b = InputBox("dd")
If b > a Then
MsgBox min&"-"& b
max=b
ElseIf a > b Then
MsgBox b &"-"&max
min=b
Else
Print "right"
exit do
End If
loop
Print a

VB猜字程序问题 VB程序的问题 VB的程序问题 vb程序的问题 vb猜数游戏程序的问题？ VB 程序的一段问题 vb 小程序的问题 vb写程序的问题一个VB程序的问题 VB里的程序问题