根据你的题意,我用VB编写了如下代码,你看是不是你所需要的：
Private Sub Command1_Click()
Dim i,j,k,l,n
For i = 100 To 999 '所有的三位数
j = i 100 '百位上的数
k = (i - 100 * j) 10 '十位上的数
l = i - 100 * j - 10 * k '个位上的数
If (l > k And k > j) Then '个位数字大于十位数,十位数大于百位数.
Print i;
n = n + 1 '记录满足条件的个数
If (n Mod 20 = 0) Then '每20个换行
End If
End If
Next i
End Su
最新问答： 0.1mol氯气溶于水,反应中转移的电子数为?0.1NA为什么错了? 关于台球大力、中力、小力母球和目标球的分离角问题 下列有关实验设计的叙述中不正确的是（ ） 动物园里的饲养员给5只猴子喂香蕉,1、饲养员至少要拿来多少根香蕉才能保证其中至少一只猴子得到两根香 如图，已知DC⊥AC，DB⊥AB，点C，B为垂足，AC=AB，AD与BC相交于点O． 灯还亮着的英文谢了 两队开挖运河，甲队单独挖要8天完成，乙队单独挖要12天完成，现在两队同时挖了几天后，乙队调走，余下的由甲队在3天内完成， 英语翻译the quotational period shall be the monday prior to 3rd (a-b)^5m(b-a)^2m÷(b-a)^7m 超市打折,规定购物400元（含400元）打九折,超过部分打八折.李阿姨去超市购物,实际付款450元,如果没有 英语翻译：谢谢你一如既往的坚强.麻烦高手翻译成句子. 开卷有益用英语怎么说翻译成汉语 f(x)的新歌初智齿的中文翻译 服用“胃舒平”（主要成分是氢氧化铝）氢氧化铝起什么作用?有关反应的化学方程式是? 下列物理量是矢量的是（ ）A．重力势能B．向心加速度C．动能D．速率 已知函数f(x)=e^x-e^-x,g(x)=e^x+e^-x ABCD都不等于0,己知A乘以4分之一等于B减去4分之一等于C加上4分之一等于D除以3,请你将ABCD四个数从大到小排列 举出光沿直线传播的事例 有没有想天道酬勤 厚德载物一样的名句 小明家5月份用电250千瓦时,其中用“峰电”150千瓦时,用谷电100千瓦时.请计算他们家使用峰电电价
相关问答： 数字
