我的VB作业

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

     

  DimResult() As Byte

 ReDim Result(Len(M) + Len(N))

 

  DimMCarry As Byte

  DimACarry As Byte

  DimRemainder As Integer

 

  Dimi As Integer, j As Integer

  DimMtemp As Integer, Atemp As Integer

 

  Fori = 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

 

  DimMstr  As String

 

  Forindex = 1 To Len(N) + Len(M)

   Mstr = Mstr & Str(Result(index))

 Next

 

 Label3.Caption = Mstr

 

 

 

 

 

 

 

     

 

 

End Sub

 

    

    

End Sub