采用冒泡排序算法对数据序列“2,3,4,5,1,0”完成升序排序,则需要交换的次数为(   )
A.9次B.12次C.15次D.18次
当前题号:1 | 题型:选择题 | 难度:0.99
某省举办大型活动,面向省内城市招募有志愿服务工作经历的志愿者,每个志愿者的报名数据包含城市序号、姓名(字母缩写)和参加志愿服务的次数。现需整理报名数据,要求是:先按城市序号从小到大排列;然后,同一城市的志愿者按参加志愿服务的次数从多到少排列。
按上述要求,编写一个VB程序,功能如下:在列表框List 1中显示整理前的数据,单击“整理”按钮Command 1,整理结果显示在列表框List 2中,程序运行界面如图所示。

(1)将数组元素q(1)到q(200)分为10段,如果每段恰好包含20个元素,采用选择排序算法分别对每段中的元素进行排序,整个排序过程中,数组元素之间的比较次数是________(单选,填字母:
A.次/B.次/C.次)。
(2)请在划线处填入合适的代码。
    报名总人数
城市数

 存储每个城市的报名人数


Private Sub Form_Load()
本过程读取城市序号,姓名和参加次数的数据分别存储在数组city;pname和times中,
并在List 1中显示,代码略
End Sub
Private Sub Command 1_Click()
Dim i As Integer,j As Integer,k As Integer,t As Integer,pos As Integer


Next i
   统计每个城市报名人数
 ①

Next i




Next i


  

Next i

  对各城市报名数据按参加志愿服务的次数进行排序



Next j

Next i

List 2.AddItem " " & city(q(i))& " " & pname(q(i))& " " & times(q(i))
Next i
End Sub
Function fp(head As Integer,tail As Integer)As Integer
Dim i As Integer,k As Integer

   

Next i

End Function
当前题号:2 | 题型:None | 难度:0.99
有两个以字母结尾的字符串s 1和s 2,在忽略字符串中空格的前提下判断它们是否相同。实现该功能的VB程序段如下:




Else

End If
Loop
.“相同”.“不相同”方框中的代码由以下三部分组成:


<>" " <>" " Then Exit Do 'Exit Do表示退出循环代码顺序正确的是(   )
A.①②③B.②①③C.②③①D.③②①
当前题号:3 | 题型:选择题 | 难度:0.99
下列选项中,与语句“”功能相同的是(   )
A.
B.
C.
D.
当前题号:4 | 题型:选择题 | 难度:0.99
有如下VB程序段:




Next i
数组元素a(1)到a(5)的值依次为“1,3,4,2,3”,执行该程序段后,变量s的值为(   )
A.7B.12C.13D.15
当前题号:5 | 题型:选择题 | 难度:0.99
下列属于计算机程序设计语言的是
A.FrontPageB.PowerPoint
C.Visual BasicD.Flash
当前题号:6 | 题型:选择题 | 难度:0.99
篮球联赛中,有5个班级的比赛积分依次为14,11,13,8,9。若采用冒泡排序算法对其进行从小到大排序,则完成第二遍时的结果是(   )
A.8,11,13,14,9B.8,9,13,14,11
C.8,9,14,11,13D.14,13,11,9,8
当前题号:7 | 题型:选择题 | 难度:0.99
窗体装载事件过程可以对程序进行初始化。VB窗体装载事件过程的名称是(   )
A.Command1_ClickB.Form_Keypress
C.Form_LoadD.Form_DblClick
当前题号:8 | 题型:选择题 | 难度:0.99
有如下VB程序:
Dim i As Integer,j As Integer,k As String,n As Integer
n=3
List1.Clear
For i=1 To n
k=“”
For j=1 To i
k=k+“*”
Next j
List1.AddItem k
Next i
该程序运行中,在列表框List1中显示的是(  )
A.B.
C.D.
当前题号:9 | 题型:选择题 | 难度:0.99
下面VB程序的功能是求100~999间被3除多2,被5除多3的所有整数,并统计符合条件的数的个数。
Private Sub Command1_Click( )
Dim i As Integer,P As Integer
p=0
For i=100 To 999
If ____ Then
List1.AddItem Str(i)
__
End If
Next i
List1.AddItem Str(p)
End Sub
为实现上述功能,请在程序划线处填入合适的语句:
划线①处应填入的语句为:_____________________________________;
划线②处应填入的语句为:_____________________________________。
当前题号:10 | 题型:填空题 | 难度:0.99