vb.net - 如何从输入框中获取 4 个输入

Question

我创建了一个表单，我希望它可以控制课程注册过程。

所以我的代码如下

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim i As Integer
    Dim InpName As String

For i = 1 To 4
    InpName = InputBox("What course do you want to register")
    If InpName = "computer literacy" Then
        TextBox1.Text = InpName
    ElseIf InpName = "engineering" Then
        TextBox1.Text = InpName
    Else
        MsgBox("We only offer computer literacy and engineering")
    End If
Next i

我希望循环接受计算机知识或工程 4 次，并告诉用户计算机知识课程或工程课程已满。

Answer 1

希望这可以帮助

        Dim i As Integer
        Dim InpName As String
        Dim engineering As Integer = 0
        Dim compLit As Integer = 0
        For i = 1 To 4
                InpName = InputBox("What course do you want to register")
                If InpName = "computer literacy" Then
                    compLit = compLit + 1
                    TextBox1.Text = InpName
                ElseIf InpName = "engineering" Then
                    engineering = engineering + 1
                    TextBox1.Text = InpName
                Else
                    MsgBox("We only offer computer literacy and engineering")
                End If

            If compLit = 4 Then
                MsgBox("Computer Literacy is full!")
            ElseIf engineering = 4 Then
                MsgBox("Engineering is full!")
            End If
        Next

我想添加对这里发生的事情的解释。两个变量engineering 和compLit 被创建并在按钮点击时被赋予0 值。循环发生，每次正确输入其中一个值时，这些变量都会增加 1。在每个循环结束时，检查这些值是否为 4，并显示相关消息。如果其中一个不是 4，则没有消息，因为类未满。