Private Sub Form_Click()Dim m%,n%m = 1For n = 1 To 10 Step 2m = m + n n = n + 1 Next nPrint "n="; n,"m="; mEnd Sub

Private Sub Form_Click()Dim m%,n%m = 1For n = 1 To 10 Step 2m = m + n n = n + 1 Next nPrint "n="; n,"m="; mEnd Sub
Private Sub Form_Click()
Dim m%,n%
m = 1
For n = 1 To 10 Step 2
m = m + n
n = n + 1
Next n
Print "n="; n,"m="; m
End Sub

Private Sub Form_Click()Dim m%,n%m = 1For n = 1 To 10 Step 2m = m + n n = n + 1 Next nPrint "n="; n,"m="; mEnd Sub
这是一个循环求和.
前两个语句只是申明函数及变量,
主体是一个for语句,
我主要解释这个,For n = 1 To 10 Step 2,n是从1到10循环,步长为2,即每次循环结束一次n自加2.
m = m + n ,n = n + 1,Next n,这三条语句是循环体语句,如：第一次循环,m=1+1,n=1+1,
第二次循环,m=2+3,n=3+1,第三次循环,m=5+5,n=5+1,依次循环,
Print "n="; n,"m="; m ,End Sub 输出及函数结束.