1.选择题- (共15题)
3.
用UltraEdit软件观察 “hold住”这几个字符的内码,如图所示:

则“doll”这几个字符的内码是( )

则“doll”这几个字符的内码是( )
A.64 6F 6C 6C | B.6C 64 D7 D7 | C.68 6F 6C 6C | D.6C 64 6F 6F |
5.
有一种利用打孔透光原理设计的简易身份识别卡:每张卡在规定位置上有一排预打孔位,读卡器根据透光检测判断哪些孔位已打孔,哪些未打孔,从而识别出卡的编码。如果要设计一种供1000人使用的身份卡,则卡上的预定孔位至少需要( )
A.5个 | B.7个 | C.9个 | D.10个 |
12.
在VB中,有如下事件处理过程代码:
Private Sub Command1_Click()
Dim s As Double
s = 0
Do While s <> 5
s = s + 2
Loop
Label1.Caption = Str(s)
End Sub
该事件处理过程代码违背了算法特征中的( )
Private Sub Command1_Click()
Dim s As Double
s = 0
Do While s <> 5
s = s + 2
Loop
Label1.Caption = Str(s)
End Sub
该事件处理过程代码违背了算法特征中的( )
A.确定性 | B.有穷性 | C.有输出 | D.有0个或多个输入 |
14.
某校论坛的Access数据库信息如下图所示:

下列说法正确的是( )

下列说法正确的是( )
A.该数据库的名称是luntan.mdb |
B.该数据库共有3张数据表 |
C.yfm表中共有6个字段 |
D.yfm表中 “编号1”字段的值可以手动输入 |
2.填空题- (共3题)
16.
VB程序设计。某微群采用问题验证的加入方式,如下图所示:

徐明设计了一个VB程序用于寻找这个以211开头、可被2012整除的6位数。其算法流程图如下图所示,

程序界面和代码编辑窗口如下图所示。

(1)上图所示流程图中采用的算法为____________(填:解析算法 / 枚举算法)。
(2)在上图程序界面所示窗体中,创建label2对象的方法正确的是___________(填字母)。
A.双击工具箱中的“
”控件
B.单击工具箱中的“
”控件,然后在窗体中按住鼠标左键拖曳
(3)在上图程序界面窗体的标题中显示 “寻找验证问题的答案” 字样,是通过修改该窗体对象的 _________(填:Font / Caption / Top)属性的值实现的。
(4)上图代码编辑窗口中的VB程序代码在___________(填:加载窗体 / 单击Label2 / 单击Command1)对象时被驱动执行。
(5)徐明在代码编辑窗口中,输入“Label2.”后出现如下图所示的信息, 其中的“BackColor”是Label2的_________(填:事件名 / 对象名 / 属性名)。

(6)下图中VB程序划线处应填写的代码为_____________。

(7) 运行上图中VB程序后,弹出下图所示的出错信息提示,此时程序正执行的语句是 ___________(填字母),改正该错误应修改的语句是____________(填字母)。

A.Dim k As Integer
B.For k = 211000 To 211999
C.Label2.Caption = Str(k)
(8)保存工程后,徐明发现结果文件夹中产生了yzwt.frm、yzwt.vbp、yzwt.vbw三个文件,其中窗体文件是__________。

徐明设计了一个VB程序用于寻找这个以211开头、可被2012整除的6位数。其算法流程图如下图所示,

程序界面和代码编辑窗口如下图所示。

(1)上图所示流程图中采用的算法为____________(填:解析算法 / 枚举算法)。
(2)在上图程序界面所示窗体中,创建label2对象的方法正确的是___________(填字母)。
A.双击工具箱中的“

B.单击工具箱中的“

(3)在上图程序界面窗体的标题中显示 “寻找验证问题的答案” 字样,是通过修改该窗体对象的 _________(填:Font / Caption / Top)属性的值实现的。
(4)上图代码编辑窗口中的VB程序代码在___________(填:加载窗体 / 单击Label2 / 单击Command1)对象时被驱动执行。
(5)徐明在代码编辑窗口中,输入“Label2.”后出现如下图所示的信息, 其中的“BackColor”是Label2的_________(填:事件名 / 对象名 / 属性名)。

(6)下图中VB程序划线处应填写的代码为_____________。

(7) 运行上图中VB程序后,弹出下图所示的出错信息提示,此时程序正执行的语句是 ___________(填字母),改正该错误应修改的语句是____________(填字母)。

A.Dim k As Integer
B.For k = 211000 To 211999
C.Label2.Caption = Str(k)
(8)保存工程后,徐明发现结果文件夹中产生了yzwt.frm、yzwt.vbp、yzwt.vbw三个文件,其中窗体文件是__________。
17.
2009年全国城乡居民消费价格分类指数表的数据如下图所示,请完成下列问题:

(1)如上图所示的数据表中,活动单元格中的公式为_________,若已完成单元格区域E4:E18的计算,现将C16单元格中的“97”改为“100”,则E16单元格中的数值将________(填:变大、变小或不变)。
(2)要计算“食品类”全国六种食品的平均指数,则先选择________为活动单元格,在活动单元格中输入公式为_______________________________,然后利用自动填充功能完成单元格C20:D20的计算。
(3)若要对表中的数据按“农村与城市的差距”列中的数据从大到小排序,则应选择的数据区域为
_____________________________,主要关键字为__________________________,次序为________________。

(1)如上图所示的数据表中,活动单元格中的公式为_________,若已完成单元格区域E4:E18的计算,现将C16单元格中的“97”改为“100”,则E16单元格中的数值将________(填:变大、变小或不变)。
(2)要计算“食品类”全国六种食品的平均指数,则先选择________为活动单元格,在活动单元格中输入公式为_______________________________,然后利用自动填充功能完成单元格C20:D20的计算。
(3)若要对表中的数据按“农村与城市的差距”列中的数据从大到小排序,则应选择的数据区域为
_____________________________,主要关键字为__________________________,次序为________________。
18.
分析VB程序,回答问题。
(1) 下列程序运行后,在标签Lab上显示的是 _____________。
Private Sub Command1_Click()
Dim a As String, b As String, c As String
a = "印象西湖"
b = "中国"
c = b + Mid(a, 1, 2)
Lab.Caption = c
End Sub
(2) 下列程序运行后,在标签Label1上显示的是_____________。
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, w As Single
w = 6: a = 60: b = 50: c = 30
If w <= 10 And a + b + c <= 115 Then
Label1.Caption = "携带"
Else
Label1.Caption = "托运"
End If
End Sub
(3) 下列程序运行后,数组元素d(3)的值是_____________。
Private Sub Command1_Click()
Dim d(1 To 8) As Integer
Dim i As Integer
For i = 1 To 8
d(i) = 2 * i
List1.AddItem Str(d(i))
Next i
End Sub
(1) 下列程序运行后,在标签Lab上显示的是 _____________。
Private Sub Command1_Click()
Dim a As String, b As String, c As String
a = "印象西湖"
b = "中国"
c = b + Mid(a, 1, 2)
Lab.Caption = c
End Sub
(2) 下列程序运行后,在标签Label1上显示的是_____________。
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, w As Single
w = 6: a = 60: b = 50: c = 30
If w <= 10 And a + b + c <= 115 Then
Label1.Caption = "携带"
Else
Label1.Caption = "托运"
End If
End Sub
(3) 下列程序运行后,数组元素d(3)的值是_____________。
Private Sub Command1_Click()
Dim d(1 To 8) As Integer
Dim i As Integer
For i = 1 To 8
d(i) = 2 * i
List1.AddItem Str(d(i))
Next i
End Sub
试卷分析
-
【1】题量占比
选择题:(15道)
填空题:(3道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:18