【加试题】某公司需要设计一个生日查询系统：输入某个日期，就能查出在这天生日的所有员工姓名，并统计出生人人数，以便于公司提前为员工准备生日礼物。员工信息存储在数据库文件“员工信息.mdb”的数据表“members”中，数据表“members”的结构如下： VB应用程序界面如上图所示，在文本框text1中输入查询的日期（以月日形式，如0623），单击“查询”按钮，在列表框中显示所有这...

题型：综合题题类：模拟题难易度：困难

浙江省杭州市2016年信息技术高考模拟卷十一

【加试题】某公司需要设计一个生日查询系统：输入某个日期，就能查出在这天生日的所有员工姓名，并统计出生人人数，以便于公司提前为员工准备生日礼物。员工信息存储在数据库文件“员工信息.mdb”的数据表“members”中，数据表“members”的结构如下：

VB应用程序界面如上图所示，在文本框text1中输入查询的日期（以月日形式，如0623），单击“查询”按钮，在列表框中显示所有这个日子出生的员工姓名（按姓名排序），并在Label3处显示员工数量，如果人数为0，则在列表框中显示“本天没有员工生日”。

解决此问题的VB程序如下，阅读程序并完成后面的问题。

‘定义存放员工姓名的数组na

Private Sub CmsqClick()

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

Dim t1 As String

‘连接数据库获取数据

Dim cn As new connection

Dim rs As new recordest

Dim str1 As String , str2 As String

str1 =”driver=Microsoft access driver(*.mdb)”；dbq=”&app.path”&”员工信息.mdb”

cn.open str1

str2 = “select * form members where 生日＝’“ + text1.text + ”’”

rs.open str2 ， cn.adOpenDynamic ，adLockOptimistic

n = 0

Do While Not Rs.EOF

n = n + 1

na(i) = rs.Fields(“姓名”).value

rs.MoveNext

Loop

rs.close

cn.close

‘按姓名排序

If n = 0 Then

List1.AddItem “本天没有员工生日”

Else

For i = 1 to n-1

For j = 1 to n+1 Step -1

If na(j) < na(j-1) Then

t1 = na(j) : ① : na(j-1) = t1

End If

Next j

Next i

For i = 1 to n

List1.AddItem ②

Next i

Label3.Caption = “这天共” + Str(n) + “位员工生日”

End If

End Sub

（1）、程序序中涉及的排序算法是，排序方式为（填：升序/降序）。

（2）、“查询”按钮的对象名是。

（3）、程序中画线处应填入：① ②

举一反三

【加试题】实现某排序算法的部分VB程序代码段如下：

For i = 1 To 7

For j = 8 To i+1 step -1

If sz(j) < sz(j-1) Then

tmp = sz(j): sz(j) = sz(j-1): sz(j-1) = tmp

End If

Next j

Next i

数组元素sz(1)到sz(8)的原始数据依次为" 5.2，4.5，4.1，3.5，8.3，7.4，3.8，7.5"。则第3遍排序"加工"后数组元素sz(1)到sz(8)的数据依次是（）

下列程序段实现对num数组进行排序，并将排序结果输出。

Private Sub Command1Click()

Dim num(0 To 5) As Integer

Dim i As Integer, j As Integer

Dim t As Integer

num(0) = 4: num(1) = 7: num(2) = 2: num(3) = 0: num(4) = 3: num(5) = 9

i = 0: j = 1: t = 0

For i = 1 To 5 Step 1

For j = i + 1 To 4 Step 1

If num(i) > num(j) Then

t = num(i)

num(i) = num(j)

num(j) = t

End If

Next j

Next i

For i = 1 To 5

List1.AddItem num(i)

Next i

End Sub

【加试题】已知数组a（1）到a（6）的原始数据为”118”，”36”，”98”，”15”，”88”，”2”，对该数组进行排序操作，某同学编写了以下VB程序：

For i=1 to 3

For j=6 to i+1 step -1

If a(j)<a(j-1) then

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

End if

Next j

Next i

则程序运行之后，数组a（1）到a（6）的值依次为（）

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

【加试题】2016年某书城的部分书籍销售数据存放在相应的数据表中，如图a所示。小明编写了一个VB程序，实现如下功能：在文本框Text1中输人图书类别，单击“查询”按钮Command1，程序从数据库读取相关数据进行处理，在列表框List中显示该类图书所有的销售数据(从高到低排序)，在文本框Text2中显示该类图书的总销售量。VB程序运行界面如图b所示。

实现上述功能的VB程序如下，请回答下列问题：

Dim num As Integer ‘变量num存储数据库实际的记录数

Dim book(1 to 5 000)As String

Dim content(1 To 5 000)As String，content1(1 To 5 000)As String ‘存储类别内容

Dim sales(1 To 5 000)As Long，sales1(1 To 5 000)As Long ‘存储销售量

Private Sub Form Load( )

Dim conn As New ADODB．Connection，rs As New ADODB．Recordset

Dim strSQL As String

conn. ConnectionString="Provider=Microsoft. ACE. OLEDB. 12. 0; Data Source="＆App. Path&"＼major. accdb"

conn. Open

strSQL="SEl．ECT*FROM count"

Set rs．ActiveConnection=conn

‘从数据表中读取图书类别、类别内容、销售量分别存储到数组book、content、sales中

‘数据库实际读取的记录数存储在变量num中

‘代码略

End Sub

Private Sub Command1_Click()

Dim m As String，n As String，c As Integer，s As Long

Dim i As Integer，j As Integer，k As Integer

List1．Clear

c=0：s=0

m=Text1．Text

For i=l To num ‘将符合的类别内容、销售量重新存储到数组content1、sales1中

If m=book(i)Then

c=c+1

content1(c)=content(i)

sales1(c)=sales(i)

‘①

EndIf

Next i

For i=1 To ‘②

List1．AddItem content1(i)&" "&Str(sales1(i))

Next i

Text2．Text=Str(s)

End Sub

【加试题】有如下部分程序段，数组元素d(1)到d(7)的值依次为“70, 60, 50, 40, 30, 20, 10。文本框Textl中输入25，行该程序段，运行结束后，下列表达式正确的是（）

n = 0 : i =1 : j = 7

Key = Val(Textl.Text)

f = False

Do While i <= j And Not f

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

n = n + 1

If key = d(m) Then

f = True

Elseif key > d(m) then

j = m - 1

Else

i = m + 1

end if

Loop

相关试卷

公司介绍

服务介绍

帮助中心