Private Sub Command1_Click()
Dim num,i As Long
Dim a,b,c As Integer
For num = 100 To 999
a = num Mod 10
b = (num 10) Mod 10
c = num 100
If c > b And b > a Then i = i + 1
Next num
print i ' 显示多少个84个
End Su
Private Sub Command1_Click()
Dim num,i As Long
Dim a,b,c As Integer
For num = 100 To 999
a = num Mod 10
b = (num 10) Mod 10
c = num 100
If c > b And b > a Then i = i + 1
Next num
print i ' 显示多少个84个
End Su
最新问答: 求大神!!!一个塑料圆环,内半径为R1,外半径为R2,电荷q均匀分布于表面,圆盘绕通过圆心垂直圆面的轴转动,角速度为w. 3000-285+282-285+282……减到多少次, 两个鸡蛋分别放进清水和浓盐水中,会发现什么现象,拿出来互相交换,又有什么现象 函数在给定点的导数1、f(x)=(X²;+1)(2X+3) ,X=2 2、f(x)=x的四分之一次方,x=5 The conference will enable greater international co-operatio 英语手抄报题目可以怎么写? A运到B地,20辆卡车一周送完,4天运完要多少卡车 改错 1.A(This) B(cat) C(over) there D (is) Tom's.2.A(Who) B(is 绝对值小于根号17的自然数有哪些 如何设过椭圆上一点(x0,y0)的切线? 女孩子的名字里表示水的意思有哪些字? 某商店出售橘子,数量X(KG)与售价Y(元)之间的关系如下表(其中0.05元是所了袋的价格): 把边长1厘米的正方形按下图方式摆放(六年级数学) 关于《愚公移山》的题目在人和山这对矛盾中,愚公和智叟表现出截然不同的态度.愚公认为:子孙无穷,人力无限,而山不加增,人定 第2本第三题和第五题的答案、 说说下面新词的意思 我就这么不让你放心上、翻译成英文 日()()月括号里填什么, where do you usually p your letters? 氯化铁溶液滴入沸水会变红褐色,那反应离子方程式是什么