按键精灵数组
UserVar shuzu="1,3,45,5,2,34,5,6,7"dim a(3,3)
i=0
m=0
n=0
MyArray = Split(shuzu, ",")
For 3
For 3
a( n,m)=MyArray(i)
m=m+1
i=i+1
EndFor
m=0
n=n+1
EndFor
绛旓細渚嬪瓙锛欴im 缂栧彿椤(99)number = 1 content = Inputbox("璇疯緭鍏ョ紪鍙")TracePrint content For i = 0 To UBound(缂栧彿椤)num = len(number)Select Case num Case 1 sernum = "A00" & number Case 2 sernum = "A0" & number Case 3 sernum = "A" & number End Select 缂栧彿椤(i) = ...
绛旓細鍙橀噺鏄渶鍩烘湰鐨勶紝鎵炬繃绋嬶紝鎶婃殑璇嗗埆鐮佽緭鍏ュ彉閲廇涓紝鎵剧涓涓狽PC浠ｇ爜杈撳叆B涓璉F A=B then 鎵惧埌鎬狤SLE 娌℃壘鍒癊nd If 濡傛灉浣犺鎵10涓綘閲嶅涓婇潰閭ｆ灏辨樉寰楀お涓嶄笓涓氫簡锛岄偅灏卞彲浠ョ敤鍒板彉閲忎簡銆侫锛0锛=A1 //绗竴涓殑璇嗗埆鐮佸瓨鍏鏁扮粍A锛0锛堿锛1锛=A2 //绗簩涓殑璇嗗埆鐮佸瓨鍏ユ暟缁凙锛1锛...
绛旓細dim 绠鍖,鍛戒腑璁板綍0,鍛戒腑璁板綍1,鍛戒腑璁板綍2,鍛戒腑璁板綍3,鍛戒腑璁板綍4,鍛戒腑璁板綍5,娆℃暟 鍛戒腑璁板綍0=0 娆℃暟 = 0 i = 1 For 6 绠鍖=array(鍛戒腑璁板綍0,鍛戒腑璁板綍1,鍛戒腑璁板綍2,鍛戒腑璁板綍3,鍛戒腑璁板綍4,鍛戒腑璁板綍5)绠鍖(娆℃暟)=绠鍖(娆℃暟)+i TracePrint 绠鍖(娆℃暟)i=i+1 Next 姣忓惊鐜竴娆 绠鍖(娆℃暟)鐨勫奸兘+...
绛旓細//搴旇鏄袱涓鏁扮粍锛屼綘涔嬪墠鐢ㄤ竴涓暟缁勶紝鍒ゆ柇鎵惧浘鍚庡氨浠庢柊缁欐暟缁勮祴鍊间簡锛屾墍浠ユ樉绀虹殑鏄渶鏂扮殑鍊笺傚凡娴嬭瘯閫氳繃 Dim 娴嬭瘯(7),鎵惧埌(7)娴嬭瘯 (0)="鎴戠殑鏂囨。"娴嬭瘯 (1)="鎴戠殑鐢佃剳"娴嬭瘯 (2)="缃戜笂閭诲眳"娴嬭瘯 (3)="鍥炴敹绔"娴嬭瘯 (4)="QQ娓告垙"娴嬭瘯 (5)="瀹藉甫杩炴帴"娴嬭瘯 (6)="蹇嵎鏂瑰紡"娴嬭瘯 (7)...
绛旓細鑷畾涔夊嚱鏁帮細鎬濊矾锛氬畾涔夈愪复鏃跺彉閲忋戜负闆讹紝閫愪釜閬嶅巻鏁扮粍鍏冪礌杩涜瀵规瘮锛岃嫢鍙栧嚭鍏冪礌澶т簬銆愪复鏃跺彉閲忋戝垯銆愪复鏃跺彉閲忋=鍙栧嚭鍏冪礌锛屽弽涔嬩笉鍋氫换浣曟搷浣滐紝缁х画閬嶅巻锛屼互姝ゅ緱鍑烘渶澶у笺傚姛鑳斤細鑾峰彇鏁扮粍鐨勬渶澶у 鍙傛暟锛氳閬嶅巻鐨勬暟缁 杩斿洖鍊硷細鏈澶у a = 105 b = 525 c = 105 d = 805 鏁扮粍 = array(a, b, ...
绛旓細寮涓浜嬫湰锛岃瘯涓涓嬩笅闈㈣繖涓剼鏈氨鐭ラ亾浜嗐傛敞鎰忥紝鏁扮粍璁版暟鏄粠0寮濮嬬殑銆侫 = Array(10,20,30,40,50)For i = 0 To 4 SayString a(i)SayString "-"Next
绛旓細'渚嬪瓙1--鍦鎸夐敭绮剧伒鍐呯洿鎺ラ噸瀹氫箟鏁扮粍 Dim AR(),i i=10 Redim AR(i)MessageBox UBound(AR)'渚嬪瓙2 -- 鍦ㄦ寜閿簿鐏靛唴閿欒鐨勫啓娉:Function 瀛愬嚱鏁()Dim AR(),i //鍒犻櫎姝よ浠ｇ爜鍙В鍐 i=9 Redim AR(i)MessageBox UBound(AR)End Function '渚嬪瓙3 -- 鍦╒BS鍧楀唴鎵ц鏍囧噯VBS璇彞 VBSBegin dim ...
绛旓細//杩欎釜骞堕潪鍔ㄦ鏁扮粍 ,鍔ㄦ佹暟缁勬槸鐢 ReDim瀹氫箟鐨 ,鍙槸鏅氱殑涓缁存暟缁 x(0) = 89 : y(0) = 58 x(1) = 225 : y(1) = 559 x(2) = 342 : y(2) = 559 x(3) = 492 : y(3) = 559 //=== /*褰搃=0鏃,鏁扮粍x鍙栧间负89,y鍙栧58.褰搃=1鏃,鏁扮粍x鍙栧间负225,y鍙栧559......
绛旓細//鎴栬呭彟璧蜂竴绌鸿锛屽惁鍒欎細鍑虹幇2145|,杩欎釜"|"绗﹀彿銆俛 = 0//0鏄涓涓处鍙 T = UBound(ID)//璁＄畻鏈夊嚑涓┖鏍 Do 璐﹀彿 = cstr(ID(a))TracePrint 璐﹀彿 a = a + 1 If a > T Then Exit do End If Loop //鏁扮粍鏄粠cstr(id(0))寮濮嬬殑锛孶Bound(ID)浠1寮濮嬬殑锛屾墍浠姣擳灏戜竴涓暟 ...
绛旓細200,200,215,215鈥)銆愭墿灞曘1.灏辩畻浣犺В鍐冲畬浜嗚繖涓棶棰橈紝浣犵殑浠ｇ爜閲岄潰杩樻湁鍏朵粬闂锛屼綘搴旇鏄粠鍏朵粬缂栫▼璇█杞繃鏉ョ殑鍚э紝鎸夐敭绮剧伒涓嶆敮鎸侀偅绉鏁扮粍璧嬪 鈥渟(i)=(x(i*4+2)-x(i*4))*x(i*4+3)-x(i*4+1)鈥濃樿繖涓槸鏃犳硶鎵ц鐨 2.浣犵殑浠ｇ爜涓澶у爢鐨勫嚱鏁帮紝鎴戞槸鐪嬩笉鎳傦紝鑷繁婊℃弧鐮旂┒鍚 ...
