㈠ vb中如何把access資料庫的內容賦值給二維數組
說說思路：
這個顯然要用ADO
1、連接資料庫，得到連接對象conn
2、用下面的select語句打開表，將數據讀入RecordSet
set rs=conn.execute("select * from 表名")
3、用循環將數據讀入二維數組arr
row=0
while not rs.eof
arr[row,0]=rs["id"]
arr[row,1]=rs["year"]
arr[row,2]=rs["mon"]
arr[row,3]=rs["1"]
arr[row,4]=rs["2"]
...
...
...
row=row+1
wend
㈡ 求以關於vb列表框的編程
列表框（ListBox）控制項表示一個選項清單，用戶可能用滑鼠選擇其中一個或者幾個選項。
列表框的特點是：列表框中的項目是通過程序插入到其中的，用戶無法向清單中輸入數據，當選擇其中的項目，並在用戶單擊一個按鈕或者執行某個操作時，由應用程序完成對指定項目的具體操作。下面這個例子充分說明了列表框的這個特點，並介紹了列表框（ListBox）的常用屬性。
為了學習方便，提供的源碼已經作了詳細的中文注釋，看看源碼框中的代碼：
Option Explicit
'--------------------------------------
' 簡單的列表框ListBox的例子
'--------------------------------------
' 洪恩在線 求知無限
'--------------------------------------
'------名稱-------------作用------------
' List1、List2 列表框
' LefttoRightCmd 移動所選項目到另一個列表框（左到右）
' RighttoLeftCmd 移動所選項目到另一個列表框（右到左）
' List1MoveCmd 刪除列表框List1中所選項目
' List2MoveCmd 刪除列表框List2中所選項目
' List1AddCmd 給列表框List1增加新項目
' List2AddCmd 給列表框List2增加新項目
' List1ClearCmd 清空列表框List1
' List2ClearCmd 清空列表框List2
'--------------------------------------
'--------------------------------------
'————名稱————屬性設置———
'
' List1列表框 Sorted屬性設為「False」
' List2列表框 Sorted屬性設為「True」
' MultiSelect屬性設置為2
' 即List2控制項中的項目總是排序的
'--------------------------------------
Private Sub Form_Load()
'裝載窗體時，給列表中的元素賦值
List1.AddItem "China"
List1.AddItem "America"
List1.AddItem "Japan"
List2.AddItem "Soccer"
List2.AddItem "Tennis"
List2.AddItem "Basketball"
End Sub
Private Sub LefttoRightCmd_Click()
'將左邊列表中所選元素移動到右邊列表中
If List1.ListIndex >= 0 Then
'在右邊列表中增加新元素
List2.AddItem List1.Text
'刪除左邊列表中的所選元素
List1.RemoveItem List1.ListIndex
End If
End Sub
Private Sub List1AddCmd_Click()
Dim ListItem As String
'
ListItem = InputBox("在列表中輸入新項目")
'向列表中加入新項目
If Trim(ListItem) <> "" Then
'Trim（）作用是清除ListItem字元串內的空格
List1.AddItem ListItem
End If
End Sub
Private Sub List1ClearCmd_Click()
'清空列表
List1.Clear
End Sub
Private Sub List1MoveCmd_Click()
Dim i As Integer
'判斷列表框是否只有一個項目被選中
If List1.SelCount = 1 Then
List1.RemoveItem List1.ListIndex
ElseIf List1.ListCount > 1 Then
'刪除列表框中的所選中的多個項目
For i = List1.ListCount - 1 To 0 Step -1
'ListCount返回列表框中的項目總數
'ListCount-1是列表框中最後一個項目的索引號
'判斷該項目是否被選中，Selected()返回布爾值
If List1.Selected(i) Then
'刪除索引號為i的項目
List1.RemoveItem i
End If
Next
End If
End Sub
Private Sub List2AddCmd_Click()
'定義變數，以接收輸入的字元串
Dim ListItem As String
ListItem = InputBox("在列表中輸入新項目")
If Trim(ListItem) <> "" Then
'將字元串增加到列表中
List2.AddItem ListItem
End If
End Sub
Private Sub List2ClearCmd_Click()
'清空列表
List2.Clear
End Sub
Private Sub List2MoveCmd_Click()
Dim i As Integer
'判斷所選 元素是否只有一個
If List2.SelCount = 1 Then
List2.RemoveItem List2.ListIndex
'如果所選 元素大於1，則按下列操作進行
ElseIf List2.ListCount > 1 Then
For i = List2.ListCount - 1 To 0 Step -1
If List2.Selected(i) Then
List2.RemoveItem i
End If
Next i
End If
End Sub
Private Sub RighttoLeftCmd_Click()
Dim i As Integer
'判斷選中的元素有幾個
If List2.SelCount = 1 Then
List1.AddItem List2.Text
List2.RemoveItem List2.ListIndex
'當選中的元素大於一個時
ElseIf List2.SelCount > 1 Then
For i = List2.ListCount - 1 To 0 Step -1
'如果該元素被選中，則將其從右邊移至左邊
If List2.Selected(i) Then
List1.AddItem List2.List(i)
List2.RemoveItem i
End If
Next i
End If
End Sub
(源程序下載)
這個例子包含一個窗體，窗體中有兩個列表框（List1、List2）和八個按鈕，界面如下：
窗體（FormListBox）
我們首先新建一個標準的EXE工程，添加一個窗體，並把列表框和按鈕控制項添加到窗體上。各按鈕控制項的名稱如下表：
按鈕名稱
名稱屬性
按鈕名稱
名稱屬性
刪除所選項目（左）
List1movecmd
刪除所選項目（右）
List2movecmd
增加新項目（左）
List1addcmd
增加新項目（右）
List2addcmd
清除弄表（左）
List1clearcmd
清除列表（右）
List2clearcmd
右箭頭 lefttorightcmd 左箭頭 Righttoleftcmd
' List1列表框 Sorted屬性設為「False」 ' List2列表框 Sorted屬性設為「True」 ' MultiSelect屬性設置為2 ' 即List2控制項中的項目總是排序的
在屬性窗口中，將List1列表框 Sorted屬性設為「False」；List2列表框 Sorted屬性設為「True」，MultiSelect屬性設置為2，即List2控制項中的項目總是排序的。
下一步我們為各控制項添加相應的程序。
其中：
List1.AddItem "China" 是將「China」添加到列表框中。
List1.ListIndex 返回的是列表框List1中當前選擇項目的索引號碼。
List1.ListCount 返回的是列表框List1中項目總數。
List1.ListCount - 1 返回列表框List1中最後一個項目的索引號。
List1.Selected() 返回的是一個項目的選擇狀態，返回的是布爾值。
代碼寫好之後，我們就可以保存工程，然後按「Ctrl+F5」鍵，測試檢驗一下我們的程序了。在這個小程序中，包含了列表框中的一般常用屬性和方法。