如果要对已经声明的数组重新定义大小，并保留原有数据，可以使用语句（）。在窗体上画一个命令按钮(名称为Command1)，并编写如下代码：Function Fun1(ByVal a As Integer