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 描述 | Intel 酷睿2四核 Q6600（2.4GHz, 8MB L2 Cache, 1066MHz） | CPU 描述 | AMD AthlonX2 4400+ 双核处理器（2.3GHZ、1M L2CACHE） | |
| 内存描述 | 2GB 双通道 DDR2 667MHz | 内存描述 | 1GB PC2-5300 | |
| 硬盘描述 | 100GB SATA2 | 硬盘描述 | 80GB IDE | |
| 显卡芯片 | NVidia Geforce 8300GS | 显卡芯片 | 集成 | |
| 光驱类型 | DVD-R/W | 光驱类型 | DVD-ROM | |
对该两款电脑表内的硬件（CPU、内存、硬盘、显卡、光驱）进行性能比较。
