如果您无法下载资料，请参考说明：
1、部分资料下载需要金币，请确保您的账户上有足够的金币
2、已购买过的文档，再次下载不重复扣费
3、资料包下载后请先用软件解压，在使用对应软件打开
工程PublicSubpstring(con1AsControl,xAsInteger)DimiAsIntegercon1.PrintTab(x);Fori=1To7con1.Print"◆";NextiEndSubPrivateSubCommand11_Click()DimiAsIntegerPic1.PrintFori=1To10Callpstring(Pic1,i+4)NextiEndSubPrivateSubCommand12_Click()Pic1.ClsForm1.HideForm2.ShowEndSubPrivateSubPicture1_Click()EndSubPublicSubPic()EndSubPublicSubpstring(con1AsControl,xAsInteger)DimiAsIntegercon1.PrintTab(x);Fori=1To7con1.Print"◆";NextiEndSubPrivateSubCommand21_Click()DimiAsIntegerPic2.PrintFori=1To10Callpstring(Pic2,15-i)NextiEndSubPrivateSubCommand22_Click()Pic2.ClsForm2.HideForm1.ShowEndSub
立即下载
