Question

vb点击label1出现text1

Private Sub Form_Load()
For I = 1 To 81
Me("Text" & I).Text = ""
Me("Text" & I).Visible = False
Me("label" & I).Caption = ""
Next
End Sub
点击label1出现text1
label2出现text2
label3出现text3
。。。。。。

Answer 1

可加如下过程：
Private Sub Label1_Click()
Text1.Visible = True
End Sub

Private Sub Label2_Click()
Text2.Visible = True
End Sub

Private Sub Label3_Click()
Text3.Visible = True
End Sub
。。。。。。
不过，你把label控件的caption属性去掉，怎么知道它的位置啊？只有尽量扩大label控件大小，或者设置其borderstyle属性为2
如采用控件数组做，可以修改i如下：
Private Sub Form_Load()
For i = 1 To 3
Me("Text" & i).Text = ""
Me("Text" & i).Visible = False
Label(i).Caption = ""
Next
End Sub
'点击label1出现text1
'label2出现text2
'label3出现text3
Private Sub Label_Click(Index As Integer)
Me("Text" & Index).Visible = True
End Sub

Answer 2

请使用控件数组来做

Answer 3

需要label1控件数组（如：label(1)，label1(2)。。。。）
需要text1控件数组

代码如下：
Private Sub Label1_Click(Index As Integer)
text1(Index).Visible = True
End Sub