简单数的乘法结果
2016-04-14 17:05
344 查看
Private Sub Command1_Click()
Cls
Me.Font.Size = 50
Dim n1 As Integer
Dim n2 As Integer
Dim yushu As Integer
Dim shang As Integer
Dim tempresult As Double
n1 = (Val(Me.Text1.Text))
n2 = (Val(Me.Text2.Text))
tempresult = n1 * n2
yushu = tempresult Mod 10
shang = tempresult \ 10
Print shang & yushu
End Sub
Cls
Me.Font.Size = 50
Dim n1 As Integer
Dim n2 As Integer
Dim yushu As Integer
Dim shang As Integer
Dim tempresult As Double
n1 = (Val(Me.Text1.Text))
n2 = (Val(Me.Text2.Text))
tempresult = n1 * n2
yushu = tempresult Mod 10
shang = tempresult \ 10
Print shang & yushu
End Sub
相关文章推荐
- 10得阶乘
- WCF DataGrid列的自动换行
- chmod修改文件的权限/chown修改文件和目录的所有者
- application , application pool., W3wp ,httpapplication, domain
- nginx网站开启https访问,http自动跳转到https
- 67.LeetCode Add Binary(easy)[字符串 大数相加处理]
- pre浏览器不折行问题解决
- sun.net.ftp.FtpClient 删除文件夹删除文件
- Git客户端图文详解如何安装配置GitHub操作流程攻略
- ajax技术
- [MySQL]快速解决"is marked as crashed and should be repaired"故障
- 笔试题24. LeetCode OJ (11)
- 15-电气-2012 VB语言中计算一位数乘一位数
- TCP/IP详解学习笔记(4)-ICMP协议,ping和Traceroute
- make_pair (STL Samples)
- VB
- react的生命周期
- ScrollView嵌套ListView
- MVC4下拉少数名族
- Sass编译时Invalid US-ASCII character解决办法