急！！vb怎么创建数组？

Posted 2023-04-05

超级简单的问题 快啊

在 Visual Basic 中有两种类型的数组：固定大小的数组— 它总是保持同样的大小，以及在运行时大小可以改变的动态数组。在本章后面的“动态数组”中将要详细讨论动态数组。

声明固定大小的数组
有三种方法声明固定大小的数组，用哪一种方法取决于数组应有的有效范围：

建立公用数组，在模块的声明段用 Public 语句声明数组。

建立模块级数组，在模块的声明段用 Private 语句声明数组。

建立局部数组，在过程中用 Private 语句声明数组。
设定上下界
声明数组时，在数组名之后跟一个用括号括起来的上界。上界不得超过 Long 数据类型的范围（-2,147,483,648 到 2,147,483,647）。例如，下列数组声明可出现在模块的声明段：

Dim Counters (14) As Integer '15 个元素。
Dim Sums (20) As Double '21 个元素。

为建立公用数组，直接用 Public 取代 Dim。

Public Counters (14) As Integer
Public Sums (20) As Double

在过程之中同样的声明使用 Dim：

Dim Counters (14) As Integer
Dim Sums (20) As Double

第一个声明建立了一个有 15 个元素的数组，其索引号从 0 到 14 。第二个声明建立了一个有 21 个元素的数组，其索引号从 0 到 20 。缺省的下界为 0。

为了规定下界，用关键字 To 显式提供下界（为 Long 数据类型）：

Dim Counters (1 To 15) As Integer
Dim Sums (100 To 120) As String

在前述声明中，Counters 的索引值范围从 1 到 15，而 Sums 的索引值范围从 100 到 200。

包含其它数组的数组
有可能建立 Variant 数据类型数组，并与不同数据类型的数组共居一处。以下代码建立两个数组，一个包含整数，而另一个包含 字符串。然后声明第三个 Variant 数组，并将整数和字符串数组放置其中：

Private Sub Command1_Click ()
Dim intX As Integer '声明计数器变量。
'声明并放置整数数组。
Dim countersA (5) As Integer
For intX = 0 To 4
countersA (intX) = 5
Next intX
'声明并放置字符串数组。
Dim countersB (5) As String
For intX = 0 To 4
countersB (intX) = "hello"
Next intX
Dim arrX (2) As Variant '声明拥有两个成员的新数组。
arrX (1) = countersA () '将其它数组移居到数组。
arrX (2) = countersB ()
MsgBox arrX (1) (2) '显示每一个数组的成员。
MsgBox arrX (2) (3)
End Sub

多维数组
有时需要追踪记录数组中的相关信息。例如，为了追踪记录计算机屏幕上的每一个像素，需要引用它的 X、Y 坐标。这时应该用多维数组存储值。

可用 Visual Basic 声明多维数组。例如，下面的语句声明了一个过程内的 10 × 10 的二维数组。

Static MatrixA (9, 9) As Double

可用显式下界来声明两个维数或两个维数中的任何一个：

Static MatrixA (1 To 10, 1 To 10) As Double

可以将所有这些推广到二维以上的数组。例如：

Dim MultiD (3, 1 To 10, 1 To 15)

这个声明建立了三维数组，大小为 4 × 10 × 15。元素总数为三个维数的乘积，为 600。

注意 在增加数组的维数时，数组所占的存储空间会大幅度增加，所以要慎用多维数组。使用 Variant 数组时更要格外小心，因为他们需要更大的存储空间。
用循环操作数组
可以用 For 循环嵌套有效的处理多维数组。例如，在 MatrixA 中基于每个元素在数组中的位置为其赋值：

Dim I As Integer, J As Integer
Static MatrixA(1 To 10, 1 To 10) As Double
For I = 1 To 10
For J = 1 To 10
MatrixA (I, J) = I * 10 + J
Next J
Next I

详细信息 关于循环的详细信息，请参阅本章后面的“循环结构”部分。 参考技术A dim a(100) as integer
dim a(n) as integer

vb6.0调用cmd上传文件到ftp服务器,急!

自己做了个应用程序,会自动生成一个文件在c盘中,如何调用cmd来把文件上传到自己的ftp?求教!若可以,请留下QQ号码

参考技术A 外部调用ftp 指令不用手动输入命令是不可能的，因为ftp指令没有提供过多的命令行参数，可以这样
创建Internet Transfer 控件
inter.execute ftpAddress,"send " & LocalFilePaht & " " & RemoteName
这样就能上传了
当然如果ftp是有密码的那地址要改一下
就是
ftp://UserName:PassWord@FTPAddress
就是这样的了 参考技术B 312641104

请采纳。ftp完全可以。
(echo open 127.0.0.1
echo 帐号
echo 密码
echo bin
echo put 1.txt
echo bye)
>data

ftp -s:data