vb 按钮数组如何调用？

以为打老鼠为例，示例如下：

在Form_load事件中输入下面的代码

for i=1 to 15   '因为有16个名称相同的控件

    Command1(i).Visible = False   '此功能用于在窗体启动时将所有的控件隐藏。
Next i

界面的其它内容也可以在此设置，例如option1，Label1等

然后通过生成一个随机数来调用按钮的显示与隐藏属性，如果是其他操作，可以在根据实际修改即可

Private Sub Timer1_Timer()    '在任意的时间只有一个控件能够显示
js = 4 * Int((Rnd * 4) + 1) + Int((Rnd * 4) + 1)
For i = 0 To 15
    If i = js Then
        Command1(i).Visible = True
    Else
        Command1(i).Visible = False
    End If
Next i
End Sub

功能延伸：

可以根据按钮的总数实现一个循环，但到 i 达到某个值的时候，可以指定某个按钮的相关操作就可实现按钮数组操作。

事件是相同的,不过可以执行不同的代码,通过传过来的index就行
例如
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
'加按第一个按钮的代码
'…………
Case 1
'加按第二个按钮的代码
'…………
Case 2
'加按第三个按钮的代码
'…………

'…………

End Select
End Sub

Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
'处理函数
Case 1
'处理函数
Case Else
End Select
End Sub