-2
Public Class Form1
' num1 and num2 now generate a number between 1 and 10
Dim num1 As Integer = CInt(Int((10 * Rnd()) + 1))
Dim counter As Integer
Dim num2 As Integer = CInt(Int((10 * Rnd()) + 1))
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
' Generates a new question everytime the button is clicked
num1 = CInt(Int((10 * Rnd()) + 1))
num2 = CInt(Int((10 * Rnd()) + 1))
'Displays question in textbox2
TextBox2.Text = num1 & "*" & num2
End Sub
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
If TextBox1.Text = num1 * num2 Then
' If they get the answer right, they recieve postive feedback
Label2.Text = "Correct!!11"
Else
' Any other answer results in negative feedback
Label2.Text = "Incorrect, sorry about
這個乘法遊戲正常運作,因爲它應該。我只需要一種方法讓遊戲的用戶能夠看到他們有多少錯誤和正確的問題。我需要實施一個計數器,但大多數在線指南已被證明是無用的。我決定只發布代碼,看看有人能幫助我。計數器乘法遊戲