Question

VB6 TEXT控件数组

Private Sub Text2_Change()
For i = 1 To 10
If Text1 > i Then
Text1(i).Visible = False
Else
Text1(i).Visible = True
End If
Next
End Sub

当TEXT2 填入10以下的数据，TEXT数组10 不参加计算呢
请高手解答

Answer 1

你是不是form上有十个text1（1）～text1（10）的textbox控件数组,还有一个text2，然后需要比如在text2中输入5，那么text1（6）～text1（10）的可见性都变成false？
只需要作一个改动
将If text1 > i then 改为
If Text1(i).Text < Text2.Text Then
你原来程序应该问题出在if text1>i这里
你要比较的是text1控件数组的内容吧，那么必须指定索引号，否则与数组名称比较是无意义的，还有就是循环中的i应该代表的是依次比较数组的索引号，并不是你需要比较的内容大小，你应该与text2的内容比较才有意义。

Answer 2

你这个程序要做的应该是将Text2中的数以下的数组都隐藏。
但你程序中有两个问题：
1. If Text1 > i Then
这里的Text1是个数组，这样直接运行的话是会出错的，根据理解应该改为Text2；
2. 改为：If Text2 > i Then
运行的时候结果不正确，当输入2及2以上的数时，Text1(10)都会被隐藏掉，这是因为，你的程序中是用Text2.Text和i进行比较的，而不是Val(Text2.Text)，注意，这里的Text2.Text是个字符串，比较时与i不匹配，好像是将i也强制转换为字符串后比较的。所以"2"就大于"10"了