在窗体中添加一个命令按钮，然后编写如下代码PrivateSubCommand_Click()ReDimthis()Fori=Tothis(i)=i*NextReDimthis()Fori=Tothis(i)=this(i)+iNextPrintthis();this()EndSub程序运行后，则窗体上显示的内容为()ABCD