个位数与个位数的积

最新推荐文章于 2022-04-18 21:46:28 发布

tkf711

最新推荐文章于 2022-04-18 21:46:28 发布

阅读量337

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/TKF71111/article/details/51152958

Private Sub Command1_Click()
Cls
Me.Font.Size = 50
Dim n1 As Byte
Dim n2 As Byte
Dim yushu As Byte
Dim shang As Byte
Dim tempsult 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

eg 8*6=48