在vb模块中怎么定义动态数组? 请问在vb中怎么定义一个动态数组,谢谢了
\u600e\u4e48\u5b9a\u4e49VB\u52a8\u6001\u6570\u7ec4\uff1fDim d() As String '\u5b9a\u4e49\u52a8\u6001\u6570\u7ec4
Dim n As Integer
n = 0
Open "C:\\u6587\u4ef6.txt" For Input As #1
Do While Not EOF(1)
n = n + 1
ReDim Preserve d(n) '\u52a8\u6001\u6539\u53d8\u6570\u7ec4\u7684\u89c4\u6a21
Input #1, d(n) '\u5c06\u6570\u636e\u8bfb\u53d6\u5230\u6570\u7ec4\u91cc
Loop
Close #1
\u5728\u8fc7\u7a0b\u7ea7\u522b\u4e2d\u4f7f\u7528\uff0c\u7528\u4e8e\u4e3a\u52a8\u6001\u6570\u7ec4\u53d8\u91cf\u91cd\u65b0\u5206\u914d\u5b58\u50a8\u7a7a\u95f4\u3002\u8bed\u6cd5
ReDim [Preserve] varname(subscripts) [As type] [, varname(subscripts) [As type]] . . .
ReDim \u8bed\u53e5\u7684\u8bed\u6cd5\u5305\u62ec\u4ee5\u4e0b\u51e0\u4e2a\u90e8\u5206\uff1a\u90e8\u5206 \u63cf\u8ff0Preserve \u53ef\u9009\u7684\u3002\u5173\u952e\u5b57\uff0c\u5f53\u6539\u53d8\u539f\u6709\u6570\u7ec4\u6700\u672b\u7ef4\u7684\u5927\u5c0f\u65f6\uff0c\u4f7f\u7528\u6b64\u5173\u952e\u5b57\u53ef\u4ee5\u4fdd\u6301\u6570\u7ec4\u4e2d\u539f\u6765\u7684\u6570\u636e\u3002
varname \u5fc5\u9700\u7684\u3002\u53d8\u91cf\u7684\u540d\u79f0\uff1b\u9075\u5faa\u6807\u51c6\u7684\u53d8\u91cf\u547d\u540d\u7ea6\u5b9a\u3002
subscripts \u5fc5\u9700\u7684\u3002\u6570\u7ec4\u53d8\u91cf\u7684\u7ef4\u6570\uff1b\u6700\u591a\u53ef\u4ee5\u5b9a\u4e49 60 \u7ef4\u7684\u591a\u7ef4\u6570\u7ec4\u3002subscripts \u53c2\u6570\u4f7f\u7528\u4e0b\u9762\u7684\u8bed\u6cd5\uff1a
[lower To] upper [,[lower To] upper] . . .
\u5982\u679c\u4e0d\u663e\u5f0f\u6307\u5b9a lower\uff0c\u5219\u6570\u7ec4\u7684\u4e0b\u754c\u7531 Option Base \u8bed\u53e5\u63a7\u5236\u3002\u5982\u679c\u6ca1\u6709 Option Base \u8bed\u53e5\u5219\u4e0b\u754c\u4e3a 0\u3002
type \u53ef\u9009\u7684\u3002\u53d8\u91cf\u7684\u6570\u636e\u7c7b\u578b\uff1b\u53ef\u4ee5\u662f Byte\u3001Boolean\u3001Integer\u3001Long\u3001Currency\u3001Single\u3001Double\u3001Decimal\uff08\u76ee\u524d\u5c1a\u4e0d\u652f\u6301\uff09\u3001Date\u3001String\uff08\u5bf9\u53d8\u957f\u7684\u5b57\u7b26\u4e32\uff09\u3001String * length\uff08\u5bf9\u5b9a\u957f\u7684\u5b57\u7b26\u4e32\uff09\u3001Object\u3001Variant\u3001\u7528\u6237\u5b9a\u4e49\u7c7b\u578b\u6216\u5bf9\u8c61\u7c7b\u578b\u3002\u6240\u58f0\u660e\u7684\u6bcf\u4e2a\u53d8\u91cf\u90fd\u8981\u6709\u4e00\u4e2a\u5355\u72ec\u7684 As type \u5b50\u53e5\u3002\u5bf9\u4e8e\u5305\u542b\u6570\u7ec4\u7684 Variant \u800c\u8a00\uff0ctype \u63cf\u8ff0\u7684\u662f\u8be5\u6570\u7ec4\u7684\u6bcf\u4e2a\u5143\u7d20\u7684\u7c7b\u578b\uff0c\u4e0d\u80fd\u5c06\u6b64 Variant \u6539\u4e3a\u5176\u5b83\u7c7b\u578b\u3002\u8bf4\u660e
ReDim \u8bed\u53e5\u7528\u6765\u5b9a\u4e49\u6216\u91cd\u5b9a\u4e49\u539f\u6765\u5df2\u7ecf\u7528\u5e26\u7a7a\u5706\u62ec\u53f7\uff08\u6ca1\u6709\u7ef4\u6570\u4e0b\u6807\uff09\u7684 Private\u3001Public \u6216 Dim \u8bed\u53e5\u58f0\u660e\u8fc7\u7684\u52a8\u6001\u6570\u7ec4\u7684\u5927\u5c0f\u3002
\u53ef\u4ee5\u4f7f\u7528 ReDim \u8bed\u53e5\u53cd\u590d\u5730\u6539\u53d8\u6570\u7ec4\u7684\u5143\u7d20\u4ee5\u53ca\u7ef4\u6570\u7684\u6570\u76ee\uff0c\u4f46\u662f\u4e0d\u80fd\u5728\u5c06\u4e00\u4e2a\u6570\u7ec4\u5b9a\u4e49\u4e3a\u67d0\u79cd\u6570\u636e\u7c7b\u578b\u4e4b\u540e\uff0c\u518d\u4f7f\u7528 ReDim \u5c06\u8be5\u6570\u7ec4\u6539\u4e3a\u5176\u5b83\u6570\u636e\u7c7b\u578b\uff0c\u9664\u975e\u662f Variant \u6240\u5305\u542b\u7684\u6570\u7ec4\u3002\u5982\u679c\u8be5\u6570\u7ec4\u786e\u5b9e\u662f\u5305\u542b\u5728\u67d0\u4e2a Variant \u4e2d\uff0c\u4e14\u6ca1\u6709\u4f7f\u7528 Preserve \u5173\u952e\u5b57\uff0c\u5219\u53ef\u4ee5\u4f7f\u7528 As type \u5b50\u53e5\u6765\u6539\u53d8\u5176\u5143\u7d20\u7684\u7c7b\u578b\uff0c\u4f46\u5728\u4f7f\u7528\u4e86\u6b64\u5173\u952e\u5b57\u7684\u60c5\u51b5\u4e0b\uff0c\u662f\u4e0d\u5141\u8bb8\u6539\u53d8\u4efb\u4f55\u6570\u636e\u7c7b\u578b\u7684\u3002
\u5982\u679c\u4f7f\u7528\u4e86 Preserve \u5173\u952e\u5b57\uff0c\u5c31\u53ea\u80fd\u91cd\u5b9a\u4e49\u6570\u7ec4\u6700\u672b\u7ef4\u7684\u5927\u5c0f\uff0c\u4e14\u6839\u672c\u4e0d\u80fd\u6539\u53d8\u7ef4\u6570\u7684\u6570\u76ee\u3002\u4f8b\u5982\uff0c\u5982\u679c\u6570\u7ec4\u5c31\u662f\u4e00\u7ef4\u7684\uff0c\u5219\u53ef\u4ee5\u91cd\u5b9a\u4e49\u8be5\u7ef4\u7684\u5927\u5c0f\uff0c\u56e0\u4e3a\u5b83\u662f\u6700\u672b\u7ef4\uff0c\u4e5f\u662f\u4ec5\u6709\u7684\u4e00\u7ef4\u3002\u4e0d\u8fc7\uff0c\u5982\u679c\u6570\u7ec4\u662f\u4e8c\u7ef4\u6216\u66f4\u591a\u7ef4\u65f6\uff0c\u5219\u53ea\u6709\u6539\u53d8\u5176\u6700\u672b\u7ef4\u624d\u80fd\u540c\u65f6\u4ecd\u4fdd\u7559\u6570\u7ec4\u4e2d\u7684\u5185\u5bb9\u3002\u4e0b\u9762\u7684\u793a\u4f8b\u4ecb\u7ecd\u4e86\u5982\u4f55\u5728\u4e3a\u5df2\u6709\u7684\u52a8\u6001\u6570\u7ec4\u589e\u52a0\u5176\u6700\u672b\u7ef4\u5927\u5c0f\u7684\u540c\u65f6\u800c\u4e0d\u6e05\u9664\u5176\u4e2d\u6240\u542b\u7684\u4efb\u4f55\u6570\u636e\u3002
ReDim X(10, 10, 10)
. . .
ReDim Preserve X(10, 10, 15)
\u540c\u6837\u5730\uff0c\u5728\u4f7f\u7528 Preserve \u65f6\uff0c\u53ea\u80fd\u901a\u8fc7\u6539\u53d8\u4e0a\u754c\u6765\u6539\u53d8\u6570\u7ec4\u7684\u5927\u5c0f\uff1b\u6539\u53d8\u4e0b\u754c\u5219\u4f1a\u5bfc\u81f4\u9519\u8bef\u3002
\u5982\u679c\u5c06\u6570\u7ec4\u6539\u5c0f\uff0c\u5219\u88ab\u5220\u9664\u7684\u5143\u7d20\u4e2d\u7684\u6570\u636e\u5c31\u4f1a\u4e22\u5931\u3002\u5982\u679c\u6309\u5730\u5740\u5c06\u6570\u7ec4\u4f20\u9012\u7ed9\u67d0\u4e2a\u8fc7\u7a0b\uff0c\u90a3\u4e48\u4e0d\u8981\u5728\u8be5\u8fc7\u7a0b\u5185\u91cd\u5b9a\u4e49\u8be5\u6570\u7ec4\u7684\u5404\u7ef4\u7684\u5927\u5c0f\u3002
\u5728\u521d\u59cb\u5316\u53d8\u91cf\u65f6\uff0c\u6570\u503c\u53d8\u91cf\u88ab\u521d\u59cb\u5316\u4e3a 0\uff0c\u53d8\u957f\u7684\u5b57\u7b26\u4e32\u88ab\u521d\u59cb\u5316\u4e3a\u4e00\u4e2a\u96f6\u957f\u5ea6\u7684\u5b57\u7b26\u4e32 ("")\uff0c\u800c\u5b9a\u957f\u7684\u5b57\u7b26\u4e32\u5219\u7528 0 \u586b\u5145\u3002Variant \u53d8\u91cf\u88ab\u521d\u59cb\u5316\u4e3a Empty\u3002\u7528\u6237\u81ea\u5b9a\u4e49\u7c7b\u578b\u7684\u53d8\u91cf\u7684\u6bcf\u4e2a\u5143\u7d20\u4f5c\u4e3a\u5404\u81ea\u72ec\u7acb\u7684\u53d8\u91cf\u8fdb\u884c\u521d\u59cb\u5316\u3002\u5728\u4f7f\u7528\u5f15\u7528\u5bf9\u8c61\u7684\u53d8\u91cf\u4e4b\u524d\uff0c\u5fc5\u987b\u4f7f\u7528 Set \u8bed\u53e5\u5c06\u4e00\u4e2a\u5df2\u6709\u7684\u5bf9\u8c61\u8d4b\u7ed9\u8be5\u53d8\u91cf\u3002\u5728\u88ab\u8d4b\u503c\u4e4b\u524d\uff0c\u6240\u58f0\u660e\u7684\u5bf9\u8c61\u53d8\u91cf\u6709\u4e00\u4e2a\u7279\u5b9a\u503c Nothing\uff0c\u8fd9\u4e2a\u503c\u8868\u793a\u8be5\u53d8\u91cf\u6ca1\u6709\u6307\u5411\u4efb\u4f55\u5bf9\u8c61\u7684\u5b9e\u4f8b\u3002
\u5c0f\u5fc3 \u5982\u679c ReDim \u8bed\u53e5\u6240\u4f7f\u7528\u7684\u53d8\u91cf\u5728\u6a21\u5757\u7ea7\u522b\u6216\u8fc7\u7a0b\u7ea7\u522b\u4e0d\u5b58\u5728\uff0c\u5219\u8be5\u8bed\u53e5\u5c31\u76f8\u5f53\u4e8e\u4e00\u4e2a\u58f0\u660e\u8bed\u53e5\u3002\u5982\u679c\u6b64\u540e\u5728\u4e00\u4e2a\u66f4\u5e7f\u7684\u8303\u56f4\u5185\u53c8\u521b\u5efa\u4e86\u540c\u540d\u7684\u53d8\u91cf\uff0c\u5373\u4f7f\u4f7f\u7528\u4e86 Option Explicit\uff0cReDim \u4e5f\u5c06\u4f7f\u7528\u540e\u58f0\u660e\u7684\u8fd9\u4e2a\u53d8\u91cf\uff0c\u4e14\u4e0d\u4f1a\u5bfc\u81f4\u7f16\u8bd1\u9519\u8bef\u3002\u4e3a\u4e86\u907f\u514d\u8fd9\u79cd\u51b2\u7a81\uff0c\u5c31\u4e0d\u5e94\u628a ReDim \u4f5c\u4e3a\u58f0\u660e\u8bed\u53e5\u4f7f\u7528\uff0c\u800c\u53ea\u5e94\u4f5c\u4e3a\u91cd\u5b9a\u4e49\u6570\u7ec4\u5927\u5c0f\u7684\u8bed\u53e5\u3002
\u6ce8\u610f \u8981\u6539\u53d8 Variant \u6240\u5305\u542b\u7684\u6570\u7ec4\u7684\u5927\u5c0f
1、声明数组的语句:
Dim types( ) As integer
2、然后使用ReDim语句来配置数组大小。
ReDim Types(X+1)
3、假设想改变数组大小又不想丢失原来的数据,仅仅要在ReDim语句中包括Preservekeyword就能够,典型语句为:
ReDa_m PresetVe Types(10,23)
对于多维数组,在使用Preservekeyword时,仅仅能改动最后一维的大小。假设改变其它维,那么将出现执行错误。假设不清楚某维的当前大小,能够使用GetI~ength函数来获取。
扩展资料:
数组的使用:
用For Each来循环遍历一个数组。比如:
Dim x As Integer
F0r Each x In arrayl
Console.WriteLine(x)
Next
在使用数组时还要注意,不仅声明语法有变化,并且在执行时处理方式也有了非常大的变化。VB.NET在堆栈中给数组分配地址空间,当向一个方法传递数组类型的参数时,使用的是引用传递而不是值传递。以下是互相传递数组引用的三个方法:
Dim arrayl(3,3)AS Integer
Dim array2 As Integer(,)
Redim array2(3,3)
Dim array3 As Integer(,)={{2,4},{12,29}}
在vb模块中定义动态数组有以下三种方式:
1、用 Public 语句声明数组;
2、在模块级用 Dim 语句声明数组;
3、在过程中用 Static 或 Dim 语句声明数组。
给数组附以一个空维数表,这样就将数组声明为动态数组。
Dim DynArray ()
例:用第一次声明在模块级所建立的动态数组 Matrix1:
Dim Matrix1 () As Integer
然后,在过程中给数组分配空间:
Sub CalcValuesNow ()
ReDim Matrix1 (19, 29)
End Sub
这里的 ReDim 语句给 Matrix 分配一个 20 × 30 的整数矩阵(元素总大小为 600)。
扩展资料
有时希望改变数组大小又不丢失数组中的数据。使用具有 Preserve 关键字的 ReDim 语句就可做到。例如,使用 UBound 函数引用上界,使数组扩大、增加一个元素,而现有元素的值并未丢失:
ReDim Preserve DynArray (UBound (DynArray) + 1)
在用 Preserve 关键字时,只能改变多维数组中最后一维的上界;如果改变了其它维或最后一维的下界,那么运行时就会出错。所以可这样编程:
ReDim Preserve Matrix (10, UBound (Matrix, 2) + 1)
VB6.0可在任何模块声明一个动态数组。
动态数组,数组到底应该有多大才合适,有时可能不得而知。所以希望能够在运行时具有改变数组大小的能力。
动态数组就可以在任何时候改变大小。在 Visual Basic
中,动态数组最灵活、最方便,有助于有效管理内存。例如,可短时间使用一个大数组,然后,在不使用这个数组时,将内存空间释放给系统。
创建动态数组,请按照以下步骤执行:
1.(如果希望数组为公用数组,则)用 Public 语句声明数组,或者,(如果希望数组为模块级,则)在模块级用 Dim
语句声明数组,或者(如果希望数组为局部数组,则)在过程中用 Static 或 Dim 语句声明数组。给数组附以一个空维数表,这样就将数组声明为动态数组。
Dim DynArray ()
2.用 ReDim 语句分配实际的元素个数。
ReDim DynArray (X + 1)
ReDim 语句支持这样的语法,它与固定数组中使用的语法相同。对于每一维数,每个 ReDim
语句都能改变元素数目以及上下界。但是,数组的维数不能改变。
ReDim DynArray (4 to 12)
保留动态数组的内容:
每次执行 ReDim 语句时,当前存储在数组中的值都会全部丢失。Visual Basi 重新将数组元素的值置为 Empty(对 Variant
数组)、置为 0(对 Numeric 数组)、置为 零长度字符串(对 String 数组)或者置为 Nothing(对于对象的数组)。
在为新数据准备数组,或者要缩减数组大小以节省内存时,这样做是非常有用的。有时希望改变数组大小又不丢失数组中的数据。使用具有 Preserve 关键字的
ReDim 语句就可做到这点。例如,使用 UBound 函数引用上界,使数组扩大、增加一个元素,而现有元素的值并未丢失:
ReDim Preserve DynArray (UBound (DynArray) + 1)
在VB中定义动态数组通常分两步首先在窗体层或标准模块中用DimPrivate或Public声明一个没有下标的数组(括号不能省略)然后在过程中用ReDim语句定义带下标的数组ReDim语句的作用是重新指出数组的大小它是在程序执行到ReDim语句时才分配存储空间
格式ReDim(数组名)(下标)[As(类型)]
ReDim [Preserve] varname(subscripts) [As type] [, varname(subscripts) [As type]] . . .
功能改变动态数组的大小和存储空间
说明:
(1)下标可以是常量也可以是具有确定值的变量
(2)语句中各参量的含义与用Dim定义数组的语句相同
(3)ReDim语句只能用于动态数组它可以改变每一维的大小但不能改变维数
(4)当程序编译时ReDim语句中的所有数组均被说明为动态数组在程序运行中当执行到ReDim语句时就把新的上下界重新分配给数组数组元素的值将被初始化所有的数值元素的值被置为字符串元素被置为空字符串
(5)ReDim语句可以同Dim语句一样定义数组在同一程序中ReDim语句还可以多次使用在用ReDim语句重新定义数组之前可以使用Erase语句将原来的数组删除
如果自定义函数没有参数,那么可以用下列方法实现你的目的:
Public Function sort() As Variant '一定要把返回值类型设为Variant
Dim x(2) As Integer
x(0) = 1
x(1) = 2
x(2) = 3
sort = x
End Function
调用方法举例:
MsgBox sort(1)
如果是带参数的则不行
绛旓細'鍔ㄦ佹暟缁鐨勪竴涓緥瀛愩侾rivate Sub Command1_Click()Dim a() As Integer'瀹氫箟涓涓彲鍙樼殑鏁扮粍 Dim n As Integer n = 10 ReDim a(n) As Integer'閲嶆柊瀹氫箟澶у皬 For i = LBound(a) To UBound(a)'鐢ㄨ繖涓ゅ嚱鏁拌幏寰楁暟鎹殑涓婃爣鍜屼笅鏍 a(i) = i + 1 Print i Next Print "---"ReDim Prese...
绛旓細鍒嗙被: 鐢佃剳/缃戠粶 >> 绋嬪簭璁捐 >> 鍏朵粬缂栫▼璇█ 闂鎻忚堪:鎴戠煡閬撹兘瀹氫箟涓缁寸殑锛屽彲鏄彲浠ユ槸浜岀淮鐨勫悧锛熻В鏋:鍙互,鍦ㄦ爣鍑妯″潡涓畾涔:瑕佸垱寤鍔ㄦ佹暟缁锛岃鎸夌収浠ヤ笅姝ラ鎵ц锛氾紙濡傛灉甯屾湜鏁扮粍涓哄叕鐢ㄦ暟缁勶紝鍒欙級鐢 Public 璇彞澹版槑鏁扮粍锛屾垨鑰咃紝锛堝鏋滃笇鏈涙暟缁勪负妯″潡绾э紝鍒欙級鍦ㄦā鍧楃骇鐢 Dim 璇彞澹版槑鏁扮粍锛屾垨鑰...
绛旓細b.鍗曞嚮鍖呮嫭鍒鏁扮粍涓殑鏌愪釜鎺т欢锛屽皢鍏舵縺娲伙紱c.鍦ㄥ睘鎬х獥鍙i夋嫨鍚嶇О灞炴э紝鍦ㄨ缃涓敭鍏ユ帶浠剁殑鍚嶇О锛沝.瀵规瘡涓鍔犲叆鏁扮粍涓殑鎺т欢閲嶅b,c姝ワ紝璁剧疆鐩稿悓鐨勫悕绉板睘鎬у硷紝涓斿湪寮瑰嚭鐨勫璇濇涓洖绛斺滄槸鈥濓紝纭珛寤虹珛鎺т欢鏁扮粍銆傛帶浠舵暟缁勮繕鍙互鍦ㄨ繃绋嬩腑鐢ㄤ唬鐮鍔ㄦ鐨勭敓鎴愶紝浣跨敤Load鍜孶nLoad鏂规硶锛屼緥瀛愬涓嬶細鍦ㄧ獥浣撲笂...
绛旓細VB涓鏁扮粍鏈3绉嶅舰寮忥細闈欐佹暟缁 鍔ㄦ佹暟缁 鍜屾帶浠舵暟缁 1 闈欐佹暟缁 Public | Private | Static | Dim 鏁扮粍鍚 锛堜笅鏍 [ 涓嬫爣]锛塠as 绫诲瀷]渚 Dim s(2) as integer 2 鍔ㄦ佹暟缁 杩欑被鏁扮粍鎸囧0鏄庢暟缁勬椂鏈粰鍑烘暟缁勭殑澶у皬锛屼娇鐢ㄦ椂锛岄殢鏃剁敤ReDim璇彞閲嶆柊鎸囧嚭鏁扮粍鐨勫ぇ灏忋傞鍏堝儚闈欐佹暟缁勯偅鏍凤紝鍙槸涓嶆寚鍑...
绛旓細鎮ㄥソ锛屾偍杩欐牱锛歞im a(19) as double for i=0 to 19 a(i)=inputbox("璇疯緭鍏ヤ竴涓暟")next dim min1 as double '璁板綍鏈灏忓 dim min2 as integer '璁板綍涓嬫爣 min1=a(0):min2=0 '瑕佽祴鍒濆 for i = 1 to 19 if a(i)<min1 then min1=a(i):min2=i end if next print "鏈...
绛旓細灏辩敤鍔ㄦ佹暟缁锛屽鎶婁綘鐨刟rr1銆乤rr2...锛屽姩鎬佸湴璁句负鏁扮粍arr()锛岃嫢绋嬪簭鍙兘瑕佺敤鍒256涓紝鍒欏彲鐢細redim arr(255)锛岃繖鏍蜂綘灏辨湁arr(0)銆乤rr(1)銆乤rr(2)銆乤rr(3)...绛256涓簡銆俛rr1涓巃rr2鏄笉鍚岀殑鍙橀噺锛宎rr(1)涓巃rr(2)鏄浉鍚鏁扮粍閲鐨勪笉鍚屽厓绱犮
绛旓細鍛靛懙.鎴戜竴鑸娇鐢鍔ㄦ佹暟缁閮芥槸浣跨敤Preserve鍗虫椂瀹氫箟 Private Sub Form_Click()Dim a() As Integer '澹版槑鍔ㄦ佹暟缁 Show ReDim a(0) '鍒濆鍖 For x = 200 To 600 Step 3 '鈹傝繖閲岀殑寰幆璇彞鏄负浜嗘壘鍑烘湁鐢ㄧ殑鍘熸暟缁勪腑鎴戜滑鎯宠鐨勬暟鎹 If x Mod 8 = 0 Then '鈹傦紙鍑℃槸鍦200鍒600鍐呮弧瓒硏 mod 8...
绛旓細瀹氫箟鏃讹細dim A()杩欏氨鏄鍔ㄦ鐨勶紝鍦ㄤ綘闇瑕佺殑鏃跺欙紝搴旇绠楀嚭鏄嚑涓紝濡俷 redim A(n)
绛旓細vb涓庢牱瀹氫箟涓涓鏁扮粍, 濡備綍鍦╲b閲瀹氫箟涓涓暟缁 dim|private|public 闃靛垪鍚(缁存暟鍙婂ぇ灏) as 鍨嬪埆 dim|private|public 瀹氫箟闃靛垪浣滅敤鍩 缁存暟鍙婂ぇ灏 鍗抽樀鍒楁槸鍑犵淮闃靛垪浠ュ強姣忎釜缁寸殑澶у皬鍨嬪埆 璧勬枡鍨嬪埆 闃靛垪鐨勫瀷鍒'濡 dim a (2,3) as stirng 浜岀淮闃靛垪 ,澶у皬鏄2*3 鍨嬪埆涓哄瓧鍏冨瀷 鎬庝箞瀹氫箟涓涓暟...
绛旓細ReDim DynArray (4 to 12)渚嬪锛岀敤绗竴娆″0鏄庡湪妯″潡绾ф墍寤虹珛鐨鍔ㄦ佹暟缁 Matrix1锛欴im Matrix1 () As Integer 鐒跺悗锛屽湪杩囩▼涓粰鏁扮粍鍒嗛厤绌洪棿锛歋ub CalcValuesNow ()...ReDim Matrix1 (19, 29)End Sub 杩欓噷鐨 ReDim 璇彞缁 Matrix ...