软件开发培训班 >> 编程开发 >> VbScript


VBScript 鍔ㄦ�?Array 鐨勫疄鐜颁唬鐮? target=

璁板綍涓�涓皬鏂规硶锛屽叧浜?VBScript 涓紝鍔ㄦ�?Array 鐨勫疄鐜帮紝涔熼�傜敤浜?VBA锛?/p>

鍦ㄥ緢涔呬互鍓嶏紝鍐?VBA 鐨勬椂鍊欙紝灏辫寰椾娇鐢?Array 鍜屼笉鏂逛究锛屽洜涓哄ぇ灏忓浐瀹氾紝
褰撴椂鎯崇殑鏄紝瑕佹槸 Array 鍙互鍍?Python 閲岀殑 list 涓�鏍峰ソ鐢ㄨ澶氬ソ鍟婏紝
閭ｄ箞涓嬮潰锛屽氨璁板綍涓�涓柟娉曪紝鑳借 Array 鍙樺緱鍔ㄦ�侊紝骞朵笖濂界敤锛?/p>

瀹炵幇鏂规硶锛?br />

鍦ㄤ笅闈㈢殑瀹炰緥涓紝鍏堣瀹氫竴涓┖鐨?Array 鍑烘潵锛?br /> 鐒跺悗鐢紝涓嬮潰鐨勬柟娉曞疄鐜板姩鎬?Array锛?br /> 骞朵笖锛屾妸鏁板瓧 1 鍒?10锛屼竴涓姞鍒?Array 涓幓銆?/p>

'鍔ㄦ�?Array 瀹炵幇

myArray = Array()
For i = 1 To 10
  ReDim Preserve myArray(UBound(myArray) + 1)
  myArray(UBound(myArray)) = i
Next

閭ｄ箞鍔ㄦ�?Array 灏辫繖涔堝紑蹇冪殑瀹炵幇鍟︼紝(^_−)鈽?/p>

瀵规瘮涓嬪拰 Python list 鐨勪唬鐮佸惂锛屾劅瑙夋槸涓嶆槸寰堝儚鍛€�?/p> 

# Python 涓?list 鐨勪娇鐢?
myList = list()
for i in range(10):
  myList.append(i)
print(myList)

鏁版嵁杈撳嚭锛?/p>

鐒跺悗锛屾�濊�冧笅涓�涓棶棰橈紝涔熸槸鎴戜箣鍓嶅啓 VBA 鏃跺�欒�冭檻鐨勯棶棰橈紝
灏辨槸锛屾�庝箞涓�涓嬪瓙锛岀湅鍒?Array 涓墍鏈夌殑鏁版嵁锛?br /> 涔嬪墠鐨勬湰鏂规硶锛屾槸浣跨敤 For Loop锛屾妸 Array 涓殑鏁版嵁涓�涓釜 Print 鍑烘潵锛?br /> 浣嗘槸鐜板湪鍙戠幇浜嗙畝鍗曠殑鏂规硶锛屼唬鐮佸涓嬶細

'鏈�绠�鍗曠殑鏂规硶锛?/p> 

MsgBox Join (myArray, vblf)

'涔嬪墠浣跨敤鐨勭鏂规硶锛?
For Each i In myArray
  Debug.Print i
Next

缁撴潫璇細

涓婇潰鐨勫姩鎬?Array 鏂规硶锛屽湪 VBScript 鍜?VBA 涓兘鍙敤锛?/p>

鎬荤粨

鍒版杩欑瘒鍏充簬VBScript 鍔ㄦ�?Array 鐨勫疄鐜颁唬鐮佺殑鏂囩珷灏变粙缁嶅埌杩欎簡,鏇村鐩稿叧VBScript 鍔ㄦ�?Array鍐呭璇锋悳绱㈣剼鏈箣瀹朵互鍓嶇殑鏂囩珷鎴栫户缁祻瑙堜笅闈㈢殑鐩稿叧鏂囩珷甯屾湜澶у浠ュ悗澶氬鏀寔鑴氭湰涔嬪锛?/p>