Vb.net 需要帮助创建简单的数学测验（Visual Basic）

我是一个相当新的程序员，我正在寻找一些帮助我目前的任务。我试图创建一个程序，生成2个随机数和一个随机运算符，然后让用户输入答案。我想我已经完成了这个部分

然而，当我试图让程序显示正确的答案时，它只是显示问题，而不是用正确的答案回答问题

非常感谢您的帮助

Module Module1

Sub Main()
    Randomize()
    Dim RandomNum As New Random

    Dim Number1 As Integer
    Dim Number2 As Integer
    Dim Operation As Integer
    Dim Output As String
    Dim Answer As String


    Number1 = RandomNum.Next(1, 20)
    Number2 = RandomNum.Next(1, 20)
    Operation = RandomNum.Next(1, 4)


    If (Operation = 1) Then
        Output = " + "
    ElseIf (Operation = 2) Then
        Output = " - "
    ElseIf (Operation = 3) Then
        Output = " * "
    Else
        Output = " / "
    End If


    Console.WriteLine("What is " & Number1 & Output & Number2 & "?")
    Answer = Console.ReadLine()

    Console.WriteLine("Your answer is " & Answer)
    Console.WriteLine("The correct answer is " & Number1 & Output & Number2) <------ Here is where the problem is

    Console.ReadLine()

End Sub

End Module

模块1
副标题（）
随机化
Dim RandomNum作为新随机数
作为整数的Dim Number1
作为整数的Dim Number2
作为整数的Dim运算
将输出设置为字符串
模糊答案为字符串
Number1=RandomNum.Next（1,20）
Number2=RandomNum.Next（1,20）
操作=随机数。下一步（1，4）
如果（操作=1），则
输出=“+”
ElseIf（操作=2）则
输出=“-”
ElseIf（操作=3）则
Output=“*”
其他的
Output=“/”
如果结束
Console.WriteLine（“什么是”&Number1&Output&Number2&“？”）
Answer=Console.ReadLine（）
Console.WriteLine（“您的答案是”&答案）
Console.WriteLine（“正确答案是”&Number1&Output&Number2）您需要添加一些计算正确答案的内容：

Dim correctAnswer as Single

然后更改为以下内容：

If (Operation = 1) Then
    Output = " + "
    correctAnswer = Number1 + Number2
ElseIf (Operation = 2) Then
    Output = " - "
    correctAnswer = Number1 - Number2
ElseIf (Operation = 3) Then
    Output = " * "
    correctAnswer = Number1 * Number2
Else
    Output = " / "
    correctAnswer = Number1 / Number2
End If

最后，改为：

Console.WriteLine("The correct answer is " & correctAnswer)

我还建议您使用Select语句，而不是连续的If Else语句。
像这样：

Dim Answer as Decimal

Select Case (Operation)
    Case 1
        Output = " + "
        Answer = Number1 + Number2
    Case 2
        Output = " - "
        Answer = Number1 - Number2
    Case 3
        Output = " * "
        Answer = Number1 * Number2
    Case Else
        Output = " / "
        Answer = Number1 / Number2
End Select