相关试卷
-
1、下图算法的运行结果为 。
-
2、数组d的初始值如下表所示，则d[d[1]]+d[4]的值是。
d[1]
d[2]
d[3]
d[4]
d[5]
d[6]
2
4
6
8
10
12
-
3、VB表达式128mod 10＼4的运算结果为。
-
4、如下图1所示，最外圈方格中已有数字0。机器人小艾相据图2所示的算法从数字1所在方格出发，沿箭头所指方问前进，并在空白方格中写入数字，方格x中写入的数字是（ ）。
A、16 B、15 C、12 D、11 -
5、若依次输入12、6，运行以下VB程序的结果是（ ）
Dim a as string, b as string
a=inputbox(“a=”)
b=inputbox(“b=”)
if a>b then
a=a+b
else
b=b+a
endif
print a+b
A、24 B、30 C、1226 D、12612 -
6、数组a的初始值如表所示，以下流程图描述的算法执行结果是（ ）
d[1]
d[2]
d[3]
d[4]
d[5]
d[6]
d[7]
d[8]
-10
0
1
3
4
6
9
10
A、0 B、1 C、10 D、-10 -
7、数组a中存放了一批数据如下表，现采用对分查找方式在这批数据中查找“zhu”，以下说法正确的是（ ）。
a(1)
a(2)
a(3)
a(4)
a(5)
a(6)
a(7)
hou
ji
long
ma
niu
she
tu
A、无法进行对分查找，因为这批数据还没排好序 B、依次被比较的数据是“ma”，“she”，“tu” C、无法进行查找操作， 因为这批数据中没有“zhu” D、依次被比较的数据是“ma”，“ji“，“hou” -
8、数组d中存放了一组数据如表所示。采用选择排序对这组数据进行递增次序排序。第二遍加工过程中，进行数据交换的数组元素是（ ）
d[1]
d[2]
d[3]
d[4]
d[5]
d[6]
d[7]
d[8]
70
84
85
73
81
71
66
80
A、d[2]与d[1] B、d[2]与d[3] C、d[2]与d[7] D、d[2]与d[8] -
9、以下不适合使用解析算法求解的问题是（ ）。A、已知三角形的底边和高，求三角形的面积 B、已知两个整数a和b，求它们的最大公约数 C、已知两个电阻的阻值，求它们并联后的总阻值 D、已知两点坐标，求两点之间的距离
-
10、两个存储单元的存放内容如图所示。以下叙述正确的是（ ）
A、a是变量名，True是常量 B、a、b、True都是变量名 C、a、b、12345都是常量 D、True是变量名，a、b都是常量 -
11、我国古代科学家祖冲之提出了圆周率的计算方法。为把圆周率的近似值3.14159存入变量pi中，在VB中定义变量的正确语句是（ ）。A、Dim pi As Integer B、Dim pi As Long C、Dim pi As Double D、Dim pi(7)As Double
-
12、以下流程图违反了算法的哪项特征（ ）。
A、该算法没有数据输入 B、该算法没有输出步骤 C、不符合算法的确定性特征 D、不符合算法的有穷性特征 -
13、关于算法的表示方法，以下说法错误的是（ ）。A、目前常用的算法表示方法有自然语言描述、流程图描述、伪代码或程序设计语言描述 B、较之自然语言，伪代码具有计算机程序设计语言叙述精确、无二义性的优点 C、较之流程图和伪代码，用自然语言描述可以减少歧义的产生 D、较之自然语言，用流程图和伪代码描述更为简洁
-
14、小周同学用VB程序模拟考场座位的编排，将编号从001开始的n个学生按行、列数进行“蛇形排列”。程序功能如下：在文本框Text 1中输入行数， Text 2中输入列数，点击“生成座位”按钮，在列表框List 1中输出排列结果。如图所示是运行界面为6行5列的座位排法(只排了一个试场)。
(1)、根据本题代码，如图中所示，数组元素b(2)的值为““。(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Private SubCommand 1_Click()
Dima( 1 To 200) As String '用来存储学号
Dim b( 1 To 200) As String '关联a数组，用于矩阵输出
Dimi As Integer，j As Integer，k As Integer，pos As Integer
Dim row as Integer， column as Integer， sAs String
For i= 1 To 200 '产生3位数的学号
a(i) =Mid(“00”， 1，(3-Len(CStr(i) ) ) ) +CStr(i)‘CStr() 函数功能转换为字符串并去掉前面空格
Next i
row=Val(Text 1.Text)
column=Val(Text 2.Text)
k=1
For i= 1 To column
If ① Then
pos=i 'pos是b数组的下标， 根据行列来关联a数组
For j=1 To row
b(pos) =a(k)
②
k=k+1
Next j
Else
pos=(row-1) *column+i
For j=1Torow
b(pos) =a(k)
pos=pos-column
k=k+1
Next j
End If
Next i
For i=1Torow'按行输出学生信息
s=””
For j= 1 To column
s=s+“”+ ③
Next j
List 1.Add Items
Next i
End Sub
① ② ③
-
15、编写VB程序， 实现如下功能：在文本框Text 1中输入二进制数， 单击“转换”命令按钮Command 1，在文本框Text 2中输出对应的十六进制数。程序界面如图所示， 请回答下列问题：
(1)、如果输入的二进制数为“1101010”，则得到的结果为。(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。Private Function bw(x As Integer， y As String) As String
'函数bw功能：若二进制位数不足，通过在前面添”0”使得位数为4的倍数
Dim rAs Integer， i As Integer
r=x Mod 4
If r< 0 Then
For i= 1 To 4-r
y=”0”+y
Next i
x=Len(y)
EndIf
bw=①
End Function
Private SubCommand 1 Click()
Dim m As String， n As Integer， i As Integer， a As Integer
Dim s As Integer， s1 As String， j As Integer
m=Text 1.Text
n=Len(m)
Text 2.Text=””
m=② ‘调整m的位数为4的倍数
For i=1Ton-3Step 4
s=0
For j=i To i+ 3
a=Val(Mid(m， j， 1) )
s=③
Next j
If s>= 10 Then
s 1=Chr(Asc(”A”) +s-10)
Else
s 1=CStr(s)'函数CStr类似于Str，但无前导空格
End If
Text 2.Text=Text 2.Text+s1
Next i
End Sub
① ② ③
-
16、小华制作了“动物赛跑”为主题的多媒体作品：(1)、在制作作品前，小华进行了作品的设计，下列属于创作需求分析的是（ ）A、确定作品的主题为“动物赛跑” B、设计了整体的工作流程与主要界面 C、制作了脚本大纲 D、列出了作品制作需用的所有媒体元素信息/ E、决定在学校网络论坛上发布作品(2)、小华使用Flash软件制作的多媒体作品，如下图所示。请回答下列问题：
①如上图所示，该作品的素材库中包含了个元件。
②测试“main”场景时发现“action”图层的按钮在中途会消失，若要使得按钮在播放中途不消失，可进行的操作是(多选)
A.删除“action”图层第50帧
B. 对“action”图层50帧执行清除帧
C.对“action”图层50帧执行清除关键帧
D.将“action”图层第49帧复制、粘贴在第50帧上
E.将“action”图层第49帧移动至第50帧上
F.将“action”图层第49帧移动至第55帧上
③在“main”场景中，“马”图层的动画是马从舞台左侧外面跑到舞台右侧，补间动画创建失败的原因可能是。
④“main”场景“音乐”图层中音频的同步方式为“事件”，测试影片时，单击“main”场景的“重新开始”按钮，音乐停止并跳转至“片头”场景的第1帧播放，则该按钮的动作脚本为 。
-
17、某班主任收集了本班级学生线上学习情况的数据， 并用Excel软件进行数据处理，如第13题图a所示。请回答下列问题：
(1)、通过H3单元格中的公式，对数据区域H4：H12进行自动填充，则H3单元格中的公式是。(提示：COUNT IF函数用于计算某个区域中满足给定条件的单元格数目。例如：=COUNT IF(B2：B279“语文”)表示B2：B279区域中课程名称是“语文”的单元格数目)
(2)、根据图a中数据制作的图表如图b所示，创建图表的数据区域是。
(3)、在区域A2：D280内找出“技术”课程中“认真度”最低的学生(若存在符合条件的多个记录，则全部选取)。下列方法可行的是 (多选，填字母)。A、以“课程名称”为“技术”、“认真度”为“最小1项”进行筛选，然后选取筛选出的全部记录 B、以“课程名称”为“技术”进行筛选，再以“认真度”为关键字升序排序，选取排在前面的记录 C、以“课程名称”为主要关键字、“认真度”为次要关键字，均按升序排序，选取排在前面的记录 D、以“认真度”为关键字升序排序，再以“课程名称”为“技术”进行筛选，选取排在前面的记录 -
18、有如下程序段：
For i= 1 To 2
Min=i
For j=i To 8-i
If a(j) >a(j+1) Then
t=a(j)：a(j)=a(j+1)：a(j+1)=t
End If
If a(j) <a(Min) Then Min=j
Next j
If Min<>i Then
t=a(i) ：a(i) =a(Min) ：a(Min) =t
End If
Next i
已知a数组的各元素分别为：70、53、57、28、30、77、1、76，则代码运行后，a数组各元素的值变为（ ）
A、70、53、57、28、30、1、76、77 B、53、28、30、57、1、70、76、77 C、1、28、70、53、57、30、76、77 D、1、28、30、57、53、70、76、77 -
19、数组a为一组正整数，前部分为升序，后部分为降序。设计vb程序查找数组a中的最大值及其位置。实现该功能的程序段如下：
i=1：j=n
flag=False
Do While i<=j And Not flag
m=(i+j+1)＼2
If a(m) <a(m-1) And a(m) >a(m+1) Then
⑴
ElseIf a(m) >a(m-1) And a(m) >a(m+1) Then
⑵
ElseIf a(m) >a(m-1) And a(m) <a(m+1) Then
⑶
End If
Loop
list1.Add Item Str(a(m) ) &Str(m)
上述程序方框出可选语句为：i=m+1②j=m-1③flag=true
则(1)、(2)、(3)处语句依次是（ ）
A、①②③ B、①③② C、③①② D、②③① -
20、有如下VB程序段：
Randomize
a(0)=0：i=1
Do While i<= 7
a(i) =Int(Rnd*10) *3+ 1
If i Mod 2= 1 Then
a(i)=a(i)+a(i-1)
ElseIf a(i) Mod 2= 1 Then
i=i-1
EndIf
i=i+1
Loop
该程序段执行后，a(1)-a(7)各元素的值可能为（ ）
A、7 10 7 4 20 16 44 B、22 16 32 10 32 22 49 C、28 4 14 16 44 28 41 D、4 1 29 38 10 35