Question

关于控件数组问题，请高人指点下

Private Sub Command1_Click()
Dim i As OptionButton
For Each i In Option1
If Option1(i).Value = True Then
Text1 = Option1(i).Caption
End If
Next
End Sub
麻烦看下该程序错在哪里及如何改正？无需重编新程序！

Answer 1

界面应有一个Option1的单选数组，一个文本框和一个按钮 

程序有一点错误，应写成： 

Dim i As OptionButton 

Dim k As Integer 

For Each i In Option1 

If Option1(k).Value = True Then 

Text1 = Option1(k).Caption 

End If 

k=k+1 

Next 

效果如下：