如何從輸入框中獲得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，那麼由於類沒有滿而沒有消息。