VB--几位数乘一位数
2016-04-21 17:00
465 查看
Private Sub Command1_Click()
Cls
Dim a() As Byte
Dim b As String
Dim c As Byte
Dim c1 As Byte
Dim c2 As Byte
Dim i As Long, 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
Cls
Dim a() As Byte
Dim b As String
Dim c As Byte
Dim c1 As Byte
Dim c2 As Byte
Dim i As Long, 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
相关文章推荐
- vb
- vb17
- VB 求余数和商
- VB--乘法
- 最简单的VB12
- vb
- 三个数乘法。vb
- 2016年4月TIOBE编程语言排行榜 Visual Basic正渐行渐远-[转]
- VB作业
- 取汉子拼音首字母的C#和VB.Net方法
- vb.net 生成验证码图片-转载
- EXCEL VBA代码,实现点击Sheet1按钮控件保存不连续单元格的数据到Sheet2中,然后清空输入内容
- VBS脚本运行库 ——文本文件的建立、追加、删除等
- vb调用Excel时指定打印机
- VB作业
- Vbs备份数据脚本集合
- 怎样计算两位数与一位数相乘
- 怎样计算一位数与一位数相乘
- VB中输入函数InputBox的用法
- 网页上下载文件提示框(vb.net)