单数乘单数

Private Sub Command1_Click()
  Dim a As Byte, c As Integer
  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
 

End Sub