VB可变数组定义 vb定义数组变量

   2023-02-08 学习力0
核心提示:关键点:Dim   str()   As   string    '定义           redim   str(n)                  '重设长度   or     redim   Preserve  str(n)    '重设长度,并保持原来记录不变 详细阐述:ReDim   语句 在过程

关键点:Dim   str()   As   string    '定义
           redim   str(n)                  '重设长度

   or     redim   Preserve  str(n)    '重设长度,并保持原来记录不变

 




详细阐述:

ReDim   语句

在过程级别中使用,用于为动态数组变量重新分配存储空间。

语法

ReDim   [Preserve]   varname(subscripts)   [As   type]   [,   varname(subscripts)   [As   type]]   .   .   .

ReDim   语句的语法包括以下几个部分:

部分   描述  
Preserve   可选的。关键字,当改变原有数组最末维的大小时,使用此关键字可以保持数组中原来的数据。  
varname   必需的。变量的名称;遵循标准的变量命名约定。  
subscripts   必需的。数组变量的维数;最多可以定义   60   维的多维数组。subscripts   参数使用下面的语法:  
    [lower   To]   upper   [,[lower   To]   upper]   .   .   .  
    如果不显式指定   lower,则数组的下界由   Option   Base   语句控制。如果没有   Option   Base   语句则下界为   0。  
type   可选的。变量的数据类型;可以是   Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal(目前尚不支持)、Date、String(对变长的字符串)、String   *   length(对定长的字符串)、Object、Variant、用户定义类型或对象类型。所声明的每个变量都要有一个单独的   As   type   子句。对于包含数组的   Variant   而言,type   描述的是该数组的每个元素的类型,不能将此   Variant   改为其它类型。  


说明

ReDim   语句用来定义或重定义原来已经用带空圆括号(没有维数下标)的   Private、Public   或   Dim   语句声明过的动态数组的大小。

可以使用   ReDim   语句反复地改变数组的元素以及维数的数目,但是不能在将一个数组定义为某种数据类型之后,再使用   ReDim   将该数组改为其它数据类型,除非是   Variant   所包含的数组。如果该数组确实是包含在某个   Variant   中,且没有使用   Preserve   关键字,则可以使用   As   type   子句来改变其元素的类型,但在使用了此关键字的情况下,是不允许改变任何数据类型的。

如果使用了   Preserve   关键字,就只能重定义数组最末维的大小,且根本不能改变维数的数目。例如,如果数组就是一维的,则可以重定义该维的大小,因为它是最末维,也是仅有的一维。不过,如果数组是二维或更多维时,则只有改变其最末维才能同时仍保留数组中的内容。下面的示例介绍了如何在为已有的动态数组增加其最末维大小的同时而不清除其中所含的任何数据。

ReDim   X(10,   10,   10)
.   .   .
ReDim   Preserve   X(10,   10,   15)

同样地,在使用   Preserve   时,只能通过改变上界来改变数组的大小;改变下界则会导致错误。

如果将数组改小,则被删除的元素中的数据就会丢失。如果按地址将数组传递给某个过程,那么不要在该过程内重定义该数组的各维的大小。

在初始化变量时,数值变量被初始化为   0,变长的字符串被初始化为一个零长度的字符串   ( " "),而定长的字符串则用   0   填充。Variant   变量被初始化为   Empty。用户自定义类型的变量的每个元素作为各自独立的变量进行初始化。在使用引用对象的变量之前,必须使用   Set   语句将一个已有的对象赋给该变量。在被赋值之前,所声明的对象变量有一个特定值   Nothing,这个值表示该变量没有指向任何对象的实例。

小心   如果   ReDim   语句所使用的变量在模块级别或过程级别不存在,则该语句就相当于一个声明语句。如果此后在一个更广的范围内又创建了同名的变量,即使使用了   Option   Explicit,ReDim   也将使用后声明的这个变量,且不会导致编译错误。为了避免这种冲突,就不应把   ReDim   作为声明语句使用,而只应作为重定义数组大小的语句。

注意   要改变   Variant   所包含的数组的大小,必须在试图改变其数组大小之前显式声明该   Variant   变量。

 
反对 0举报 0 评论 0
 

免责声明:本文仅代表作者个人观点,与乐学笔记(本网)无关。其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
    本网站有部分内容均转载自其它媒体,转载目的在于传递更多信息,并不代表本网赞同其观点和对其真实性负责,若因作品内容、知识产权、版权和其他问题,请及时提供相关证明等材料并与我们留言联系,本网站将在规定时间内给予删除等相关处理.

  • Windows API Reference for C#, VB.NET
    不错的.net 下用API的参考站点地址在:http://www.webtropy.com/articles/Win32-API-DllImport-art9.asp 下面摘抄分类,便于大家直接就拿来用: File, Memory, Process, Threading, Time, Console, and Comm control(kernel32.dll) _hread_hwrite_lclose_lcr
    03-16
  • 一个基于API的VB.net串口通讯类 vbnet串口通信
    VB.net的串口通讯支持总是让人觉得有所不足,在使用VB6的MsComm32.ocx时,很多人都会在VB.net的开发中觉得很困扰。    这里讲述的VB.net串口通讯类使用native代码,并且它是通API调用实现的,你会发现VB.net的串口通讯就是这么简单。    在说明如何使
    02-12
  • [VB][ASP.NET]FileUpload控件「批次上传 / 多档
    FileUpload控件「批次上传 / 多档案同时上传」的范例 (VB语法) http://www.dotblogs.com.tw/mis2000lab/archive/2008/05/14/3986.aspx    FileUpload控件真的简单好用,不使用它来作批次上传,却要改用别的方法,实在不聪明。要用就一次用到底,公开File
    02-10
  • 第八章 VB中ActiveX控件的使用
    轉自:http://wwww.hyit.edu.cn/edu/vb/study/index.htm第八章          VB中ActiveX控件的使用8.1  概述     这里的ActiveX控件是指VB标准工具箱里没有的控件,用时需从“工程”菜单里选择“部件…”(或右键单击工具箱,从快捷菜单中选择“部
    02-10
  • 第二章 VB的界面设计
    轉自:http://wwww.hyit.edu.cn/edu/vb/study/index.htm第二章         VB的界面设计2.1  VB用户界面设计基础1. 概述   界面的设计有两步:先绘制控件,然后确定控件属性。   绘制控件:在工具箱里单击想画的控件,在窗体里按下鼠标并拖曳,然后
    02-10
  • C#/VB.NET 获取Excel中图片所在的行、列坐标位置
    C#/VB.NET 获取Excel中图片所在的行、列坐标位
    本文以C#和vb.net代码示例展示如何来获取Excel工作表中图片的坐标位置。这里的坐标位置是指图片左上角顶点所在的单元格行和列位置,横坐标即顶点所在的第几列、纵坐标即顶点所在的第几行。下面是获取图片位置的详细方法及步骤。【程序环境】按照如下方法来引
    02-09
  • VB操作XML
    VB操作XML
    XSL(可扩展样式表语言)是对CSS的一种扩展,功能比CSS强大得多。XML链接是在HTML链接的功能之上加以扩展,可以支持更为复杂的链接,通过XML链接,不仅可以在XML文件之间建立链接,还可以建立其他类型数据之间的链接,其规范分为三个部分:XLink语言,XPointe
    02-09
  • VB6多线程,关键段操作 vb6.0 多线程
    Option Explicit Declare Function GetLastError Lib "kernel32" () As Long 'Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long 'Declare Sub ExitThread Lib "kernel32" (Optional ByVal dwExitCode
    02-09
  • VB.NET调用IE,并且等待
                Dim p As New Process            '获得URL            aURL = GetURL()            '获得IE路径            p.StartInfo.FileName = System.Environment.GetFolderPath( _ 
    02-09
  • vb的VSFlexGrid控件 vb msflexgrid
    多行选中VSFlexGrid的SelectionMode = flexSelectionListBox,现在可以配合Ctrl进行多行选择循环取值用vsflexgrid.SelectedRows 可以得到你选择的行的总数量然后用循环可以得到具体的行中具体列的内容Dim Temp  As StringDim i As IntegerFor i =
    02-09
点击排行