编写vb程序有一个阶梯,如果每步跨2阶。最后余一阶。。。

‘前几天刚给人写过一个

Private Sub Command1_Click()

Dim n As Long

Do

n = n + 1

If n Mod 2 = 1 And n Mod 3 = 2 And n Mod 5 = 4 And n Mod 6 = 5 And n Mod 7 = 0 Then Exit Do

Loop

Print "阶梯：" &n '119个

End Sub

Private Sub Command1_Click()

Dim n As Integer

n = InputBox("N=")

a = 1

b = 1

c = 1

For i = 3 To n

c = a + b

a = b

b = c

Next i

Print n"步楼梯共有"c"步走法"

End Sub

因为这里使用了For循环， 这里的 for i=1 to x 这句，其实原来应该是这样的，只不过后面的 步长 为1 时可以省略。在for循环体内，每次运行到 next 这句时就根据步长来处理 这个变量 的值，你这里是变量i。你的这个代码表示，让 i 的值为 从1 到 x 。(如果把后面的 步长 改为 -1 ，它就是每次减1)因为步长为1，所以每次就加1。你给 x 赋值为6，那么它就循环6次，每次 s 都等于 原来的 s 乘以 i ，i 的值是会变的， i 的值依次为 1 、2、3、4、5、6所以就能计算出6的阶乘：6! = 1 * 2 * 3 * 4 * 5 * 6 =720 再提醒一个要注意的，在循环之前一定要给 s 赋值为 1 。否则它就等于 0 ，这样的话，到For循环里的运算时，无论乘以多少，结果都为0。

---