15电气二班徐立立(几位数乘以一位数)
来源:互联网 发布:淘宝网商城中年女装 编辑:程序博客网 时间:2024/04/29 10:03
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
If d <> 0 Then
Print d;
End If
For i = 1 To changdu
Print r(i);
Next i
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
If d <> 0 Then
Print d;
End If
For i = 1 To changdu
Print r(i);
Next i
End Sub
0 0
- 15电气二班徐立立(几位数乘以一位数)
- 15电气郄慧敏多位数乘以一位数
- 15电气 李少振 多位数乘以一位数程序
- 15电气2班徐立立(两位数乘以一位数)
- 15电气郄慧敏两位数乘以一位数
- 15电气郄慧敏vb作业计算一位数乘以一位数
- 多位数乘以一位数
- 多位数乘以一位数
- 2位数乘以一位数
- 2位数乘以一位数
- 15电气李丹【几位数乘一位数】【并保存到D盘】
- 15 电气 2012 多位数乘以位数并输入到文档
- 15 电气 齐振昊 VB中多位数乘一位数并输入到文本文档中
- VB--几位数乘一位数
- 一位数乘以一位数
- 一位数乘以一位数
- 一位数乘以一位数
- 15-电气-2012 VB语言中计算一位数乘一位数
- SecureCRT 绝佳配色方案, 保护你的眼睛
- 常用单位转换的工具类
- 图解密码技术笔记(六)数字签名——消息到底是谁写的
- 隐式Intent的使用——Android学习笔记3
- 《CLR via C#:框架设计》读书笔记 - 类型基础
- 15电气二班徐立立(几位数乘以一位数)
- Android GreenDao 相关的文章
- 将客户端计算机加入到windows server 2008 R2域服务器环境中
- 任意一个n位数乘一位数
- inux下 解包/打包 Android 映像文件 system.img, boot.img, ramdisk.img, userdata.img.
- pulltorefresh框架的使用心得
- VMware虚拟机与宿主机组建局域网
- 多位乘一位
- JavaScript的type属性等于text/html 例子