个位数乘以个位数

恩 我感觉我有进步了！！！

太高兴了！！！！

这个写得特别快！

Private Sub Command1_Click()

  Me.Font.Size = 70
  Dim n1 As Byte
  Dim n2 As Byte
  Dim yushu As Byte
  Dim shang As Byte

  Dim tempresult As Byte
 
  n1 = Int(Val(Me.Text1.Text))
  n2 = Int(Val(Me.Text2.Text))

  tempresult = n1 * n2

  yushu = tempresult Mod 10
  shang = tempresult \ 10

  Print shang & yushu


End Sub