这种阵列在 VBNET 已定名为不规则阵列。 至於是否正确，要看你的需求才知道。从程式码上来说，是可行的做法。 ==> 本文由 "flare0118 <[email protected]>" > 於 news:568gYk%248KN%40ptt.cc 发表 > ※ [本文转录自 Visual_Basic 看板 #1DvF-YI2 ] > 作者: s963870 (flare0118) 看板: Visual_Basic > 标题: [问题][VBA ] Array宣告问题 > 时间: Tue May 31 22:47:59 2011 > Sub SwapBlank(BtnNo As Variant) > Dim i As Integer > Dim Neighbors > Neighbors = Array(Array("2","4"),_ > Array("1","3","5"),_ > Array("2","6"),_ > Array("1","5","7"),_ > Array("2","4","6","8"),_ > Array("3","5","9"),_ > Array("4","8"),_ > Array("5","7","9"),_ > Array("6","8")) > If Controls("CommandButton"& BtnNo).Caption<>""Then > For i = 1 To UBound(Neibors(BtnNo)) > If Controls("CommandButton"&Neighbors(BtnNo)(i)).Caption = "" Then > Controls("CommandButton"&Neighbors(BtnNo)(i)).Caption = > Controls("CommandButton"&BtnNo).Caption) > Controls("CommandButton"&BtnNo).Caption = "" > Exit For > End If > Next i > End If > End Sub > 可以请问这样ARRAY宣告部分有错误吗? 错的话应该怎麽订正?? > -- 风禹科技验证有限公司 ASP.NET Web News Reader 0.2.9 UTF-8 Beta 网站地图 http://tlcheng.twbbs.org/wwwmap.htm 流域防洪/区域水资源/徐昇网/玫瑰图/语音通讯 文章与程式 Basic/Fortran/Windows API/.Net/辅助说明档 原始码、文章与讨论 微软程式设计、系统管理使用新技术论坛讨论区，网友回覆後即时简讯、电子邮件通知： MSDN: http://social.msdn.microsoft.com/Forums/zh-TW/categories/ TechNet: http://social.technet.microsoft.com/Forums/zh-TW/categories/ -- ASPNET News Reader http://tlcheng.twbbs.org/News/Reader.aspx RSS 2.0 http://tlcheng.twbbs.org/News/rss2.aspx?Action=List&Newsgroup=tw.bbs.comp.language