在窗体上添加一个命令按钮，编写如下代码：OptionBasePrivateSubCommand_ClickDima()AsInteger，p()　AsIntegerk=Fori=Toa(i)=iNextiFori=Top(i)=a(i*i)NextiFori=Tok=k+p(i)*NextiPrintkEndSub程序运行后，单击命令按钮，输出结果是ABCD