微软Basic语言控件数组具有无比的优势，以具体示例为证：

工作中有30个表，数据需要粘到其他地方。想通过命令按钮实现，点一个命令按钮，讲数据存入粘贴板，然后再目的地粘贴。

那么30个命令按钮的产生，数组就派上用场了，威力无比。

如下图：

如上图，点击红色按钮，响应代号为1605的数据存入粘贴板。

上图，点击红色的1904响应该代号对应的数据存入粘贴板。

这样以来，就需要使用basic语言的load产生数组：

dim n as integer

for n=1 to 30 '可根据需要设定上限

load commandbutton(n)

with commandbutton(n)

.top=x

.left=y

.width=w

.height=H

.caption="报表代号"

.visible=TRUE

end with

next

这样，程序就创建30个数组。

然后在命令按钮commandbutton的click事件中使用select case 语句编写代码。

select case index

case 1

［ 存入粘贴板 ］

case 2

［ 存入粘贴板 ］

case 3

［ 其他操作 ］

end select

这样的结构实在是优美动人[赞][赞][赞][呲牙]

为了醒目，鼠标点击哪个命令按钮，就显示红色。可以在gotfocus事件中写如下代码：

commandbutton(index).backcolor=VBRed '设为红色

在lostfocus事件中将命令按钮颜色恢复为原来颜色。

basic语言很实用，很优美，解决实际问题，真是绝技利器。

如果你用其他语言写个半年一年，那么手工也完成任务了。basic语言的魅力就在于可以高效解决实际问题。

basic做的界面如上，也是很美丽滴。