按键精灵比较一组数字的大小？比如，a=1:b=2:c=3:d=4? 爱问知识人

心肺复苏(CPR)的步骤是：A-B-C，即胸外按压(A)、人工呼吸(B)和开放气道(C) #生活常识# #基础急救知识#

  用比较呗！不过，若要简单的话，你这变量最好是数组，就可以用一个简单的循环去比较了。你这样多个不同变量的话。。。。。。写个字函数给你，也行，你看下，自己琢磨一下。
  '你的程序里放入此子函数后，你在主程序里如下写入即可：
a=1:b=2:c=3:d=4
比较大小("a,b,c,d")'注意要把各变量用逗号隔开而且一定要带上引号哦，因为函数只接受一个参数，带上引号目的是把这么多变量整个转成一个字符变量传入子函数'如果你要比较的是数组或直接数字，你也可以按如下方式写即可：'【比较数组内的数】
'数组a=array(5,6,7,8,7,8,9,0,12,45,57,8,7,45,23,23,121,12,34,654,7)
'比较大小(数组a)'比较数组内的数就方便，直接把数字名字写上即可'【直接比较数字】
'比较大小("214,23,245,436,547,345")'这直接比较也是要把数字加引号转成字符Function比较大小(参数)
Dim最大数变量,最大数值,最小数变量,最小数值
IfTypeName(参数)="Variant()"Then
数组=参数
Else
数组=split(参数,",")
EndIf
Fori=0ToUBound(数组)
If最大数值"String"Then
最大数变量="数组("&i&")"
EndIf
最大数值=eval(数组(i))
EndIf
TracePrint最小数值
If最小数值>eval(数组(i))or最小数值=EmptyThen
最小数变量=数组(i)
IfTypeName(最小数变量)<>"String"Then
最小数变量="数组("&i&")"
EndIf
最小数值=eval(数组(i))
EndIf
Next
MessageBox"最大数是："&最大数变量&"【"&最大数变量&"="&最大数值&"】"&chr(13)&"最小数是："&最小数变量&"【"&最小数变量&"="&最小数值&"】"
EndFunction'这个子函数表面看着好像比较复杂，实际只是为了力求完美，让它可以接受不同类型的参数，写多了几个判断而已，你自己琢磨下，还是简单易懂的。

全部

网址：按键精灵比较一组数字的大小？比如，a=1:b=2:c=3:d=4? 爱问知识人 https://www.yuejiaxmz.com/news/view/393524

相关内容

4道小学数学题（填空）①12的因数有1、12、2、6、3、4,从这些因数中选出四个数组成一个比例是（）.②0.2：（）=1/2=（）÷10=（）/32=（）%.③a、b、c均为大于0的自然数,且a×7/5=b×4/5=c÷5/6,则a、
已知：x/a=y/b=z/c求证(xy+yz+zx)/(ab+b? 爱问知识人
【实验与探究：在△ABC中，∠A、∠B、∠C所对应的边分别用a、b、c表示．（1）如图1，在△ABC中，∠A=2∠B，且∠A=60°．易证：a2=b（b+c）（2）如果一个三角形的一个内角等于另一个内角的2倍，】
试用与非门设计实现函数F（A，B，C，D)=∑m（2，6，10，13，14，15)的组合逻辑电路。
已知A=1998×1998×.....1998(50个相乘),A? 爱问知识人
如图，在RT△ABC中，∠C＝90°，根据条件求出∠A和∠B的三? 爱问知识人
一道数学求值题若a,b,c是两两不相等实数,其中a是b和c的等比中项,b是a和c的等差中项,则（a/b）＋（c/a）=?请写出推导过程
我们用[a]表示不大于a的最大整数.例如:[1.5]=1.[2.3]=2.若[x]+3=1.则x的取值范围是
int a=3,b=2,c=1; if(a>b && b&
如图是地球内部构造示意图。读图后回答下列问题： (1)填写各圈层的名称：A ；B ；C 。 (2)假如我们把地球的内部结构与鸡蛋类比的话，那么鸡蛋的蛋白相当于地球的 。 (3)A、B、C三个圈层中，软流层位于 层中(填字母)。 (4)将代表各圈层的字母按照其厚度从小到大进行排列 。 (5)岩石圈包括字母 所示的圈层和字母 所示圈层顶部。——青夏教育精英家教网——

随便看看