两位数惩罚编程

代码编写：

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
 
End Sub