编写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

你提到end if 后面饥岁加什么，是烂余睁不是代表计算公式已经写好了？如果计算公式已经完成，接下来要做的就是将答案传出来。假设你用来计算答案的变量名为Answer。那么，在end if 后面，加上text1.text=Answer。这样就把答案传出来了。

不知道我的回答是否解决了你的毁早问题，如果答案不对，请列出你的代码，我帮你看看。

---