0

コース登録プロセスを制御するフォームを作成しました。

だから私のコードは次のとおりです

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 回受け入れ、コンピュータ リテラシー コースまたはエンジニアリング コースが満員であることをユーザーに伝えます。

4

1 に答える 1

0

お役に立てれば

        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

ここで何が起こっているのかについての説明を追加したいと思いました。2 つの変数 Engineering と compLit が作成され、ボタンのクリック時に 0 の値が与えられます。ループが発生し、それらの値の 1 つが正しく入力されるたびに、これらの変数は 1 ずつ増加します。各ループの終わりに、値が 4 であるかどうかがチェックされ、関連するメッセージが表示されます。いずれかが 4 でない場合、クラスが満員ではないため、メッセージはありません。

于 2013-02-13T15:27:47.473 に答える