Private Sub Command1_Click()
Dim a(1 To 100)As Integer, b(1 To 100)As Integer, c(1 To 1000)As Integer
Dim lenc As Integer, i As Integer, j As Integer
Dim s1 As String, s2 As String, output As String
s1= Text1. Text: s2 = Text2. Text: Text3. Text =""
For i = 1 To Len(s1)
a(i) = ‘将文本框Text1中的自然数按从低位到高位的顺序依次存放在数组a(1),a2......a(len(s1))中
Next i
‘将文本框Text2中的自然数按从低位到高位的顺序依次存放在数组b(1),b(2)......b(len(s2))中,代码略
lenc=
For i = 1 To Len(s1)
For j = 1 To Len(s2)
c(i + j -1)= c(i +j -1)+a(i)*b(j)
c(i +j) =
c(i +j -1)=c(i +j -1) Mod 10
Next j
Next i
If c(lenc +1)> 0 Then
output =""
For i =len c To 1 Step -1
output =
Next i
Text3. Text = output
End Sub