none
如何设置计数变量问题 RRS feed

  • 问题

  •  

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            If TextBox1.Text = "321" Then
                MsgBox("正确继续")
                End
            Else
                MsgBox("重新输入")
                TextBox1.Text = ""
                TextBox1.Focus()
            End If

        End Sub
    End Class

    怎么设计一个计数变量来控制从新输入的次数?比如说错误5次后程序自动关闭忘各位大侠指教.

    2008年1月22日 0:58

答案

  • Dim errCount AS INT

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            If TextBox1.Text = "321" Then
                MsgBox("正确继续")
                End
            Else

                IF errCount >=5 Then

                    MsgBox("超过5次错误,程序将关闭")

                    Appliation.Exit()

                End IF

                errCount  = errCount  + 1
                MsgBox("重新输入")
                TextBox1.Text = ""
                TextBox1.Focus()
            End If

        End Sub

    VB语法不是很熟,不过应该表达出了意思

    2008年1月22日 2:09
    版主

全部回复

  • Dim errCount AS INT

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            If TextBox1.Text = "321" Then
                MsgBox("正确继续")
                End
            Else

                IF errCount >=5 Then

                    MsgBox("超过5次错误,程序将关闭")

                    Appliation.Exit()

                End IF

                errCount  = errCount  + 1
                MsgBox("重新输入")
                TextBox1.Text = ""
                TextBox1.Focus()
            End If

        End Sub

    VB语法不是很熟,不过应该表达出了意思

    2008年1月22日 2:09
    版主
  • Public Class Form1
        Dim intWrong As Integer = 0 '初始化计数器
    ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
           
            IF intWrong = 5 Then ‘如果计数器达到5,则退出程序
                MessageBox.Show("出错超过5次,程序将关闭", "Caution!")
                Me.Close()
            Else

                IF txtInput.Text = "123" Then
                    MessageBox.Show(“Right”)
                Else
                    MessageBox.Show(“Wrong”)
                    intWrong = intWrong + 1 ’在显示出错的同时,将计数器+1
                End If

            End If
        End Sub
    End Class


    偶是菜鸟,请多多指教
    2008年1月22日 7:20