多位数 X 一位数
2016-04-21 17:08
141 查看
Private Sub Form_Load()
Me.Font.Size = 40
End Sub
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)
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
Me.Font.Size = 40
End Sub
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)
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
![](http://static.blog.csdn.net/xheditor/xheditor_emot/default/smile.gif)
相关文章推荐
- 今天的作业,,,,前几天的再补吧
- 彻底解决嵌入式学习和职业发展的那些困惑!
- 多位数乘以一位数
- 从尾到头打印链表
- Java实现对中文字符串的排序功能实例代码
- 数据库关系代数表达式学习
- iOS苹果账号/证书/推送证书之我见
- c++中常见的类型转换int,string,float
- navigationVC与scrollView的内容偏移解决,貌似还有,后续+
- n*1并输出于文件中
- Linux内核学习总结
- js 四舍五入保留二位小数
- Python文件基本操作
- STL之deque(双向队列)
- 会用到的android 开发 第三方
- hibernate更新的小知识
- 点击返回键,将应用退至后台运行
- Elasticsearch的DSL之比较重要的几个查询语句
- android开发自定义控件之TextView跑马灯效果
- XAlign