题目
用VB编写程序,求三位数的奇数中,所有各位数字之和是12的倍数的数的个数?
提问时间:2020-12-19
答案
Sub test()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim X As Integer
For i = 1 To 9
X = 0
For j = 0 To 9
For k = 0 To 9
If (i * 100 + j * 10 + k) Mod 2 = 1 And (i + j + k) Mod 12 = 0 Then
X = X + 1
End If
Next k
Next j
Next i
MsgBox (X)
End Sub
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim X As Integer
For i = 1 To 9
X = 0
For j = 0 To 9
For k = 0 To 9
If (i * 100 + j * 10 + k) Mod 2 = 1 And (i + j + k) Mod 12 = 0 Then
X = X + 1
End If
Next k
Next j
Next i
MsgBox (X)
End Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1你的表几点了用英文怎么说!? ------ ------- is it -------- your watch?
- 21994年9月10日(星期六)是教师节,那么2009年的教师节是星期几?
- 3但见悲鸟号古木,雄飞雌从绕林间 是什么句式?
- 4他们()历经很多磨难()是顶天立地从不低头折节 他们()历经多少磨难,()是顶天立地,从不低头折节
- 5slowly的比较级怎么是more slowly
- 62012年独角鲸灭绝了吗
- 7育才小学有一个圆形花池,周长是56.52米,它的直径是多少米?面积是多少平方米?
- 8冷漠用英语怎么说
- 9为什么照相机照旋转中的陀螺结果是旋转中而不是静止的陀螺呢
- 10X、Y为短周期元素,X位于IA族,X与Y可形成化合物X2Y,它们形成的化合物中,原子的个数之比可能是1:
热门考点