- 二一组卷

题型：单选题题类：常考题难易度：普通

浙江省嘉兴市2018-2019学年高二下学期信息技术期末考试试卷二

有如下VB程序段：

Dim a(1 To 10) As Integer, b(5 To 10) As Integer

a(1) = 71: a(2) = 73: a(3) = 90: a(4) = 79: a(5) = 76

a(6) = 88: a(7) = 91: a(8) = 84: a(9) = 100: a(10) = 80

For i = 10 To 1 Step -1

b((a(i) - 1) \ 10) = b((a(i) - 1) \ 10) + 1

Next i

该程序段运行后，数组元素b(7)的值是（）

A、4 B、5 C、6 D、7

举一反三

Private Sub Command1Click()

Dim a(-1 To 8) As Integer

Dim i As Integer

For i = -1 To 8

a(i) = i * i

Next i

List1.AddItem Str (a(i))

End Sub

运行程序，单击命令按钮Command1后，出现的错误提示为

Private Sub Command1_Click()

i＝1

____①____

Do While____②____

____③____

j＝j－1 ′④

Loop

Text1.Text＝Str(i)

Text2.Text＝Str(j)

End Sub

相关试卷