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
VB程序----两位数乘法编程 两位数乘法运算编程操作过程如下: Private Sub Command1_Click() Dim numberlengh As Integer Dim Firstnumbers() As Integer Dim Secondnumbers() As Integer numberlengh = Le