按键精灵比较一组数字的大小？ 按键精灵如何判断数字大小来执行脚本
\u6309\u952e\u7cbe\u7075\u600e\u4e48\u628a\u4e00\u7ec4\u6570\u5b57\u6bd4\u598272593\u6309\u4ece\u5c0f\u5230\u5927\u6216\u8005\u4ece\u5927\u5230\u5c0f\u7684\u987a\u5e8f\u6392\u5217\uff1f//\u8fd8\u662f\u6211\u7ed9\u6e90\u7801\u5427\uff0c\u8bf4\u4e86\u4e5f\u4e0d\u61c2\u3002
str ="6498512367"
For i = 1 To Len(str)
Text=Text&mid(str,i,1)&"|"
Next
M = Split(Text, "|")
For i = 0 To UBound(M)-1
For j = 0 To UBound(M)-1
If int(m(i)) < int(m(j)) Then//\u8fd9\u53e5\u7684\u5927\u4e8e\u53f7\u6539\u4e3a\u5c0f\u4e8e\u53f7\u5373\u53ef\u4ece\u5c0f\u5230\u5927\u6392\u5217
X = int(m(i)):m(i) = m(j):m(j) = X
End If
Next
Next
MessageBox join(m,"")
MessageBox join(m,"|")
\u5c31\u662f\u4e24\u4eba\u5bf9\u6218\u662f\u5417\uff1f \u4f60\u8bf4\u7684\u70b9\u6570\u5c31\u662f\u5c0f\u4e54\u7684\u70b9\u6570\u662f\u5417\uff1f\u70b9\u6570\u663e\u793a\u4f4d\u7f6e\u90fd\u662f\u5728\u5de6\u8fb9\u90a3\u4e2a\u4f4d\u7f6e\u662f\u5417\uff1f
\u662f\u7684\u8bdd\uff0c\u601d\u8def\u53ef\u4ee5\u5982\u4e0b\uff1a
\u628a\u8fd9\u70b9\u6570\u7684\u6570\u5b57\u90fd\u622a\u56fe\u51fa\u6765 \u62a0\u51fa\u6765 \u80cc\u666f\u989c\u8272\u7edf\u4e00\u6539\u6210\u4e00\u79cd\u7eaf\u65f6\uff0c\u5373\u6240\u8c13\u7684\u201c\u900f\u660e\u56fe\u201d
\u7136\u540e\u7528\u5927\u6f20\u63d2\u4ef6\uff0c\u627e\u56fe\u6765\u5224\u65ad\u6570\u5b57\uff0c
\u5373\uff1a\u5982\u679c\u6709\u6570\u5b57\uff0c\u5219\u5224\u65ad\u5927\u5c0f\uff0c>10 \u5219\u70b9\u51fb \u5927\uff0c<10 \u5219\u70b9\u51fb\u5c0f\uff0c\u65e0\u6570\u5b57\u5219 ...
\u770b\u697c\u4e3b\u662f\u5426\u8ba4\u540c\u4ee5\u4e0a\u601d\u8def\uff0c\u5982\u679c\u89c9\u5f97OK \uff0c\u5219\u53ef\u4ee5\u53bb\u4e0b\u8f7d\u5927\u6f20\u63d2\u4ef6\uff0c\u5982\u679c\u662f\u7b2c\u4e00\u6b21\u63a5\u89e6\u5927\u6f20\u4e5f\u6ca1\u4e8b\uff0c\u9488\u5bf9\u6027\u5730\u770b\u534a\u4e2a\u949f\u5927\u6f20\u63a5\u53e3\u8bf4\u660e\uff0c\u5373\u53ef\u5f04\u61c2\uff0c\u4e3b\u8981\u662f\u770b\u5927\u6f20\u6ce8\u518c\u548c\u5927\u6f20\u56fe\u8272
用比较呗！不过，若要简单的话，你这变量最好是数组，就可以用一个简单的循环去比较了。你这样多个不同变量的话......写个字函数给你，也行，你看下，自己琢磨一下。
'你的程序里放入此子函数后，你在主程序里如下写入即可：
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 最大数变量,最大数值,最小数变量,最小数值
If TypeName(参数)="Variant()" Then
数组 = 参数
Else
数组 = split(参数, ",")
End If
For i = 0 To UBound(数组)
If 最大数值 < eval(数组(i)) Then
最大数变量 = 数组(i)
If TypeName(最大数变量) <> "String" Then
最大数变量 = "数组(" & i & ")"
End If
最大数值 = eval(数组(i))
End If
TracePrint 最小数值
If 最小数值 > eval(数组(i)) or 最小数值=Empty Then
最小数变量 = 数组(i)
If TypeName(最小数变量) <> "String" Then
最小数变量 = "数组(" & i & ")"
End If
最小数值 = eval(数组(i))
End If
Next
MessageBox "最大数是：" & 最大数变量 & "【" & 最大数变量 & "=" & 最大数值 & "】"&chr(13)&"最小数是：" & 最小数变量 & "【" & 最小数变量 & "=" & 最小数值 & "】"
End Function
'这个子函数表面看着好像比较复杂，实际只是为了力求完美，让它可以接受不同类型的参数，写多了几个判断而已，你自己琢磨下，还是简单易懂的。
绛旓細鍙互鐢ㄥぇ婕犳彃浠讹紝鍔犲叆瀛楀簱銆備笅涓ぇ婕犺嚜宸辩湅涓嬭鏄庯紝铔畝鍗曠殑锛佸瓧浣撻鑹蹭笉涓鏍峰氨鏄夯鐑︾偣锛屼篃鍙互鍒ゆ柇鐨
绛旓細鎴戞潵绮惧噯鍥炵瓟浣犵殑闂, 鎸夐敭绮剧伒涓嶇敤 dim, 杩欓噷灏变笉 dim 浜 A=1 B=2 C=3 D=4 E=5 鏁扮粍=array(A,B,C,D,E)鏈鏈澶ф暟=鏁扮粍(0) //鍏堝亣璁剧涓涓暟灏辨槸鏈澶ф暟, 杩欎釜鏁拌剼鏍囦负0, 鑴氭爣閮芥槸浠0寮濮 For i=Lbound(鏁扮粍) to Ubound(鏁扮粍) //浠庢渶灏忚剼鏍噄=0寰幆鍒版渶澶ц剼鏍 i=4...
绛旓細浠ｇ爜濡備笅 璇嗗埆鍑鏁板瓧 = "66"a=55 璇嗗埆鍑烘暟瀛=CLng(璇嗗埆鍑烘暟瀛)'鎶婃枃鏈瀷瀛楃涓诧紝杞崲鎴愭暟鍊煎瀷 If 璇嗗埆鍑烘暟瀛 < a Then TracePrint 璇嗗埆鍑烘暟瀛&"<"&a ElseIf 璇嗗埆鍑烘暟瀛 > a Then TracePrint 璇嗗埆鍑烘暟瀛&">"&a End If
绛旓細澶у皬璇嗗埆鍚楋紵绠鍗曞晩锛屼綘鍏堟壘鍒伴偅涓鏁板瓧鐨鏈宸︿笂鐐癸紝鐒跺悗涓璺垽鏂笅鍘伙紝鎵惧埌鏈鍙充笅鐨勭偣锛 寰楀埌鍧愭爣杩涜鐩稿噺灏辫兘鐭ラ亾閭ｄ釜瀛楀ぇ灏忎簡鍟娿
绛旓細鐐瑰嚮鍚庢樉绀虹殑鏁版嵁涓嶇鏄粈涔堬紝涔熼兘鏄浘褰紝鍥捐壊涔熷ソ锛屽仛瀛楀簱涔熷ソ锛岄兘鍙互 鍙鑳藉垽鏂嚭鏉ユ槸澶氬皯锛屾墠鑳芥牴鎹緱鍒扮殑鏁版嵁鍘绘墽琛屼綘瑕佹墽琛岀殑鍛戒护
绛旓細Ocr鏄瘑瀛,鍒ゅ喅瀛椾綋澶у皬鍙兘渚濋潬鑷繁鍒朵綔瀛楀簱,鐢辨垜鐨勭粡楠岀湅鏉,浣犳墍鎵剧殑瀛椾綋鏄9鍙峰畫浣 浣犳墍璇寸殑瀵煎叆鎻掍欢鏄皢鍒汉灏佽濂界殑dll鏂囦欢澶嶅埗杩 鎸夐敭绮剧伒"plugin "鐩綍涓嬪氨鏄鍏ヤ簡鎻掍欢,浣嗗ぇ婕犳彃浠姣旇緝鐗规畩,灏嗗叾瀵煎叆"plugin"鐩綍涓篃鏄棤鏁堢殑 澶ф紶娉ㄥ唽鏈変袱绉嶆柟寮,鏈甯歌鏈瀹夊叏鐨勬敞鍐屾柟寮忓氨鏄娇鐢ㄤ唬鐮佸厤娉ㄥ唽,浣嗘槸...
绛旓細//杩樻槸鎴戠粰婧愮爜鍚э紝璇翠簡涔熶笉鎳傘俿tr ="6498512367"For i = 1 To Len(str)Text=Text&mid(str,i,1)&"|"Next M = Split(Text, "|")For i = 0 To UBound(M)-1 For j = 0 To UBound(M)-1 If int(m(i)) < int(m(j)) Then//杩欏彞鐨勫ぇ浜庡彿鏀逛负灏忎簬鍙峰嵆鍙粠灏忓埌澶ф帓鍒 X ...
绛旓細'A灏忎簬100涓嶆垚绔嬫椂瑕佽繍琛岀殑鑴氭湰 End If 浼楃涔嬫垬浠涔堢殑娌＄帺杩..=== 浣犳槸璇存妸娓告垙閲屾樉绀虹殑鍥剧墖褰㈠紡鐨鏁板瓧鍙樻垚鏁版嵁鏄笉鏄憿锛熷彲浠ョ敤CE璇诲唴瀛橈紝涔嬪悗鐢ㄥ唴瀛樼殑鎻掍欢锛堣繖涓搷浣滄渶鍑嗙‘锝炰絾涓嶆槸姣忎釜娓告垙閮借兘璇诲埌鍐呭瓨锛屾湁鐨勭敤CE璇诲埌浣鎸夐敭璇诲嚭鏉ュ叏鏄0鐨勶綖锛夈傚鏋滃唴瀛樹笉濂芥壘鐨勫氨鐢∣CR锛堟枃瀛楄瘑鍒級銆備笅涓...
绛旓細鍙互鐪嬬湅X鐨勫兼槸澶氬皯锛屽拰鍓垏鏉跨殑鏁板瓧鏍稿涓鏍锋槸鍚︽纭傚彟澶栬繖涓皬浜庡彿鎬庝箞杩欎箞鍒壄锛屾槸鍏ㄨ绗﹀彿鍚э紵鍙互鎹㈡垚鍗婅绗﹀彿璇曡瘯 寮曞彿涔熸槸鐪嬬潃濂藉儚涓嶅お瀵
绛旓細鎸夐敭绮剧伒 鏁板瓧鎺掑垪闂 s1=7s2=1s3=5s4=3s5=8鎬庝箞璁╀粬浠粠澶у埌灏忔垨鑰呬粠灏忓埌澶ф帓鍒楀苟璧嬪肩粰a1=8a2=7a3=5a4=3a5=1... s1=7s2=1s3=5s4=3s5=8鎬庝箞璁╀粬浠粠澶у埌灏忔垨鑰呬粠灏忓埌澶ф帓鍒楀苟璧嬪肩粰a1=8a2=7a3=5a4=3a5=1 灞曞紑 鎴戞潵绛 1涓洖绛 #鐑# 鐢佃鍓с婄帇鐗岄儴闃熴嬫湁鍝簺妲界偣? hc娴婁笘...
