余数和商
2016-04-14 16:31
239 查看
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
相关文章推荐
- 真正的上锁前,为何要调用preempt_disable()来关闭抢占的case【转】
- 1011
- 根据Android studio生成的keystore.jks文件申请高德地图key码 invalid user scode
- RecyclerView中的坑RecyclerView$LayoutManager.stopSmoothScroller()报错
- 单链表进行快速排序
- C语言memcpy和memmove函数的理解和区别
- apache+tomcat分布式集群搭建
- iOS开发网络篇—发送GET和POST请求(使用NSURLSession)
- oracle中的decode的使用
- Makefile例子
- 数据结构:hash_map原理
- [IMX6DL]do_gettimeofday()的精度分析
- Mybatis中oracle、mysql、db2、sql server的like模糊查询
- spark.streaming.concurrentJobs参数分析
- 添加删除用户
- Asp.net Session保存到Redis: 使用 RedisSessionStateProvider
- Angluar中Controller之间通信方法
- 8种交换
- vb14
- 范范(10)