题目
用VB,输出1到100之间能被3或7整除,但不能同时被3和7整除的整数,且每七个数换一行.
提问时间：2020-10-23
答案
Dim i, j
j = 0
For i = 1 To 100
If (i Mod 3 = 0 Or i Mod 7 = 0) And i Mod 21 <> 0 Then
Print i,
j = j + 1
If j = 7 Then
Print
j = 0
End If
End If
Next i
j = 0
For i = 1 To 100
If (i Mod 3 = 0 Or i Mod 7 = 0) And i Mod 21 <> 0 Then
Print i,
j = j + 1
If j = 7 Then
j = 0
End If
End If
Next i
举一反三
已知函数f（x）=x，g（x）=alnx，a∈R．若曲线y=f（x）与曲线y=g（x）相交，且在交点处有相同的切线，求a的值和该切线方程．
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1first name last name Age The color of her pen telephone number Cindy Browm 15 black 346—9921
- 2随机过程题目:设X是一连续随机变量,具有分布F,证明:(a)F(x)服从(0,1)上的均匀分布；(b)如果U是（0,1）上的均匀分布的变量,则F-1(u)有分布F,其中,F-1(x)是满足F(y)=x
- 3（6）5.8*4.5+0.4x=29.1 （7）5（x+4.4）=61 （8）2.6+3.4x=23 （9）15x+3.8*12=87.6(10)5.6x=17.28-4x
- 4数学三角形恒等式证明
- 521*17*(2/21+/1/17) 用简便方法计算
- 6我的理智现在已经逐渐控制了我的失望心情( 缩句)
- 7一道五年级的数学题,需要找一定的规律
- 833页40.you always spend only a little time on your study .you really -----me down
- 9a map of your journey.
- 10sometimes he goes to the park
热门考点