林淑容所有视频歌曲:VB编程语句求注释:

按照VB语法,注释用'标出
private option1_Click(Index as Integer)
'过程开始,过程为私有权限.名字是option1_Click,参数是Index ,参数类型是整数
for i=0 to 3 '循环开始,从i=0到i=3,循环体执行4次
if Index=i then '如果参数index等于i就执行下面一句
label(i).visible=true
else '否则执行else下面的一句
label(i).visible =false
next '循环体结束

end sub '过程结束

private option1_Click(Index as Integer) "Sub过程开始,单击option1触发事件."
for i=0 to 3 "For循环，定义i是0到3."
if Index=i then "If语句，如果下标等于循环i，option1的下标。"
label(i).visible=true "If条件为Ture，数组标签label(i)的可见属性visible为True,可见."
else "否则."
label(i).visible =false "数组标签label(i)的可见属性visible为False,不可见."
next "循环下一条.循环结束."

end sub "Sub过程结束"

注释用 '' 标注

'你的单选筺应该有4个选项

'label的隐藏与显示方法，传入点击得数组下标
private option1_Click(Index as Integer)
for i=0 to 3 '循环开始，范围0-3
if Index=i then '当点击得数组下标等於i的时候 对 label进行操作
label(i).visible=true '显示label
else
label(i).visible =false '屏蔽label
next 'i+1

end sub

说点简单的吧，易懂！
private option1_Click(Index as Integer) ‘option1控件单击事件
for i=0 to 3－－－next ’for语句，定义单击一下，变量i就加1
if Index=i then ‘如果单击了i下
label(i).visible=true ’标签号i的属性设为可见
else ‘否则
label(i).visible =false ’标签号i的属性设为不可见

哎，一个简单的控件数组运用嘛，不用每句都标注释这么麻烦吧，努力学学啊，这么简单的问题也拿出来浪费资源啊