单位数乘以单位数

来源:互联网 发布:韩语自学书籍 知乎 编辑:程序博客网 时间:2024/05/17 00:14
Private Sub Command1_Click()
  Dim n1 As Integer
  Dim n2 As Integer
  Dim yushu As Byte
  Dim shang 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
0 0
原创粉丝点击