相关试卷
-
1、小王收集了学校教师欢乐四项赛得分的相关数据，并使用Excel软件进行数据处理，如图a所示。
图a
请回答下列问题：
(1)、小王要通过自动填充将“报名号”的值填充为如图a所示的序列“01，02，……，18”，则可先将该区域单元格格式设置为(单选，填字母：A .数值/B .货币/C .百分比/D ．文本)。(2)、在L5单元格中使用SUMIF函数计算高三年级所有选手总分之和，则L5单元格中的公式是。(提示：SUMIF函数用于对以域中满足条件的单元格求和。例如：=SUMIF(B3:B20,"高二",I3:I20)表示高二年级所有选手总分之和)
(3)、根据图a中数据制作的图表如图b所示，创建图表的数据区域是。
图b
(4)、市教育工会将举行“巾帼杯”欢乐四项赛，比赛项目为上述四项，计分规则不变。比赛规则：每校由2名女教师参加；每项每校由1名教师参赛；每名教师参赛项目不限；比赛成绩为4项得分的总和。以本次教师欢乐四项赛的结果为依据，从林雅璇、郦佳玲和董雯静中选择2名选手代表学校参加比赛。为使学校取得最高总分，你的选择是(单选，填字母：A .林雅璇与郦佳玲/B .林雅璇与董雯静/C .郦佳玲与董雯静)。 -
2、使用UltraEdit软件观察字符“2019加油！”的内码，部分界面如图所示。
下列说法正确的是（ ）
A、字符“！”的内码占1个字节 B、字符“加”的十六进制码是“20 BC” C、字符“9”的内码是“39”，所以字符“10”的内码是“3A” D、字符“4”的二进制码是“00110100” -
3、编写VB程序，实现如下功能:在文本框Textl和Text2中分别输入一个整数，单击命令按钮Command1，在列表框List1中显示结果，运行效果如1图所示。结果包含两列数据，第1列为两数之间的摄氏温度值（间隔1度、升序），第2列为对应的华氏温度值。
(1)、要使命令按钮Command1上显示的文本改为“转换”，可在其属性窗口（2图）中将属性的属性值修改为“转换”。(2)、为实现上述功能，请在划线处填入合适代码或选项。Private Sub Command1_Click()
Dim t1 As Integer, t2 As Integer
Dim i As Integer, t As Integer
Dim f As Single
List1.Clear
t1 = Val(Text1.Text)
t2 = Val(Text2.Text)
If ① Then ‘(选填字母，从下列A、B、C、D四个选项中选取一项）
t = t1: t1 =t2: t2 = t
End If
i = t1
Do While ② ‘(选填字母，从下列A、B、C、D四个选项中选取一项）
f = i * 9 / 5 + 32 ‘摄氏温度转换为华氏温度
List1.AddItem Str(i) + " " + Str(f)
③ ‘（填程序代码）
Loop
End Sub
划线①、②处的选项:
A ．i <= t2 B ．f <= t2 C ．t1 > t2 D ．i < f
① ② ③
-
4、使用GoldWave软件编辑某音频文件，选中其中一段音频后部分界面如下图所示。下列说法正确的是（ ）
A、执行“淡出”命令后直接保存，音频文件存储容量与原来一样 B、执行“删除”命令后直接保存，音频文件存储容量与原来一样 C、执行“插入静音”命令，设置时间为4秒后直接保存，音频文件存储容量与原来一样 D、执行“更改音量”命令，将音量升高两倍后直接保存，音频文件存储容量是原来的两倍 -
5、有如下 VB 程序段：
Dim s As String, ch As String
Dim i As Integer, t As Integer
s = Text1.Text : t = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch <> "," Then t = t * 2 + Val(ch)
Text2.Text = Text2.Text + Str(t)
Next i
执行该程序，当文本框Text1中输入了“11，10”时，文本框text2中输出的是（ ）
A、3 2 B、1 3 7 14 C、1 3 3 7 14 D、1 3 3 7 14 14 -
6、某地为各个村之间建立灌溉管道，现需实现用最短的管道距离使得所有村庄可以连通。如图a 所示，[V1,V2,V3,V4,V5]每个节点表示村庄，两个节点之间的数值表示两个村庄之间的边距离。
算法思路如下：
①首先按边距离升序排序；
②找到边距离最小值1，以及相应的两个节点V1 和V3；
③以V1或V3作为起点，搜寻连接新节点且距离最小的边，发现(V1, V4)边最小为4；
④以V1、V3、V4作为起点，搜寻连接新节点且距离最小的边，发现(V4, V5)边最小为2；
⑤以V1、V3、V4、V5作为起点，搜寻连接新节点且距离最小的边，发现(V2, V5)边最小为3；因此可知，连通5个村庄的最短管道距离是1+4+2+3=10，效果如图b所示。
现设计了如下VB程序，界面如图c所示，请回答下列问题：
(1)、V2到V5的边距离若为6，则连通5个村庄的最短管道距离是。(2)、请在划线处填入合适的代码。Const n = 5 '村庄数
Const m = 8 '管道线路数
Dim pointAB(1 To 2 * m) As Integer '存储连接的两个村庄节点
Dim length(1 To m) As Integer '存储两个村庄之间的距离
Dim res(1 To 100) As Integer '存储管道规划结果
Private Sub Form_Load()
'村庄节点数据存储在pointAB数组，两个村庄的距离数据存储在length数组。
'如图c所示，(V1,V3)边距离为1，则pointAB(1)=1，pointAB(2)=3，length(1)=1；
(V1,V2)边距离为6，则pointAB(3)=1，pointAB(4)=2，length(2)=6；其他依次类推，代码略。
End Sub
Function check(x As Integer) As Integer '判断x节点是否已在规划中
check = 0
For i = 1 To 100
If x = res(i) Then check = 1: Exit Function
Next i
End Function
Private Sub Command1_Click()
Dim i As Integer, j As Integer, tmp As Integer
Dim total As Integer, sum As Integer
For i = 1 To m - 1
For j = m To i + 1 Step -1
If Then
tmp= pointAB(2 * j - 1) :pointAB(2 * j - 1) = pointAB(2 * j - 3) :pointAB(2 * j - 3) = tmp
tmp = pointAB(2 * j) : pointAB(2 * j) = pointAB(2 * j - 2) :pointAB(2 * j - 2) = tmp
tmp = length(j): length(j) = length(j - 1): length(j - 1) = tmp
End If
Next j
Next i
'开始规划管道
total = 1
res(1) = pointAB(1): res(2) = pointAB(2)
sum = length(1)
Do While total <
For i = 2 To m
If Then
total = total + 1
res(2 * total - 1) = pointAB(2 * i - 1)
res(2 * total) = pointAB(2 * i)
sum = sum + length(i)
Exit For
End If
Next i
Loop
'输出连通结果res 以及管道总长度sum，代码略。
End Sub
-
7、某程序功能如下：将自然数从1到100按某种方式排列起来，单击“输出”按钮Command1，在列表框List1中显示排列后的数表，运行结果如图所示。
(1)、下列对象中不具有Caption属性的是（单选，填字母：A ．Command1 /B ．Form1 /C ．List1）(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Command1_Click()
Const n = 10
Dim i As Integer, j As Integer
Dim d(0 To 100) As Integer
For i = 1 To n
For j = 1 To n
If i = 1 Then
d(j) = j ^ 2
Else
If j = 1 Then
①
Else If j < i
d((i - 1) * n + j) = d((i - 2) * n + j) - 1
Else
②
End If
End If
Next j
Next i
‘在列表框List1中按每行10个输出数组d的所有元素，代码略
End Sub
①处代码为 ， ②处代码为。
(3)、程序中加框处代码有错，请改正。
应改为 -
8、用Flash软件打开“致敬逆行者.fla”文件，编辑界面如下图所示。
请回答下列问题：
(1)、创作多媒体作品需要进行需求分析和规划设计。下列属于需求分析的是（多选，填字母：A .确定作品的结构类型为演示型/ B .明确作品的工作流程/ C .确定获取原始素材的方式/ D .确定作品的发布方式/ E .设计作品的三个模块的交互方式）(2)、文件中导入的声音设置如下图所示，动画播放一遍停止时，音乐播放时长是秒。
(3)、将动画GIF文件“飞奔.gif”导入库中直接得到一个影片剪辑元件，则该元件中动画的动画类型是。（选填，填字母：A .逐帧动画/B .形状补间动画/C .动画补间动画）(4)、为了使该场景动画播放到最后一帧自动退出动画，可以在按钮图层的最后一帧添加动作脚本(5)、测试该场景时，“英雄”图层内容在播放完第30帧后消失，为了使该图层第30帧内容再延续2秒，下列操作可行的是______。（多选题）A、选中“英雄”图层第31帧执行“清除关键帧”操作 B、将“英雄”图层第50帧执行“插入关键帧”操作 C、删除“英雄”图层第31帧，在第50帧执行“插入帧”操作 D、将“英雄”图层第31帧移动至50帧，在第50帧执行“清除关键帧”操作 E、选中“英雄”图层第50帧执行“插入帧”操作，在第31帧执行“清除关键帧”操作 -
9、阅读下列程序，写出运行结果。
Dim n as Long
Dim s as Long
Dim x as Long
n = Val (InputBox(“n =”))
s = 0
Do While n > 0
x = n Mod 10
s = s + x
n = n \ 10
Loop
Print s
程序运行时，输入518，运行输出结果是：
（提示：\ (整除运算)如：237\10=23；Mod (取余数运算)如：237 mod 10=7）
-
10、分析完善程序。
问题：输入一个正整数n，判断该正整数是否为素数（质数）。要判断一个数n是否为素数，最简单的方法是统计2到n-1之间的所有能整除n的整数个数s，若s大于0，则n不是素数，否则就是素数。
根据以上方法，完善一下程序代码。
n = Val (InputBox(”n=”))
s = 0
For i = 2 To n-1
If n Mod i = 0 Then
s = ' 统计因数个数
End If
Next i
If Then
Print n & ”是素数”
Else
Print n &”不是素数”
End If
-
11、阅读下列程序，写出运行结果。运行输出结果是：
Dim Sum As Long
Dim i As Long
Sum=0
i=0
Do While Sum<10
i=i+1
Sum=Sum+i*i
Loop
Print Sum
-
12、下列程序段执行后，变量s的值是（ ）。
s=0
For i=1 To 10
s=s+i
Next i
A、1 B、0 C、55 D、10 -
13、分析完善程序。
以下是求解一元二次方程ax2+bx+c=0(a≠0)的主要VB程序片段，请你补全代码：
a=Val(InputBox(“a=”))
b=Val(InputBox(“b=”))
c=Val(InputBox(“c=”))
d= ‘求判别式d
If d>0 Then
x1=(-b+Sqr(d))/(2*a)
x2=(-b-Sqr(d))/(2*a)
Print “x1=”;x1
Print “x2=”;x2
End If
If Then
Print “x=”; -b/(2*a)
End If
If d<0 Then
Print “无实数解！”
End If
-
14、阅读下列程序，写出运行结果。
Dim x As Integer
Dim y As Integer
y = 0
For i = 1 To 5
x = Val(InputBox("请输入"))
y = y + x
Next i
Print y
程序运行后，依次输入：10 20 30 40 50
运行输出结果是。
-
15、某算法流程图如下图所示，该流程图完整执行一次后，下列说法错误的是（ ）
A、变量s存储的值为[0， 30)区间内能被3整除的数的和 B、变量i的值为30 C、语句“s←s+i”共执行了10次 D、语句“i<30”共执行了30次 -
16、在VB中，以下语句错误的是：（ ）。A、S="信息技术" B、S="VB"&6 C、X=4X D、X=X+1
-
17、如下VB程序段“a=13 b=32 a=b”关于语句“a=b”的含义，下列叙述中正确的是（ ）。A、把变量a的值赋给变量b B、判断变量a的值是否等于变量b的值 C、把变量b的值赋给变量a D、把变量a的值与变量b的值交换
-
18、在通过VB设计“BMI指数”的程序中，王明将变量BZ赋值给Text2.text输出，相应的代码是。
-
19、求[0,100]之间所有偶数之和s的算法流程图如图所示。
为了实现此算法，图中判断框①和处理框②处可填入的是（ ）
A、① x ≤ 100？ ② x←x+2 B、① x ≤ 100？ ② x←x+1 C、① x ≥ 100？ ② x←x+2 D、① x ≥ 100？ ② x←x+1 -
20、对于语句abc. Caption=“你好”，下列理解正确的是（ ）A、Caption称为属性值 B、该对象可能是标签、按钮或文本框 C、该语句的作用是将对象属性进行赋值 D、若流程图表示此算法，该语句应该在处理框中