欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。
这是我在窗体里写的,供楼主参考
Sub UserForm4_cb_Click()Dim A(2) A(0) = 1 A(1) = 2A(2) = 3For i=1 to 3 msgbox A(i-1) NextEnd Sub