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

多位数乘一位数

2016-04-27 16:20 405 查看

我又来了

赶紧写

写完好睡觉

我觉得现在的VB课真的是越来越难听懂了

对此我并不想多说什么了

现在来说多位数乘一位数

具体的程序是

Private Sub Command1_Click()

Cls

Me.Font.Size = 50

Dim a() As Byte

Dim r() As Byte

Dim b As String

Dim c As Byte

Dim i As Long

Dim l As Long

l = Len(Me.Text1.Text)

ReDim a(l)

For i = 1 To l

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

   a(i) = Int(Val(b))

Next i

c = Int(Val(Me.Text2.Text))

Dim d As Byte

Dim t As Byte

ReDim r(l)

For i = l To 1 Step -1

    t= a(i) * c + d

   r(i) = t Mod 10

    d= t \ 10

Next

If d <> 0 Then

Print d;

End If

For i = 1 To l

Print r(i);

Next i

End Sub

啦啦啦
写完啦~

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

标签： vb

相关文章推荐

新的分享

章节导航