vb俩数相乘

 

Private Sub Command1_Click()
Dim nb(2) As Integer
Dim pr(2) As Integer
 
 For Index = 1 To 2
    nb(Index - 1) = Mid(Text1.Text, Index, 1)
    Next
    For Index = 1 To 2
    pr(Index - 1) = Mid(Text2.Text, Index, 1)
    Next
Print pr(1) * (10 * nb(0) + nb(1)) + 10 * pr(0) * (10 * nb(0) + nb(1))

End Sub