Question

For...Next...循环的问题

我现在想实现一个效果，就是打印出如下图形
*
**
***
****
*****
应该怎么写呢？我的书上只给了一段代码，注释也极为简单，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

Answer 1

修改了一下。
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

Answer 2

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

Answer 3

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可以么？