余数和商 一位数乘一位数
来源:互联网 发布:杜兰特新秀体测数据 编辑:程序博客网 时间:2024/05/16 01:09
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
- 余数和商 一位数乘一位数
- 余数和商 一位数乘一位数
- 余数和商 两位数乘一位数
- 余数和商 两位数乘一位数
- 余数和商 一位数乘以一位数
- 余数和商 两位数乘以一位数
- 一位数乘一位数
- 一位数乘一位数
- 一位数乘一位数
- 一位数*一位数和两位数*一位数
- vb一位数乘一位数阶乘
- 两位数 乘 一位数
- 两位数乘一位数
- 两位数乘一位数
- 两位数乘一位数
- 两位数乘一位数
- 两位数乘一位数
- 三个数乘一位数
- CAlayer层的属性
- Git版本控制软件结合GitHub从入门到精通常用命令学习手册
- hihocoder 1288
- iOS 语音读文字so easy
- iOS QQ第三方登录的简单实现
- 余数和商 一位数乘一位数
- android抽屉实现
- 项目答辩
- RandomForest随机森林感想
- linux系统安装nginx
- HTML转pdf
- 香港联交所相关
- sql查询优化
- 屏蔽ios点击非电话号码的数字串打电话功能