题目
输出1000以内所有能被37整除的整数.
提问时间：2021-01-05
答案
Private Sub Command1_Click()
Dim i As Long
Dim s As String
For i = 1 To 1000
DoEvents
If (i Mod 37) = 0 Then s = s & CStr(i) & " "
Next i
MsgBox s
End Sub
Dim i As Long
Dim s As String
For i = 1 To 1000
DoEvents
If (i Mod 37) = 0 Then s = s & CStr(i) & " "
Next i
MsgBox s
End Sub
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
- 1take a bike与ride a bike一样吗
- 2can you think __ a good place for vacation
- 3英语中 in 和 on 用法和区别
- 4用lives造句
- 5I think there will be less cars in world 改错
- 6复数z=x+yi(x、y属于R,且y≠0).设u=x+yi+（x-yi）/(x^2+y^2),且-1
- 7f(x,y)=e^2x(x+y^2+2y)中,令偏导数fx(X,Y)等于0的式子怎么写?
- 8大于0小于1的全体实数用区间表示
- 9晨光笔芯上的MG,MF,
- 10一浓盐酸的质量分数为0.37;现有该盐酸100克,已知其体积为84ml,求此浓盐酸的质量摩尔浓度和水的摩尔分数
热门考点
- 1想要配置500克溶质的质量分数为19.6%的稀硫酸,需要溶质的质量分数为98%的硫酸多少?
- 2则a1+a2+a3+.+a2011+a2012+a2013=( )
- 3几何图形证明题
- 4谁能告诉我弘扬民族精神的名言
- 5等腰梯形abcd中,ad平行于bc,ab=cd,de垂直于点e,ae=be,bf垂直于ae于点f,求证ad=ef
- 6在英语口语中可以用"what do you want to drink now?"代替"would you like some drinks?"说么
- 7希望你永远也不要让我离开 英文怎么写
- 8果园里桃树的棵树是杏树的3倍,杏树比桃树少360棵.杏树有多少棵?
- 9请你把0、1、2、3、4、5、6 这七个数字填在下列算式的空格里，使等式成立． ×==÷
- 10C(10,1)+2C(10,2)+4C(10,3)……+2^9C(10,10)的值