一位数乘一位数
2016-06-16 17:39
197 查看
Private Sub Command1_Click()
Dim n1 As Byte
Dim n2 As Byte
Dim shang As Byte
Dim yushu As Byte
Dim tempresult As Byte
n1 = Int(Val(Me.Text1.Text))
n2 = Int(Val(Me.Text2.Text))
tempresult = n1 * n2
yushu = tempresult Mod 10
shang = tempresult \ 10
Print shang; yushu
End Sub
Dim n1 As Byte
Dim n2 As Byte
Dim shang As Byte
Dim yushu As Byte
Dim tempresult As Byte
n1 = Int(Val(Me.Text1.Text))
n2 = Int(Val(Me.Text2.Text))
tempresult = n1 * n2
yushu = tempresult Mod 10
shang = tempresult \ 10
Print shang; yushu
End Sub
相关文章推荐
- Hibernate关联操作、查询操作、高级特性、并发处理机制
- EventBus学习入门
- 精准测试新玩法の基于犯罪心理学挖掘代码风险
- 最佳设计工作流
- NPM安装之后CMD中不能使用
- 登录界面的设计
- 分类算法 之 支持向量机--原理+案例+代码
- 从spring容器中获取bean
- 华为C语言编程规范--变量、结构
- JPA联合主键并做从表外键
- 230二进制
- 面试题3
- easyui-基本操作
- 【Linux】ACL权限管理
- 手机号码
- aidl.exe'' finished with non-zero exit value 1和3问题解决
- EJB总结
- 华为C语言编程规范—可读性
- Winows 下软链接批处理