数的相乘
来源:互联网 发布:linux 域名绑定目录 编辑:程序博客网 时间:2024/05/17 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 yushu 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) = Mid(Me.Text1.Text, i, 1)
Next
For i = LBound(n2) To UBound(n2)
n2(i) = Mid(Me.Text2.Text, i, 1)
Next
tempresult = n1(1) * n2(1) + shang
yushu = tempresult Mod 10
shang = tempresult \ 10
Print shang & yushu
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
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) = Mid(Me.Text1.Text, i, 1)
Next
For i = LBound(n2) To UBound(n2)
n2(i) = Mid(Me.Text2.Text, i, 1)
Next
tempResult = n1(2) * n2(1) + shang
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
- 两个数的相乘
- 数的相乘
- 连续数之间的相乘
- 求两个数相乘结果的位数
- 大整数数相乘的问题
- 大整数数相乘的问题
- javaScript中小数相乘的问题
- 汇编-两个数相乘的实验
- 处理两数相乘的黑科技
- 求三位数相乘的最大回文数?
- 大数相乘 - 浮点数
- vb俩数相乘
- 两个数相乘
- 两个数相乘
- 大浮点数相乘
- 长数相乘
- C_C++ 长数相乘
- 两个超大数相乘
- 94.LeetCode Binary Tree Inorder Traversal(medium)[中序遍历二叉树 树的遍历]
- 设计原则
- 15电气李杰 小学数学知识:一位数互乘
- Android 蓝牙4.0BLE开发实现对蓝牙的写入数据和读取数据
- 安装完CentOS7发现windows7的引导不见解决办法!
- 数的相乘
- 解决:重启network服务时报错:no device found for connection ‘ Systemeth0′.[FAILED]
- objective-c - 类实例变量的声明
- 两分钟学会在GitHub托管代码(转)
- mac访问windows共享文件夹
- 上周4月7号VB
- iOS 开发新项目必要的准备
- 对Android的恶意吐槽(勿看,有毒)
- 中断机制