PrivateSubCommand1_Click() DimnAsInteger n=Val(InputBox("请输入行数：")) Fori=1Ton Picture1.PrintTab(i);String((n-i)*2+1,"$");Space(2);String(i*2-1,"$") Next EndSub