VB
来源:互联网 发布:java限制接口访问次数 编辑:程序博客网 时间:2024/06/05 20:39
Private Sub Command1_Click()
Me.Font.Size = 50
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
Me.Font.Size = 50
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
- VB
- VB
- VB
- vb
- vb
- VB
- VB
- vb
- VB
- vb
- VB
- vb
- vb
- VB
- vb
- VB
- vb
- 15-电气-2012 VB语言中计算一位数乘一位数
- AndroidStudio1.5.1正式版使用笔记
- react的生命周期
- Android学习之使用HttpURLConnection下载文件
- Git客户端图文详解如何安装配置GitHub操作流程攻略
- VB
- [MySQL]快速解决"is marked as crashed and should be repaired"故障
- HDU3466(01背包)
- 使用uiautomatorviewer获取android apk的元素
- nginx网站开启https访问,http自动跳转到https
- 简单数的乘法结果
- WebView 读取 数据
- 刻录光盘(图论基础)
- 10的阶乘