乘法
来源:互联网 发布:盐城大数据产业园招聘 编辑:程序博客网 时间:2024/03/29 15:37
(一)三位数与一位数
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
0 0
- 乘法
- 乘法
- 乘法
- 乘法
- 乘法
- 乘法
- 乘法
- 乘法
- 乘法
- 乘法
- 乘法
- 乘法
- 乘法
- 快速乘法
- 乘法口诀
- 矩阵乘法
- 大数乘法
- 乘法表
- 7.2016.物电学院 电气工程及其自动化 辛雅松 15050341033
- 将DataTable转换成json字符串
- 4月21
- ViewPager 禁止滑动
- 数据存储之SharedPreferences(系统偏好设置)(一)
- 乘法
- 自定义Toast
- ionic ion-slide-box网络加载图片,及时更新,无限循环
- 三位数乘一位数
- 常见的各种距离总结
- git 常用命令
- ImageSwitcher图片切换器的简单功能用法
- 当需要对一个list<Map<String,Object>>中的map添加一个相同的数据是可以参考
- [poj1741]tree 解题报告