采用拉锯式排序法对无序数组元素实现降序排序，即前一遍把最大的元素从右到左送到最左的位置，后一遍把最小的元素是从左到右送到最右的位置，实现该功能的VB程序段如下：_刷题宝

题干

采用拉锯式排序法对无序数组元素实现降序排序，即前一遍把最大的元素从右到左送到最左的位置，后一遍把最小的元素是从左到右送到最右的位置，实现该功能的 VB 程序段如下：

c = 1: s = 10
Do While c <= s
For i = s To c + 1 Step -1
If

Then
t = a(i - 1): a(i - 1) = a(i): a(i) = t
End If
Next i
For i =

If

Then
t = a(i + 1): a(i + 1) = a(i): a(i) = t
End If
Next i
c = c + 1
s = s - 1
Loop
上述程序段三个方框处的语句分别为（）

A．① a(i - 1) < a(i) ② c +1 To s – c ③ a(i) <a(i + 1)

B．① a(i - 1) > a(i) ② c +2 To s – c ③ a(i) >a(i + 1)

C．① a(i - 1) < a(i) ② c +1 To s – c-1 ③ a(i) <a(i + 1)

D．① a(i - 1) > a(i) ② c+ 2 To s – c+1 ③ a(i) >a(i + 1)

上一题下一题 0.99难度选择题更新时间:2020-01-17 04:48:36

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

同类题1

有如下VB程序段：
a(1)=58：a(2)=38：a(3)=46：a(4)=40：a(5)=58
a(6)=30：a(7)=48：a(8)=50：a(9)=36：a(10)=56
For i=1 To 10
b(a(i) Mod 10)=b(a(i) Mod 10)+1
Next i
s=""
For i=0 To 9
If b(i)>0 Then s=s+""+Str(i)+"："+Str(b(i))
Next i
数组b各元素初值为0，执行该程序段，s的值是

A．0：3 6：3 8：4	B．8：4 6：3 0：3
C．5：4 4：3 3：4	D．3：4 4：3 5：4：

同类题2

有如下Visual Basic程序段：
　　Dim i As Integer, s As Integer
　　 s ＝ 0
　　 i ＝ 1
n ＝ 5
　　Do While i <＝20
　　 s ＝ s ＋ i ＋ n
　　 i ＝ i * 5
　　Loop
　　该程序段运行后，变量i的值是________，变量s的值为________。

同类题3

以下函数用于查找给定学籍编号，查找的学生姓名的相关信息，其中姓名放在数组a中，学籍编号放在数组b中，学籍号按照升序排列
Private Function Findxj(k As Integer) As string
Dim f As Boolean，i As Integer，j As Integer，m As Integer
i＝1：j＝n
f＝False
Do While(i＜＝j) And Not (f)
m＝Fix((i＋j)/2)
If k＝b(m) Then
f＝True
Else
If ________ Then
j＝m－1
Else
i＝m＋1
End If
End If
Loop
If f Then Findxj＝________ Else Findxj＝“查无此人”
End Function
划线处的代码分别是：

A．k＜b(m) a(m)	B．k＜a(m) b(m)
C．k＞b(m) a(m)	D．k＞a(m) b(m)

同类题4

执行如下VB程序段
S=0
For i=20 To 1 Step -5
S=S+1
Next i
Text1.text=str(s)
文本框中显示的值是（）

同类题5

以下语句中错误的是（）

A．Const var1=123

B．Dim var2 As String

D．Dim d(1 to 500) As Double

相关知识点