相关试卷
-
1、有一个有趣的仓鼠繁殖问题：第一个月买来1对仓鼠，2个月后会生1对小仓鼠，以后灭个月都会生1对小仓鼠；而生下来的仓鼠，也会从第二个月开始每月生1对小仓鼠，以此类推。试问一年后，仓鼠的总数达到多少?
分析问题得出出生月份与仓鼠对数关系图
由表可知仓鼠的繁殖规律：从第3个月开始，以后每个月的仓鼠对数都是前2个月仓鼠对数之和。解决上述问题的Visual Basic 程序如下：
Dim i As Integer
Dim a(1 To 20) As Integer
a(1)=1 : a(2)=1
for ①
a(i)= ②
Next i
Text1. Text=Str(a(n))
程序中画线部分①②应 填入 的语句或表达式为（ ）
A、①i=0 To 12 ②a(i-1)+a(i-2) B、①i=3 To 12 ②a(i-1)+a(i-2) C、①i=3 To 12 ②a(i+1)+a(i+2) D、①i=0 To 12 ②a(i+1)+a(i-2) -
2、有如下程序段:
s=”ABCDEFGH”
i=1Do While i<=Len(s)
If i Mod 2=0 then
s=Mid(s, i+1, len(s)-i) & Mid(s, 1, i-1)
End if
i=i+1
Loop
Text1.text=s
A、ACEG B、CDEFG C、CDEGH D、GHACD -
3、有如下VB程序段
Const n = 8
i = 1: j = n
k = Val(Text1.Text)
Do While i < j
m = (i + j) \ 2
If a(m) > k Then
i = m
Else
j = m - 1
Loop
p = (i + k) Mod n
Label1.Caption = Str(a(p))
已知数组a（1）到a（8）原始数据为“6,1,8,9,10,11,2,3”，在文本框Text1中输入7，执行上面代码后，Label1中的内容是（ ）
A、6 B、10 C、11 D、2 -
4、运行下列程序
Dim a(1 To 5) As Integer
a(1) = 1
For i = 2 To 5
a(i) = Int(Rnd * 5) + 1
If a(i) Mod 2 = 0 Then
a(i) = a(i) + i
Else
a(i) = a(i) + a(i - 1)
End If
Next i
a(1)~a(5)的值不可能的是：（ ）
A、1,2,3,8,9 B、1,6,2,10,11 C、1,6,11,16,17 D、1,4,5,10,7 -
5、在Photoshop软件中新建一个图像文件，相关参数如图所示，保存为未经压缩的BMP文件，则其存储容量为( )
A、6.75 MB B、2.25 MB C、768 KB D、384 KB -
6、使用PhotoShop软件为《哪吒之魔童降世》电影中的哪吒与敖丙制作了一张图片，部分界面如图所示：
下列说法正确的是（ ）
A、图中36%表示显示比例，若将36%调整50%，则图片的存储容量变大 B、当前状态下，“敖丙”图层与“魔童降世”图层添加了相同的图层样式 C、当前状态下，“哪吒”图层一定没有添加滤镜效果 D、当前状态下，无法删除“背景”图层 -
7、使用UltraEdit软件查看字符内码，界面如图所示，下列分析正确的是( )
A、图中共有10个ASCII码字符 B、将字符“V”改成“Z”对应内码的十六进制表示为60H C、字符“10-9”的内码为“3A 2D 39” D、字符“No”的二进制码为“01001110 01101111” -
8、使用ACCESS软件创建“图书馆藏书登记”数据表，其设计视图部分界面如图所示。下列说法正确的是（ ）
A、“收藏日期”字段可以输入“2020/02/29” B、“编号”字段是自动编号，只有自动编号可以设置为主键 C、该数据表添加纪录后，就不能对数据表字段名进行修改 D、在该数据表中,“35.20元”可以是“价格”字段的有效值 -
9、下列不属于人工智能技术应用的是（ ）A、学校使用人脸识别技术.保障学生安全 B、机器人代替人工送外卖 C、实验大楼使用声控电梯，无接触选择到达楼层 D、在校门口使用红外体温测量仪测量入校者的体温
-
10、使用OCR软件将一篇报纸中的文字识别为文字，后在Word软件中进行排版与编辑，部分编辑界面如图所示：
下列说法正确的是 （ ）
A、使用OCR软件识别前的文件格式可能为“.txt” B、文档中图片的环绕方式可能为四周型 C、文档中共有3处修订 D、文中添加批注对象为“h1” -
11、下列有关信息说法错误的是( )A、信息技术从古到今一直都存在并不断发展，如电影、电视技术属于现代信息技术。 B、信息的表示、传播存储必须依附于某种载体，但信息也可以脱离它所反映的事物被存储和传播。 C、信息是看不见摸不着的，我们日常交流用到的语言文字都是信息的载体 D、很多人喜欢做自己的个人网站发布信息，网站是由若干个网页组成，网页的基本要素是文字，图形图像和超链接
-
12、在“抗击疫情，‘宅’出精彩”征文活动中，每位选手可以提交一篇作品。活动以互评的形式展开：每位选手对m篇作品进行打分（本人作品回避），方法如下：
① 用1-n数字代表n个作品，打乱顺序后分配给n个选手。分配方案保存在数组a中，如图a存储了两组分配方案（n=5）。在第一个分配方案中把4号作品分配给1号参赛者，1号作品分配给2号参赛者（选手编号与序号错开）……。
图a
②分配方案的形成方法： 将1~n之间的随机数字依次放到第1个位置、第2个位置……，随机数不能与位置号相同，并且要防止分配冲突，如前三个分配序号是“2 3 4”，那么在第4位上只能放“5”（如放“1”会导致第5个位置没有符合要求的数字,因此位置n-1需要判断数“n”是否已经分配，如果未分配，位置n-1放置数“n”），最终方案“2 3 4 5 1”。
③评m个作品需要m个分配方案。方案间要避免同一个人拿到重复的作品。如图a第3行上的数据“5 1 2 3 4”不符合要求，因为会使第2号选手重复拿到1号作品。
小明依据上述方法设计了VB程序，功能如下：在文本框Text1和Text2分别输入参赛人数和每人打分的作品数量，单击“分配”按钮Command1，在列表框List1中输出结果。程序运行效果如图b所示。请回答下列问题：
图b
(1)、n=5，m=3，a(1)~a(10)中的数据如图a所示，a(11)~a（15）的数据可能是（单选，填字母，：A .5 4 3 1 2/B .5 4 1 3 2/C .3 4 5 1 2）(2)、请在划线处填入合适的代码。Dim n As Integer '总人数/总作品数
Dim m As Integer '每人分配篇数
Dim a(1 To 500) As Integer '数组a大小满足处理要求
Dim c(1 To 100) As Integer '数组c大小满足处理要求
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
n = Val(Text1.Text)： m = Val(Text2.Text)
Randomize
i = 1
Do While i <= m
For j = 1 To n
c(j) = 0 '本轮分配方案中还没有数字j, c(j)=0，否则c(j)=1
Next j
For j = 1 To n
If j = n - 1 And c(n) = 0 Then
①
Else
k = r(n, j)
End If
a((i - 1) * n + j) = k '分配数字k到当前方案的第j个位置上
c(k) = 1
Next j
If ② Then i = i + 1
Loop
s = ""
For i = 1 To n
s = "参赛者" & i & "："
For j = 1 To m
s = s + Str(a((j - 1) * n + i))+ ","
Next j
List1.AddItem s
s = ""
Next i
End Sub
Function r(x As Integer, y As Integer) As Integer
'生成一个取值在[1,x]之间，可以放在y位置上的随机数，满足条件r<>y andc(r)=0
End Function
Function check(c As Integer) As Boolean
'本轮方案和前面几次的分配方案比较，如果有人分到了重复作品，返回FALSE
Dim p As Integer,f As Boolean
f = True
p = 1
For i = 1 To c * n
If ③ Then
f = False: Exit For
End If
p = p mod n +1
Next i
check = f
End Function
① ② ③
-
13、在一个整数序列中找第k大数，若有相同的整数，则位置靠前的整数的名次靠前。如有整数分别为“10,13,12,13,15”，则第1大的数为15，第2大的数为13，位于第2位置，第3大的数还是13，位于第4个位置，第4大数是12，第5大的数是10。
编写一个VB程序，实现如下功能：程序启动时产生n个1~20之间的随机整数，在文本框Text2中输入整数k（k≤n），单击“查找”按钮Command1后，在标签Label1上显示第k大的数及位置。程序运行界面如图所示。
(1)、下列对象不具有Caption属性的是（单选，填字母：A .Command1 /B .Form1 / C .Text1 /D .Label1）(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。Const n = 10
Dim a(1 To n) As Integer
Private Sub Form_Load()
'本过程产生n个1~20之间的随机整数存数组a中，并在文本框Text1中显示，代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, sum As Integer, key As Integer,c As Integer,k As Integer
Dim b(1 To 20) As Integer
①
For i = 1 To n
b(a(i)) = b(a(i)) + 1
Next i
i = 20
sum = 0
Do While i >= 1 And sum < k
②
i = i – 1
Loop
③
Label3.Caption = "第" + Str(k) + "大的数是" + Str(key)
c = 0
For i = 1 To n
If a(i) = key Then c = c + 1
If c =
Then Exit ForNext i
Label3.Caption = Label3.Caption + "，在第" + Str(i) + "位置"
End Sub
① ② ③
(3)、程序代码中的加框处代码有误，请改正。 -
14、使用Photoshop和Flash软件制作“战疫”动画：(1)、用Photoshop打开“心.psd”，如图1所示，为了得到一张无白色背景的心形图，以下可以实现的是（多选，填字母：A ．直接另存为PNG格式文件/B ．删除 “心形”图层白色区域的内容，再另存为PNG格式文件/C ．选中“心形”图层心形区域，再另存为GIF格式文件D ．删除“心形”图层白色区域的内容，再另存为GIF格式文件）
图1
(2)、打开“战疫.fla”，界面如图2所示。为了使“武汉加油”图层中的补间动画持续到第5帧，需要进行的修改是。
(3)、利用元件“心”在“红心”图层中制作心跳的动画，要求5到7帧中“心”的尺寸较大，8到10帧中的对象较小，下列操作可行是 (多选，填字母: A .选择“红心”图层第8帧，缩小舞台中的“心”实例 /B .在“红心”图层第8帧插入关键帧，缩小舞台中的“心”实例 /C .把“红心”图层第8帧转换为关键帧，缩小舞台中的“心”实例 /D .把“红心”图层第8帧转换为空白关键帧，并在舞台中插入“心”元件，缩小其宽高)(4)、如果要使动画播放完毕后，跳转到当前场景第5帧继续播放，实现的方法是。 -
15、下图是今年部分国家新冠肺炎疫情的数据，现用EXCEL软件进行数据处理。
(1)、计算各国死亡率排名，可先在E3单元格中输入公式 (多选，填字母)，再对E4：E12自动填充得到各国结果。说明：RANK(n,ref,order)函数功能是返回某数在一列数中的排名，参数n是指定数字，ref代表一组数，order值如果为0或忽略表示降序，非0表示升序。例如：公式=RANK(B5,B3:B12，0)表示计算B5单元格的值在B3:B12中的名次，计算结果是1。
A、=RANK(D3,$D$3:$D$12) B、=RANK(D3, D$3:D$12) C、=RANK(D3, D3:D12,0) D、=RANK(D3, $D$3:$D$12,0)(2)、如果对数据按累计确诊降序排序，排序后E3:E12中的公式（填：会/不会）发生变化。(3)、根据图1数据，制作图2所示图表，则该图表的数据源是。 -
16、有如下VB程序段：
a(1) = 5: a(2) = 7: a(3) = 12: a(4) = 12
a(5) = 15: a(6) = 20: a(7) = 25: a(8) = 27
low = 1: high = 8
key = Text1.Text
Do While low <= high
m = (low + high) \ 2
If a(m) >= key Then
high = m - 1
Else
low = m + 1
End If
Loop
执行该程序段后，变量low的值为3，则文本框Text1中输入的值不可能是（ ）
A、10 B、11 C、12 D、13 -
17、编写一个VB程序实现以下功能：产生10个1~100之间的随机整数存数组a中，引入一个数组q，使得a(q(i))升序，即a(q(1) )≤a(q(2) ) ≤a(q(3) )……≤a(q(9) )≤a(q(10) )。
For i = 1 To 10
a(i) = Int(Rnd() * 100) + 1
Next i
For i = 1 To 9
k = i
For j = i + 1 To 10
If
Then k = jNext j
If i <> k Then
t = q(i): q(i) = q(k): q(k) = t
End If
Next i
上述程序段2个方框处的代码分别为（ ）
A、⑴q(i) = i ⑵a(q(j)) < a(q(k)) B、⑴q(i) = i ⑵a(j) < a(k) C、⑴q(i) = 1 ⑵a(q(j)) < a(q(k)) D、⑴q(i) = 1 ⑵a(j) < a(k) -
18、有如下VB程序段：
For i = 1 To 6
a(i) = Int(Rnd() * 10) + 1
If a(i) Mod 2 = i Mod 2 Then
a(i) = a(i) + 1
Else
a(i) = a(i) Mod 2
End If
Next i
执行该程序段后，在下列选项中，a(1)～a(6)各元素可能的值是（ ）
A、0，1，1，0，0，1 B、0，5，6，6，10，9 C、2，3，6，7，8，11 D、2，1，8，3，12，5 -
19、有如下VB程序段：
n = Val(Text1.Text)
i = 1
Do While n > 0
num = n Mod 16
If num >= 0 And num <= 9 Then
Text2.Text = Chr(Asc("0") + num) + Text2.Text
Else
Text2.Text = Chr(Asc("A") + num - 10) + Text2.Text
End If
n = n \ 16
i = i + 1
Loop
执行该程序段，在文本框Text1中输入420，则文本框Text2中显示的内容的是（ ）
A、4A B、A4 C、1A4 D、4A1 -
20、某算法的部分流程图如图所示。执行这部分流程，若输入x的值分别为16、9、8、7、6、5、4、1，则输出的结果是（ ）
A、6 B、6.5 C、7 D、9.33