两个个位数之积
2016-04-14 16:59
176 查看
Private Sub Command1_Click()
Me.Font.Size = 40
Dim n1 As Byte, n1Len As Long
Dim n2 As Byte, n2Len As Long
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
Me.Font.Size = 40
Dim n1 As Byte, n1Len As Long
Dim n2 As Byte, n2Len As Long
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
相关文章推荐
- Java Volatile 关键字
- linux中硬链接与符号链接(软链接)的关系
- Cocos2dx:Sprite切换图片
- Android Eclipse 开发引用百度地图定位
- 【慕课笔记】4-3 应用DOM4J及JDOM方式解析XML— 应用JDOM解析子节点的名和值
- MySQL死锁分析
- Activityn 生命周期
- BIG biang教你误删oracle 怎么办,
- windows 远程连接数
- windows 远程连接数
- OpenglRobot
- 作业4
- POJ3159 Candies(最短路径:SPFA+链表+栈)
- 水晶报表字段字体自适应方法
- Mysql-5.7.11-winx64免安装的配置方法
- 作业
- 两位数 乘 一位数
- 机器学习总结之逻辑回归Logistic Regression
- java中的异常
- [PCL]keypoint