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

三位数乘一位数

2016-04-27 16:16 337 查看

今天超级开心

具体发生了什么我是不会告诉你的啊哈哈

今天总结的程序是三位数乘一位数

上图拉

具体程序是

Private Sub Command1_Click()

Cls

Me.Font.Size = 50

Dim a As Byte

Dim b As String

Dim c As Byte

b = Mid(Me.Text1.Text, 1, 1)

a1 = Int(Val(b))

b = Mid(Me.Text1.Text, 2, 1)

a2 = Int(Val(b))

b = Mid(Me.Text1.Text, 3, 1)

a3 = Int(Val(b))

b = Me.Text2.Text

c = Int(Val(b))

Dim r As Byte

r = a3 * c

Dim r1 As Byte

Dim r2 As Byte

Dim r3 As Byte

Dim d As Byte

r3 = r Mod 10

d = r \ 10

r = a2 * c + d

r2 = r Mod 10

d = r \ 10

r = a1 * c + d

r1 = r Mod 10

d = r \ 10

Print d & r1 & r2 & r3

End Sub

嗯对就是这样
科科

我走啦~

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

标签： vb

相关文章推荐

新的分享

章节导航