1.选择题- (共14题)
1.
字符“A”比“a”的ASCII码值小32(十进制),已知字符“n”的二进制ASCII码值为(1101110)2,则字符“P”的十进制ASCII码值是( )
| A．80 | B．90 | C．77 | D．74 |
2.
小红用UltraEdit软件观察“Hold住2015高考”这几个字，显示的十六进制内码如下图所示。则“2016高考”这几个字对应得内码用十六进制表示是（ ）
| A．32 30 31 36 B8 DF BF BC | B．31 35 B8 DF BF BC |
| C．32 30 31 36 B8 DF BF BC | D．31 35 B8 E0 BF BC |
3.
人们在网购消费后往往会通过网络对商家进行评价。评价既能够提供给其他买家一些购买建议，也能够促进商家改进商品或改良服务。人们在网络上对商品进行评价的这一过程属于（ ）
| A．信息的存储 | B．信息的采集 | C．信息的处理 | D．信息的发布 |
6.
采用冒泡排序将六个数“22，14，18，17，21，16”从小到大进行排序，则第二轮交换数据后的顺序是（ ）
| A．14，22，16，18，17，21 | B．14，16，18，17，21，22 |
| C．14，16，22，17，18，21 | D．14，22，16，17，18，21 |
7.
有Visual Basic程序如下：
Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim c As String
a = Text1.Text
b = Text2.Text
c =" a" + b
Label1.capton = c
End Sub
程序运行时，单击命令按钮command1，弹出如图所示的出错信息提示，此时程序正执行的语句是（ ）
Private Sub Command1_Click()
Dim a As String
Dim b As String
Dim c As String
a = Text1.Text
b = Text2.Text
c =" a" + b
Label1.capton = c
End Sub
程序运行时，单击命令按钮command1，弹出如图所示的出错信息提示，此时程序正执行的语句是（ ）
| A．a = Text1.Text | B．b = Text2.Text |
| C．c =" a" + b | D．Label1.capton = c |
9.
某Access数据表打开后如图所示，下列描述中正确的是（ ）
| A．“商品代码”字段的类型是数值型 |
| B．该数据表记录数少于10条 |
| C．该数据表字段数是6个 |
| D．删除“销售日期”字段后，记录数不会少 |
10.
“滴滴一下，马上出发”，滴滴打车软件为打车一族出行带来了方便，该软件下载界面部分截图如图所示：
根据图中信息，下列关于该软件的说法不正确的是（ ）
根据图中信息，下列关于该软件的说法不正确的是（ ）
| A．采用了统计评价 |
| B．需在IOS系统环境下运行 |
| C．存储容量约为9216KB |
| D．通过微信扫描图中的二维码可以下载该打车软件 |
11.
小李使用Word修订功能对某文档做了几处修订，部分截图如图所示：
如全部接受图中所示的修订内容，则第一句话的文字将变为（ ）
如全部接受图中所示的修订内容，则第一句话的文字将变为（ ）
| A．支付宝封杀微信的消息得到确认，在微信上开店的商户将无法使用支付宝接口，只能另投其他支付工具。 |
| B．支付宝封杀微信的消息得到确定，在微信上开店的商户将无法使用支付宝转账，只能另投其他支付工具。 |
| C．支付宝封杀微信的消息正式得到确认，在微信上开店的商户将无法使用支付宝接口，只能另投其他支付工具。 |
| D．支付宝封杀微信的消息正式得到确定，在微信上开店的商户将无法使用支付宝转账，只能另投其他支付工具。 |
13.
使用Goldwave软件编辑某音频时的部分界面截图如图所示：
以下说法正确的是（ ）
以下说法正确的是（ ）
| A．执行“删除”操作后，该音频的存储容量将减少 |
| B．执行“删除”操作后，被选中的部分的音频将变成“静音” |
| C．执行“裁剪”操作后，该音频的存储容量不变 |
| D．执行“裁剪”操作后，被选中的部分的音频将变成“静音” |
14.
下图是制作某flash作品“风筝”时的截图，从图中可知，“背景”图层中的背景图片仅在第1帧到第20帧出现，若要使背景图片一直延续到第45帧，可在该图层的第21帧上进行的操作是（ ）
| A．清除关键帧 | B．删除帧 | C．清除帧 | D．剪切帧 |
2.填空题- (共5题)
15.
小李对金融很感兴趣，他关注“中国石油”的股票并下载了近期的交易数据，如图-1所示。
（1）“涨跌额”为本交易日的“收盘价”与前一交易日的“收盘价”之差，要计算各交易的“涨跌额”，可在F3单元格输入公式____________后，利用自动填充功能完成其他交易日的“涨跌额”计算。
（2）以____________区域的数据制作2015年2月2日至2015年3月13日“中国石油”收盘价的行情图，如图-2所示，该图表的类型是____________。
（3）分析图2可知，下列4个时间段：
“收盘价”涨幅最大的时间段是____________（填序号）。
（1）“涨跌额”为本交易日的“收盘价”与前一交易日的“收盘价”之差，要计算各交易的“涨跌额”，可在F3单元格输入公式____________后，利用自动填充功能完成其他交易日的“涨跌额”计算。
（2）以____________区域的数据制作2015年2月2日至2015年3月13日“中国石油”收盘价的行情图，如图-2所示，该图表的类型是____________。
（3）分析图2可知，下列4个时间段：
| A．2015年2月2日至2015年2月3日 |
| B．2015年2月16日至2015年2月17日 |
| C．2015年2月25日至2015年2月26日 |
| D．2015年3月11日至2015年3月12日 |
16.
下列VB程序运行时，单击命令按钮Command1后，标签框Label2中显示的内容是________
Private Sub Command1_click()
Dim s as integer,I as integer
S=0
For i="1" to 20 step 3
s=s+(-1)^i*i
Next i
Label1.caption=str(i)
Label2.caption=str(s)
End Sub
Private Sub Command1_click()
Dim s as integer,I as integer
S=0
For i="1" to 20 step 3
s=s+(-1)^i*i
Next i
Label1.caption=str(i)
Label2.caption=str(s)
End Sub
17.
某学校开设多样化选修课程，学生可以根据个人兴趣和特长选择选修课。假设每门选修课的选课人数不超过40，学生选课的相关信息存放在数据库文件“student.accdb”的data表中，选课查询程序运行时界面如图所示。
程序功能：在文本框Text1中输入课程号，单击“查询”按钮Command1,在列表框List1中显示选修本课程的名学生信息。如果没有找到，在列表框中显示“该课程当前无人报名”。按此要求将程序补充完整。
Private Sub command1_click()
Dim xh(1 to 40),xm(1 to 40) As String '学号和姓名的数组
Dim i,num as integer
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 + "\student.accdb" '打开到数据库的链接
conn.Open
strSQL ="select xh,xm from data where '课程=&(Text1.Text) & '" '设置查询的SQL语句
Set rs.ActiveConnection = conn '设置rs的ActiveConnection属性，指定与其关联的数据库链接
rs.Open strSQL '打开记录集，将从表student中读取的结果集保存到记录集rs中
List1.Clear
num=0
Do while not rs.EOF
①
xh(num)=rs.Fields("xh")
xm(num)=rs.Fields("xm")
rs.MoveNext
loop
rs.Close
conn.close
set rs=nothing
set conn=nothing
For i="1" to num
②
Next i
if num="0" then list1.additem("该课程当前无人报名")
End Sub
（1）程序中①划线处应填入___________________。
（2）程序中②划线处应填入___________________。
程序功能：在文本框Text1中输入课程号，单击“查询”按钮Command1,在列表框List1中显示选修本课程的名学生信息。如果没有找到，在列表框中显示“该课程当前无人报名”。按此要求将程序补充完整。
Private Sub command1_click()
Dim xh(1 to 40),xm(1 to 40) As String '学号和姓名的数组
Dim i,num as integer
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 + "\student.accdb" '打开到数据库的链接
conn.Open
strSQL ="select xh,xm from data where '课程=&(Text1.Text) & '" '设置查询的SQL语句
Set rs.ActiveConnection = conn '设置rs的ActiveConnection属性，指定与其关联的数据库链接
rs.Open strSQL '打开记录集，将从表student中读取的结果集保存到记录集rs中
List1.Clear
num=0
Do while not rs.EOF
①
xh(num)=rs.Fields("xh")
xm(num)=rs.Fields("xm")
rs.MoveNext
loop
rs.Close
conn.close
set rs=nothing
set conn=nothing
For i="1" to num
②
Next i
if num="0" then list1.additem("该课程当前无人报名")
End Sub
（1）程序中①划线处应填入___________________。
（2）程序中②划线处应填入___________________。
18.
某社区为庆五一进行“摘草莓”比赛活动，最后取十人进入决赛，工作人员编制了如下Visual Basic程序，功能是根据草莓颗数进行排序，程序中所有参赛者的成绩保存在数组result中，对应的姓名保存在数组name中。
程序界面如图所示，左边列表框List1中显示数据（成绩和姓名），单击 “开始排序”按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。
解决此问题的排序部分的程序段如下：
Dim result(1 To 10) As Single
Dim name(1 To 10) As String
Private Sub Command1_Click( )
Dim I, J, K, X As Single, Y As String
For I =" 1" To 9
K = I
For J =" I" + 1 To 10
If ① Then K = J
Next J
If K <> I Then
X =" result(I)" : result(I) =" result(K)" : ②
Y =" name" (I) : name (I) =" name" (K) : name (K) = Y
End If
Next I
For I =" 1" To 10
List2.AddItem Str(result(i)) + " " + result(i)
Next i
End Sub
Private Sub Form_Load()
' 此过程用于对数组a和数组b进行初始赋值，代码略
End Sub
在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：
程序中①划线处应填入___________________。
程序中②划线处应填入___________________。
程序界面如图所示，左边列表框List1中显示数据（成绩和姓名），单击 “开始排序”按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。
解决此问题的排序部分的程序段如下：
Dim result(1 To 10) As Single
Dim name(1 To 10) As String
Private Sub Command1_Click( )
Dim I, J, K, X As Single, Y As String
For I =" 1" To 9
K = I
For J =" I" + 1 To 10
If ① Then K = J
Next J
If K <> I Then
X =" result(I)" : result(I) =" result(K)" : ②
Y =" name" (I) : name (I) =" name" (K) : name (K) = Y
End If
Next I
For I =" 1" To 10
List2.AddItem Str(result(i)) + " " + result(i)
Next i
End Sub
Private Sub Form_Load()
' 此过程用于对数组a和数组b进行初始赋值，代码略
End Sub
在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：
程序中①划线处应填入___________________。
程序中②划线处应填入___________________。
19.
小丁想买几张6+1彩票，选号时，他希望前4位用自己的生日：11月8日，即1108，特别号码他选了买彩票日子的个位数5，并且他希望前六个数字组成的数能被他的幸运数字9整除。他的好朋友小杰帮他设计了一个VB程序，可以提供一份符合这些要求的号码清单供他挑选。相应的界面如图-1所示。阅读程序并完成后面的问题。
（1）设计应用程序界面时，为添加a所指向的对象，应使用-2图所示的“控件工具箱”中的______（填写相应编号）；在-3图所示的“属性窗口”中，将______属性值设置为“开始”，可使图-2中b所指向的对象显示“开始”。
（2）请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim i, j, c As Integer
Dim n As Long
c = 0
For i =" 0" To 99
n =" 110800" + i
If ① Then
List1.AddItem Str(n) + " " + "5"
c =" c" + 1
End If
Next i
Label2.Caption = "满足条件的数有：" + Str(c) + "组"
End Sub
（1）设计应用程序界面时，为添加a所指向的对象，应使用-2图所示的“控件工具箱”中的______（填写相应编号）；在-3图所示的“属性窗口”中，将______属性值设置为“开始”，可使图-2中b所指向的对象显示“开始”。
（2）请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim i, j, c As Integer
Dim n As Long
c = 0
For i =" 0" To 99
n =" 110800" + i
If ① Then
List1.AddItem Str(n) + " " + "5"
c =" c" + 1
End If
Next i
Label2.Caption = "满足条件的数有：" + Str(c) + "组"
End Sub
试卷分析
-
【1】题量占比
选择题:(14道)
填空题:(5道)
-
【2】：难度分析
1星难题：0
2星难题：0
3星难题：0
4星难题：0
5星难题：0
6星难题：0
7星难题：0
8星难题：0
9星难题：19