VB程序纠错

来源:百度知道 编辑:UC知道 时间:2024/06/27 03:58:07
For i = 1 To 5
If Optioni.Value = True Then Picture1.Print Tab(1); "CPU:" + Optioni.Caption + vbCrLf;
Next i

系统指出“If Optioni.Value ”这里有错误,错在哪里
我想用循环表达“option1,option2,option3,option4,option5”,如何实现

建议你用控件数组。
如果你非不想用控件数组,非要Option1.。。这样写,只能这样:
For i = 1 To 5
If controls("Option" & i).Value = True Then Picture1.Print Tab(1); "CPU:" + controls("Option" & i).Caption + vbCrLf;
Next i