请知悉：本文最近一次更新为 12年 前，文中内容可能已经过时。
最上方dim定义后,即可直接使用
Private Sub Command1_Click(Index As Integer) '其中Index代表了数组的序号
Text1.text=Command1(Index).Caption
End Sub
下附一个简易计算器，里面涉及控件数组，环境变量(我是这样认为的)，sub过程的调用，禁止输入框输入数字小数点以外的字符等。
http://pan.baidu.com/share/link shareid=165854&uk=1761801024
如您从本文得到了有价值的信息或帮助，请考虑扫描文末二维码捐赠和鼓励。
如本文对您有用，捐赠和留言 将是对我最好的支持~（捐赠可转为站内积分）
如愿意，请向朋友推荐本站，谢谢。
尊重他人劳动成果。转载请务必附上原文链接，我将感激不尽。