一个数乘以一个数

一个数乘以一个数

建立一个command 和两个text

在command中输入

Cls
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


改变两个text中的数值

运行即可。