山东省济南市章丘区信息技术模拟考试卷（五）

⑴设计算法    ⑵分析问题    ⑶编写程序    ⑷调试运行

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

下列说法不正确的是（  ）

Dim a（1 To 6）As integer

a（1）=1

For i=2 To 6

   Randomize

   a（i）=a（i-1）+Int（Rnd*5+1）

If a（i） Mod 2=1 Then

    a（i）=a（i）\2+1

Else

a（i）=a（i）/2

End If

Next i

执行程序后，数组各元素不可能是(    )

要求：

对该两款电脑表内的硬件（CPU、内存、硬盘、显卡、光驱）进行性能比较。