利用ｖｂ设计乘法运算

今天下午我历经千辛万苦终于将这个算法让计算机明白。。。。。。。。。。

首先在电脑上建立两个ｔｅｘｔ和　ｃｏｍｍａｎｄ　　让后再输入代码

Private Sub Command1_Click()
Cls
Me.Font.Size = 30
Dim n1 As Byte
Dim n2 As Byte
Dim yushu As Byte
Dim shang As Byte
Dim tempresult As Integer

 
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

结果就会是这样。。。。。。