相关试卷
-
1、小李收集了手机网民互联网应用的用户规模数据，并用Excel软件进行数据处理，如图a所示。
请回答下列问题：
图 a
(1)、为计算图a中的“相对2017年12月的增长率（%）”，小李已正确计算了单元格G4中的数据。他希望将单元格G4中的公式向下自动填充至单元格G13，再将区域G4：G13中的公式向右自动填充至I列，从而正确计算出区域G4:I13中的数据，则单元格G4中的公式应修改为。(2)、根据图a中数据制作的图表如图b所示，创建该图表的数据区域是A3：A5，C3：F5，A8，。
图 b
(3)、为了获得“商务交易”类别中2020年3月用户规模最大的数据，并显示在操作结果的最前面（紧邻第3行），一种可行的操作是：选择数据区域A3：F13后，对该区域（选填2个序号，按操作顺序）。①以“2020年3月”为关键字进行降序排序
②以“类别”为关键字（按字母排序）进行降序排序
③按“类别”进行筛选，选择的值为“商务交易
④按“2020年3月”进行筛选，选择“10个最大的值”并显示最大的 1 项
-
2、有如下程序段：
Const n = 10
Dim a(1 To 10) As Integer
m = Int(Rnd * n + 1)
For i = 1 To 10
a(i) = 0
Next i
i = 0: j = 0: c = 1: ans = ""
Do While c <= 3
i = i Mod n + 1
If a(i) = 0 Then j = j + 1
If j = m Then
a(i) = 1: c = c + 1
j = 0: ans = ans + Str(i)
End If
Loop
Text1.Text = ans
执行上述程序段后，文本框Text1中不可能的内容是（ ）
A、2 4 6 B、7 4 2 C、5 10 6 D、6 2 8 -
3、对称宇符串的特征是从左到右读和从右到左读完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下:
n=Len(s)
k=0:j=n
For i = 1 To n/2
Next i
If k = 0 Then Label1.Caption =“对称” Else Label1.Caption=“不对称”
方框中的代码由以下三部分组成：
① j=j-1
② If c1<>c2 Then k = k + 1
③ c1= Mid(s, i, 1) : c2 = Mid(s, j, 1)
代码顺序正确的选项是( )
A、①③② B、②③① C、③②① D、②①③ -
4、若x是整型变量，下列选项中，与表达式Not（x>=5 And x<9）等价的是( )A、x<5 And x>= 9 B、Not x > 5 And Not x< 9 C、x >= 5 Or x< 9 D、x<5 Or x >= 9
-
5、将一个时长为1分钟、采样频率为44.1kHz、量化位数为16bit、双声道未经压缩的Wave格式音频文件压缩为MP3格式文件，压缩后的MP3格式文件大小为940KB，则其压缩比约为( )A、11 : 1 B、11 : 2 C、11：4 D、88 : 1
-
6、使用GoldWave软件编辑某音频文件，选择其中一段音频后的部分界面如图所示。( )
A、插入10s静音后，右声道时长仍为40s B、选择声道为双声道后按原格式保存，声音文件存储容量翻倍 C、执行“剪裁”操作后，整个音频只剩下当前选中的部分 D、执行“更改音量”操作后，只有当前选中的声音音量发生改变 -
7、某动画“起源”场景的制作脚本如表所示。
下列说法正确的是 ( )
A、编写制作脚本前，需先完成媒体元素的分解工作 B、本动画所有场景的制作脚本完成后再编写文字脚本 C、“起源”场景播放完后，将自动关闭动画放映 D、“返回”按钮在“太阳”动画结束时出现 -
8、下面VB程序完成将一个四位数的百位和十位交换，个位和千位交换的任务，如输入1954，输出4591。程序运行界面如图所示，在文本框Text1中输入某四位数，单击“切换”按钮Comd1，在文本框Text2中输出转换后的结果。请将程序补充完整。
Private Sub Comd1_Click()
Dim k As Integer, n As Integer
Dim a, b, c, d As Integer
k = Val(Text1.Text)
a = k \ 1000
b =
c =
d = k Mod 10
n = d * 1000 + c * 100 + b * 10 + a
Text2.Text = Str(n)
End Sub
-
9、对下列数字按要求进行进制转换：(1)、D8H转换成10进制(2)、81H转换成2进制(3)、A3H转换成10进制(4)、56转换成2进制
-
10、现要求刚好输出1至100内所有能被7整除的数字，下列哪段程序不能实现（ ）A、
B、
C、
D、
-
11、阅读下面程序：
Dim i As Integer, c As String, s As String, t As String
s=“GaoEr1YueXKChongA！”
For i = 1 To Len(s)
c=Mid(s, i, 1)
If c >= “A” And c<=“Z” Then t=t+c
Next i
Text1.Text = t
程序运行结束后是在文本框Text1中输出的结果是（ ）
A、GEYXKCA B、aoeuehong C、ACKXYEG D、gnoheueoa -
12、有如下VB程序段：
s=0 : i=1
Do While
s=s+i
i=i+1
Loop
执行该程序段后，变量s的值等于10，则程序方框处的语句是（ ）
A、i < 5 B、i <= 5 C、i = 4 D、i <= 6 -
13、有如下VB程序段，执行该程序段后，文本框Text1中显示的内容是（ ）
s = 2: k = 1
If Not k = s Then s = s + k Else s = 0
Text1.Text = Str(s)
A、0 B、1 C、2 D、3 -
14、有如下程序段，运行时程序出现如下错误提示，出错语句的位置是（ ）
Private Sub Command1_Click()
Dim i As Integer
Dim a(10) As Integer ‘①
For i = 1 To 10 ‘②
a(i) = Rnd * 100 ‘③
Next i
Label1.Caption = Str(a(i)) ‘④
End Sub
A、① B、② C、③ D、④ -
15、下列VB表达式的值等于2016的是（ ）A、2016 Mod 2 ^ 20 B、Len(“2015”) + 1 C、Str(2008) +“8” D、Mid(“20160501”，1，4)
-
16、产生[1,100]范围内某一随机整数的表达式是（ ）A、Int(Rnd*100+1) B、Int(Rnd*98+2) C、Int(Rnd*99+1) D、Int(Rnd*99+2)
-
17、将文本框Text2内输入的字符数据"abc"送到字符型变量n中，应使用的语句是（ ）A、n=text B、n=text2.text C、n=val(text2) D、n=val(text2.text)
-
18、下列VB表达式中，值最大的是（ ）A、15/2 B、3\2 C、7 mod 10 D、2^2
-
19、下列问题适合使用枚举算法解决的是（ ）A、计算已知半径圆的面积 B、超市打折方案 C、校园歌曲大赛的成绩排名 D、计算10000以内的所有的素数
-
20、下列描述正确的是（ ）
A、字符“2020宁诺附中！”共占14字节 B、字符“！”是在全角模式下输入的 C、“2”的内码为“32”，“10”的内码为“3A” D、图中有6个ASCII码，4个汉字编码