1.选择题- (共2题)
2.
有如下VB程序段:
a(1)= 5:a(2)= 3:a(3)= 6:a(4)= 8:a(5)= 9
For i = 0 To 10
b(i)= i
Next i
j = 0
For i = 1 To 5
b(j)= a(i):j = b(j)
Next i
j = 0:key = Val(Text1.Text)
Do While j < > b(j)
If key < > b(j) Then
List1. AddItem Str(b(j))
j = b(j)
Else
If b(b(j)) < > b(j)Then
t = b(j):b(j)= b(t):b(t)= t
Else
b(j)= j
End If
End If
Loop
运行该程序段,在文本框Text1中输入6,则列表框List1中第3行显示的内容为( )
a(1)= 5:a(2)= 3:a(3)= 6:a(4)= 8:a(5)= 9
For i = 0 To 10
b(i)= i
Next i
j = 0
For i = 1 To 5
b(j)= a(i):j = b(j)
Next i
j = 0:key = Val(Text1.Text)
Do While j < > b(j)
If key < > b(j) Then
List1. AddItem Str(b(j))
j = b(j)
Else
If b(b(j)) < > b(j)Then
t = b(j):b(j)= b(t):b(t)= t
Else
b(j)= j
End If
End If
Loop
运行该程序段,在文本框Text1中输入6,则列表框List1中第3行显示的内容为( )
A.3 | B.5 | C.8 | D.9 |
试卷分析
-
【1】题量占比
选择题:(2道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:2