余数和商
来源:互联网 发布:淘宝卖家退保证金 编辑:程序博客网 时间:2024/04/30 01:30
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 i As Long
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) = Mid(Me.Text1.Text, i, 1)
Next
For i = LBound(n2) To UBound(n2)
n2(i) = Mid(Me.Text2.Text, i, 1)
Next
tempResult = n1(2) * n2(1) + shang
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 i As Long
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) = Mid(Me.Text1.Text, i, 1)
Next
For i = LBound(n2) To UBound(n2)
n2(i) = Mid(Me.Text2.Text, i, 1)
Next
tempResult = n1(2) * n2(1) + shang
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
0 0
- 求商和余数
- 1017 商和余数
- 取余数和商
- 余数和商
- 余数和商
- 余数和商
- 余数和商
- 余数和商
- VB 求余数和商
- 大数求商和余数
- d007: 求两数的整数商 和 余数
- 求商和余数(zt)
- 余数和商 一位数乘一位数
- 余数和商 两位数乘一位数
- 余数和商 一位数乘以一位数
- 余数和商 两位数乘以一位数
- 余数和商 两位数乘一位数
- 余数和商 一位数乘一位数
- 【java】JVM结构和类的加载原理
- 无需翻墙,手动下载 Genymotion 模拟器 Android 虚拟设备
- 排序(3) 堆与堆排序
- jQuery路径截取汇总
- 常用排序算法之JavaScript实现
- 余数和商
- Asp.net mvc 服务器验证
- 定时器与回调
- 九种求和方法
- Linux与windows区别
- usaco 3.3 骑马修栅栏
- ORACLE PL/SQL编程详解之一:PL/SQL 程序设计简介(千里之行,始于足下)
- iOS陆哥开发笔记(七) (AVFoundation简介)
- 15电气李书鹏 4月14日作业(2)