两位数乘一位数
2016-04-21 17:44
369 查看
Option Base 1
Private Sub Command1_Click()
Me.Font.Size = 70
Dim n1() As Byte, n1Len As Long
Dim n2() As Byte, n2Len As Long
Dim yushu1 As Byte, yushu2 As Byte
Dim shang As Byte
Dim tempResult As Byte
n1Len = Len(Me.Text1.Text)
n2Len = Len(Me.Text2.Text)
ReDim n1(n1Len)
ReDim n2(n2Len)
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(2) * n2(1)
yushu1 = tempResult Mod 10
shang = tempResult \ 10
tempResult = n1(1) * n2(1) + shang
yushu2 = tempResult Mod 10
shang = tempResult \ 10
Print shang & yushu2 & yushu1
End Sub
Private Sub Command1_Click()
Me.Font.Size = 70
Dim n1() As Byte, n1Len As Long
Dim n2() As Byte, n2Len As Long
Dim yushu1 As Byte, yushu2 As Byte
Dim shang As Byte
Dim tempResult As Byte
n1Len = Len(Me.Text1.Text)
n2Len = Len(Me.Text2.Text)
ReDim n1(n1Len)
ReDim n2(n2Len)
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(2) * n2(1)
yushu1 = tempResult Mod 10
shang = tempResult \ 10
tempResult = n1(1) * n2(1) + shang
yushu2 = tempResult Mod 10
shang = tempResult \ 10
Print shang & yushu2 & yushu1
End Sub
相关文章推荐
- dialog强退
- uva 10816 Travel in Desert(简单的好题~两种方法)
- 读《CSS.Secrets》,记录下——box-shadow,outline
- vb中的乘法运算
- 求大神指教
- Java小程序之计算三角形/圆形/矩形的周长和面积
- Struts2动态调用方法报错
- Unity3d 中 UI 开发的 MVC 模式
- 浅谈C中的malloc和free
- linux下 查看vsftp是否启动状态
- V4L2视频采集驱动框架
- js一维数组案例:小孩轮滑100米,算平均时间
- 三位数乘一位数
- chengfa
- Web存储
- Android PRODUCT_COPY_FILES 自动拷贝文件
- 多乘一
- GEEK学习笔记— —程序员面试宝典笔记(三)
- tangowithdjango ch10
- 三个数乘一位数