怎样计算一位数与一位数相乘

不知道该说什么

感觉现在的VB越来越难驾驭了

如果不让看笔记自己写

真的真的很有难度

现在先说怎样计算一位数乘一位数

同样用图说话

具体程序如下

Option Base 1

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

另外

运行之后

要在两个text框内填上一位数乘数

再点command

下一篇

讲两位数乘一位数！

有没有很期待！

反正我没有