Question

VB中数组控件问题，高手来解释一下。

代码如下：
Private Sub Command1_Click(Index As Integer)
Picture1.Cls
Select Case Index

Case 0
Label1.Caption = "红色"
Picture1.BackColor = vbRed

Case 1
Label1.Caption = "黄色"
Picture1.BackColor = vbYellow

Case 2
Label1.Caption = "蓝色"
Picture1.BackColor = vbBlue

Case 3
Label1.Caption = "绿色"
Picture1.BackColor = vbGreen

Case Else
End
End Select

End Sub

问题1：命令按钮1的单击事件后为什么要加(Index As Integer)？
难道只是为了定义数组的索引值为整型？有这个必要吗？

问题2：Select Case Index 这句不理解，单词都不知道什么意思、？

问题3：Case Else 为什么不用Case 4 ？

问题5：End Select 有必要用这个结束语吗？

Answer 1

Private Sub Command1_Click(Index As Integer)
这里的Index就是控件的Index属性，只有控件数组这个属性才有效

Select Case Index
Case 0
Select Case条件语句，语If Then条件语句相同的效果，只不过在有些地方用Select Case更方便，这一句转换成If语句就是
If Index = 0 then

Case Else
这里的Else是指除0、1、2、3以外的条件，当然就包括4了，如果还有5，并且写成Case 4，那么5永远也不会满足条件

Select Case 的完整语句结构是
Select Case 值或表达式
Case 值或表达式
语句
Case 值或表达式
语句
End Select

Answer 2

Index As Integer
这个是参数，就是下面的Case 0 ，1，2
Select Case Index
就是Index As Integer这个参数，index有几种可能
Case Else 就是除了0123外的index值
End Select 必须与前面Select Case 对应

Answer 3

一，数组控件都会有个index，表明其索引
二和四，select case 和 end select就象if endif一样
三，case else是除开0123以外的索引，如果控件的索引最大为4，跟case4的效果一样