UC知道For...Next...循环的问题
来源：百度知道 编辑：UC知道 时间：2024/09/20 21:31:35
我现在想实现一个效果，就是打印出如下图形
*
**
***
****
*****
应该怎么写呢？我的书上只给了一段代码，注释也极为简单，For...Next这个语句是我最不明白的语句，希望能吧每一句的代码解释的非常详细。
我写的，一看就是错的，希望帮我就我写的这个改正一下，说我的错误愿意，不胜感激涕零...
Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
For a = 1 To 10
For b = 1 To a
Print b * "*"
Next b
Print
Next a
End Sub
*
**
***
****
*****
应该怎么写呢？我的书上只给了一段代码，注释也极为简单，For...Next这个语句是我最不明白的语句，希望能吧每一句的代码解释的非常详细。
我写的，一看就是错的，希望帮我就我写的这个改正一下，说我的错误愿意，不胜感激涕零...
Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
For a = 1 To 10
For b = 1 To a
Print b * "*"
Next b
Next a
End Sub
修改了一下。
Private Sub Form_Click() '窗体的鼠标单击事件
Dim a As Integer'定义a,b为整形数字
Dim b As Integer
For a = 1 To 10'循环10次，就是打印10行
For b = 1 To a'循环每一行打印的星号个数，第一行一个，第二行就是2个
Print "*";'打印星号
Next
Print'打印完了一行后，打印空字符，这里相当于换行。
Next
End Sub
Dim a As Integer
Dim b As Integer
dim s as string
For a = 1 To 10
s=""
For b = 1 To a
Print s=s&"*"
Next b
Print s
Next a
Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
For a = 1 To 5
For b = 1 To a
print *
next b
print
next a
end sub
我给的是VB的，你试试对不对？是VB吧？我都考完很久了，快忘光了，fortran可以么？