乘法

 

Private Sub Command1_Click()

Dim numberlengh As Integer

   Dim Firstnumbers() As Integer

   Dim Secondnumbers() As Integer

 

   numberlengh = Len(Text1.Text)

 

   ReDim Firstnumbers(numberlengh)

 

   For Index = 1 To numberlengh

        Firstnumbers(Index - 1) = Mid(Text1.Text, Index, 1)

   Next

 

 

   Print Val(Text1.Text) * Val(Text2.Text)

 

 

   For Index = 0 To numberlengh - 1

       Print Firstnumbers(Index)

   Next

 

   numberlengh = Len(Text2.Text)

 

   ReDim Secondnumbers(numberlengh)

 

   For Index = 1 To numberlengh

       Secondnumbers(Index - 1) = Mid(Text2.Text, Index, 1)

   Next

 

   For Index = 0 To numberlengh - 1

       Print Secondnumbers(Index)

   Next