两位数活多位乘法的计算编程
2012-05-30 21:05
260 查看
代码编写;
Option Base 1
Private Sub Command1_Click()
Dim M As String
Dim N As String
M = Trim(Text1.Text)
N = Trim(Text2.Text)
Dim Number1() As Byte
Dim Number2() As Byte
ReDim Number1(Len(M))
ReDim Number2(Len(N))
Dim index As Byte
For index = 1 To Len(M) Step 1
Number1(index) = Mid(M, index, 1)
Next index
For index = 1 To Len(N) Step 1
Number2(index) = Mid(N, index, 1)
Next index
Dim Result() As Byte
ReDim Result(Len(M) + Len(N))
Dim MCarry As Byte
Dim ACarry As Byte
Dim Remainder As Integer
Dim i As Integer, j As Integer
Dim Mtemp As Integer, Atemp As Integer
For i = Len(N) To 1 Step -1
For j = Len(M) To 1 Step -1
Mtemp = Number1(j) * Number2(i) + MCarry
MCarry = Mtemp \ 10
Remainder = Mtemp Mod 10
Atemp = Remainder + Result(i + j) + ACarry
ACarry = Atemp \ 10
Result(i + j) = Atemp Mod 10
Next j
Result(i) = MCarry + ACarry
MCarry = 0
ACarry = 0
Next i
Dim Mstr As String
For index = 1 To Len(N) + Len(M)
Mstr = Mstr & Str(Result(index))
Next
Label3.Caption = Mstr
End Sub
Option Base 1
Private Sub Command1_Click()
Dim M As String
Dim N As String
M = Trim(Text1.Text)
N = Trim(Text2.Text)
Dim Number1() As Byte
Dim Number2() As Byte
ReDim Number1(Len(M))
ReDim Number2(Len(N))
Dim index As Byte
For index = 1 To Len(M) Step 1
Number1(index) = Mid(M, index, 1)
Next index
For index = 1 To Len(N) Step 1
Number2(index) = Mid(N, index, 1)
Next index
Dim Result() As Byte
ReDim Result(Len(M) + Len(N))
Dim MCarry As Byte
Dim ACarry As Byte
Dim Remainder As Integer
Dim i As Integer, j As Integer
Dim Mtemp As Integer, Atemp As Integer
For i = Len(N) To 1 Step -1
For j = Len(M) To 1 Step -1
Mtemp = Number1(j) * Number2(i) + MCarry
MCarry = Mtemp \ 10
Remainder = Mtemp Mod 10
Atemp = Remainder + Result(i + j) + ACarry
ACarry = Atemp \ 10
Result(i + j) = Atemp Mod 10
Next j
Result(i) = MCarry + ACarry
MCarry = 0
ACarry = 0
Next i
Dim Mstr As String
For index = 1 To Len(N) + Len(M)
Mstr = Mstr & Str(Result(index))
Next
Label3.Caption = Mstr
End Sub
相关文章推荐
- 两位或多位数乘法的计算编程
- javascript计算小数保留两位小数,多位小数的方法
- javascript计算小数保留两位小数,多位小数的方法
- javascript计算小数保留两位小数,多位小数的方法
- javascript正确计算小数(保留两位小数,多位小数)
- 两位数乘法运算——进制的编程
- 精度计算————乘法(大数乘小数)
- 一些算法的MapReduce实现——矩阵分块乘法计算(2)
- 乘法计算格式
- 计算全班单片机期末成绩的总和及平均分 -单片机编程
- 【Java编程】编写一个计算N个整数平均值的程序
- Storm实时计算:流操作入门编程实践
- EXCEL不用编程计算汉字笔画的方法
- Java float保留两位小数或多位小数
- PAT练习基础编程题目之简单阶乘计算
- Java编程实例:计算阶乘的四个例子
- python编程通过蒙特卡洛法计算定积分详解
- JS保留两位小数,多位小数的示例代码
- Paradigms of Computer Programming,编程模式学习中递归调用的练习02-计算素数
- sql中如何计算百分比 ,并保留两位小数