作者XB0X (O2爆爆爆~~@@)
看板Visual_Basic
标题[ASP ] 新手问题
时间Tue Nov 20 23:54:07 2007
请问...
最近在做一个猜数字的程式.... 就1-99电脑出一个乱数人去猜
我找过很多范例... 再从范例中去改....
然後遇到一个问题就是....
假设没输入资料... 那想让他出现错误讯息...
然後继续输入.... 这边不太会用~>"<~
可以请好心的大大指点一下吗....
'设定InputText的值到 keynum
'判断是否为空白
婮
Dim KeyNum = InputText.Text
If KeyNum = "" Then
MsgBox("请勿输入空白")
'Response.Write("请勿输入空白")
'Response.End()
End If
上面这几行不懂...
想要出现一个错误讯息,然後按确定之後重新输入
Dim Com, InNum, Time As Integer
InNum = InputText.Text
Randomize()
Com = CInt(Int(Rnd() * 99) + 1)
Time = 0
Do While Time <= 5
If CInt(InNum) > CInt(Com) Then
RangeValidator1.Text = ("太大!!" & "比" &CInt(InNum) & "小")
ElseIf CInt(InNum) < CInt(Com) Then
RangeValidator1.Text = ("太小!!" & "比" &CInt(InNum) & "大")
End If
Time = Time + 1
Loop
If CInt(InNum) = CInt(Com) Then
RangeValidator1.Text = ("恭喜你猜对了!")
'TimeLabel.Text = ("第" & Time & "次")
Response.Write("<br>共猜了 & Time & "次")
Else
Response.Write("<br>共猜了 & Time "次")
End If
'Time = Time + 1
然後後面这边...想用猜了5次之後没猜中就告诉他答案..
可是在 Do While这边...好像有什麽问题...
也试不出来>"<~
烦请各位大大指点迷津.....Orz
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.163.162.57