Public Class Form1

    Dim a, b As Single

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        a = InputBox("請運算式子如下: 3 ^ 2 mod 2 + 9 *2", "請回答")

        b = 3 ^ 2 Mod 2 + 9 * 2

        If b = a Then MsgBox("答對了", MsgBoxStyle.DefaultButton1) Else MsgBox("答錯了", MsgBoxStyle.AbortRetryIgnore)

    End Sub

End Class