乘法
2016-04-21 17:30
281 查看
(一)三位数与一位数
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, yushu3 As Integer
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(3) * n2(1)
yushu1 = tempResult Mod 10
shang = tempResult \ 10
tempResult = n1(2) * n2(1) + shang
yushu2 = tempResult Mod 10
shang = tempResult \ 10
tempResult = n1(1) * n2(1) + shang
yushu3 = tempResult Mod 10
shang = tempResult \ 10
Print shang & yushu3 & yushu2 & yushu1
End Sub
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, yushu3 As Integer
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(3) * n2(1)
yushu1 = tempResult Mod 10
shang = tempResult \ 10
tempResult = n1(2) * n2(1) + shang
yushu2 = tempResult Mod 10
shang = tempResult \ 10
tempResult = n1(1) * n2(1) + shang
yushu3 = tempResult Mod 10
shang = tempResult \ 10
Print shang & yushu3 & yushu2 & yushu1
End Sub
相关文章推荐
- 乘法 结果以文件形式保存到D盘
- 配置你的 Android Studio
- java四种内部类
- Python下的协程
- [置顶] Unity中关于可视化辅助类Gizmos的使用
- 解决The content of the adapter has changed but ListView did not receive a notification
- 关于论坛数据库的设计
- HD 1003 Max Sum(贪心)
- 原码, 反码, 补码 详解
- Kafka教程(一)Kafka入门教程
- view总结
- iOS 自动布局 Autolayout 报错:Unable to simultaneously satisfy constraints.
- 两位数乘一位数
- 在单链表的第i个位置后插入一个节点(阿里+腾讯等面试题总结)
- String StringBuffer StringBuild作为参数传递
- ubantu更新源
- 三位数乘一位数
- 三位数乘一位数
- "Content-Type" content="text/html; charset=utf-8"中content="text/html是啥意思呢?
- java枚举单例的好处