按键精灵数组问题？ 按键精灵电脑版数组问题？
\u6309\u952e\u7cbe\u7075\u6570\u7ec4\u7684\u95ee\u9898\u3002\u6253\u5f00\u6309\u952e\u7cbe\u7075\uff0c\u201c\u65b0\u5efa\u201d\u4e00\u4e2a\u811a\u672c\u3002
2
\u9996\u5148\u7f16\u8f91\u811a\u672c\u5c5e\u6027\u3002
\u63cf\u8ff0\u6539\u4e3a\uff1a\u6570\u7ec4\u8bfb\u53d6\uff1b
\u542f\u52a8\u70ed\u952e\uff1aCtrl+5\u3002
3
\u7f16\u8f91\u6e90\u6587\u4ef6\uff0c\u4ee3\u7801\u5982\u4e0b\uff1a
//\u6253\u5f00Excel\u6587\u6863\u5de5\u4f5c\u8868
Call Plugin.Office.OpenXls("C:\1234.xls")
//\u5411Excel\u5de5\u4f5c\u8868\uff081\uff09\u7b2c\u4e00\u884c\u5199\u5165\u6570\u636e
Call Plugin.Office.WriteXls(1, 1, 1, "1\u6708\u7edf\u8ba1")
Call Plugin.Office.WriteXls(1, 1, 2, "958")
Call Plugin.Office.WriteXls(1, 1, 3, "\u91d1\u989d1")
Call Plugin.Office.WriteXls(1, 1, 4, "9878.34")
//\u5411Excel\u5de5\u4f5c\u8868\uff081\uff09\u7b2c\u4e8c\u884c\u5199\u5165\u6570\u636e
Call Plugin.Office.WriteXls(1, 2, 1, "1\u6708\u7edf\u8ba1")
Call Plugin.Office.WriteXls(1, 2, 2, "852")
Call Plugin.Office.WriteXls(1, 2, 3, "\u91d1\u989d2")
Call Plugin.Office.WriteXls(1, 2, 4, "8934.04")
//\u8bfb\u53d6Excel\u5de5\u4f5c\u8868(1)\u7b2c\u4e00\u884c\u7b2c1\u30014\u683c\u5185\u5bb9
Text1 = Plugin.Office.ReadXls(1, 1, 1)
Text2 = Plugin.Office.ReadXls(1, 1, 4)
//\u5173\u95edExcel\u6587\u6863\u5de5\u4f5c\u8868
Call Plugin.Office.CloseXls()
//\u5f39\u51fa\u7a97\u53e3\u5199\u5165\u6570\u636e
MessageBox text1&"\u6253\u5370"&Text2
4
\u770b\u4e00\u4e0b\u666e\u901a\uff0c\u7406\u89e3\u4e00\u4e0b\u5404\u884c\u4ee3\u7801\u7684\u542b\u4e49\u3002
5
\u8c03\u8bd5\u6ca1\u6709\u95ee\u9898\u3002
\u4fdd\u5b58\u9000\u51fa\u5c31\u53ef\u4ee5\u4e86\u3002
6
\u5728\u811a\u672c\u5217\u8868\u533a\u627e\u5230\u6211\u4eec\u521a\u521a\u7f16\u8f91\u7684\u811a\u672c\u3002
7
\u8bd5\u7740\u8fd0\u884c\u4e00\u4e0b\u3002
\u8fd9\u91cc\u6211\u4eec\u53ea\u662f\u8bfb\u53d6\u4e86\u5176\u4e2d\u7684\u4e24\u7ec4\u6570\u636e\uff0c\u5176\u5b83\u7684\u6570\u636e\u53ef\u4ee5\u4f9d\u636e\u9700\u8981\u8bfb\u53d6\u3002
8
\u6253\u5f00C\u76d8\u4e0a\u6309\u952e\u7cbe\u7075\u5efa\u7acb\u7684EXCEL\u6587\u6863\uff0c\u770b\u4e00\u4e0b\u6587\u6863\u5199\u5165\u7684\u51e0\u7ec4\u6570\u636e\u4f4d\u7f6e\u3002
\u6839\u636e\u4f60\u7684\u8981\u6c42\u5199\u4e86\u4e00\u4e0b\u4ee3\u7801\u7ed9\u4f60\u53c2\u8003\uff0c\u5e0c\u671b\u80fd\u5e2e\u5230\u4f60
b=0//\u6539\u53d8B\u7684\u503c0\u548c1\u6d4b\u8bd5
a=Array(1,5,9,14,21)
\u521d\u59cb\u5316a=a
//\u524d\u9762\u6570\u636e\uff0c\u540e\u9762\u8c03\u7528\u8fd0\u7b97\uff0c\u4e5f\u5c31\u662f\u4ece\u4e0b\u9762\u5f00\u59cb\u5faa\u73af
If b=1
If UBound(a)<=1
a=\u521d\u59cb\u5316a
End If
ReDim c(UBound(a)-2)
For i=1 to UBound(a)-1
c(i-1)=a(i)
Next
Elseif b=0
ReDim c(UBound(a)+1)
For i=0 to UBound(a)
c(i)=a(i)
Next
c(i)=22
End If
ReDim a(UBound(c))
a=c
//\u4e0b\u9762\u4e3a\u6d4b\u8bd5\u9a8c\u8bc1\u4ee3\u7801\u662f\u5426\u6b63\u786e
For i=0 to UBound(a)
MessageBox a(i)
Next
*********************************************************
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
*********************************************************
每循环一次 简化(次数)的值都+1
输出：
绛旓細娆℃暟 = 0 i = 1 For 6 绠鍖=array(鍛戒腑璁板綍0,鍛戒腑璁板綍1,鍛戒腑璁板綍2,鍛戒腑璁板綍3,鍛戒腑璁板綍4,鍛戒腑璁板綍5)绠鍖(娆℃暟)=绠鍖(娆℃暟)+i TracePrint 绠鍖(娆℃暟)i=i+1 Next 姣忓惊鐜竴娆 绠鍖(娆℃暟)鐨勫奸兘+1 杈撳嚭锛
绛旓細鎸夐敭绮剧伒鍙互浣跨敤 Split 鍑芥暟鏉ュ垎鍓鏁扮粍涓殑鏁版嵁銆備互涓嬫槸涓涓ず渚嬩唬鐮侊紝婕旂ず濡備綍浣跨敤鎸夐敭绮剧伒杩涜浜屾绌烘牸鍒嗗壊锛歷bscript澶嶅埗浠ｇ爜Dim A(2)A(0) = "aaaa bb c123"A(1) = "123f a1 b"Dim result() As String result = Split(A(0), " ") ' 绗竴娆″垎鍓睩or i = LBound(result) To UBound...
绛旓細鍦ㄦ寜閿簿鐏典腑锛屽悎骞舵暟缁勫彲浠ヤ娇鐢≒ython璇█鐨勫垪琛紙list锛夋潵瀹炵幇銆備互涓嬫槸涓绉嶅彲鑳界殑鏂规硶锛氬皢涓や釜鏁扮粍a鍜宐鍚堝苟鎴愪竴涓柊鐨勬暟缁刢锛歚``c = a + b ```鎴栬呬娇鐢╡xtend()鍑芥暟锛歚``a.extend(b)c = a ```2. 濡傛灉瑕佷繚鐣欎袱涓暟缁勫師鏈夌殑椤哄簭锛屽彲浠ュ皢鍙︿竴涓暟缁勫姞鍒版暟缁勭殑鏈熬锛歚``for i in b:...
绛旓細鎸夐敭绮剧伒鍙互杩欐牱鎶婂潗鏍囧瓨鍏ユ暟缁勶細1銆佸０鏄庢暟缁勫彉閲忥紝瀹氫箟鏁扮粍澶у皬鍙婄被鍨锛屽锛欴immyArray(10,1)AsInteger锛岃〃绀哄０鏄庝簡涓涓ぇ灏忎负11琛2鍒楃殑鏁村瀷鏁扮粍銆2銆佸湪绋嬪簭涓皢鍧愭爣瀛樺叆鏁扮粍涓傚彲浠ヤ娇鐢ㄥ惊鐜鍙ユ垨鑰呴愪釜璧嬪肩殑鏂瑰紡灏嗗潗鏍囧瓨鍏ユ暟缁勪腑銆3銆佸皢鏁扮粍myArray涓殑x鍧愭爣鍜寉鍧愭爣渚濇璧嬪肩粰鍙橀噺x鍜寉锛岀劧鍚庡彲浠ユ牴...
绛旓細杩欎釜濡傛灉鐩存帴鑳借幏鍙栧灏戜粭锛岄偅閫氳繃姣旇緝鐩存帴閫夋渶灏戦偅涓氨琛岋紝濡傛灉涓嶈閭ｅ氨鑾峰彇浜虹墿鐜板湪鍧愭爣锛岀劧鍚庡啀姣旇緝鐩爣鍧愭爣鐐癸紝鐜板湪鐨勫潗鏍噚-鐩爣鍧愭爣x锛寉-y
绛旓細0)If x=3 Then d=d+1 End If If x=2 Then c=c+1 End If If x=1 Then b=b+1 End If If x=0 Then a=a+1 End If MessageBox e(x)Next MessageBox "鏁扮粍e锛1锛"&a&" ,""鏁扮粍e锛2锛"&b&" ,""鏁扮粍e锛3锛"&c&" ,""鏁扮粍e锛4锛"&d s=a+b+d+c MessageBox s ...
绛旓細鍏充簬鐢鏁扮粍绠＄悊瀹炲弬锛氬叧浜庡嚱鏁板皝瑁咃紝鍏跺疄灏辨槸鎶婇渶瑕侀噸澶嶄娇鐢ㄧ殑绠楁硶鍐欐垚涓涓嚱鏁帮紝杩欐牱灏辫兘鎶婂ぇ娈甸噸澶嶇殑浠ｇ爜鍒犲幓锛屽彉鎴愪竴琛屽嚱鏁拌皟鐢 鎴戝皢涓婇潰鐨勪緥瀛愮◢鍔犳敼鍔 鎴戞湁杩欎箞涓涓畻娉曪細鏈変袱涓暣褰鍜寉锛屽皢鍏夋爣绉诲姩鍒(x*2, y*2)濡傛灉涓嶅皢姝ょ畻娉曞皝瑁咃紝鎴戝娆￠渶瑕佽繖绉嶇畻娉曟椂锛氳屽鏋滄垜灏嗘绠楁硶灏佽锛氬叾瀹炲ソ鍍忎笉鑳...
绛旓細200,200,215,215鈥)銆愭墿灞曘1.灏辩畻浣犺В鍐冲畬浜嗚繖涓闂锛屼綘鐨勪唬鐮侀噷闈㈣繕鏈夊叾浠栭棶棰橈紝浣犲簲璇ユ槸浠庡叾浠栫紪绋嬭瑷杞繃鏉ョ殑鍚э紝鎸夐敭绮剧伒涓嶆敮鎸侀偅绉鏁扮粍璧嬪 鈥渟(i)=(x(i*4+2)-x(i*4))*x(i*4+3)-x(i*4+1)鈥濃樿繖涓槸鏃犳硶鎵ц鐨 2.浣犵殑浠ｇ爜涓澶у爢鐨勫嚱鏁帮紝鎴戞槸鐪嬩笉鎳傦紝鑷繁婊℃弧鐮旂┒鍚 ...
绛旓細鏈変袱绉嶆柟娉曪細1銆- dim arr(10) - 瀹氫箟涓涓鏁扮粍 鏈10涓厓绱 瀹冪殑鏈澶т笅鏍囦负9 2銆- dim arr() - 鐣欑┖鍏冪礌涓暟 锛屽彲鐢╮edim閲嶅畾涔 濡 - redim arr(10) - 瀹氫箟浜岀淮鏁扮粍锛歞im arr(10,10)
绛旓細1锛塙Bound 杩斿洖鐨勬槸鏁扮粍鐨勬渶澶у彲鐢ㄤ笅鏍囷紝鍥犱负杈撳叆浜7涓瓧姣嶆墍浠ヨ繑鍥7 2锛夊ぇ鍐 = "A|B|C|D|E|F|G|"灏忓啓 = "a|b|c|d|e|f|g|"da = Split(澶у啓, "|")xiao = Split(灏忓啓, "|")out = UBound(da, 1)While out out=out-1 da(out) = da(out)&xiao(out)wend ...
