1*1
来源:互联网 发布:淘宝预售发货时间 编辑:程序博客网 时间:2024/06/05 07:16
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
- cglib动态代理介绍(一)
- Svn分支 主干合并
- L1-002. 打印沙漏(C++)
- Sql server 2005 行列与转
- leetcode 260.Single Number
- 1*1
- 平衡二叉树
- 122. Best Time to Buy and Sell Stock II
- 2016SDAU课程练习三1001
- TinyXML的TiXmlElement::GetText()返回NULL
- 浅谈MVP in Android
- java Socket实现简单在线聊天(二)
- 注册码生成器 略屌略屌
- apache支持php解析(php安装后无法解析脚本)