小明利用所学的信息技术知识帮助语文老师设计一个语文学考等级查询系统，要求如下：输入某个等级，就能查出该等级的所有学生学号和姓名，并统计出该等级学生的人数，以便语文老师方便了解学生的学考情况。语文学考成绩分A、B、C、D、E五个等级，学生信息存储在数据库文件“stugrade.accdb”的数据表“Chinese”中，数据表“Chinese”的结构如图1所示。 VB程序运行界面如图2所...

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

浙江省杭州第二中学2015-2016学年高二上学期信息技术期末考试试卷

小明利用所学的信息技术知识帮助语文老师设计一个语文学考等级查询系统，要求如下：输入某个等级，就能查出该等级的所有学生学号和姓名，并统计出该等级学生的人数，以便语文老师方便了解学生的学考情况。语文学考成绩分A、B、C、D、E五个等级，学生信息存储在数据库文件“stugrade.accdb”的数据表“Chinese”中，数据表“Chinese”的结构如图1所示。

VB程序运行界面如图2所示，在文本框Text1中输入查询的等级，单击“查询”按钮Command1，在列表框List1中显示所有该等级的学生学号和姓名，并按照学号从小到大排序，并在标签Label2处显示学生的人数，如果人数为0,则在列表框中显示“没有该等级的学生”。按此要求编写程序如下，在下划线处填上合适的代码。

Private Sub Command1_Click()

Dim stuna(1 To 100) As String '存放学生姓名的数组定义为stuna

Dim stunum(1 To 100) As String '存放学生学号的数组定义为stunum

Dim i As Integer, j As Integer, n As Integer

Dim t As String

Dim cn As New ADODB.Connection '连接数据库

Dim rs As New ADODB.Recordset

Dim strSQL As String

cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\stugrade.accdb "

cn.Open

strSQL = "select * from ① where 语文等级='" + Text1.Text + "'"

Set rs.ActiveConnection = cn

rs.Open strSQL

n = 0

Do While Not rs.EOF

②

stuna(n) = rs.Fields("姓名").Value

stunum(n) = rs.Fields("学号").Value

rs.MoveNext

Loop

rs.Close

cn.Close

Set rs = Nothing

Set cn = Nothing

List1.Clear '清除列表框

If n = 0 Then

List1.AddItem "没有该等级的学生"

Else

For i = 1 To n - 1 '按姓名排序

For j = n To ③ Step -1

If ④ Then

t = stunum(j): stunum(j) = stunum(j - 1): stunum(j - 1) = t

t = stuna(j): stuna(j) = stuna(j - 1): stuna(j - 1) = t

End If

Next j

Next i

For i = 1 To n

List1.AddItem stunum(i) + " " + stuna(i)

Next i

Label2.Caption = "该等级的学生共有" + Str(n) + "名"

End If

End Sub

其中①处填入；②处填入；③处填入；④处填入

举一反三

【加试题】编写VB程序，实现如下功能：单击“生成密文”按钮Command2，在文本框Text3中产生与每个小写字母对应的密文（每个明文字母对应1个不重复的密文字母）。在文本框Text1中输入单词字符串，单击“加密”按钮Command1后，进行逐个字符加密，加密方法：在“明文”中找到相应字符，再得到明文对应位置的密文,并在文本框Text2中显示对应密文（运行效果如图17所示）。实现上述功能的VB代码如下：

Dim m2 As String

Private Sub Command1Click()

Dim flag(1 To 26) As Boolean

Dim num As Integer,t As Integer

Randomize

num = 1

Text3.Text = " "

For i = 1 To 26

flag(i) = False

Next i

Do While num <= 26

x = Int(Rnd * 26) + 97

①

If flag(t) = False Then

m2 = m2 + Chr(x)

num = num + 1

②

End If

Loop

Text3.Text = m2

End Sub

Private Sub Command2Click()

Dim s As String， m As String， result As String

Dim k As String， c As Integer

s = Text1.Text

m = "abcdefghijklmnopqrstuvwxyz"

For i = 1 To Len(s)

k = Mid(s, i, 1)

If k >= "A" And k <= "Z" Then

k = Chr(Asc(k) + 32)

End If

c = 1: continue = True

Do While ③

If k = Mid(m, c, 1) Then

continue = False

End If

c = c + 1

Loop

④

Next i

Text2.Text = result

End Sub

程序①处的代码是{#blank#}1{#/blank#}

程序②处的代码是{#blank#}2{#/blank#}

程序③处的代码是{#blank#}3{#/blank#}

程序④处的代码是{#blank#}4{#/blank#}

小明编写了一个数据插入程序。程序输入一个数字，将该数字插入一列有序数据:-5,3,4,12,20,45,70，并使数据序列保持有序。设计的算法是从前往后找位置插入。

Private Sub Command1_Click()

Dim a(1 To 8) As Integer

Dim n, i, j, x As Integer

List1.Clear

List2.Clear

a(1) = -5: a(2) = 3: a(3) = 4: a(4) = 12: a(5) = 20: a(6) = 45: a(7) = 70

For j = 1 To 7

List1.AddItem Str(a(j))

Next j

x = Val(Text1.Text)

i = 1

Do While x > a(i) And i < 8 ’找x的插入位置

①

Loop

For j = 8 To i + 1 Step -1 ’移动数据

②

Next j

a(i) = x

For j = 1 To 8

List2.AddItem Str(a(j))

Next j

Label1.Caption = “插入的位置是” &Str(i)

End Sub

采用如下对分查找算法对数组a中7个有序数据“about、count、end、fly、high、jack、month”进行查找。

i=1:j=7:x=“high”

Do While i <=j

m=(i+j)\2

If a(m)=x Then Exit Do

If a(m) > x Then

j=m-1

Else

i=m+1

End If

Loop

执行完上述代码后，根据最终变量值判断下列表达式，其中成立的是（）

循环升序数组指的是将一个升序数组循环右移动若干距离之后变成的数组。如5、7、9、26、41、100，循环右移3位得到26、41、100、5、7、9。对分查找算法适当优化后也适用于循环升序数组。程序段如下:

l=1: r=6

Key=Val(Text1.Text)

Do While l <=r

m=Int((l+r) \ 2)

If a(m)=Key Then

⑴

Exit Do

Elself a(m) >=a(l) Then

⑵

Elself a(m) < a(l) Then

⑶

End If

Loop

上述程序中方框处可选语句为:

①If a(m) < Key And a(r) >=Key Then l=m+1 Else r=m-1

②Listl .AddItem “第”+Str(m)+“值是”+Str(a(m))

③If a(m) > Key And a(l) <=Key Then r=m-1 Else l=m+1

则(1)、(2)、(3)处语句依次是（）

“奔跑吧，兄弟”栏目组要在全国各地挑选节目录制的地点。有来自K(1<=K<=25)个不同省份的N(K<=N<=100)个地区送来了各自的竞选材料。由于参选地区太多，没有办法同时呈现所有材料供评委进行选择。栏目组决定选择一段连续区间内的参选地区，这个区间内每个省份的参选地区至少要有1个，求满足要求的最小区间长度。

参选地区用数字1，2，3……N表示，每个地区所属的省份依次存入数组a(1)到a(N)，若1号地区的省份编号是3，即a(1)=3。分析可知，所求区间的长度至少为K(省份的数量)，最大为N(地区的数量)。我们可以通过二分K到N之间的数求得最小区间长度。例如有10个参选地区，分别来自于5个不同的省份，从左到右排列，地区编号依次为2，1，2，4，3，3，5，5，3，5，则最小的一段包含所有5个地区的区间是从第2个到第7个地区，区间长度为6。

【加试题】有如下VB程序段：数组元素a(1)到a(6)的值分别为“Beijing”、“Guangdong”、“Jiangsu”、“Jiangxi”、“Shanghai”、“Zhejiang”，已按字典序排序。当key的值为“Zhejiang”时，单击命令按钮Command1，文本框Text1中显示的内容为（）

Private Sub Command1_Click()

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

Dim s As String

i = 1: j = 6

Key = Text1.Text：s = ""

Do While i <= j

m = Int((i + j) / 2 + 0.5)

s = s + " " + a(m)

If Key > a(m) Then

i = m + 1

Else

j = m - 1

End If

Loop

Text1.Text = s

End Sub

相关试卷

公司介绍

服务介绍

帮助中心