3.3 数据与系统 知识点题库
图1
请回答下列问题：
-
（1） 如图1所示，小西在创建这个数据表时把“最新出版”字段的数据类型设置为（填：日期时间/自动编号/数字），这张数据表里共有条记录。
-
（2） 小西将所有数据复制到Excel 2010工作表中并进行相关处理结果如图2所示，他想只显示所有“金额”低于30元的书籍记录，可使用（填：排序/筛选/查找）来实现。
图2
-
（3） 如图2所示，小西为了计算表中书籍的平均价格，在D12单元格中输入“AVERAGE(D2:D11)”并确认后，D12单元格中显示的结果为。
-
（4） 小西想更加直观的分析下各款图书的价格对比情况，建立了如图3所示的柱形图。从图中可以看出该图表的源数据区域是。
图3
-
（1） 实现上述功能的VB程序如下，请在横线处填入合适代码。
Dim a (1 To 4020 ) As String
Dim b (1 To 2000 ) As String
Private Sub Form_Load( )
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim constr As string
constr=“Provider=Microsoft.ace.OLEDB.12.0;”
constr=constr &“Data Source=” & App.Path+“\data\KaoSheng.accdb”
conn.ConnectionString=constr
conn.open()
Dim sql As String
‘将参加2010年下半年考试的考生的身份证号码按升序存放在a数组中
sql=“select * from kaoshengInfo where year=‘2010’order by sfzh asc”
rs.Open sql，conn
i=0
Do While Not rs.EOF
i=i+1
a(i)=rs(“sfzh”)
List1.additem(a(i))
rs.MoveNext
Loop
‘将参加2011年下半年考试的考生的身份证号码按升序存放在b数组中
sql=“select * from kaoshengInfo where year=‘2011’order by sfzh asc”
rs.Open sql，conn
i=0
Do While Not rs.EOF
i=i+1
b(i)=rs(“sfzh”)
List2.additem(b(i))
rs.MoveNext
Loop
rs.Close
End Sub
Private Sub Command1_Click ()
Dim bot As Integer, top As Integer, m As Integer
Dim i As Integer, ans As Integer
ans=0
For i=1 To 2000
bot=1
Do While bot <=top
m=Fix ( ( bot+top ) / 2 )
If a ( m )=b ( i ) Then
List3.AddItem a ( m )
Exit Do
ElseIf Then
top=m-1
Else
bot=m+1
End If
Loop
Next i
List3.AddItem“总计”+str(ans)+“人次”
End Sub
-
（2） 分析上述代码，在数据库中用于存放考试信息的数据表名称是。
图1
请根据题目，回答以下问题：
-
（1） 设计“书箱信息”数据表结构时，需要确定各个字段名称和类型。请将合适的字段类型填入相应单元格内。
字段名
字段类型
序号
自动编号
图书编号
类别
书名
作者
点击量
-
（2） 根据图1，该数据表共有记录条。若选定第6条记录为当前记录，如图2所示，执行“新记录”操作，操作完成后，当前记录号是。
-
（3） 若当前记录为第6条记录，如图2所示，“删除记录”操作完成后，它的下一条记录，即“编号”为JK0004的这条记录，其“序号”字段值为。
图2
|
数组元素 |
数组元素的含义 |
|
a（1） |
存储班级数n |
|
a（2） |
从a（2）到a（n+1）依次存储第 1、第2、……第n个班级的人数 |
|
… |
|
|
a（n+1） |
|
|
a（n+2） |
从a（n+2）开始依次存储第1个班级每个学生的单科成绩、第2个班级每个学生的单科成绩、……、第n个班级每个学生的单科成绩 |
|
… |
|
|
… |
程序功能如下：在文本框Text1中输入科目名称，单击“读数据库”按钮Command1，程序从数据库读取数据；单击“开始统计”按钮Command2，程序进行统计处理，结果输出在列表框List1中。程序运行界面如图所示。
实现上述功能的VB程序如下，请回答下列问题：
-
（1） 根据程序运行界面中的数据及数组a各元素的含义进行分析,数组元素a（5）的值为（填写数值）。
-
（2） 分析程序，可知数据库的文件名为。
-
（3） 请在划线处填入合适的代码。
Dim a（1 To 600）As Integer '数组大小满足处理要求
Private Sub Command 1_Click（）
'本过程由小王完成，从数据库读取指定科目的各相关数据，存储在数组a中
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString =" provider = Microsoft. ACE.
OLEDB.12.0;datasource="+"Score.Accdb"
conn.Open
Set rs.ActiveConnection=conn
'本过程的其他语句略
End Sub
Private Sub Command 2_Click（）
'本过程由小李完成，依据数组a中的相关数据统计各班级平均分
Dim i As Integer，j As Integer，n As Integer
Dim p As Integer，sum As Integer，aver As Single
①
p=n+2
For i=1 To n
sum=0
For j=1 To a（i+1）
②
p=p+1
Next j
aver=sum/a(i+1)
Listl. Addltem Str（i）+""+Str(a（i+1）)+""+Str（aver）
Next i
End Sub
① ②
| 登记序号 | 姓名 | 门牌号 | 登记日期 | 登记形式 | 是否绿码 |
| 20200101 | 王立 | 06-801 | 2020.01.29 | 门卫 | 是 |
| 20200102 | 张哲民 | 01-203 | 2020/02/12 | 上门排查 | 是 |
| 20200103 | 李圣达 | 11-206 | 2020/02/12 | 电话访问 | 否 |
| … | … | … | … | … | … |
下列说法正确的是（ ）
-
（1） 他用Access软件建立了“学生”数据表，表结构如图1所示，该数据表结构中存在1处数据类型错误，其字段名称是，数据类型应改为。
图1
-
（2） 小刘修改表结构并输入数据后，发现还需添加一条新记录。他的操作方法是：在当前记录上右击鼠标弹出快捷菜单，如图2所示，可知当前记录的是第条，选择快捷菜单中的“新记录”命令，则新记录将成为第条记录。
图2
-
（3） 小刘将该数据库文件通过电子邮件发给张老师，同时也想发给自己，他撰写邮件时，在收件人栏中输入张老师的邮箱地址，在抄送栏中输入自己的邮箱地址。这种方式是否可行？(填“是”或“否”)。
解决此问题的算法流程图如下图所示：
相应的VB程序如下，在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。
Dim cp(1 To 30000) As String
'存放已使用的车牌号码
Dim plate As String
'输入的自主编制车牌号码
Dim num As Integer
'已使用车牌号码的数量
Private Sub Command1_Click()
Dim f As Boolean, i As Integer, j As Integer, m As Integer
Label3. Caption=“”
i= 1：j= num
plate=“浙A”& Text1. Text
f= False
Do While (i <=j) And Not f
m=Fix((i+j) / 2)
If plate= cp(m) Then
f= True
Else
If plate<cp(m) Then
j=m-1
Else
①
End If
End If
Loop
If f Then
Label3. Caption=“车牌号码已被使用！”
Else
Label3. Caption=“选车牌号码成功！”
End if
End Sub
Private Sub Form_ Load( )
Dim conn As New ADODB. Connection，rs
As New ADODB. Recordset
Dim strSQL As String
conn. ConnectionString =“Provider = Mi-crosoft. ACE. OLEDB.12. 0；Data Source=” +App. Path+“\chepai. accdb”
conn. ( )pen
'设置查询的SQL语句，从数据表chepai 中选取number列数据，并按升序排序。
strSQL=“SELECT number FROM chepai order by number asc'
Set rs. ActiveConnection= conn
rs. Open strSQL
num=0
Do While ②
num= num+1
cp( num) = rs. Fields(“number”)
rs. MoveNext
Loop
rs. Close
conn. Close
End Sub
-
（1） 程序查找的数据库文件名称是。
-
（2） 在程序划线处填入适当的语句或表达式，把程序补充完整。
①②
|
接种编号 |
疫苗厂家 |
疫苗批号 |
接种日期 |
接种间隔 |
是否需要补种 |
|
2021 1201 |
北京生物 |
202008092 |
2021.11.12 |
10 |
是 |
|
2021 1202 |
北京生物 |
202008098 |
2021.12.21 |
15 |
否 |
|
2021 1203 |
北京生物 |
202008092 |
2021.12.10 |
20 |
否 |
|
…… |
…… |
…… |
…… |
…… |
…… |
下列关于“已接种人员信息”数据表的描述，正确的是( )
