【求助】一個簡單程式的問題



贊助商連結


沉默之狼
2004-10-29, 11:12 PM
我才剛開始學 VB.NET 自己看書學而以
Dim x As String
x = Val(TextBox1.Text)
If x = "321" Then
Label1.Text = "正確"

Else

Label1.Text = "不對"
If x > 3 Then
Label1.Text = "三次了"
Button1.Enabled = False
End If
End If

我想請問一下,我現在是錯三次會告訴你三次錯誤並且 False
但我設定成說
我如果前二次輸入正確
第三次錯的話是從 0 次開始算

因為我現在會變成,前二次就算輸入正確 第三次錯就會直接出現"第三次"

不清楚要在那裡加或者改呢
^^ 謝謝

贊助商連結


justzupi
2004-10-29, 11:24 PM
Dim x As String
Dim tryTime As Integer
x = Val(TextBox1.Text)

If x = "321" Then
  Label1.Text = "正確"
  tryTime = 0
Else
  tryTime = tryTime + 1
  Label1.Text = "不對"
  If tryTime = 3 Then
    Label1.Text = "三次了"
    Button1.Enabled = False
  End If
End If