只会做第1个:
Private Sub Command2_Click()
Dim i%
For i = 100 To 500
x = i \ 100
y = i \ 10 Mod 10
z = i Mod 10
If x + y + z = 5 Then Print i
Next
猜你喜欢
- 1-The computer doesn't work.-Really?I'll have it _tomorrow
- 2寻求一篇关于英雄的英语作文,单词要简单一点...
- 3一道语文题,关于修辞手法
- 4正方体ABCD－A'B'C'D'中P,Q分别是正方形AA'D'D,A'B'C'D'的中心.求证PQ//面AA'B'B
- 5高中数学题,以下与300度终边相同的角是A60度 B560度 C-6分之派 D-3分之派
- 6用一根直径3厘米的圆柱形钢坯,铸造成一个重489.84可的长方体钢材,应截取多长（每立方厘米重7.8克）
- 7以尊重为话题写一篇600字左右的作文
- 8关于X的方程5的X次方=（5-a)分之（a+3)有负根.求a的取值范围
- 9_ _ _we have a good time with our teachers
- 10在100以内,质数有（ ）,合数有（ ）