有如下部分程序段：a(1)="20":a(2)="16":a(3)="12":a(4)="o":a(5)="k"Fori="1"To4Forj="5"Toi+1_刷题宝

题干

有如下部分程序段：
a(1) = "20": a(2) = "16": a(3) = "12": a(4) = "o": a(5) = "k"
For i =" 1" To 4
For j =" 5" To i + 1 Step -1
If a(j) >a(j - 1) Then t =" a(j):" a(j) =" a(j" - 1): a(j - 1) = t
Next j
List1.Additem a(i)
Next i
程序运行后列表框中显示的结果是

A．12，16，20，o，k	B．o，k，20，16
C．o，k，20，16，12	D．20，16，12

上一题下一题 0.99难度选择题更新时间:2017-02-17 10:14:40

答案(点此获取答案解析）

同类题1

有如下程序段：
For i =" 1" To 2
For j =" 2" To 7 - i
If a(j) > a(j - 1) Then
k =" a(j):" a(j) =" a(j" - 1): a(j - 1) = k
End If
Next j
Next i
数组元素a(1)到a(6)的值依次为“71，54，58，29，31，78”，经过该程序段“加工”后，下列说法正确的是（）

A．数组元素a(1)到a(6)的值依次为54，29，31，58，71，78

B．此过程中数据共需比较次数为8次

C．此过程中数据共需交换次数为5次

D．此过程中数据“54”共被比较5次

同类题2

有VB程序段如下：
s＝"2019.06 Visual Basic6.0"：n＝0
For i＝1 To Len(s)
ch＝Mid(s，i，1)
If ch>＝"0" And ch<＝"9"Then
m＝Asc(ch)－Asc("0")＋1
a(m)＝a(m)＋1
End If
Next i
For i＝1 To 10
If a(i)>1Then n＝n＋i
Next i
数组a各元素的初始值都为0，执行该程序段后，则变量n的值为( )

同类题3

（加试题）某VB程序段如下：
s = ""
For i = 1 To 5
a(i) = 0
Next i
For i = 2 To 5
For j = i To 5
If j Mod i = 0 Then a(j) = 1 - a(j)
Next j
Next i
For i = 1 To 5
If a(i) = 1 Then s = s + Str(i)
Next i
Text1.Text = s
运行该程序段后，Text1中显示的内容为

同类题4

下列程序运行后的输出结果是
DIM   A（6） AS   INTEGER
FOR   I= 1 TO 5
A（I）= I
NEXT I
PRINT   A（I）

D．显示出错信息

同类题5

个位数字是6，且能被3整除的3位数共有多少个？下面程序用于解决这一问题，在划线处填入合适的语句或表达式，设共有n个这样的数，Visual Basic程序如下：

Sub Command1_Click( )

Dim i As Integer, n As Integer

m = 106

n = ____________

Do While m <= 996

If _____________ Then n = n + 1

m = _____________

Loop

Text1.Text = Str(n)

End Sub

相关知识点