三位数乘以一位数
来源:互联网 发布:西科软件实习骗局 编辑:程序博客网 时间:2024/04/19 15:26
Dim a As Byte
Dim b As String
Dim c As Byte
b = Mid(Me.Text1.Text, 1, 1)
a1 = Int(Val(b))
b = Mid(Me.Text1.Text, 2, 1)
a2 = Int(Val(b))
b = Mid(Me.Text1.Text, 3, 1)
a3 = Int(Val(b))
b = Me.Text2.Text
c = Int(Val(b))
Dim r As Byte
r = a3 * c
Dim r1 As Byte
Dim r2 As Byte
Dim r3 As Byte
r3 = r Mod 10
d = r \ 10
r = a2 * c + d
r2 = r Mod 10
d = r \ 10
r = a1 * c + d
r1 = r Mod 10
d = r \ 10
Print d & r1 & r2 & r3
0 0
- 三位数乘以一位数
- 三位数乘以一位数
- 三位数乘以一位数
- 三位数乘以一位数
- 三位数乘以一位数
- 三位数乘以一位数
- 一位数乘以一位数
- 一位数乘以一位数
- 一位数乘以一位数
- 一位数乘以一位数的计算方法
- 两位数乘以一位数
- 两位数乘以一位数
- 多位数乘以一位数
- 多位数乘以一位数
- 两位数乘以一位数
- 两位数乘以一位数
- 2位数乘以一位数
- 2位数乘以一位数
- 《CLR via C#:框架设计》读书笔记 - CLR
- access数据库中密码为空的问题
- 使用StarUML创建类图
- 1
- 逻辑回归函数Softmax()
- 三位数乘以一位数
- 排序算法用链表汇总
- Android中传递对象的三种方法
- 初学搭建NHibernate
- 关于OpenCV的那些事——相机标定
- 实验名称:在VB中对于随机数ab的比较大小
- 01-复杂度2 Maximum Subsequence Sum
- Android SDK更新问题
- JVM的内存区域划分