請問...
最近在做一個猜數字的程式.... 就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