某同学设计了一个排序算法，先将数组a中奇数位置的元素、偶数位置的元素分别进行排序，然后再进行后续处理，直至所有元素按降序排列。算法的VB程序段如下：‘待排序数据_刷题宝

题干

某同学设计了一个排序算法，先将数组a中奇数位置的元素、偶数位置的元素分别进行排序，然后再进行后续处理，直至所有元素按降序排列。算法的VB程序段如下：
‘待排序数据已存储在数组a中(a(1)～a(n))

上述程序段中3处方框处的代码分别为

A．①i+1 To n Step 2 ②2 To n Step 2 ③a(j+1)=t

B．①i+2 To n Step 2 ②3 To n Step 2 ③a(j+1)=t

C．①i+2 To n Step 2 ②2 To n Step 2 ③a(j)=t

D．①i+1 To n Step 2 ②3 To n Step 2 ③a(j)=t

上一题下一题 0.99难度选择题更新时间:2019-12-05 01:37:48

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

同类题1

某算法的部分流程图如右图所示，执行这部分流程后，变量a的值是

同类题2

有如下VB程序段：
Dim i As Integer，c As String，s As String，t As String
s＝“China2014IT”：t＝“”
For i＝1 To Len(s)
　c＝Mid(s，i，1)
　If c＞＝“a” And c＜＝“z” Then t＝t＋c
Next i
Label1.Caption＝t
该程序段运行后，标签Label1中显示的内容是( )

A．2014	B．ChinaIT
C．hina	D．CIT

同类题3

有一个VB程序，其程序界面中有一个按钮Command1及一个文本框Text1，并且其程序代码如下：

当点击Command1后，Text1中将显示( )

A．3	B．4
C．5	D．6

同类题4

Sub test3()双重循环运行输出图形与3重复,但3已改题
For i =" 1" To___1___step 1
s = ""
For j =" 1" To 2 * i - 1
s =" Str(j)" + s
Next j
List1.AddItem s
Next i
End Sub
该程序的运行后列表框输出的第三行是（）

同类题5

有一个单击按纽过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。请补充下面的程序：

Private Sub command1_click( )

Dim X, N As Integer
Dim count As Integer ' count用来保存能被6整除余2的数据的个数
Randomize Timer ' 随机数初始化，以时钟为随机数种子

For N = 1 To 50

X = ___________ + int(Rnd * 40) ' 随机产生50个60～100的随机数

If X Mod 6 = 2 Then

List1.AddItem Str(X)

_______________

Next N

Label1.Caption = str (count)

End Sub

相关知识点