用VB打印三角图案第一行#,第2行##,第三行##,第四行#*#,第五行...

发布网友发布时间：2024-03-31 04:13

共3个回答

热心网友时间：2024-05-16 21:02

Dim KG As Integer

Private Sub form_Click()

Me.Cls

KG = 0

N = InputBox("要输入的行数！")

If IsNumeric(N) And N <> 0 Then

Print Space(N); "#"

For i = 1 To N * 2 - 3 Step 2

KG = KG + 1

Print Space(N - KG); "#"; String(i, "*"); "#"

Next i

Else

MsgBox "请输入有效数值！"

End If

End Sub

'等腰三角形

'任意行数

'例子是插入了30行

热心网友时间：2024-05-16 21:01

Private Sub Command1_Click()
Print "#"
For i = 1 To 7 Step 2
Print "#"; String(i, "*"); "#"
Next
End Sub

热心网友时间：2024-05-16 21:01

944089319 支持楼上

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com

用VB打印三角图案第一行#,第2行#*#,第三行#***#,第四行#***#,第五行...