2位数乘1位数
来源:互联网 发布:人工神经网络算法 例子 编辑:程序博客网 时间:2024/04/30 00:27
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 i As Long
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
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 i As Long
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
0 0
- 2位数乘1位数
- 2位数乘1位数
- 2位数乘与1位数
- 多位数乘1位数
- n位数乘1位数
- 多位数乘多位数
- 多位数乘多位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘一位数
- 多位数乘两位数
- 多位数乘一位数
- ios开发证书CER文件、P12文件,mobileprovition许可文件的用途
- struts2详细工作流程
- IE11 - Workaround for IE11 developer tools does not "pin"
- Python学习笔记—PyQuery库的使用总结
- memcached 并发原语CAS与GETS操作
- 2位数乘1位数
- android 任务Task及回收栈back stack介绍
- git 本地和远程github冲突问题解决
- 在eclipse中使用Lombok
- iOS 极光推送
- 不会编辑了,求救
- Spring MVC 流程图
- 在最顶层窗口添加一个视图
- 00000