private sub form_click()
dim n as integer,i as integer
for i =7 to 1000
if i mod 7 = 0 then n=n+1
next
print n
end sub
vb设计一个程序,统计1000以内能被7整除的正整数的个数.
vb设计一个程序,统计1000以内能被7整除的正整数的个数.
可以快点吗,有劳了- -
可以快点吗,有劳了- -
其他人气：882 ℃时间：2019-09-21 05:52:03
优质解答
我来回答
类似推荐
猜你喜欢
- 1描写山水的拟人诗句
- 2要一篇 以 改变之后 为题目的作文 600字左右
- 3Dear,Nomatter what will happen in the future.I only want to love you by heart now.
- 4如果物体同时受到三个力的作用,且这三个力在同一直线上,如何求出它们的合力呢?
- 5求经过A（0，-1）和直线x+y=1相切，且圆心在直线y=-2x上的圆的方程．
- 6---Must I come at four o'clock?--No you ---.A .may not B.don't have to
- 7下列有一组数:3分之1,7分之5,9分之7,11分之9...很有规律,第n个数可以用分式表示,是多少?
- 8小学五年级上册英语朗读单词
- 9描写两段桃花的句子
- 10甲乙丙三队合修一条公路 甲修的等于乙丙的和 乙修的是甲丙总和的1/5