最上方dim定义后,即可直接使用

Private Sub Command1_Click(Index As Integer) '其中Index代表了数组的序号
Text1.text=Command1(Index).Caption
End Sub

下附一个简易计算[……]

阅读全文