余数和商 一位数乘以一位数
2016-05-12 17:44
225 查看
Private Sub Command1_Click()
Dim n1 As Byte
Dim n2 As Byte
Dim yushu As Byte
Dim shang 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 yushu As Byte
Dim shang 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
相关文章推荐
- Dockerfile详解
- SQL导出excel
- powerdesigner逆向工程,从数据库导出PDM
- JAVA内存模型
- 邮件中继如何解决邮件退信问题
- Android 热补丁动态修复框架小结
- Java 8 新特性:Java 类库的新特性之日期时间API (Date/Time API )
- C语言文件读写操作总结
- Autorelease自动释放池
- Spring Boot 入门学习(1)
- spark-shell出错_解决方法
- GitHub 优秀的 Android 开源项目
- UIImagePickerController的简单应用
- Mac OS X平台上Java环境的配置
- 微信开发_接收消息,回复消息(3)
- shell浅谈之六字符串和文件处理
- 【JavaScript】 判断空对象区别于null、undefined
- String、动态规划——正则表达式匹配
- ListView
- CentOS下设置ipmi