0

1 つのステートメントでは機能しているが、2 番目のステートメントでは機能していないコード行があります。何が間違っているのかわからないので、助けていただければ幸いです。私はゆっくりと、しかし確実に学んでいます。ここで見つけた助けのおかげで、それは少なからずです =) 2 番目のループのintResult = intSelection x intCount行でエラーが発生しています。Do While

青い波線は「intCount」の下にあります。

Dim intSelection As Integer
Dim intCount As Integer = 0
Dim intResult As Integer
Dim strDisplay As String


Private Sub txtSelection_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSelection.TextChanged

End Sub

Private Sub btnSelection_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelection.Click
    If intSelection >= 0 And intSelection <= 12 Then
        Do While AdditionToolStripMenuItem.Checked = True And intCount <= 12
            intResult = intSelection + intCount
            strDisplay = intSelection & " + " & intCount & " = " & intResult
            lstResults.Items.Add(strDisplay)
            intCount += 1
        Loop

        Do While MultiplicationToolStripMenuItem.Checked = True And intCount <= 12
            intResult = intSelection x intCount
            strDisplay = intSelection & " x " & intCount & " = " & intResult
            lstResults.Items.Add(strDisplay)
            intCount += 1
        Loop


    Else
        MsgBox("Please enter a value between 0 and 12", , "Input Error")


    End If
End Sub
4

1 に答える 1

3

intSelection x intCount intSelection intCount である必要があり*ますこの MSDN ページを見てください。VB.Net で使用できる演算子について説明しています。

于 2012-05-03T00:01:36.903 に答える