有如下程序段：
i = 1
Do While i <= 5
If i = 0 or a(i - 1) <= a(i) Then
i = i + 1
Else
t = a(i): a(i) = a(i - 1): a(i - 1) = t
i = i- 1
End If
Loop
For i = 1 To 5
List2.AddItem a(i)
Next i
数组元素a(0)到a(5)的值依次为“0，71，22，48，79，27”，经过该程序段“加工”后，数组元素a(4)的值为（ ）
i = 1
Do While i <= 5
If i = 0 or a(i - 1) <= a(i) Then
i = i + 1
Else
t = a(i): a(i) = a(i - 1): a(i - 1) = t
i = i- 1
End If
Loop
For i = 1 To 5
List2.AddItem a(i)
Next i
数组元素a(0)到a(5)的值依次为“0，71，22，48，79，27”，经过该程序段“加工”后，数组元素a(4)的值为（ ）
| A．0 | B．71 | C．48 | D．27 |
更新时间：2017-03-01 17:02:16
|
【知识点】 VB程序的调试
相似题推荐
选择题
|
适中
(0.65)
【推荐1】完全平方数是指一个整数能表示成某个整数的平方的形式，例如图是完全平方数，可以表示成2的平方。下列判断整数型变量a是否为完全平方数的VB表达式不正确的是（ ）
| A．Int(Sqr(a))=Sqr(a) |
| B．Sqr(a)^2=a |
| C．Int(Sqr(a))^2=a |
| D．Fix(Sqr(a))=Sqr(a) |
您最近一年使用：0次
选择题
|
适中
(0.65)
【推荐2】已知a=30，b=10，c=3，则VB表达式Int(Sqr(a))Modb\c的值为（ ）。
| A．1 | B．2 | C．0 | D．1.67 |
您最近一年使用：0次
选择题
|
适中
(0.65)
【推荐3】某VB程序段如下：
For i = 1 To 3
For j= i+1 To 6
If a(j) <a(j-1) Then
t= a(j) : a(j) = a(j-1): a(j-1)=t
End If
Next j
Label1. caption=str(a(7-i))+label1. Caption
Next i
数组元素a(1)到a(6)的值依次为“25，34，30，21，43，19”，经过该程序段“加工”后，标签label1显示的内容为（ ）
For i = 1 To 3
For j= i+1 To 6
If a(j) <a(j-1) Then
t= a(j) : a(j) = a(j-1): a(j-1)=t
End If
Next j
Label1. caption=str(a(7-i))+label1. Caption
Next i
数组元素a(1)到a(6)的值依次为“25，34，30，21，43，19”，经过该程序段“加工”后，标签label1显示的内容为（ ）
| A．19，21，25 | B．25，21，19 | C．43，34，30 | D．30，34，43 |
您最近一年使用：0次
