Question

VB6.0中如何提取控件数组text1（i）中的数字以数字的形式赋给label2.caption

text1(i)，中的数字貌似是以字符型数据，展现的

Answer 1

Private Sub Label2_Click()
Label2.Caption = ""
For i = 0 To 8
Label2.Caption = Label2.Caption & Val(Text1(i).Text)
Next i
End Sub

追问

谢谢，成功了
可是为啥需要输入Label2.Caption & Val(Text1(i).Text)
而不是Val(Text1(i).Text)这不就已经表示把整个数组字符串数据转为整形数据了？
还有这只是我用来测试提取数字的代码。我的最终目标是提取数字作为一个数值+1，转成字符型数据传到服务器上。是不是光提取控件数组转整数只用Val(Text1(i).Text)就OK了？

追答

谁告诉你Text1(i).Text就是整个数组字符串数据了？

Text1(i).Text只是第i个数据，也就是说根据i值的不同，Text1(i).Text将分别是：

Text1(0).Text

Text1(1).Text

Text1(2).Text

Text1(3).Text

Text1(4).Text

Text1(5).Text

Text1(6).Text

Text1(7).Text

Text1(8).Text

如果是 Label2.Caption = Val(Text1(i).Text)，那么Label2将只显示最后那个即Text1(8).Text的值！

如果要把数值加1，可以这样：
Private Sub Label2_Click()
Label2.Caption = ""
For i = 0 To 8
Label2.Caption = Label2.Caption & Val(Text1(i).Text)
Next i
k = Val(Label2.Caption) + 1
MsgBox "加1后的值为" & k
End Sub

最后再补充一句，Val()不是转为整数，而是把字符串转为数字，实际类型是双精度浮点数。

追问

3Q,明白了，以前用VB考过二级，现在忘了好多