您的位置:首页 > 编程语言

两位数活多位乘法的计算编程

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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签:  编程 integer command