2*1的运算
来源:互联网 发布:npc2.wil的算法 编辑:程序博客网 时间:2024/05/18 12:04
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)
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
韩雪松 电气2班 15050342007
- 2*1的运算
- 2*1的运算
- 移位运算-2高效的乘除运算
- 指针的算术运算(1) 加减运算
- 8.6.2 矩阵的运算
- 《运算符的重载2》
- 模2运算的原理
- 运算符的重载2
- 模2运算的原理
- 模2运算的原理
- 模2运算的原理
- 模2运算的原理
- 模2运算的原理
- 有关大数的运算(2)
- 模2运算的原理
- 《运算符的重载1》
- 运算符的重载1
- 运算符的重载1
- 使用MFC DLL中的资源
- js数组常用方法
- Filter(过滤器/拦截器)的作用
- Android Studio系列教程一--下载与安装
- C++中GB2312字符串和UTF-8之间的转换
- 2*1的运算
- decimal与NUMBER类型
- MySQL的事务隔离及锁机制
- 空格代码  
- 物流路径规划用遗传算法解决实例
- 两位数乘一位数
- Scala学习笔记
- 数据库分区的了解
- 【一天一道LeetCode】#17. Letter Combinations of a Phone Number