多位数乘一位数

最新推荐文章于 2024-08-31 06:30:00 发布

原创最新推荐文章于 2024-08-31 06:30:00 发布 · 168 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一个使用Visual Basic编写的程序，该程序能够接收两个输入：一个字符串形式的长整数和另一个标准整数。通过自定义的算法将字符串表示的数字与整数相乘，并在屏幕上显示结果。这个过程涉及到了字符串处理、数组操作以及基本的算术运算。

Private Sub Command1_Click()
   Cls
   Dim a() As Long, i As Long
   Dim b As String
   Dim c As Long
   Dim changdu As Long
   changdu = Len(Text1.Text)
   ReDim a(changdu)
   For i = 1 To changdu

      b = Mid(Me.Text1.Text, i, 1)
      a(i) = Int(Val(b))
   Next i
   b = Me.Text2.Text
   c = Int(Val(b))
   Dim rm As Byte
   Dim r() As Byte
   ReDim r(changdu)
   Dim d As Byte
   For i = changdu To 1 Step -1
       rm = a(i) * c + d

       r(i) = rm Mod 10
       d = rm \ 10

   Next i

   If d <> 0 Then
   Print d;
   End If
   For i = 1 To changdu
   Print r(i);
   Next i


End Sub