UC知道vb问题：输入2个数，输出这两个数之间所有能被2或3整除的数的和
来源：百度知道 编辑：UC知道 时间：2024/05/11 16:41:46
题目是这样的：输入2个数，输出这两个数之间所有能被2或3整除的数的和
编是编出来了
但是有个问题。。当我输入一个2，另一个输入10的时候。。。出来的结果是0。。。。而且我研究过只要是2到19随意取2个都是0。。。不知道什么原因
Dim a, b, s, i, max, min As Integer
Private Sub Command1_Click()
t1 = Timer
Cls
a = Text1.Text
b = Text2.Text
s = 0
If a > b Then
max = a
min = b
Else: max = b
min = a
End If
For i = min To max
If i Mod 2 = 0 Or i Mod 3 = 0 Then
Print i
s = s + i
End If
Next i
Print s
t2 = Timer
t3 = t2 - t1
Print t3
End Sub
而且2 好像只要与另一个与1有关的数就不行了。。如121
编是编出来了
但是有个问题。。当我输入一个2，另一个输入10的时候。。。出来的结果是0。。。。而且我研究过只要是2到19随意取2个都是0。。。不知道什么原因
Dim a, b, s, i, max, min As Integer
Private Sub Command1_Click()
t1 = Timer
Cls
a = Text1.Text
b = Text2.Text
s = 0
If a > b Then
max = a
min = b
Else: max = b
min = a
End If
For i = min To max
If i Mod 2 = 0 Or i Mod 3 = 0 Then
Print i
s = s + i
End If
Next i
Print s
t2 = Timer
t3 = t2 - t1
Print t3
End Sub
而且2 好像只要与另一个与1有关的数就不行了。。如121
Private Sub Command1_Click()
Dim a, b, t, a2, a3 As Long
a2 = 0
a3 = 0
a = CLng(Text1.Text)
b = CLng(Text2.Text)
Cls
If a >= b Then
t = a
a = b
a = t
End If
For t = a To b
If t Mod 2 = 0 Then
a2 = a2 + t
ElseIf t Mod 3 = 0 Then
a3 = a3 + t
End If
Next t
Print a2
Print a3
End Sub
我觉得你的程序应该是可以没有问题的,至少是算法不存在问题!
只是你把程序都缩小在了一个空间里,应该多用几个函数,这样的话,调试起来也方便啊!
我建议你可以用vb中的debug调试啊,可以给程序中加入几个断点,也可以用
命令debug.print查看啊!
看看你的语法有没有问题!