- 二一组卷

题型：综合题题类：常考题难易度：困难

【bj】高中信息技术综合库——利用数据库管理信息1

学校需要统计学生的作业完成数，需要将学生的完成数按从高到低显示，下列程序模拟该信息处理过程，程序在数据库stud中找到的学生信息（编号和完成次数），并将所有学生按照完成数从高到低显示。先将所有学生的编号和完成次数从数据库stud的info表中ID和finshed两字段中取出分别保存在数组a和数组b中，第i个学生的编号保存在a(i)中，对应的作业完成次数保存在b(i)中。

数据库文件“stud. accdb”信息如图所示。

程序界面如图所示，左边列表框List1中显示所有学生信息（包括编号和完成次数），单击“排序”按钮（Command），所有编号按照作业完成次数从高到低显示在列表框List2中。

代码如下：

Dim conn As New ADODB. Connection

Dim rs As New ADODB. Recordset

Dim n As Integer

Dim a(500)As String

Dim b(500)As Integer

Private Sub Fom Load()

Dim i As Integer

conn. Connection String="Provider=Mi-crosoft. AC

A.OLEDB. 12.0；DATA Source="& App. Path &"\stud. accdb"

conn Open

Set rs. Active Connection=conn

rs. Open "Select*From info"

n=0

Do While not rs.EOF '到记录集最后一条记录后退出循环

n=n+1

a(n)=rs. fields("id")

b(n)=rs. fields("finshed")

rs. MoveNext '移动到下一条记录

Loop

For i=1 To n

List1. AddItem a(i)+" "+Str(b(i))

Next i

rs. Close

conn. Close

Set rs= Nothing

Set conn= Nothing

End sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, t1 As Integer, t2 As String, k As Integer

For i=1 To n-1 'n表示学生总数

k=i 'k保存第i大的数，一开始假定是a(i)

For j=i+1 To n

If b(k)<b(j) Then k=j '比较完成数

①

If ② Then

t1=b(i): b(i)=b(k): b(k)=t1 '交换完成次数

t2=a(i): a(i)=a(k): a(k)=t2 '交换编号

End If

Next j

Next i

For i=1 To n '在列表框List2中输出排序结果

Listt2. Addltem a(i)+" "+Str(b(i))

Next i

End sub

（1）、当“Form_Load()”事件处理过程运行结束时，变量n的值为。

（2）、加虚线框中的代码采用的排序算法为。

（3）、为实现上述功能，程序中划线处的代码为①；②。

举一反三

对N个元素用选择排序法进行排序，元素交换次数SWAP的范围是（）

采用冒泡排序将六个数“22，14，18，17，21，16”从小到大进行排序，则第二轮交换数据后的顺序是（）

有如下VB程序段：

For i= 1 To 3

For j= 1 To 5-i

If a(j) >a(j+1) Then

t=a(j)：a(j)=a(j+1)：a(j+1)=t

End If

Next j

Text 1．Text=Text 1．Text+str(a(i) )

Next i

数组元素a(1)到a(5)的值依次为“3，9，6，8，4”。该程序段执行后，文本框Text 1显示的内容是（）

某校最近开设了10节不同内容的选修课，课的编号为1～10。每位同学只能选报一门课。事先让学生做过问卷调查并根据自己的兴趣爱好填写了选课报名志愿表(无重复)，如某同学的报名志愿表为4，1，2，7，3，5，8，10，9，6，表示他最想选报的课的编号是4(第一志愿)，其次为1(第二志愿)，以此类推。学校根据每位学生的问卷调查得分及选课报名志愿表进行了分班，每班30人。
分班方法：优先满足问卷得分最高同学的第一志愿，如果该同学第一志愿所报名人数超过30人，则尝试满足其第二志愿，以此类推，直至该同学选课成功。
编写程序实现选课分配功能并统计各志愿录取率情况：单击读取按钮Command1后，在列表框List1中显示每位学生的相关信息。单击统计按钮Command2后，统计第X志愿录取人数及录取率的统计结果清单，显示在列表框List2中。程序界面如图a所示。实现上述功能的VB程序代码如下，请回答下列问题：

某次考试的流程为先笔试再面试，笔试成绩达到面试资格线的可以入围参加面试。入围面试的资格线根据计划录取人数的200%划定，即如果考试最终录取x人，则第2*x名选手的笔试分数为面试资格分数线(该分若有同分者可一同参加面试)。现在编写VB程序功能如下：自动读取数据库中考生考号和笔试成绩，依次存储在数组kh(i)、cj (i)中，并显示在Listl列表框中。

用户从Text1中输入计划人数，单击“入围划线”按钮Command1，面试分数线显示在文本框Text2 中，入围面试最终人数显示在 Text3中，进入面试考生的考号和笔试成绩显示在List2列表框中，如果成绩相同，则按考号从小到大的顺序显示。程序界面如图所示。

Dim kh(1 To 500) As String, cj(1 To 500) As Integer

Dim n As Integer ′参加考试总人数

Private Sub Form_Load()

Dim conn As New ADODB.Conncction

Dim rs As New ADODB.Recordset

conn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0；datasource=”+App.Path + ”\BSCJ.accdb”

conn.Open

Set rs.ActiveConnection = conn

rs.Open “select * FROM scoreinfo”

′本过程其他代码略

End Sub

Private Sub Commandl_click()

Dim m As Integer, i As Integer, j As Integer

Dim t1 As Integer, t2 As String, flag As Boolean

For i = 1 To n - 1

For j = 1 To

If cj(i) < cj(j) Then

t1 = cj(i): cj(i) = cj(j): cj(j) = t1

t2 = kh(i): kh(i) = kh(j): kh(j) = t2

EleIf ① Then

t2 = kh(i): kh(i) = kh(j): kh(j) = t2

End If

Next j

Next i

m = ②

If m <= n Then

i = m

flag = Flase

Do While i < n And Not flag
If cj(i) = cj(i + 1) Then

i = i + 1

Else

③

End If
Loop

Text2.Text = Str(cj(m))

Text3.Text = Str(i)

For j = 1 To i

List2.Addltem kh(j) + “ ” + Str(cj(j))

Next j

Else

Text2.Text = “面试人数超过了总人数”

End If

End Sub

如下VB程序段实现对数组元素a(1)到a(n)从小到大排序。

For i = 1 To n -1

①

For j = i To n-1

If a(j) < a(k) Then k = j卷（信息技术）（一）第4页（共 8 页）

Next j

s = a(i): a(i) = a(k): a(k) = s

Next i

则代码①中的语句为（）

相关试卷

公司介绍

服务介绍

帮助中心