求两个整数的乘积

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

      又是一节计算机课，感觉问题越来越多。今天我们设计的是两个整数的乘积，虽然老师已经把大部分内容都写好了，只需要我们进行一小部分的调整，但是我还是无从下手。即使百度了，可百度的答案和老师的问题根本就对不上号。后来老师又给同学讲了一下后，才稍稍明白了一点。哎，突然发现学习VB很麻烦。最重要的是VB要求我们数学、英语都要好。看样子要学好VB,就要先学好英语。