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
猜你喜欢
- 1生活中的困难 作文
- 2当一个物体漂浮在水面,它所受的浮力和自身重力的大小关系是什么?
- 3学校买来40根跳绳和28个小皮球,共用去69.8元,后来又买了同样的跳绳56根和小皮球56个,又用去112元.问每根跳绳和每个小皮球各多少元?
- 4中位数 众数 平均数
- 5The store sells school things. 改为否定句 谢谢
- 6英文作文 不少于5句话
- 7某校五(1)班有学生56人,女生有29人.女生占全班人数的几分之几?男生占全班人数的几分之几?
- 8已知9+根号13的小数部分是a,9-根号13的小部分是b,求a+b的相反数的立方根
- 9现有九种物质:一铝线二石墨三氯气四硫酸钡晶体五纯硫酸六金刚石七石灰水八乙醇九熔化的硝酸钾.其中能导电的是,属于电解质的是,既不是电解质也不是非电解质的是
- 10Na2O2+SO3 -2