- 基础理论
- 数据及数据库技术
- 人工智能
- 算法理论
- 算法实例
- 面向对象程序设计 VB开发工具
- 算法实例的程序实现
- 算法及算法的表示方法
- 多媒体理论
- 基础软件操作
- 算法软件操作
- 多媒体软件操作
- 网络技术应用
某省举办大型活动,面向省内城市招募有志愿服务工作经历的志愿者,每个志愿者的报名数据包含城市序号、姓名(字母缩写)和参加志愿服务的次数。现需整理报名数据,要求是:先按城市序号从小到大排列;然后,同一城市的志愿者按参加志愿服务的次数从多到少排列。
按上述要求,编写一个VB程序,功能如下:在列表框List 1中显示整理前的数据,单击“整理”按钮Command 1,整理结果显示在列表框List 2中,程序运行界面如图所示。

(1)将数组元素q(1)到q(200)分为10段,如果每段恰好包含20个元素,采用选择排序算法分别对每段中的元素进行排序,整个排序过程中,数组元素之间的比较次数是________(单选,填字母:
(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
按上述要求,编写一个VB程序,功能如下:在列表框List 1中显示整理前的数据,单击“整理”按钮Command 1,整理结果显示在列表框List 2中,程序运行界面如图所示。

(1)将数组元素q(1)到q(200)分为10段,如果每段恰好包含20个元素,采用选择排序算法分别对每段中的元素进行排序,整个排序过程中,数组元素之间的比较次数是________(单选,填字母:
A.![]() | B.![]() | C.![]() |








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
有两个以字母结尾的字符串s 1和s 2,在忽略字符串中空格的前提下判断它们是否相同。实现该功能的VB程序段如下:




Else

End If
Loop
.
“相同”
.
“不相同”方框中的代码由以下三部分组成:
①
②
③
<>" "
<>" " Then Exit Do 'Exit Do表示退出循环代码顺序正确的是( )




Else

End If
Loop




①

②

③


A.①②③ | B.②①③ | C.②③① | D.③②① |
有如下VB程序段:




Next i
数组元素a(1)到a(5)的值依次为“1,3,4,2,3”,执行该程序段后,变量s的值为( )




Next i
数组元素a(1)到a(5)的值依次为“1,3,4,2,3”,执行该程序段后,变量s的值为( )
A.7 | B.12 | C.13 | D.15 |
篮球联赛中,有5个班级的比赛积分依次为14,11,13,8,9。若采用冒泡排序算法对其进行从小到大排序,则完成第二遍时的结果是( )
A.8,11,13,14,9 | B.8,9,13,14,11 |
C.8,9,14,11,13 | D.14,13,11,9,8 |
窗体装载事件过程可以对程序进行初始化。VB窗体装载事件过程的名称是( )
A.Command1_Click | B.Form_Keypress |
C.Form_Load | D.Form_DblClick |
有如下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中显示的是( )
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.![]() |
下面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
为实现上述功能,请在程序划线处填入合适的语句:
划线①处应填入的语句为:_____________________________________;
划线②处应填入的语句为:_____________________________________。
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
为实现上述功能,请在程序划线处填入合适的语句:
划线①处应填入的语句为:_____________________________________;
划线②处应填入的语句为:_____________________________________。