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)
Print Val(Text1.Text) * Val(Text2.Text)
For Index = 0 To numberlengh - 1
Print Firstnumbers(Index)
Next
numberlengh = Len(Text2.Text)
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)
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
End Sub
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
End Sub