这段小代码怎么写

Dim i

i = 1

Check" &i& ".Value = 1

如何将Check" &i& "变成Check1




--------------------编程问答-------------------- check1到底是什么啊？ --------------------编程问答-------------------- 控制． --------------------编程问答-------------------- 控件． --------------------编程问答-------------------- Check1的index设为1

Dim i
i = 1
Check1(i).Value = 1 --------------------编程问答-------------------- Check" &i& ".Value = 1
是不可行的

你可以将控件CHECK,改成数组控件，然后就可以直接按4楼的方法了 --------------------编程问答-------------------- Me.Controls("Check" & i & ").Value = 1 --------------------编程问答-------------------- 不用数组的方法有没有？ --------------------编程问答--------------------

引用 5 楼 ratc 的回复:

Check" &i& ".Value = 1
是不可行的

你可以将控件CHECK,改成数组控件，然后就可以直接按4楼的方法了

不能用． --------------------编程问答-------------------- 这不可能办到 --------------------编程问答-------------------- 这没什么难的，完全可以实现：

    Dim i As Long

    Me("Check" & CStr(i)).Value = Checked '1

补充：VB ,  基础类