vb 数组赋值

数组赋值一定要在某个过程里完成。你的程序最先从哪个过程开始的，就把赋值语句放到那里。
比如标准模块还是
Public table_voltage
然后在窗体中
Private Sub Form_Load()
table_voltage = Array(-0777, -0739)
end sub

dim b(10) as long
a= 0 to 10
b(a)=a
next a
或者
dim b(10)'不能初始化类型
b=array(0,1,2,3,4,5,6,7,8,9,10)
上面两种方法都将b(10)数组赋值了0~10

Dim cnn As ADODBConnection
Dim rs As ADODBRecordset
Set cnn = New ADODBConnection
' 引用 ODBC driver 建立连接
cnnConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=c:\access1MDB" 'access1 为access数据库，注意路径
cnnOpen
Set rs = New ADODBRecordset
sql = "Select email From 表1"
rsOpen sql, cnn, 1, 3
i = 0
Dim e() As String
ReDim e(rsRecordCount) 'rsRecordCount为记录条数
Do Until rsEOF
i = i + 1 'i为当前记录数
e(i) = rsFields("email")
rsMoveNext
Loop
cnnClose
For j = 1 To i
myemail = e(j) 'myemail为取出来的email地址
Next j

---