VB编程 编写一个无参数sub过程Triangle
编写一个带参数sub过程Triangle，在窗体上能输出任意行用“*”组成的如下图所示的三角形图案。*********并尝试用两种方法调用。任意行************...
编写一个带参数sub过程Triangle，在窗体上能输出任意行用“*”组成的如下图所示的三角形图案。
*
* * *
* * * * *
并尝试用两种方法调用。
任意行
*
* * *
* * * * *
* * * * * * * 展开
*
* * *
* * * * *
并尝试用两种方法调用。
任意行
*
* * *
* * * * *
* * * * * * * 展开
1个回答
展开全部
'产生任意行三角星
Sub Triangle(Rows)
Dim i As Integer, j As Integer
For i = 1 To Rows
Print Space(Rows - i + 1);
For j = 1 To i * 2 - 1
Print "*";
Next
Print
Next
End Sub
'可以用一个按钮来调用Triangle过程
Private Sub Command1_Click()
Triangle 10 '产生10行
'调用方法二 Call Triangle(10)
End Sub
Sub Triangle(Rows)
Dim i As Integer, j As Integer
For i = 1 To Rows
Print Space(Rows - i + 1);
For j = 1 To i * 2 - 1
Print "*";
Next
Next
End Sub
'可以用一个按钮来调用Triangle过程
Private Sub Command1_Click()
Triangle 10 '产生10行
'调用方法二 Call Triangle(10)
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
网易云信
2023-12-06 广告
UIkit是一套轻量级、模块化且易于使用的开源UI组件库，由YOOtheme团队开发。它提供了丰富的界面元素，包括按钮、表单、表格、对话框、滑块、下拉菜单、选项卡等等，适用于各种类型的网站和应用程序。UIkit还支持响应式设计，可以根据不同...
点击进入详情页
本回答由网易云信提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
