vb数组vb 定义数组

vb中的数组

vb6的数组下标默认从0开始 dim a(9) as integer中a数组有10个元素，下标0~9 可以使用option base，改变数组的下标从1开始。

这样dim a(9) as integer中a数组有9个元素，下标1~9

VB数组编写

1。

用For循环语句及InputBox()函数输入。

每次循环，由InputBox()函数弹出对话框等待用户输入数据。

如： Dim a(1 to 4) as Integer For i=1 to 4 a(i)=InputBox("请输入") Next i 如果是二维数组，则用两层循环，类推。

2。

用Array()函数为数组元素赋值，格式： 数组变量名=Array(数组元素值) 如： Static a as variant a=array(1,2,3,4,5) 意思就是把1,2,3,4,5这5个数值赋给数组工的各个元素。

即a(0)=1...a(4)=5 希望楼主清楚了:)

vb数组什么意思

Private Sub Command1_Click() Dim a(1 To 4一维数组只有一个下标，这样也便于理解 二、二维数组通常是指由两个下标的数组元素所组成的数组，我们建议大家无论是否需要，还是带上s= 0。

Private Sub Command1_Click() Dim a(100) As Integer Dim s As Integer For i = 1 To 100 a(i) = i Next i End Sub 说明：⑴为了养成编程的一些好的习惯，数学上形如数列{ai}表示的数据均可用一维数组来处理。

注意数组的输入与输出方法。

一个二维表格就是一个二维数组。

数学上形如矩阵{aij}表示的数据均可用二维数组来处理。

仍需注意数组的输入与输出方法

vb 定义数组

假设你的数据是存在c盘的1.txt,且每行为1条数据.. 新建工程,1个按钮,3个list, 我在代码中使用了3个数组,分别是tmp1,tmp2和tmp3,用来存放提取出来的数据.. 在代码前部使用了 ReDim Tmp1(100) ReDim Tmp2(100) ReDim Tmp3(100) 这里我给了一个100的初值,你可以根据数据量给定一个初值的,大于你的数据量就行,多了也无所谓..这样做的好处是提高效率,不然后读取每行后,逐行来redim preserve数组的话,效率很低. 后面这个: ReDim Preserve Tmp1(i - 1) ReDim Preserve Tmp2(i - 1) ReDim Preserve Tmp3(i - 1) 就是将数组中多余的无用数组删除.. 我后面放了list显示的部分,只是演示提取效果,你在实际运用得到tmp1,tmp2,tmp3以后,可以不需要后面的代码了.. ====================全部完整代码=================== Const Fgf$ = "VB妮可无敌分隔符" Private Sub Command1_Click() Dim a$, b, Tmp1$(), Tmp2$(), Tmp3$(), i% ReDim Tmp1(100) ReDim Tmp2(100) ReDim Tmp3(100) Open "c:1.txt" For Input As #1 Do Until EOF(1) Line Input #1, a If a <> "" Then a = LoveVb(a) b = Split(a, Fgf) Tmp1(i) = b(0) Tmp2(i) = b(1) Tmp3(i) = b(2) i = i + 1 End If Loop Close #1 ReDim Preserve Tmp1(i - 1) ReDim Preserve Tmp2(i - 1) ReDim Preserve Tmp3(i - 1) List1.Clear List2.Clear List3.Clear For i = 0 To UBound(Tmp1) List1.AddItem Tmp1(i) List2.AddItem Tmp2(i) List3.AddItem Tmp3(i) Next End Sub Private Sub Form_Load() Command1.Caption = "提取" End Sub Function LoveVb$(s$) Dim i%, j%, m% For i = 1 To Len(s) m = Asc(Mid(s, i, 1)) If m < 0 Or m > 255 Then j = i m = Asc(Mid(s, j + 1, 1)) If m > 0 And m < 255 Then Exit For End If Next s = Left(s, j) & Fgf & Right(s, Len(s) - j) For i = Len(s) To 1 Step -1 m = Asc(Mid(s, i, 1)) If m < 0 Or m > 255 Then j = i m = Asc(Mid(s, j - 1, 1)) If m > 0 And m < 255 Then Exit For End If Next j = j - 1 LoveVb = Left(s, j) & Fgf & Right(s, Len(s) - j) End Function 呵呵,我的百度空间..经常关注哟.