VB 二维数组怎么手动初始化啊

Stema 2017-06-18 07:07:30

接了个小程序，以前没用过VB，客户给了这个

"方盒形",10,6,0
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
"隧道形",9,10,0
1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1

有人知道这种的怎么初始化出来吗

...全文

350 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

JDD1997 2017-06-24

打赏
举报

回复

比如这样 Dim a(,) As Integer = {{0, 1, 2}, {3, 4, 5}, {6, 7, 8}, {9, 10, 11}}

threenewbee 2017-06-20

打赏
举报

回复

两重循环，具体怎么初始化看你的需求了。

智者知已应修善业 2017-06-19

打赏
举报

回复

第二个不懂什么规律

智者知已应修善业 2017-06-19

打赏
举报

回复

就用你熟悉的语言先写出来,再转为VB,第一个可以参考http://blog.csdn.net/xianfajushi/article/details/22723323 第一个不懂.

姓名：周方勇网名：长江支流/咏方舟 Email： flygoldfish@sina.com.cn Blog: http://blog.csdn.net/flygoldfish 2004年04月18日 1、在网友的热心支持下免费提供空间和域名 www.webmis.com.cn 2004年04月07日发布不带.dll的源码供交流 2005年01月24日 1、提供VB.NET及C#的使用示例工程 2、发布V2.2测试版 2005年01月22日将打印示例程序按功能（简单打印、完整示例、Excel打印）分在不同的窗口 2005年01月14日发布《MIS金质打印通》 V2.1测试版 2004年01月13日 1、将MisPrinter类改为MisGoldPrinter，以促进品牌效应。 2、在MisGoldPrinter类中再增加一个带参构造函数，以便直接默认横向打印/预览 3、增加DocumentName属性，以便在打印/预览时在窗口标题栏中显示指定的名称 2004年01月07日调整打印程序内部结构，为使发出去的后期源程序版本一致，待近期调整完结构之后公布源码！这就是继V1.1之后没有发源代码的原因。 ____________________________________________________ 2004年7月完成了整体的框架、涉及打印的几个对话框、核心打印程序及几个基本打印对象并由BillPrinter类将其组织起来，程序基本定型。本程序为通用打印程序，单据、会计凭证、发票清单、报表、任意复杂表格、合并表格如工矿企业合同都可以由系统提供的几个默认打印对象组合打印。 DataGrid、DataTable、MSHFlexGrid等二维形式全部可以打印。部分对象如PrinterMargins、Sewing、GridLineFlag、GridMergeFlag等提供图例，以促进理解。后期版本将提供XML描述、SQL数据源的打印，并用管理器管理任意多个网格、文本对象、图象等，用户可以随意定义。 2004年8月初为一些类或程序写上注释，如下： /// 程序提供：周方勇；Email：flygoldfish@sina.com。 /// 请关注：WebMIS.Net快速开发工具，不写一行程序开发B/S架构下MIS、OA、CRM、人事管理、档案管理等数据库网页系统。简单、实用、稳定、可靠。 /// 下载： /// 上海奥联：WWW.AlinkSoft.COM /// 用友华表：WWW.CellSoft.CC ///★★★★★您可以免费使用此程序，但是请您保留此说明，以维护知识产权★★★★★ 2004年08月07日 1、将框架作了部分调整，并且将打印基本对象的基类Printer作了调整。由于打印对象的定位及打印区域受PrintDocument、Sewing影响，为了方便Printer的子类不必在每次实例化后设置这两个对象，故将PrintDocument、Sewing放在一个类中作为全局静态变量，现删除这两个全局静态变量，改在Printer 的构造函数中，为每个子类提供一个默认的PrintDocument、Sewing实例对象。 2、为GridBase扩充了几个属性与方法，由于字段太多，每次增加或修改字段后要去构造函数中去修改他们的初始化，太麻烦了，所以将它们的初始化直接放在定义处，并把相应的属性及相关方法直接放在字段后，并用#region指令将它们折叠起来，便于维护。 3、增加了ReDimArrString(string[,] arrStr,int rows,int cols)，即重定义二维字符数组，因为网格的行列数可能要改变，但不能因为它们改变了而丢失原有的数据，因此写此程序保留新定义的行列，但保留和原有行列数相交的部分数据。 4、应用设计模式原理重新组织IPrinterPageSetting、PrinterPageSetting、WinPrinterPageSetting、WebPrinterPageSetting。 WebPrinterPageSetting待进一步完善。 2004年08月08日 1、将以往程序优化 2、将DrawGrid类中DrawGridLine(...)、DrawGridText(...)、DrawGridBorder(...)参数最全的核心函数改为protected，提供public的无参方法供实例化对象调用；由于在指定的区域内可能绘制不完网格，因此上面的几个函数可能会将返回类型void改为一个描述绘制结果的对象； SetText(int row,int col,string text)、SetText(int row,int col)将在后期版本中提供.Row[index].Text的属性； TransGrid()、ResetTransGrid()是在设计时为了能做任意的缩放的变换提供的，待进一步完善。 3、对Printer类中的ReSetVariableVal()、GetPrinterMargins()进行修改，以适应对纸张进行调整特别是横向、竖向打印的支持。 2004年08月09日 1、解决分页问题，主要是有些对象每页都重复打印，使得条件复杂。 2004年08月10日 1、13:42将源程序传给资深程序员李峰； 2、计划增加每页小计。 2004年08月11日 1、为网格增加画对角线的功能，以满足中国人表格的特点； 2、将Graphics、PrintDocument、Sewing、RectangleF、Height、Draw()重新组织在IDraw里，并在 BillPrinter中增加private void OutObject(IDraw outer)，使每个对象输出时调用此方法，提高代码重用率； 2004年08月14日 1、忘了，反正又把程序看了看，修修补补做了些调整。 2004年08月15日 1、将分页又重新简化了一下，主要是打印Body上用了数据行指针； 2004年08月16日 1、发布V1.0源码版,程序名称为MIS金质打印王。 2、在CSDN上发布贴子： .^^.开源：C#.NET开发的MIS打印程序，各种网格如DataGrid打印、DataTable、HtmlTable等二维形式全搞定，源码免费下载 http://community.csdn.net/Expert/topic/3278/3278050.xml?temp=.5012934 2004年08月17日 1、在CSDN上发布文章：开源:.NET环境下有关打印页面设置、打印机设置、打印预览对话框的实现 http://blog.csdn.net/flygoldfish/archive/2004/08/17/77208.aspx 2、应广大网友来信要求，计划将PrinterPageSetting目录开源到演示程序，以后逐一以文章的形式全部开放。 2004年08月18日 1、中国共享软件网收录 MIS金质打印王 V1.0源码版 http://www.shareware.cn/pub/2319.html 2、将PrinterPageSetting目录即（页面设置、打印机设置、打印预览）源码加入演示程序。 3、在MisGoldPrinter中添加属性，DataSource，这样，仅需几句话就可以打印了，如： MisGoldPrinter webmis = new MisGoldPrinter(); //申明并实例化打印组件 webmis.Title = "WebMIS.Net快速开发工具\nWWW.AlinkSoft.COM"; //网格标题 webmis.DataSource = this.dataGrid1; //DataGrid作为数据源 webmis.Preview(); //打印预览注意：将将MisGoldPrinter中的Draw(Graphics g)打印各个对象时加一下 printerobject != null的判断，如 if (mCurrentPageIndex == 1 || _caption.IsDrawAllPage)... 改为 if (_caption != null && (mCurrentPageIndex == 1 || _caption.IsDrawAllPage))... 否则可能会出错。 4、将3的应用加到了frmPrint.cs ，做一个简单的打印。 2004年08月19日 1、将PrinterPageSetting目录即（页面设置、打印机设置、打印预览）源码加入演示程序。 2、发布V1.1源码版,程序名称为MIS金质打印王。 2004年09月03日 1、由于在CSDN上发表文档".NET环境下有关打印页面设置、打印机设置、打印预览对话框的实现"，因此将PrinterPageSetting封装成一个.dll，分别用C#与VB.net写了使用示例工程程序 2、在IPrinterPageSetting.cs增加event PrintPageDelegate PrintPage，并将原PrintPage改为PrintPageValue /// C#调用： /// PrinterPageSetting1.PrintPageValue = new PrintPageDelegate(this.PrintPageEventHandler); ///或 PrinterPageSetting1.PrintPage += new PrintPageDelegate(this.PrintPageEventHandler); /// VB调用： /// Me.printerPageSetting.PrintPageValue = New GoldPrinter.PrintPageDelegate(AddressOf printDocument_PrintPage) 3、增加了DrawText类，用以打印文档（其实可以用一行一列的DrawGrid打印） 4、PrinterPageSetting的readme.txt如下： ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 声明： 1、版权归周方勇所有，如需传播，请保留完整的内容及此声明，以维护知识产权! 2、您可以使用本程序中的任何部分作为学习或商业用途，但是需要保留相关程序的注释。 3、最新版本下载：http://www.alinksoft.com 4、免费源码 5、本人不承担任何责任。周方勇；Email：flygoldfish@sina.com。 ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 本程序带C#与VB.net版本使用方式，用VS.net打开PrinterPageSetting.sln，在您喜欢的语言项目上单击鼠标右键,在弹出的菜单中选择"设为启动项目"，然后运行。 5、准备独立发布PrinterPageSetting 2004年09月04日重大喜讯：收到中国共享软件注册中心2004年09月03日的邮件。部分内容如下：软件名称：MISGoldPrinter免费C#.NET源码版(5块钱给softreg吧) 注册价格：5元/套您的软件在本站的编号是： /535AC7A1-9985-4314-A52C-978BB9C0BB29/ 软件注册页绝对链接： http://www.softreg.com.cn/shareware_view.asp?id=/535AC7A1-9985-4314-A52C-978BB9C0BB29/ 快捷链接: http://www.softreg.com.cn/shareware.asp?id=17260 2004年10月...日改变PrintDocument的DefaultPageSettings就会改变PrinterMargins。由于是打印基类，继承者博多，因此每次实例化时都会计算PrinterMargins会影响效率，这就是前些版本速度慢的原因。改为手动调用CalculatePageInfo()或改变 PrintDocument后在调用处重新计算一个PrinterMargins保存起来，因此增加PrinterSingleton，使系统只有同一个PrintDocument及PrinterMargins，这样速度大大改观。开发Excel打印功能 2004年11月20日开发Excel打印功能完成，能够生成Excel文件、Excel打印预览、Excel操作。自定制模板打印，非常灵活。完成各种打印、套打、报表、图表分析。 2004年11月23日发布MIS金质打印王 V2.0测试版。如需要源码，下载V1.1即可。 V2.0源码版在预计在12月上旬推出。 2004年11月27日改正预览时显示正确，在预览窗口单击打印时打印不出Body的错误。其实只要在PrintPageEventHandler（）中打印或预览重置当前页及当前行 this.mCurrentPageIndex = 1; this.mCurrentRowIndex = 0; 2004年12月...日 1、调整打印程序内部结构，公开部分程序基本没动，只作相应的错误更正及加几个属性。 2、PrinterBase不再包含装订线Sewing，打印对象的定位及打印区域只受PrintDocument的影响， 3、由于使用PrinterSingleton使系统只有同一个PrintDocument及PrinterMargins，因此在同一系统两个地方使用时出现了打印一样的效果，如A处有header而B处没有，先打A再打B，结果B中也有header了，于是在PrinterSingleton增加Reset()方法以使PrintDocument及PrinterMargins为null，在MisPrinter 构造函数中首先调用Reset()

题目1、定义一个5×4的二维数组,完成对数组的各元素的输入后.#include/*定义一个5×4的二维数组,完成对数组的各元素的输入后.要求(1)求各行元素之和,并将这些和按从小到大排列输出.(2)求各列元素之和,并将这些和按从大到小排列输出.(3)对所有元素按VB 输入一个3行4列的二维数组,分别求出每一行、每一列元素之和要求你可以将行列算出的值用一个数组接收,这里是采用变量接收的方式.Opt...

VBScript(Microsoft Visual Basic Script Editon).，微软公司可视化BASIC脚本版). 正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言. Microsoft Visual Basic是微软公司出品的一套可视化编程工具, 语法基于Basic. 脚本语言, 就是不编译成二进制文件, 直接由宿主(ho

项目报告基于Java的推箱子游戏设计与实现社会在进步，人们生活质量也在日益提高。高强度的压力也接踵而来。社会中急需出现新的有效方式来缓解人们的压力。此次设计符合了社会需求，Java推箱子游戏可以让人们在闲暇之余，体验游戏的乐趣。具有操作简单,易于上手的特点。推箱子游戏的玩法十分简单——控制人物绕过障碍物，到达目的地。此次毕业设计基于Java语言。将游戏地图做成通用的关卡设计，关卡用二维数组实现，在二维数组中设置值域来表示不同对象，运用二维数组的遍历算法来加载对应图片实现了游戏图片初始化状态。同时，通过初始化

2005-09-07数组和广义表 - [数据结构]第五章数组和广义表——非线性数据结构5.1 数组的定义和运算☆二维数组的逻辑结构形式定义为: 2_Array=( D, R )其中 D={ aij | i=c1,c1+1,...,d1, j=c2,c2+1,...,d2, aijD0} R={ROW, COL}ROW={ | c1id1, c2jd2－1,

16,555

社区成员

110,528

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章