用VB制作这样一个打印字母金字塔图的程序
2个回答
展开全部
Private Sub Form_Click()
For i = 1 To 9
s = ""
If i < 6 Then
For j = 1 To 2 * i - 1
s = s & Chr(64 + i)
Next j
Print Space(10 - i) & s
Else
For j = 1 To 18 - 2 * i + 1
s = s & Chr(64 + 10 - i)
Next j
Print Space(i) & s
End If
Next i
End Sub
For i = 1 To 9
s = ""
If i < 6 Then
For j = 1 To 2 * i - 1
s = s & Chr(64 + i)
Next j
Print Space(10 - i) & s
Else
For j = 1 To 18 - 2 * i + 1
s = s & Chr(64 + 10 - i)
Next j
Print Space(i) & s
End If
Next i
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
请问打印如下图形你会吗？而且你要知道其原理？
*
***
*****
*******
*********
*
***
*****
*******
*********
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
