2016.04.21
来源:互联网 发布:哪个软件可以看美剧 编辑:程序博客网 时间:2024/05/19 00:49
Private Sub Command1_Click()
Dim a As ByteDim 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
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
- 2016.04.21
- 2016.04.07
- 2016.04.14
- 2016.04.15
- 2016.04.22
- 2016.04.29
- 2016.04.01-2016.04.04回顾
- 2016.04.05-2016.04.12小结
- 2016.04.10培训日记
- 2016.04.17培训日记
- 2016.04.24培训日记
- 面试问题总结2016.04.01
- 【2016.04.04】清明节考试分析
- 2016.04.01愚人节不愚人
- 2016.04.23 吾日三省吾身
- 2016.04.27写在开始之前
- 【2016.04.01】第六次模拟考试考试分析
- 每日之学(2016.04.07)
- iOS 屏幕旋转,单个屏幕旋转的实现
- 15电气李书鹏4月21日作业
- 多位数乘一位数
- 空间不显示和点击没有反应的原因
- 移动端web缩放控制
- 2016.04.21
- 3位数相乘
- adb devices:no permissions
- android笔试题整理
- MQTT客户端推送实现
- Python文件操作
- Selenium 学习资源
- openresty 技能图谱
- QT跨目录编译及多工程集成(动态库的创建、引用及工程间相互依赖关系的pro文件编写方法)