两位数乘以一位数
来源:互联网 发布:用友软件单机版 编辑:程序博客网 时间:2024/04/29 17:39
Option Base 1
Private Sub Command1_Click()
Me.Font.Size = 70
Dim n1() As Byte, n1Len As Long
Dim n2() As Byte, n2Len As Long
Dim yushu1 As Byte, yushu2 As Byte
Dim shang As Byte
Dim tempResult As Byte
n1Len = Len(Me.Text1.Text)
n2Len = Len(Me.Text2.Text)
ReDim n1(n1Len)
ReDim n2(n2Len)
For i = LBound(n1) To UBound(n1)
n1(i) = Int(Val(Mid(Me.Text1.Text, i, 1)))
Next
For i = LBound(n2) To UBound(n2)
n2(i) = Int(Val(Mid(Me.Text2.Text, i, 1)))
Next
tempResult = n1(2) * n2(1)
yushu1 = tempResult Mod 10
shang = tempResult \ 10
tempResult = n1(1) * n2(1) + shang
yushu2 = tempResult Mod 10
shang = tempResult \ 10
Print shang & yushu2 & yushu1
End Sub
Private Sub Command1_Click()
Me.Font.Size = 70
Dim n1() As Byte, n1Len As Long
Dim n2() As Byte, n2Len As Long
Dim yushu1 As Byte, yushu2 As Byte
Dim shang As Byte
Dim tempResult As Byte
n1Len = Len(Me.Text1.Text)
n2Len = Len(Me.Text2.Text)
ReDim n1(n1Len)
ReDim n2(n2Len)
For i = LBound(n1) To UBound(n1)
n1(i) = Int(Val(Mid(Me.Text1.Text, i, 1)))
Next
For i = LBound(n2) To UBound(n2)
n2(i) = Int(Val(Mid(Me.Text2.Text, i, 1)))
Next
tempResult = n1(2) * n2(1)
yushu1 = tempResult Mod 10
shang = tempResult \ 10
tempResult = n1(1) * n2(1) + shang
yushu2 = tempResult Mod 10
shang = tempResult \ 10
Print shang & yushu2 & yushu1
End Sub
0 0
- 两位数乘以一位数
- 两位数乘以一位数
- 两位数乘以一位数
- 两位数乘以一位数
- 两位数乘以一位数
- 15电气郄慧敏两位数乘以一位数
- 余数和商 两位数乘以一位数
- 15电气2班徐立立(两位数乘以一位数)
- 两位数*一位数
- 两位数*一位数
- 一位数乘以一位数
- 一位数乘以一位数
- 一位数乘以一位数
- 两位数乘以两位数
- 两位数乘以两位数
- 一位数*一位数和两位数*一位数
- 一位数乘以一位数的计算方法
- 两位数 乘 一位数
- 深入解析Java中Flushable接口的flush方法
- Hibernate多对多配置
- 关于微信支付退款接口问题 PHP版
- 使用QT5实现CRC校验的过程
- 文章标题
- 两位数乘以一位数
- 多位数乘一位数
- 多乘二 ?
- 删除有序链表中的重复节点
- 作业
- eclipse adt 选择ndk目录时不识别,出现“Not a valid NDK directory”
- JSON压缩:JSONMinify
- Git常用命令总结
- 配置freeglut和glew