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

• 花匠小妙招
• 2025-05-09 03:08

  用比较呗！不过，若要简单的话，你这变量最好是数组，就可以用一个简单的循环去比较了。你这样多个不同变量的话。。。。。。写个字函数给你，也行，你看下，自己琢磨一下。
  '你的程序里放入此子函数后，你在主程序里如下写入即可：
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'这个子函数表面看着好像比较复杂，实际只是为了力求完美，让它可以接受不同类型的参数，写多了几个判断而已，你自己琢磨下，还是简单易懂的。

全部

相关知识

【1,有五个数a,b,c,d,e,其中a,b,c,是三个连续偶数（a小于b）.d,e,是两个连续奇数（d小于e）.且满足a加b加c等于d加e.请在0到20之间选择一组五个符合条件的数a=()b=()c=()d=()e=()2,小明编了一个程序：在】
b:c＝3:4:5 B. ∠A:∠B:∠C＝3:4:5C. ∠A+∠B＝∠C D. a:b:c＝1:2: 题目和参考答案——青夏教育精英家教网——
a÷b+a÷c= 爱问知识人
设a=1, b=0, c=2, d=3, 则条件表达式 a < b ? a
函数f(x)=x^4+ax^3+bx^2+cx+d(a、b、c、? 爱问知识人
玫瑰花数 一个四位数等于各位数字的四次方之和，则为玫瑰花数。如：1634=1*1*1*1+6*6*6*6+3*3*3*3+4*4*4*4
4^2=？ 爱问知识人
1+1=000 爱问知识人
设有如下定义：int a=1，b=2，c=3，d=4，m=5，n=6；则执行表达
python 水仙花数 水仙花数是指一个N位正整数（N≥3），它的每个位上的数字的N次幂之和等于它本身。 例如：153=1×1×1+5×5×5+3×3×3。

网址: 按键精灵比较一组数字的大小？比如，a=1:b=2:c=3:d=4? 爱问知识人 https://m.huajiangbk.com/newsview1901253.html