按键精灵定义二维数组二维数组

来源：蜘蛛抓取(WebSpider) 时间：2018-05-17 06:30 标签： 按键精灵 启动软件
你的位置：
求一个给二维数组循环赋值的代码
21:06:49 |
来源: 按键精灵资源站
新学。二维数组为shuzu(3，3)
一维的我是这样做的。
dim shuzu(3)
for i = 0 to ubound(shuzu)
&&shuzu(i) = i + 1
& &traceprint shuzu(i)
但是做不出来二维的循环赋值，思路是两个for嵌套，但代码写不出来。求帮忙写个代码。
手机码字，格式有不对的地方请见谅请“深海多水”在帮忙看看：按键精灵的一个二维数组赋值程式。。。。。。_百度知道
请“深海多水”在帮忙看看：按键精灵的一个二维数组赋值程式。。。。。。
ZDS = inputbox(&请输入总栋数&)
Redim JS(0)
ReDim CS(0)
If ZDS & && Then
ZDS = int(ZDS)
k = int(h)
If k & g Then
Redim Preserve CS(k)
我有更好的答案
昨晚看到你问的这个问题已经回复了，我复制过来了，你再试试看p = int(i & j)'搜索
If p & UBound(JS) Then
Redim Preserve JS(p)
MessageBox &p=&& p
JS(p) = int(inputbox(&请输入& & m & &栋& & n & &层间数&))另外如果你这断代码放到子程序时注意sub aDim JS()Dim CS()Redim JS(0)ReDim CS(0)‘你的代码end sub上面不对下面是正确的，错误原因我也不明白sub aRedim JS(0)ReDim CS(0)‘你的代码end subRedim Preserve JS(p)'这句代码是关键，你搞懂这个你的问题差不多就能解决了比如下面Redim JS(10) '我是这样理解的数组最大维数超过10的就没有值了比如JS(11)=a
,超过10就要从新定义，从新定义要保证之前的值不丢失就必须进行保护，Redim Preserve JS(p)这句就是从新定义并保护的意思，但不保护超过当前维数的数组，所以要进行判断
i=11doIf i & UBound(JS) Then '判断Redim Preserve JS(i)'从新定义并保护End If JS(i)=a
采纳率：84%
来自团队：
为您推荐：
其他类似问题
二维数组的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。你的位置：
怎么简单判断一个二维数组中所有值为空？
17:00:33 |
来源: 按键精灵资源站
怎么简单判断一个二维数组中所有值为空？你的位置：
【实例】字符串转二维数组（新手入门）
11:34:05 |
来源: 按键精灵资源站
原帖作者请海涵，忘记收录你的ID了~
Redim ArrMap(0, 0)
arr = &812,52,243D66|817,98,,134,547BAC|817,192,5B7F9E|853,236,,277,89B5CD|844,327,001341&
Call WriteArr(arr)
For j = 0 To UBound(ArrMap, 2)
& && &&&For i = 0 To UBound(ArrMap, 1)
& && && && && & msgbox ArrMap(i, j)
& && &&&Next
Sub WriteArr(pStr)& && && && && && && && && && && && && && && && && && && && && && && && && && &
& & '返回动态二维数组ArrMap
& & Dim i, j, arrX, arrY
& & arrX = Split(arr, &|&)
& && &&&For i = 0 To UBound(arrX)
& && && && && & arrY = Split(arrX(i), &,&)
& && && && && & For j = 0 To UBound(arrY)
& && && && && && && && &If j = 0 and i = 0 Then Redim ArrMap(UBound(arrX), UBound(arrY))
& && && && && && && && &ArrMap(i, j) = arrY(j)
& && && && && & Next
& && &&&Next你的位置：
二维数组的问题，在线等~~~
04:34:58 |
来源: 按键精灵资源站
Call MessageBox(&请将鼠标放在游戏画面上,并按回车来确定&)
Hwnd = Plugin.Window.mousepoint()
//下面这句是得到窗口句柄的客户区大小
Rect = Plugin.Window.GetClientRect(Hwnd)
//下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
MyArray = Split(Rect, &|&)
//下面这句将字符串转换成数值
L = Clng(MyArray(0)): T = Clng(MyArray(1))
R = Clng(MyArray(2)): B = Clng(MyArray(3))
//MessageBox(&左上角坐标:x=&&L&&,y=&&T&&,请分别输入设置中保存,如果浏览器窗口有变动,请将数值清零后,再使用本程序.&)
dim jzcolor(12,8)
starx=x+309
stary=y-101+306
///////////////////////////////////以上是定义部分，应该没有问题，以下是问题所在
Sub 矩阵取色
Dim jzcolor(12,8)
Xstar=starx& &
& & While b&UBound(jzcolor,2)+1
& && &&&starx=x+309
& && &&&a=0
& && &&&while a&UBound(jzcolor,1)+1
& && && && &k=GetPixelColor(starx,stary)
& && && && &jzcolor(a,b)=k
& && && && &a=a+1
& && && && &starx=starx+stepx
& && && && &//MessageBox jzcolor(a,b)
& && &&&Wend
& && &&&b=b+1
& && &&&stary=stary+stepy
---------------------------------------------
这个子程序中k是有值的，但是当我把k的值赋给 jzcolor(a,b) 之后，加入一个MessageBox jzcolor(a,b)，它输出的是空值....很奇怪啊，哪里出问题了？？

我要回帖

更多关于 按键精灵 启动软件 的文章

 

随机推荐