vb17
2016-04-21 16:40
260 查看
Private Sub Command1_Click()
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
Dim d 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
End Sub
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
Dim d 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
End Sub
相关文章推荐
- VB 求余数和商
- VB--乘法
- 最简单的VB12
- vb
- 三个数乘法。vb
- 2016年4月TIOBE编程语言排行榜 Visual Basic正渐行渐远-[转]
- VB作业
- 取汉子拼音首字母的C#和VB.Net方法
- vb.net 生成验证码图片-转载
- EXCEL VBA代码,实现点击Sheet1按钮控件保存不连续单元格的数据到Sheet2中,然后清空输入内容
- VBS脚本运行库 ——文本文件的建立、追加、删除等
- vb调用Excel时指定打印机
- VB作业
- Vbs备份数据脚本集合
- 怎样计算两位数与一位数相乘
- 怎样计算一位数与一位数相乘
- VB中输入函数InputBox的用法
- 网页上下载文件提示框(vb.net)
- 怎样计算阶乘
- vb作业