按键精灵数组的赋值及使用
　　求100个学生的平均成绩及超过平均成绩的人数。
　　如果用一般变量来表示成绩，需要用100个变量，如：mark1、mary2、……mark100。若用数组，可以只用一个来表示mark(99)。
2．基本概念
　　数组：是同类型变量的一个有序的集合。
　如：A(99)，表示一个包含100个数组元素的名为A的数组。
　　数组元素： 即数组中的变量。用下标表示数组中的各个元素。
　表示方法：数组名(P1,P2,……)&
　　　其中P1、P2表示元素在数组中的排列位置，称为“下标”。
　如：A(3,2)代表二维数组A中第3行第2列上的那个元素。
　　数组维数： 由数组元素中下标的个数决定，一个下标表示一维数组，二个下标表示二维数组。
VB中有一维数组、二维数组、……最多60维数组。
　　下标：
下标表示顺序号，每个数组有一个唯一的顺序号，下标不能超过数组声明时的上、下界范围。下标可以是整型的常数、变量、表达式，甚至又是一个数组元素。
　　　　　下标的取值范围是：缺省下界时，系统默认取0。
3．数组声明
&　数组必须先声明后使用。声明数组就是让系统在内存中分配一个连续的区域，用来存储数组元素。
&　声明内容：数组名、类型、维数、数组大小。
&　　　　　　一般情况下，数组中各元素类型必须相同，但若数组为Variant时，可包含不同类型的数据。
& &　静态数组：声明时确定了大小的数组。
& &　动态数组：
声明时没有给定数组大小（省略了括号中的下标），使用时需要用ReDim语句重新指出其大小。
使用动态数组的优点是根据用户需要，有效地利用存储空间，它是在程序执行到ReDim语句时才分配存储单元，而静态数组是在程序编译时分配存储单元。
静态数组及声明
& &静态一维数组的声明形式：
&&&Dim&&数组名(下标)
说明：（1）下标必须为常数，不可以为表达式或变量；
（2）下标下界最小为-32768，最大上界为32767；省略下界，其默认值为为0，一维数组的大小为：上界-下界+1
　　　 （3） 如果省略类型，则为变体型
例：　（1） Dim&&A(10)
　　　　 　声明了A是数组名、一维数组、有11个元素，下标的范围是0～10。
2．多维数组
　　静态多维数组的声明形式：
Dim&&数组名(下标1[,下标2…])&
　　说明：　（1）下标个数决定数组的维数，最多60维。
　　　　　 （2）每一维的大小=上界-下界+1；数组的大小=每一维大小的乘积。
　　例：Dim&&C(5, 4)
　 　　声明了C是数组名、长整型、二维数组、第一维下标范围为0～5，第二维下标的范围是0～4，占据6x
5个长整型变量的空间。
3．注意事项
（1）在有些语言中，下界一般从1开始，为了便于使用，在VB的窗体层或标准模块层用Option Base n
语句可重新设定数组的下界，如Option Base 1。
在数组声明中的下标关系到每一维的大小，是数组说明符，而在程序其他地方出现的下标为数组元素，两者写法相同，但意义不同。
　 （3） 在数组声明时的下标只能是常数，而在其他地方出现的数组元素的下标可以是变量。
动态数组及声明
1．&&动态数组的建立与声明
　　建立动态数组的方法是：利用Dim、Private、Public语句声明括号内为空的数组，然后在过程中用ReDim语句指明该数组的大小。语法是：
ReDim&&数组名(下标1[,下标2…])
　 其中下标可以是常量，也可以是有了确定值的变量，类型可以省略，若不省略，必须与Dim中的声明语句保持一致。
　　例： Dim D()&
　　　　 Sub Form_Load()
　　　　 ……&
　　　　 ReDim D(4,6)
　　　　 ……
　　　　 End Sub
2．注意事项
　　（1）在动态数组ReDim语句中的下标可以是常量，也可以是有了确定值的变量；
　 （2）在过程中可以多次使用ReDim来改变数组的大小，也可改变数组的维数。
（3）每次使用ReDim语句都会使原来数组中的值丢失，可以在ReDim语句后加Preserve参数来保留数组中的数据，但使用Preserve只能改变最后一维的大小，前面几维大小不能改变。
3．动态数组使用示例
数组的基本操作
&给数组元素赋初值
　　（1） 利用循环结构
　　　　例：Dim&&i,A(10)
　　　　　　 For i=0 To 10&
　　　　　　　　　A(i)=0&
　　　　　　 Next&
　　（2） 利用Array函数
　　　　例：Dim&&a , b , i
　　　　　　　 a = Array (1,2,3,4,5)
　　　　　　　 b = Array ("abc","def","67")
　　　　　　 For i=0 To Ubound (a)
　　　　　　　　　　 msgbox a(i)
　　　　　　 Next&
　　　　　　 For i=0 To Ubound (b)
　　　　　　　　　　msgbox b(i)
　　　　　　 Next&
2．数组的输入
　(1) 通过InputBox函数输入适合输入少量数据。
　　　例：Dim&&sB(3,4)
　　　　　　 For i=0 To 3
　　　　　　& & For j=0 To 4
　　　　　　　& & SB(i,j) =InputBox("输入"
& i & j & "的值")
　　　　　　　 Next&
　　　　　　 Next&
　(2) 通过文本框控件输入
&&　　对大批量的数据输入，采用文本框和函数split()\join()进行处理，效率更高。
3．数组的赋值
&　在VB6.0中可以直接将一个数组的值赋值给另一个数组：
　　 Dim a(3) , b()&
　　 A(0)=2: A(1)=5: A(2)=-2: A(3)=2
　　　 b=a
　 在早期的VB中，这需要用循环语句才可以实现：
　　 ReDim b(UBound(a))
　　 For I=0 to UBound(a)
　　　　 b(I)=a(I)
　　 Next&
&注意：（1）赋值号两边的数据类型必须一致；
　　　　 （2）如果赋值号左边的是一个动态数组，则赋值时系统自动将动态数组ReDim成右边相同大小的数组；
　　　　 （3）如果赋值号左边的是一个大小固定的数组，则数组赋值出错。
4．数组的输出
　　用For……Next循环语句输出。
5．求数组中最大元素和所在下标及各元素之和
　　求数组中最大元素及下标，一般假设第一个元素及下标为最大，然后将该数与数组中的其他元素逐一比较，若有比其大的就替换，同时替换下标。
6．交换数组中各元素
　　交换的要求是将数组第一个元素与最后一个交换，第二个与倒数第二个交换，依次类推。
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。for变量存入数组问题 _ 会员专区 - 按键精灵论坛
腾讯微博：
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.2.9软件大小：62.5M更新时间：12-07
软件版本：1.3.1软件大小：29.2M更新时间：09-29
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 422|回复: 3
Dim Lx, LyLx = 84Ly = 30call 走路()Function 走路()
Dim 距离,k, m, n，ax
Text = Plugin.File.ReadFileEx(&C:\魔域图片\坐标.txt&)
arr2 =split(Text,&|&)&&&&
For i = 0 To UBound(arr2)-1
TracePrint arr2(i)
arr = split(arr2(i), &,&)
TracePrint arr(0) & &--------& & arr(1)
距离 = sqr((Lx - arr(0)) * (Lx - arr(0))) + (Ly - arr(1) * (Ly - arr(1)))
TracePrint &计算出来的距离大小=&&距离
ax = 距离//-------------------------------------求每次for循环；“距离”变量的值 存到ax这个数组当中 现在只能存当前循环的
Next//----------------------------------------------------而不是每一次循环的值 后面功能需要ax数组进行分割排序 求解答
MessageBox ax
End Function
按 键 工 程 师·兼 职
按键X开拓者勋章最先体验按键精灵X，且提交有效反馈的奖励勋章过大年勋章俩小福娃给大家拜年啦！双十一绝版纪念勋章双十一绝版纪念勋章抗战胜利70周年勋章抗战胜利70周年活动的专属勋章单身汪勋章单身贵族的专属勋章按键14周年庆纪念勋章按键14周年庆纪念勋章（360天）按键学院按键学院专属勋章，按键学院学员或文章被院刊收入可领取幸运草勋章（永久）商业小精灵限时活动勋章。马年勋章（360天） 马年纪念勋章（360天）月全勤论坛自然月（如8.1-8.31）签到满勤，系统会在月底自动判断发放。鹰眼勋章鹰眼注册用户专属勋章黄瓜勋章（永久）体验商业小精灵活动的奖励天使勋章天使一样的用户按键明星按键明星勋章黄金之翼黄金之翼勋章举报达人长期举报不良帖子活动狂人论坛活动狂人骨灰级按键用户3年以上的按键论坛用户按键精灵开发者6级可通过提升认证等级来升级勋章：rz.anjian.com龙年勋章（360天）龙年纪念勋章（360天）十周年勋章（360天）十周年纪念勋章兔年勋章（360天）兔年纪念勋章(360天)论坛GG按键论坛男性用户勋章发帖高手鼓励积极回复，但注意不要灌水哦爱心大使积极帮助新手（可向管理员进行申请）学有所成学有所成勋章，新手步入按键学堂的第一枚勋章实习版主按键论坛的实习版主专属勋章按键元老资深按键用户的尊贵荣誉勋章管理人员按键论坛的管理团队专属勋章
回复 Dim Lx, Ly
TracePrint 走路()
Function 走路()
Dim 距离,k, m, n，ax
Text = Plugin.File.ReadFileEx(&C:\魔域图片\坐标.txt&)
arr2 =split(Text,&|&)
For i = 0 To UBound(arr2)-1
// TracePrint arr2(i)
arr = split(arr2(i), &,&)
TracePrint arr(0) & &--------& & arr(1)
距离 = sqr((Lx - arr(0)) * (Lx - arr(0))) + (Ly - arr(1) * (Ly - arr(1)))
TracePrint &计算出来的距离大小=&&距离
ax = ax&距离&&|&
MessageBox ax
End Function
自命不凡，其实很落魄个人QQ: 个人爱好群:[加群有惊喜]
过大年勋章俩小福娃给大家拜年啦！双十一绝版纪念勋章双十一绝版纪念勋章单身汪勋章单身贵族的专属勋章按键精灵开发者6级（新浪V认证）通过新浪微博加V后自动发放，并替换普通的认证6级勋章。 微博达人（90天）完成新浪微博加V的奖励，结合活动不定期开放申请。幸运草勋章（永久）商业小精灵限时活动勋章。官方脚本作者工会官方脚本作者工会专属勋章 鹰眼勋章鹰眼注册用户专属勋章黄瓜勋章（永久）体验商业小精灵活动的奖励按键卫士（90天）参与“打击山寨，维护按键”活动图灵勋章参与按键精灵验证码识别大赛奖励按键图书勋章尊贵的按键图书用户小红帽对论坛提出良好建议（可向管理员申请）学有所成学有所成勋章，新手步入按键学堂的第一枚勋章脚本作者商业小精灵作者绑定账号后自动赠送
您好, 有两种方法. 1 是 把 ax 定义成 数组. 然后把值 放在 ax(i) 中 2 是 把 所有的 值全部 放到 一起 , 用 &|& 连接 . 用的时候 用 &|& 分割后 使用 简易代码如下 '先在定义 ax 的地方就给
ax 赋值, ax = &&If ax = && Then
&&&&ax = 距离
&&&&ax = ax & &|& & 距离
感觉表达有问题，就是把距离每次都存入ax中下面分割调用你的偶像正在直播中，
可用的推荐票
中级教程-编程入门：变量与数组
礼物加载异常，请点击重试
礼物正在加载中，请稍后......
加载失败，请点击重试
（错误代码：001）
登录后查看你的排名
我未上榜╮(╯▽╰)╭
最佳战绩：
本视频还没有人送礼╮(╯▽╰)╭
有钱任性，赏TA一个礼物呗~
加载失败，请点击重试
（错误代码：001）
0人正在看，条弹幕
本作品还没有弹幕╮(╯▽╰)╭
等你来一发！
加载失败，请点击重试
（错误代码：001）
投推荐票最多的观众
送礼值最高的观众
加载异常，请点击重试
（错误代码：005）
同专辑作品
作者更多作品
我来说两句...
现在还没有评论哦~快来抢沙发！
加载异常，请刷新重试
王者荣耀星耀榜&&排名&第50名
加载异常，请点击重试
（错误代码：005）
视频作者排行
新的一周开始啦，速来打榜赢福利！
加载失败，请点击重试
（错误代码：001）
加载失败，请点击重试
（错误代码：001）
版权声明：
未经爱拍原创授权，任何第三方不得以转载、修改、复制、出版及其他方式使用本站视频。
确定取消关注TA (⊙o⊙)？
我再想想心意已决
下载爱拍APP
粤网文[8号
爱拍网违法和不良信息举报电话：
举报邮箱：
版权所有 广州爱拍网络科技有限公司
关注爱拍公众号
微信扫码关注或微信
搜索 “爱拍原创”
关注爱拍官方微博
微博扫码关注或你的位置：
遍历符合窗口标题保存在数组里用法
08:29:01 |
来源: 按键精灵资源站
遍历符合窗口标题保存在数组里，但是保存的是字符串数组，不能直接用，我想问下怎么把hwndex里面的数字字符串转换成整形数字，难道没有这样的内置函数么？（别告诉我用循环分解每一个字符再减阿斯科马然后再拼起来，我会抓狂的）如何将数组赋值给一个变量？ _ 按键精灵手机版 - 按键精灵论坛
腾讯微博：
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.2.9软件大小：62.5M更新时间：12-07
软件版本：1.3.1软件大小：29.2M更新时间：09-29
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 644|回复: 9
leihanguang
按键会员（季）按键会员绑定账号后自动赠送脚本作者商业小精灵作者绑定账号后自动赠送
如题，比如：Dim a1=array(288,320,766,501)Dim a2=array(705,313,772,495)Dim a3=array(579,319,654,495)Dim aFor i = 1 To 3&&&&If i = 1 Then &&&&&&&&a = a1&&&&ElseIf a = 2 Then&&&&&&&&a = a2
ElseIf a = 3 Then
a = a3&&&&&&&&End IfNext这样赋值数组 是不允许的吗？或者是我的写法有问题？求大神解答！！
为什么认证只有PC题
可以,但a =2就不可以,因为 a 是数组
过大年勋章俩小福娃给大家拜年啦！双十一绝版纪念勋章双十一绝版纪念勋章单身汪勋章单身贵族的专属勋章按键精灵开发者6级（新浪V认证）通过新浪微博加V后自动发放，并替换普通的认证6级勋章。 微博达人（90天）完成新浪微博加V的奖励，结合活动不定期开放申请。幸运草勋章（永久）商业小精灵限时活动勋章。官方脚本作者工会官方脚本作者工会专属勋章 鹰眼勋章鹰眼注册用户专属勋章黄瓜勋章（永久）体验商业小精灵活动的奖励按键卫士（90天）参与“打击山寨，维护按键”活动图灵勋章参与按键精灵验证码识别大赛奖励按键图书勋章尊贵的按键图书用户小红帽对论坛提出良好建议（可向管理员申请）学有所成学有所成勋章，新手步入按键学堂的第一枚勋章脚本作者商业小精灵作者绑定账号后自动赠送
您好 ,数组是多个值
变量是 只能有一个值
火山发电厂
按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com
//电脑版Dim aTracePrint TypeName(a)数组 = Array(1, 2, 3, 4, 5, 6)a = 数组TracePrint typename(a)TracePrint UBound(a)(9.99 K) 23:16:31//手机版Dim a(),b()b = Array(1, 2)a = Clone(b)TracePrint UBound(a)//标准库函数/数组函数中有用法说明
火山发电厂 最后编辑于
leihanguang
按键会员（季）按键会员绑定账号后自动赠送脚本作者商业小精灵作者绑定账号后自动赠送
我的代码写错了，应该是
Dim aFor i = 1 To 3
If i = 1 Then
ElseIf i = 2 Then
a = a2ElseIf i = 3 Then
End IfNext我反复试过，这种数据不能直接赋值给一个变量，但是为了简洁代码，就没其他办法实现这种
把 数组赋值给一个 变量吗？
为什么认证只有PC题
你的问题是把数组里的某个元素赋值给变量?还是整个数组赋值给变量??整个数组,dim a= a1,其实这样会好点dim a = Clone(a1)单个元素,dim a = a1(0),按键的下标是从0开始
火山发电厂
按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com
Dim a(),b()
b = Array(1, 2)
TracePrint UBound(a)
复制代码Dim a(),b()
b = Array(1, 2)
a = Clone(b)
TracePrint UBound(a)
leihanguang
按键会员（季）按键会员绑定账号后自动赠送脚本作者商业小精灵作者绑定账号后自动赠送
指导，知道如何处理了