1.选择题- (共9题)
3.
在Word中对某段文字进行修订和批注,修订选项的设置如图1所示,修订界面如图2所示。接受所有修订后,结果为( )


A.《沉思录》是马可•奥勒留写给自己的书,内容是他在鞍马劳顿中写成的, 是斯多葛派哲学的一个里程碑。 |
B.《沉思录》是马可•奥勒留写给自己的书,内容大部分是他在鞍马劳顿中写成的, 是斯多葛派哲学的里程碑。 |
C.《沉思录》是古罗马皇帝马可•奥勒留写给自己的书,内容是他在鞍马劳顿中写成的, 是斯多葛派哲学的一个里程碑。 |
D.《沉思录》是古罗马皇帝马可•奥勒留写给自己的书,内容大部分是他在鞍马劳顿中写成的, 是斯多葛派哲学的里程碑。 |
5.
使用OCR软件进行文字识别,软件进行文字识别,部分界面如图所示:

则下列说法正确的是( )

则下列说法正确的是( )
A.区域A中显示的是test.jpg的内容 |
B.区域B中显示的是test.TXT的内容 |
C.文件try.tif未进行识别 |
D.单击C处的相似字,可对B处的文字进行修改 |
6.
下图是一张使用Access软件创建的数据表:

下列有关该数据表的说法正确的是( )

下列有关该数据表的说法正确的是( )
A.数据表的名称是“书籍” | B.当前记录是第135条 |
C.“编号”字段的数据类型是“数字” | D.该表共有7个字段 |
9.
在VB窗体中有一个对象,该对象的属性窗口如图所示。下列说法中不正确的是( )


A.Left为属性名 |
B.1560为属性值 |
C.该对象是可用的 |
D.根据“Timer1 Timer”可判断窗体名为Timer |
2.填空题- (共3题)
10.
下图是关于亚洲地区国土面积前10国家的数据。请回答以下问题:

(1)在数据表中,用公式计算“人均面积(平方米)”,方法如下:在D3单元格中输入公式_________________________。
(提示:人均面积(平方米)=面积(平方公里)÷人口(万人)×100),保留2位小数,再用自动填充功能完成D4到D12的计算。
(2)若按各国人均面积对表中数据区域A2:D12进行降序排序,则在下图所示的“排序”对话框中,“主要关键字”应为_____________________。

排序完成后,排在第一位的国家是__________________(填国家名)。
(3)下图是根据表格数据制作的图表,仔细观察,该图表制作时所选的数据区域是___________________。

(1)在数据表中,用公式计算“人均面积(平方米)”,方法如下:在D3单元格中输入公式_________________________。
(提示:人均面积(平方米)=面积(平方公里)÷人口(万人)×100),保留2位小数,再用自动填充功能完成D4到D12的计算。
(2)若按各国人均面积对表中数据区域A2:D12进行降序排序,则在下图所示的“排序”对话框中,“主要关键字”应为_____________________。

排序完成后,排在第一位的国家是__________________(填国家名)。
(3)下图是根据表格数据制作的图表,仔细观察,该图表制作时所选的数据区域是___________________。

11.
编写VB程序,实现如下功能:单击按钮“确定”,在列表框中输出1-100里所有的完全平方数。程序界面如下图所示:

为实现上述功能,请将以下程序补充完整。
Private Sub Command1_Click()
Dim j As Integer, k As Integer
List1.Clear
For k = 1 To 100
End Sub

为实现上述功能,请将以下程序补充完整。
Private Sub Command1_Click()
Dim j As Integer, k As Integer
List1.Clear
For k = 1 To 100
j = Int(Sqr(k))
If __________Then List1.AddItem _______________
Next kEnd Sub
12.
编写VB程序代码,实现如下功能:在文本框Text1中输入金额(整数)后,点击“转换”按钮Command1,则在文本框Text2中显示该金额的大写,程序运行界面如下图所示:

(1)要使窗体标题上显示的文本改为“人民币大小写”,可在其属性窗口中将_______属性的属性值改为“人民币大小写”。
(2)为了实现以上程序功能,使程序正常运行,请完善以下两处代码。
Private Sub Command1_Click()
Dim dx As String, dw As String
Dim s As String, c As String
Dim ch As String
Dim i As Integer
dx = "零壹贰叁肆伍陆柒捌玖拾"
dw = "亿仟佰拾萬仟佰拾元"
s = Text1.Text
If ____ then
Text2.Text = "输入的数据超出所能转换的范围"
Else
For i = 1 To Len(s)
ch = ___
c = c + Mid(dx, Val(ch) + 1, 1) + Mid(dw, 9 - Len(s) + i, 1)
Next i
Text2.Text = c + "整"
End If
End Sub
(3)由上述算法可知,若在文本框Text1中输入“20”,则文本框Text3显示的结果为________。

(1)要使窗体标题上显示的文本改为“人民币大小写”,可在其属性窗口中将_______属性的属性值改为“人民币大小写”。
(2)为了实现以上程序功能,使程序正常运行,请完善以下两处代码。
Private Sub Command1_Click()
Dim dx As String, dw As String
Dim s As String, c As String
Dim ch As String
Dim i As Integer
dx = "零壹贰叁肆伍陆柒捌玖拾"
dw = "亿仟佰拾萬仟佰拾元"
s = Text1.Text
If ____ then
Text2.Text = "输入的数据超出所能转换的范围"
Else
For i = 1 To Len(s)
ch = ___
c = c + Mid(dx, Val(ch) + 1, 1) + Mid(dw, 9 - Len(s) + i, 1)
Next i
Text2.Text = c + "整"
End If
End Sub
(3)由上述算法可知,若在文本框Text1中输入“20”,则文本框Text3显示的结果为________。
试卷分析
-
【1】题量占比
选择题:(9道)
填空题:(3道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:12