输出1000以内所有能被37整除的整数.
题目
输出1000以内所有能被37整除的整数.
答案
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
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 想要配置500克溶质的质量分数为19.6%的稀硫酸,需要溶质的质量分数为98%的硫酸多少?
- 则a1+a2+a3+.+a2011+a2012+a2013=( )
- 几何图形证明题
- 谁能告诉我弘扬民族精神的名言
- 等腰梯形abcd中,ad平行于bc,ab=cd,de垂直于点e,ae=be,bf垂直于ae于点f,求证ad=ef
- 在英语口语中可以用"what do you want to drink now?"代替"would you like some drinks?"说么
- 希望你永远也不要让我离开 英文怎么写
- 果园里桃树的棵树是杏树的3倍,杏树比桃树少360棵.杏树有多少棵?
- 请你把0、1、2、3、4、5、6 这七个数字填在下列算式的空格里,使等式成立. ×==÷
- C(10,1)+2C(10,2)+4C(10,3)……+2^9C(10,10)的值