多位数乘一位数
2016-04-21 17:09
176 查看
1.新建一个按钮和两个Textbox,并把按钮改为‘乘法’
2.双击按钮,输入以下:
Private Sub 乘法_Click()
Dim c As Byte
Dim a() As Byte
Dim b As String
Dim changdu As Long, i 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
3.运行该程序,输入想要计算的数字
4.点击运行按钮即可
2.双击按钮,输入以下:
Private Sub 乘法_Click()
Dim c As Byte
Dim a() As Byte
Dim b As String
Dim changdu As Long, i 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
3.运行该程序,输入想要计算的数字
4.点击运行按钮即可
相关文章推荐
- 使用Yeoman搭建 AngularJS 应用 (12) —— 让我们搭建一个网页应用
- js为数字添加千位分隔符
- 修复MySQL主从同步
- 原创
- Java线上应用故障排查之一:高CPU占用
- 多位数乘以一位数
- 高通 lcd dtsi
- java对redis的基本操作
- HDU 4185(二分图匹配)
- 数据存储和界面展示第一天(一)
- n*1
- 多位数 X 一位数
- 今天的作业,,,,前几天的再补吧
- 彻底解决嵌入式学习和职业发展的那些困惑!
- 多位数乘以一位数
- 从尾到头打印链表
- Java实现对中文字符串的排序功能实例代码
- 数据库关系代数表达式学习
- iOS苹果账号/证书/推送证书之我见
- c++中常见的类型转换int,string,float