多位数乘多位数并输入到文档
来源:互联网 发布:潮阳网店美工培训 编辑:程序博客网 时间:2024/05/15 21:14
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
0 0
- 多位数乘多位数并输入到文档
- 多位数乘一位数并输入到文本文档中
- 多位数乘一位数并输入到文本文档中
- 15 电气 齐振昊 VB中多位数乘一位数并输入到文本文档中
- 15 电气 2012 多位数乘以位数并输入到文档
- 多位数乘多位数
- 多位数乘多位数
- 多位数乘1位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘两位数
- nginx允许所有二级域名跨域请求
- 2138成16进制
- 选择法排序
- 六年的程序员奋斗之路(3)
- .osr 文件格式解析(三) - 读取OSB文件
- 多位数乘多位数并输入到文档
- iOS开发技巧:PCH文件的创建于使用
- 各种三方库,俱全
- Lucene对于索引的删改
- 条形码、二维码扫一扫和生成二维码采用ZXing3.0开源库在android studio中实现
- 1.asp.net mvc第一章 搭建mvc平台
- hdu1171 Big Event in HDU(DP)
- 发布mvc遇到的HTTP错误 403.14-Forbidden解决办法
- c# 执行javascript