1.选择题- (共15题)
4.
浏览网页时,当鼠标放到某些图片上时会变成“
”形状, 如下图所示,此时单击鼠标会 ( ):



A.单独在一个网页显示当前图片 |
B.下载当前图片 |
C.打开“sinahome.shtml”网页 |
D.打开“sina”主页 |
5.
现在用手机扫描二维码,可以获得各种商品信息、下载各类应用程序等。已知某二维码点阵图如图所示。它的规模为32×32,通过黑、白像素进行逐行编码,每个点用1个二进制位表示,如果用“0”表示白点,用“1”表示黑点,则以下描述正确的是 ( )


A.该编码的第1个字节的二进制编码是1111B |
B.存储该编码需要1024个字节 |
C.该编码的第1个字节的十六进制编码是FFH |
D.该编码是左右完全对称的 |
7.
第1次,将1张正方形纸片沿垂直和水平中线对折后撕开,变成4张纸片,第2次,从4张纸片中取其中1张纸片也照上面方法撕开,变成7张纸片,一直这样下去。描述计算撕了n次后纸片总数s的算法部分流程图如下图所示:

空白矩形框中应该填入的是 ( )

空白矩形框中应该填入的是 ( )
A.s←s+2 | B.s←s+3 | C.s←s+j | D.s←s*3 |
2.填空题- (共4题)
16.
图1是时代电器广场用Excel制作的9月份主要商品销售统计表。

图1
请根据表中数据回答下列问题:
(1)李明在单元格G3使用公式“=F3/$F$10”计算手机占总利润百分比,并对区域G4:G9进行了自动填充,则G9单元格的公式是________
(2)李明想将编号这一列数据设计成“001,002,……,007”样式,可每次输入“001,002,……,007”样式后都自动变成了“1,2,……,7”,请给出一种解决方法________
(3)根据第13题-2图所示,9月份占总利润百分比最大的商品名称是________


图2 图3
(4)将图2所示的图表以图片形式复制到Word文档中并设置了文字环绕方式,部分界面如图3所示,该图表环绕方式是________(单选,填字母:

图1
请根据表中数据回答下列问题:
(1)李明在单元格G3使用公式“=F3/$F$10”计算手机占总利润百分比,并对区域G4:G9进行了自动填充,则G9单元格的公式是________
(2)李明想将编号这一列数据设计成“001,002,……,007”样式,可每次输入“001,002,……,007”样式后都自动变成了“1,2,……,7”,请给出一种解决方法________
(3)根据第13题-2图所示,9月份占总利润百分比最大的商品名称是________


图2 图3
(4)将图2所示的图表以图片形式复制到Word文档中并设置了文字环绕方式,部分界面如图3所示,该图表环绕方式是________(单选,填字母:
A.嵌入型/ | B.四周型/ | C.浮于文字上方/ | D.紧密型)。 |
17.
玫瑰花数是一个四位正整数,该数每一位上的数字4次方之和等于它本身。如:1634=14+64+34+44,小张设计VB程序用于找出所有可能的玫瑰花数,程序运行界面如下图所示。

(1)在窗体中要显示玫瑰花图像(文件名为flower.bmp),需添加图像框image1,并设置其________属性(单选,填字母:
(2)为实现上述功能,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim sum As Integer, a As Integer, b As Integer
Dim i As Integer, c As Integer, d As Integer
List1.Clear
sum = 0 '玫瑰花个数
For i = 1000 To 9999
a = i Mod 10 '求个位上的数字
b = ①______ '求十位上的数字
c = i \ 100 Mod 10 '求百位上的数字
d = i \ 1000 '求千位上的数字
If a ^ 4 + b ^ 4 + c ^ 4 + d ^ 4 = i Then
List1.AddItem Str(i)
②________
End If
Next i
Label1.Caption = "玫瑰花个数为:" + Str(sum)
End Sub
(3)解决该问题主要采用的算法是________

(1)在窗体中要显示玫瑰花图像(文件名为flower.bmp),需添加图像框image1,并设置其________属性(单选,填字母:
A.Image/ | B.Pictrue/ | C.Caption/ | D.Text)的值为“flower.bmp”。 |
Private Sub Command1_Click()
Dim sum As Integer, a As Integer, b As Integer
Dim i As Integer, c As Integer, d As Integer
List1.Clear
sum = 0 '玫瑰花个数
For i = 1000 To 9999
a = i Mod 10 '求个位上的数字
b = ①______ '求十位上的数字
c = i \ 100 Mod 10 '求百位上的数字
d = i \ 1000 '求千位上的数字
If a ^ 4 + b ^ 4 + c ^ 4 + d ^ 4 = i Then
List1.AddItem Str(i)
②________
End If
Next i
Label1.Caption = "玫瑰花个数为:" + Str(sum)
End Sub
(3)解决该问题主要采用的算法是________
18.
有如下Visual Basic程序:
Private Sub Command1_Click(___)
Dim a(1 To 100) As Integer, i As Integer, s As Integer
s = 0
For i = 2 To 100 Step 2
a(i) = i * 2
s = s + a(i)
Next i
Text1.Text = Str(s)
End Sub
问:
(1)程序运行后,下标变量a(4)的值为_________。
(2)循环刚退出时,变量i的值为_________。
Private Sub Command1_Click(___)
Dim a(1 To 100) As Integer, i As Integer, s As Integer
s = 0
For i = 2 To 100 Step 2
a(i) = i * 2
s = s + a(i)
Next i
Text1.Text = Str(s)
End Sub
问:
(1)程序运行后,下标变量a(4)的值为_________。
(2)循环刚退出时,变量i的值为_________。
试卷分析
-
【1】题量占比
选择题:(15道)
填空题:(4道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:19