UC知道VB中数组控件问题，高手来解释一下。
来源：百度知道 编辑：UC知道 时间：2024/04/28 17:03:45
代码如下：
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 有必要用这个结束语吗？
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 有必要用这个结束语吗？
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
Index As Integer
这个是参数，就是下面的Case 0 ，1，2
Select Case Index
就是Index As Integer这个参数，index有几种可能
Case Else 就是除了0123外的index值
End Select 必须与前面Select Case 对应
一，数组控件都会有个index，表明其索引
二和四，select case 和 end select就象if endif一样
三，case else是除开0123以外的索引，如果控件的索引最大为4，跟case4的效果一样