51问答网 > VB编程输出1-100之间的所有是5或7的倍数的数，并求其累加和

VB编程输出1-100之间的所有是5或7的倍数的数，并求其累加和

速求大神解题！！！！

2025-01-01 20:25:06

推荐回答（2个）

回答1：

dim R as long    
dim lSum as long
    
dim lFlag as long    
    
for R = 1 to 100
    if R mod 5 = 0 or R mod 7 = 0 then
        debug.print R & VbTab;
        if lFlag mod 5 = 0 then
            debug.print
        end if
        lFlag=lFlag+1
        
        lSum=lSum + R
    end if
next

debug.print "1-100之间的所有是5或7的倍数的数之和为:" & lSum

回答2：

dim i as integer
dim sum as integer
for i=1 to 100
if (i mod 5)=0 or (i mod 7)=0 then
print i
sum=sum+i
end if
next