【加试题】某公司需要设计一个生日查询系统：输入某个日期，就能查出在这天生日的所有员工姓名，并统计出生人人数，以便于公司提前为员工准备生日礼物。员工信息存储在数据库文件“员工信息.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）、程序中画线处应填入：① ②

举一反三

n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Command1，在列表框List2中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如例图所示。

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

'n=8，排序前数据存储在数组a中，并在列表框List1中显示

'代码略

End Sub

Private Sub Command1_Click()

Dim flag As Boolean 'flag值为True表示一遍加工中发生过交换

i=1

flag=True

Do While i<=n-1 Or flag=True '（1）

flag=False

For j=n To i+1 Step -1

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

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

flag=True

End If

Next j

i=i+1

Loop

Label3.Caption="排序过程的加工遍数为"+Str(i) '（2）

For i=1 To n

List2.AddItem Str(a(i))

Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}

【加试题】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

小吴为了探究冒泡排序过程中数据的“移动”情况，编写了一个VB程序，功能如下：

在列表框List1中显示排序前数据（存储在数组a中），在文本框Text1中输入初始位置（即下标值），单击“排序”按钮Command1后，在标签Label1中显示指定初始位置的数据在排序过程中的位置变化情况，排序后的数据显示在列表框List2中。程序运行界面如图所示。

实现上述功能的VB程序如下，请在横线处填上合适的代码，改正加框处的代码。

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

'n = 8，排序前的8个数据存储在数组a中，并在列表框List1中显示

'代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer

Dim pos As Integer '变量pos存储指定数据的位置（既下标值）

Dim s As String '变量s存储pos变化情况

s = Text1.Text

pos = Val(Text1.Text)

For i = 1 To n - 1

For j = ⑴

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

⑵

a(j - 1) = a(j)

a(j) = k

'如果pos位置的数据参与交换，则更新pos值，记录pos变化情况

If pos = j Then

pos = j - 1

s = s + "→" + Str(pos)

'（3）

pos = j

s = s + "→" + Str(pos)

End If

Next j

Next i

Label1.Caption = "位置变化情况：" + s

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#} ⑶{#blank#}3{#/blank#}

有VB程序段如下:

For i=1 to 2

k=1

For j=2 to 6-i

If d(k)<d(j) then k=j

Next j

If k<>6-i then

T=d(6-i):d(6-i)=d(k):d(k)=t

End If

Next i

数组元素d(1)到d(5)的值依次为“36，25，47，89，78”，经过该程序段“加工”后，下列说法正确的是是（）

小明基于冒泡排序算法编写了一个VB程序，功能如下：单击“生成”按钮command1，生成n个【10，99】的随机整数赋值给a数组，并在列表框list1中显示。单击“排序”按钮command2，对这组数据进行错位排序(即从前往后依次是最小的，最大的，第二小的，第二大的……依次类推)。在列表框list2中依次输出数据排序的结果，程序运行界面如图所示：

实现上述功能的VB程序如下：

Const n=10

Dim a(1 To 10)As Integer

Private Sub Command1 Click()

For i=1 To n

‘①

List1．Addltem Str(a(i))

Next i

End Sub

Private Sub Command2 Click()

tmp=1

For i=1 To n-1

For j=n To i+1 Step-1

If ＞0 Then ①

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

End If

Next j

②

Next i

For i=1 To 10

List2．Addltem Str(a(i))

Next i

End Sub

【加试题】小李基于冒泡排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮Command1,在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如下图所示。实现上述功能的VB程序如下，但加框处代码有错，请改正。

Const n = 10

Dim a(1 To n) As Integer

Private Sub Command1_Click()

Dim i As Integer, j As Integer, t As Integer

Dim bottom As Integer

'获取排序前数据依次存储在数组a中，并在文本框Text1中显示。代码略

bottom = n

i = 1

Do While i <= bottom - 1

For j = bottom To i + 1 Step -1

If Then {#blank#}1{#/blank#}

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

ElseIf a(j) = a(j - 1) Then '相邻两个数据相等，进行剔除处理

{#blank#}2{#/blank#}

bottom = bottom - 1

End If

Next j

i = i + 1

Loop

Text2.Text = " "

For i = 1 To bottom

Text2.Text = Text2.Text + Str(a(i))

Next i

End Sub

相关试卷

公司介绍

服务介绍

帮助中心