乘法

 

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