VB中两个数乘以一个数
来源:互联网 发布:河南科技大学软件学院 编辑:程序博客网 时间:2024/04/28 08:25
Option Base 1
Private Sub Command1_Click()
Cls
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()
Cls
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
- VB中两个数乘以一个数
- 一个数乘以一个数
- 不用乘法实现一个数乘以2
- vb中两个数的比较
- 单位数乘以单位数
- excel中同一列如何同时乘以或除以一个数
- 一个常数N乘以一个数再除以100,结果不产生小数,1—>100中有几个这样的数?
- 数组中只出现一次的(一个数、两个数、三个数)
- VB中回调函数的一个问题
- 求从一个整数数组中两个数之和为m的两个数
- vb比较两个数的大小
- VB比较两个数的大小
- VB比较两个数的大小
- VB中列出十个数
- 在一个数组中找两个数,使得它们的和为一个指定的数
- 得到两个日期得间隔数,VB中的DateDiff ,我自己写了一个C#的
- 寻找一个数组中最小的两个数
- 求一个数组中只出现一次的两个数
- iOS陆哥开发笔记(五) (地图定位之官方API)
- ASP.NET三层架构
- css布局的几个知识点
- 将ASM里面的文件copy到文件系统
- 任意几个数大小排序
- VB中两个数乘以一个数
- [Android] Service服务详解以及如何使service服务不被杀死
- B树 删除节点
- @Around @Before @After理解
- UIView的setNeedsDisplay和setNeedsLayout方法区别
- 常用的github网站的第三方
- How to make a simple login system with PHP
- 余数和商
- 填写gradle下载地址