求1到100之间能被3整除且能被7整除的数的和的vb编辑

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/30 12:49:21
求1到100之间能被3整除且能被7整除的数的和的vb编辑

求1到100之间能被3整除且能被7整除的数的和的vb编辑
求1到100之间能被3整除且能被7整除的数的和的vb编辑

求1到100之间能被3整除且能被7整除的数的和的vb编辑
sub command1_click()
dim i as integer,s as integer
s = 0
for i = 1 to 100
if (i mod 3 = 0 and i mod 7 = 0) then s = s + i
next
msgbox s
end sub