UC知道VB编程出错
来源：百度知道 编辑：UC知道 时间：2024/06/07 02:02:27
求N以内3的倍数的和、5的倍数的和、7的倍数的和。
我是这样编程的：
Private Sub Command1_Click()
a = Text1.Text
b = 3
s = 0
Do While b <= a
s = s + b
b = b + 3
Loop
Label3.Caption = s
c = 5
p = 0
Do While c <= a
p = p + c
c = c + 5
Loop
Label4.Caption = s
d = 7
q = 0
Do While d <= a
q = q + d
d = d + 7
Loop
Label5.Caption = s
End Sub
但是程序显示它是个死循环
应该如何修改？？
我是这样编程的：
Private Sub Command1_Click()
a = Text1.Text
b = 3
s = 0
Do While b <= a
s = s + b
b = b + 3
Loop
Label3.Caption = s
c = 5
p = 0
Do While c <= a
p = p + c
c = c + 5
Loop
Label4.Caption = s
d = 7
q = 0
Do While d <= a
q = q + d
d = d + 7
Loop
Label5.Caption = s
End Sub
但是程序显示它是个死循环
应该如何修改？？
Private Sub Command1_Click()
a = Text1.Text
b = 3
s = 0
Do While b <= Val(a)
s = s + b
b = b + 3
Loop
Label3.Caption = s
c = 5
p = 0
Do While c <= Val(a)
p = p + c
c = c + 5
Loop
Label4.Caption = p
d = 7
q = 0
Do While d <= Val(a)
q = q + d
d = d + 7
Loop
Label5.Caption = q
End Sub
需要对变量分别进行申明
Dim a As Integer
Dim b As Integer
Dim s As Integer
... c as ..
....P AS ...
....q