15电气李丹【几位数乘一位数】【并保存到D盘】
来源:互联网 发布:网络摄像头网线接法 编辑:程序博客网 时间:2024/04/26 05:40
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
Open "D:123.tet" 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
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
Open "D:123.tet" 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电气李丹【几位数乘一位数】【并保存到D盘】
- 15 电气 齐振昊 VB中多位数乘一位数并输入到文本文档中
- VB--几位数乘一位数
- 15电气二班徐立立(几位数乘以一位数)
- 多位数乘一位数并输入到文本文档中
- 多位数乘一位数并输入到文本文档中
- 15电气李杰 小学数学知识:一位数互乘
- 15电气 李少振 三位数乘一位数程序
- 15电气郄慧敏多位数乘以一位数
- 15-电气-2012 VB语言中计算一位数乘一位数
- 15电气李丹【两个一位数相乘】
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 枚举
- Apache poi操作doc,docx,xsl,xslx文件
- 数据库权限
- Websphere下删除某个文件(ibm-partialapp-delete.props)
- js模拟用户多次点击下载文件
- 15电气李丹【几位数乘一位数】【并保存到D盘】
- CreateThread()函数的简单程序
- 重建二叉树
- nodejs中exports与module.exports的区别
- Android源码解析之(十三)-->apk安装流程
- 机器学习课堂笔记(十二)
- 数据结构之物流信息的归并排序(非递归实现)
- 教你如何使用okhttp缓存
- VS2010/MFC编程入门之二十六(常用控件:滚动条控件Scroll Bar)