VB 求余数和商
来源:互联网 发布:软件测试职业规划书 编辑:程序博客网 时间:2024/05/15 13:45
Option Base 1
Private Sub Command1_Click()
Dim yushu As Byte
Dim shang As Byte
Dim n2() As Byte
Dim n1() As Byte
Dim n1len As Long
Dim n2len As Long
Dim i As Long
Dim tempresult As Byte
n1len = Len(Me.Text1.Text)
n2len = Len(Me.Text2.Text)
ReDim n1(n1len)
ReDim n2(n1len)
For i = LBound(n1) To UBound(n1)
n1(i) = Int(Val(Mid(Me.Text1.Text, i, 1)))
Next
For i = LBound(n2) To UBound(n2)
n2(i) = Int(Val(Mid(Me.Text2.Text, i, 1)))
Next
tempresult = n1(1) * n2(1)
yushu = tempresult Mod 10
shang = tempresult \ 10
Print yushu & shang
End Sub
0 0
- VB 求余数和商
- 求商和余数
- 大数求商和余数
- 求商和余数(zt)
- 求两个数的商和余数 抛出异常
- 求余数
- 求余数
- 求余数
- 求余数
- 求余数
- 求余数
- 求余数
- 求余数
- 求余数
- 求余数
- 求余数
- 1017 商和余数
- 取余数和商
- 常用的正则表达式
- 2016.4 半期 DP+单调队列优化 摘橘子
- C++匿名对象
- XAMPP 配置
- 三个数乘法。vb
- VB 求余数和商
- 理解Netty中的零拷贝(Zero-Copy)机制
- 对android应用安装程序apk反编译与分析
- 保证最后三个数字为最小的
- 快速搭建本地代码仓库并实现Gradle脚本发布
- solr5.4 core配置
- jQuery-点击按钮插入视频
- Git使用教程(精品)
- HttpClient及有关jar包详解