Visual Basicで算数ゲームを作成してみました。

こんな感じの計算ゲームプログラムでした。制作はVisual Studio community2022。これからもたくさん学習してしていろいろなプログラムを作成していきたいと思います。今まではExcelベースのVBAでプログラムを作ってきましたが、Visual Basicでも作成したいを思います。

コードは下記です。

Public Class Form1
Dim i As Integer
Dim j As Integer
Dim Answer As Integer
Dim AnswerCount As Integer
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
Me.Close()
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    lblConglaturation.Text = "算数ゲームです。次へボタンをクリックすると出題されます。"
    lblAnswer.Text = ""
    txtMondai.Text = ""
    txtAnswer.Text = ""

End Sub

Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click
    txtAnswer.Text = ""
    lblAnswer.Text = ""
    lblConglaturation.Text = ""
    Randomize()
    i = Int((Rnd() * 10 + 1) * 10)
    j = Int((Rnd() * 10 + 1) * 10)
    Answer = i - j
    AnswerCount = AnswerCount + 1
    Dim Q As String = "問題" & AnswerCount & vbCrLf & i & "-" & j & "はいくつでしょうか？"
    txtMondai.Text = Q
    txtAnswer.Focus()

End Sub

Private Sub btnAnswer_Click(sender As Object, e As EventArgs) Handles btnAnswer.Click
    If Integer.TryParse(txtAnswer.Text, Answer) = False Then
        lblAnswer.Text = "答えを入力してから押してください。"
        Exit Sub
    Else
        If Answer = Integer.Parse(txtAnswer.Text) Then
            lblAnswer.Text = txtAnswer.Text & "は正解です。"
        Else
            lblAnswer.Text = txtAnswer.Text & "は不正解です。" & vbCrLf & "正解は、" & Answer & "です。"
        End If
    End If

End Sub

End Class