您的位置：首页 > 编程语言 > VB

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

2016-04-19 15:36 363 查看

不知道该说什么

感觉现在的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

下一篇

讲两位数乘一位数！

有没有很期待！

反正我没有

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签： vb

相关文章推荐

新的分享

章节导航