Private Sub 乘法_Click()
Me.Font.Size = 40
Dim a As Byte, c As Byte
Dim b As String
b = Me.Text1.Text
a = Int(Val(b))
b = Me.Text2.Text
c = Int(Val(b))
Dim r As Byte
r = a * c
Print r
Me.Font.Size = 40
Dim a As Byte, c As Byte
Dim b As String
b = Me.Text1.Text
a = Int(Val(b))
b = Me.Text2.Text
c = Int(Val(b))
Dim r As Byte
r = a * c
Print r