展开全部
Private Sub Command1_Click()
For i = 1 To 5
Print Tab(6 - i);
For j = 1 To i
Print "* ";
Next j
Print Spc(2 * (8 - i));
For j = 1 To 2 * i - 1
Print "*";
Next j
Next i
For i = 5 To 1 Step -1
Print Tab(6 - i);
For j = 1 To i
Print "* ";
Next j
Print Spc(2 * (8 - i));
For j = 1 To 2 * i - 1
Print "*";
Next j
Next i
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
北京合创芯彩科技
2024-08-22 广告
在线打印公司有很多，其中推荐如下：* 易绘创校园打印站。该小程序提供自助操作，用户可以自己上传文件，系统会自动计算价格，下单后即可开始打印。其打印价格便宜，黑白A4纸仅需5分钱单面，7分钱/张。此外，该小程序还提供当日发货服务，售后态度也很...
点击进入详情页
本回答由北京合创芯彩科技提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
