5. 下图是通过 VB 程序读取“GDP2018.accdb”文件中的 GDP 总量,显示在列表框中,部分代码实现如下:
Private Sub Command1_Click() ’列表框中
输出 b(i),代码略End Sub
Private Sub Form_Load()
conn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;DATASource="& App.Path & "\GDP2018.accdb" conn.Open:Set myrecord.ActiveConnection = conn:myrecord.Open "GDP"
n = 0
Do While Not myrecord.EOF n = n + 1
a(n) = myrecord.Fields("2018")
b(n) = Left(myrecord.Fields("Area"), 5) & " " & myrecord.Fields("2018")
myrecord.MoveNext
Loop
conn.Close: myrecord.Close:
Set myrecord = Nothing: Set conn = Nothing End Sub
下列说法不正确的是(
)
A.ConnectionString 是实例 conn 的属性 |
B.myrecord.Fields("2018")返回当前记录中“2018”字段的值 |
C.a(1)读取后执行myrecord.MoveNext 将读取下一条记录,即 a(2)=“中国” |
D.myrecord.Fields("2018")也可以写成 myrecord.Fields(3) |