长沙药解 下载:VB for next循环

来源:百度文库 编辑:高校问答 时间:2024/05/09 14:55:12
*******
*****
***

Dim tempString As String
tempString = ""
For i As Integer = 3 To 0 Step -1 '控制行,步长 -1
For y As Integer = 1 To i * 2 + 1 '控制列
tempString = tempString & "*"
Next
tempString = tempString & Chr(10) & Chr(13) '换行
Next
Print tempString '打印