1. 首页
  2. 编程语言
  3. VB
  4. 图形的输出

图形的输出

上传者: 2020-05-13 19:44:04上传 EXE文件 508KB 热度 27次
PrivateSubCommand1_Click() DimnAsInteger n=Val(InputBox("请输入行数:")) Fori=1Ton Picture1.PrintTab(i);String((n-i)*2+1,"$");Space(2);String(i*2-1,"$") Next EndSub
下载地址
用户评论