- 二一组卷

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

浙江省台州市黄岩第二高级中学2019-2020学年高二下学期信息技术返校考试试卷

有如下程序：

Private Sub Command1_Click()

Dim a(5) as Integer

Dim n as Integer, i as Integer

n=Val(Text1.Text)

i=0

a(1)=1: a(2)=1

For i=3 To n

a(i)=a(i-1)+a(i-2)

Next i

Label1.Caption=a(i)

End Sub

若在Text1中输入5，则点击按钮后的运行结果为（）

A、Label11中输出5 B、Label1中输出10 C、报“下标越界”错误 D、Label11中无内容

举一反三

n = 0: i = 2: f = True

Do While i <= 6 And f

n = n + 1

f = False

For j = 6 To i Step -1

If a(j) < a(j - 1) Then

t = a(j): a(j) = a(j - 1): a(j - 1) = t

Last = j

f = True

End If

Next j

i = Last + 1

Loop

数组元素a(1)到 a(6)的值依次为“10,16,82,36,51,87”，经过该程序段“加工”后，下列说法不正确（）

实现上述功能的VB程序如下，请回答下列问题：

相关试卷