vba编程 用*输出一个五行的直角三角形
1个回答
展开全部
Sub a()
Dim s As String, i As Integer, j As Integer
For i = 4 To 0 Step -1
s = s & String(i, " ") & String(9 - 2 * i, "*") & Chr(13) & Chr(10)
Next
MsgBox s
End Sub
Dim s As String, i As Integer, j As Integer
For i = 4 To 0 Step -1
s = s & String(i, " ") & String(9 - 2 * i, "*") & Chr(13) & Chr(10)
Next
MsgBox s
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
