求一个窗口显示用*********组成的三角形VB代码
1个回答
展开全部
等腰三角
Private Sub Command1_Click()
For i = 0 To 5
Print Tab(Abs(i) + 1);
For j = 0 To 2 * (4 - Abs(i)) + 2
Print "*";
Next
Print
Next
End Sub
直角三角
Private Sub Form_Click()
For i = 0 To 5
For j = 0 To i
Print "*";
Next
Print
Next
End Sub
根据需要增加行数..
Private Sub Command1_Click()
For i = 0 To 5
Print Tab(Abs(i) + 1);
For j = 0 To 2 * (4 - Abs(i)) + 2
Print "*";
Next
Next
End Sub
直角三角
Private Sub Form_Click()
For i = 0 To 5
For j = 0 To i
Print "*";
Next
Next
End Sub
根据需要增加行数..
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
武义菲亚伏电子有限公司
2023-06-12 广告
绝缘子控件是指：“一种能够在架空输电线路中起到重要作用的特殊绝缘控件，能够在架空输电线路中起到重要作用。”绝缘子的作用是支持和固定母线与带电导体，并使带电导体间或导体与大地之间有足够的距离和绝缘。绝缘子应具有足够的电气绝缘强度和耐潮湿性能。...
点击进入详情页
本回答由武义菲亚伏电子有限公司提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
