Question

vb语言 输入一个数n,求出n以内能被5整除的所有正整数的个数。

Answer 1

被5整除的数有一个特点，分为两类，一类是可以被10整除，如10,20……，另一类就是不能被10整除但是能被5整除，如5,15……
dim
count1
as
long
‘先看n整除以10等于多少，比如n是10的话，那么为1，但是有两个数能被5整除,20同理。
count1=(n
\10)*2
if
(n
mod
10<5)
then
else
count1=count1+1
end
if
'结果就是count1

Answer 2

dim n as integer
dim k as integer
dim i as integer
n=val(inputbox("输入一个正整数n："))
k=0
for i = 1 to n
if i mod 5 = 0 then k = k + 1
next i
print k