(2)

完成劃線處的代碼填空：

Dim classname(1 To 8000) As String       '存儲原始數(shù)據(jù)中的班級名稱

Dim selectabc(1 To 8000) As String        '存儲原始數(shù)據(jù)選項的值

Dim xiangmu(1 To 8000) As String         '存儲原始數(shù)據(jù)選項的序號

Dim n As Integer

Private Sub Command2_Click()             '從數(shù)據(jù)庫讀取數(shù)據(jù)，并且按班級名稱排序

Dim conn As New ADODB.Connection

conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source="&App.Path&"\pingjia.accdb"

conn.Open

Dim rs As New ADODB．Recordset

Set rs.ActiveConnection = conn

rs.Open "select * from data"

n = 0' 記錄評價的總條數(shù)

'讀取數(shù)據(jù)，并按班級排序，代碼略

End Sub

Private Sub Command1_Click()

Dim cstart(1 To 50) As Integer       '存儲每個班級在數(shù)組classname中的起始位置

Dim cend(1 To 50) As Integer        '存儲每個班級在數(shù)組classname中的末尾位置

Dim k As In

總結

以上是生活随笔為你收集整理的不属于python数据类型的是_Python不支持的数据类型有（ ）。的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。