多位数与一位数相乘
来源:互联网 发布:软件如何做授权加密 编辑:程序博客网 时间:2024/04/24 16:08
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
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
0 0
- 多位数与一位数相乘
- 多位数和一位数相乘
- 一位数与一位数相乘
- 一位数与一位数相乘
- 怎样计算一位数与一位数相乘
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘以一位数
- 多位数乘以一位数
- 多位数 X 一位数
- 多位数乘一位数
- 多位数*一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 个位数乘以个位数
- 十、责任链模式Chain of Responsibility(行为型模式)
- 用Git进行协同开发
- go语言的os.exec包介绍
- 蓝牙讲解上--搜索、配对
- 多位数与一位数相乘
- IOS使用Jenkins进行持续集成
- 大数加法、大数乘法、大数减法。Swift。
- 多对多表的连接关系
- codeforces 659 D. Bicycle Race
- 分库分表
- Android中线程同步
- V4L2视频采集驱动框架
- s5pv210 jpeg硬件编码