高考问答巴斯树声声慢全文阅读2:vb多维数组赋值
来源：百度文库 编辑：高考问答 时间：2024/05/10 07:43:11
请问VB中多维数组怎么赋值啊，比如C语言中a[i][j]={{....},{...},{...}}的形式，在VB中应该怎么写？书上没写，MSDN写的什么一大堆根本看不懂~
这么简单的问题只要一个最简单的例子做答案，不要太复杂的好不好，
如果是无规律的数字呢？如何赋值？
楼上回答的什么啊，
真是看不下去，
简单问题复杂了
举个例子：二维数组赋值
Dim i1, i2
Dim a(10, 10)
For i1 = 0 To 10
For i2 = 0 To 10
a(i1, i2) = i2
Next
Next
请看由For关键词开始的7行,对多维数组的赋值,供参考
Dim quexian(7, 1000) as Variant
chaxun1 = "select * from jishijilu where gyh_riqi='" & gongyi_sj(0) & "-" & record_rq & "'order by shijian "
mdh = chaxun1
Adodc3.ConnectionString = "DSN=jly_sj"
Adodc3.RecordSource = mdh
Adodc3.Refresh
zsl = Adodc3.Recordset.RecordCount
Text2 = zsl
Adodc3.Recordset.MoveFirst
For i = 0 To zsl - 1
quexian(0, i) = Adodc3.Recordset(0)
For j = 2 To 7
quexian(j, i) = Adodc3.Recordset(j)
Next j
Adodc3.Recordset.MoveNext
Next i
Adodc3.Recordset.MoveFirst
以上代码用于从某数据库读取数据给数组变量,供程序画曲线用.
对问题补充的答复,用于输入多维数组:
Option Explicit
Dim data_sj(5, 49) As Variant
Dim i As Integer
Private Sub cmdInput_Click()
i = Val(Text1) - 1 '对i赋值
data_sj(0, i) = Text2 '对姓名赋值
data_sj(1, i) = Val(Text3) '对A成绩赋值
data_sj(2, i) = Val(Text4) '对B成绩赋值
data_sj(3, i) = Val(Text5) '对C成绩赋值
data_sj(4, i) = Val(Text6) '对D成绩赋值
data_sj(5, i) = Val(Text7) '对F成绩赋值
End Sub
Private Sub Command2_Click()
Text2 = data_sj(1, 5)
End Sub