1*1
来源:互联网 发布:apache 微服务 框架 编辑:程序博客网 时间:2024/06/06 09:39
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
0 0
- 1
- 1
- 1
- 1
- 1
- 1
- 1》
- 1
- 1
- 1
- 1
- (1)
- 1
- 1
- 1
- 1
- 1
- 1
- AngularJS 日期格式化 实例大全
- /etc/environment 与/etc/profile的不同
- (转)极大似然估计和贝叶斯估计
- HM编码器代码阅读(13)——帧间预测之AMVP模式(一)总体流程
- weblogviewer的使用与实现
- 1*1
- grind Player参数翻译(中文式,完全百度翻译,仅供参考)
- sprintf()/simple_strtoul()
- 循环(6)
- 在https的tomcat环境中,使某些特殊的资源通过http来访问
- Spring配置文件配置数据源
- android sql 数据类型
- Toast的其他用法(带图片的toast)
- JS中的this对象