Such an easy question for all of you , please give me a hand !
Private Sub Command1_Click()s = Val(Text1(0).Text) * Val(Text1(1).Text) + _
Val(Text1(2).Text) * Val(Text1(3).Text) + _
Val(Text1(4).Text) * Val(Text1(5).Text)
MsgBox "总金额为:" + Trim(Str(s)), 0, "计算结果"
End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
i = Index + 1
If i >= 6 Then i = 0
If KeyAscii = 13 Then
Text1 (i) .SetFocus
End If
End Sub
以上编程是哪里出错了，知道的麻烦告诉我一声，万分感激！
