Question

如何在VB中对textbox控件数组中进行数值计算

有3个textbox控件数组，text1(0)，text1(1)，text1(2)，当在text1(0)和text1(1)中分别输入两个数值（例如15和4），鼠标点到text1(2)中时，text1(2)中立即将前两个控件中的值相乘的积（60）显示出来，想了两天也没想出来，请各位大虾请教

Answer 1

最标准的代码:
Private Sub Text1_GotFocus(Index As Integer)
Dim i, Max As Integer
Dim Sum As Long

Max = Text1.UBound

Sum = 1

For i = 0 To Max
If i <> Max Then
Sum = Sum * Val(IIf(IsNumeric(Text1(i).Text), Text1(i).Text, 1))
Else
Text1(i).Text = Sum
End If
Next i
End Sub

Answer 2

调个得到焦点的函数
TEXT2.getpoint()
text2=val(text1)*val(text2)

Answer 3

第一种方法：
Private Sub Text1_Click(Index As Integer)
If Index = 2 Then
Text1(2).Text = Val(Text1(0).Text) * Val(Text1(1).Text)
End If
End Sub

第二种方法：
Private Sub Text1_GotFocus(Index As Integer)
If Index = 2 Then
Text1(2).Text = Val(Text1(0).Text) * Val(Text1(1).Text)
End If
End Sub