在窗体上添加一个Command控件,其属性Index设为0,该控件即为孔家数组。
Private Sub Command1_Click(Index As Integer)
MsgBox Command1(Index).Caption
Select Case Index
Case 0
a = a + 344
Case 1
a = a + 566
Case 2
a = a * 23
End Select
End Sub
Private Sub Form_Load()
For i = 1 To 4
Load Command1(i)
Command1(i).Top = Command1(i - 1).Top + 600
Command1(i).Visible = True
Command1(i).Caption = "Command" & (i + 1)
Next
End Sub
追问Select Case Index
Case 0
a = a + 344
Case 1
a = a + 566
Case 2
a = a * 23
End Select
这是什么意思?有什么用?
追答根据Index的不同值执行不同的操作
本回答被提问者采纳