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