n位数乘一位数
2016-05-01 17:02
197 查看
Private Sub Command1_Click()
Dim c As Byte
Dim a() As Byte
Dim b As String
Dim changdu As Integer, 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
Open "D:\VB\TEXT.txt" For Output As #1
If d <> 0 Then
Print #1, d;
End If
For i = 1 To changdu
Print #1, r(i);
Next i
Close #1
End Sub
Dim c As Byte
Dim a() As Byte
Dim b As String
Dim changdu As Integer, 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
Open "D:\VB\TEXT.txt" For Output As #1
If d <> 0 Then
Print #1, d;
End If
For i = 1 To changdu
Print #1, r(i);
Next i
Close #1
End Sub
相关文章推荐
- leetcode 063 Unique Paths II
- lightoj 1045 - Digits of Factorial 【数学】
- leetcode 062 Unique Paths
- 练习
- jsp页面中插入css样式的三种方法总结
- 图片无损压缩工具
- OSGI入门环境搭建及相关概念
- ubuntu15.04装wine qq
- 三位数乘一位数
- 20145211 《Java程序设计》第九周学习总结——垂死病中惊坐起
- IO学习(七)用字符流进行纯文本的读取和写出
- 两位数乘一位数
- 面试之路(16)-归并排序详解(MergeSort)递归和非递归实现
- Codeforces 667C Reberland Linguistics (DP)
- 面试之路(16)-归并排序详解(MergeSort)递归和非递归实现
- 面试之路(16)-归并排序详解(MergeSort)递归和非递归实现
- Java注解(三) 自定义注解与提取注解
- [kuangbin带你飞]专题一 简单搜索-J - Fire!
- poj 1088 滑雪
- Android活动被回收了的处理方式