Question

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

速求大神解题！！！！

Answer 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

追问

。。。。

追答

肿么了?难不成...

在窗体上画一个按钮Command1

在代码里写上

private sub Command1_Click
    '把上边的代码贴到这里
end sub

Answer 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