Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim A As Integer
        Dim B As Integer

        Dim ans As Integer

        A = InputBox("Aの値は？")
        B = InputBox("Bの値は？")

        ans = 6 - A - B

        MsgBox(ans)
    End Sub
End Class
