相关试卷
-
1、下列VB程序段：
Dim x As Integer，y As Integer
x＝Val(Text1.Text)
If x>200 Then
y＝5*x
ElseIf x>＝50 Then
y＝10*x
Else
y＝4*x
End If
Text2.Text＝Str(y)
若要测试所有分支程序代码是否正确，以下测试数据中，最恰当的一组是（ ）
A、200，50 B、1000，50，4 C、40000，50，5 D、142，50，－1 -
2、有如下VB程序段：
a＝2
b＝1
Do While b<＝4
a＝a＋b
b＝a＋b
Loop
Text1.Text＝Str(a＋b)
则运行该程序段后，文本框Text1上显示（ ）
A、18 B、7＋11 C、7 D、3＋4 -
3、某算法的部分流程图如图所示：
执行这部分流程后，变量a的值是（ ）
A、1 B、4 C、9 D、432 -
4、驾驶员考试科目一考试成绩不低于90分为合格，下图是根据成绩判断是否合格的部分流程图：
如果输入的成绩为90，则该流程的执行顺序为（ ）
A、①→②→③ B、①→②→④→③ C、①→②→④ D、①→②→③→④ -
5、某Word文档在修订模式下部分界面如图所示。
接受该文档中所有修订后，图中第一行的文字是（ ）
A、我总结大致一下，剪纸一般可分为两步 B、我总结一下，剪纸一般可分为两步 C、我总结了一下，剪纸一般可分为2步 D、我总结一下，剪纸大致可分为两步 -
6、选中某Word文档的一个段落，使用“查找和替换”功能进行操作的界面如图所示：
单击全部替换后，下列描述正确的是（ ）
A、替换全文中含Prose的单词为prose B、替换全文中含Prose的单词为红色的prose C、替换Prose为prose D、替换全文中的Prose为红色的prose -
7、王老师将刊登在期刊上的一篇文章通过OCR技术转换成电子文本，并用Word软件编辑处理。下列说法不正确的是（ ）A、若扫描的分辨率太低，可能会影响OCR软件的识别率 B、识别完成后，也可以在Word文档中完成文字校对工作 C、王老师Word文档中开启“修订”功能，可以显示修改痕迹 D、使用扫描仪将期刊上的文章扫描成图片，这个过程使用了人工智能技术
-
8、用OCR软件识别文字过程中，识别区域中的横排正文、竖排正文、表格、图等，把图片按内容划成一块块识别区域以提高识别正确率，这一过程称为（ ）A、版面分析 B、扫描 C、识别 D、校对
-
9、下列有关手机的使用，体现了人工智能的是（ ）A、用手机测试网络下载速度 B、在手机APP与同学进行象棋对弈 C、同时按下手机上“音量下”和“电源”两个按键进行自动截屏 D、手机有新消息来时，对着主人人脸时，显示消息详情，对他人则显示一条新通知
-
10、利用计算机模拟汽车碰撞的全过程，采用的是（ ）A、虚拟现实技术 B、语音合成技术 C、智能代理技术 D、传感交互技术
-
11、下列对OCR进行字符识别的理解正确的是（ ）A、识别最终的目的是为了得到包含文字的图片 B、只有通过扫描仪得到的图片才可以被识别 C、汽车入库识别车牌，不属于OCR的具体应用 D、图片的内容也是影响OCR识别正确率的一个因素
-
12、某次考试的流程为先笔试再面试，笔试成绩达到面试资格线的可以入围参加面试。入围面试的资格线根据计划录取人数的200%划定，即如果考试最终录取x人，则第2*x名选手的笔试分数为面试资格的分数线（该分若有同分者可一同参与面试）。现在编写VB程序功能如下：自动读取数据库中考生考号和笔试成绩，依次存储在数组kh(i)、cj(i)中，并显示在List1列表框中。单击“入围划线”按钮Command1,面试分数线显示在文本框Text2中，入围面试最终人数显示在Text3中，进入面试的考生的考号和笔试成绩显示在List2列表框中，如果成绩相同，则按考号由小到大的顺序显示。程序界面如图所示。
Dim kh(1 to 500) As string,cj(1 to 500) As Integer Dim n As Integer ‘参加考试总人数
Private Sub Form_Load()
Dim conn as new ADODB.connection:Dim rs As New ADODB.Recordset
conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=”
+App.Path+”\BSCJ.accdb”
conn.Open
set rs.activeconnection=conn
rs.Open“select*FROM scoreinfo”
‘本过程其他代码略 End Sub
Private Sub Command1_Click()
Dim m As Integer,i As Integer,j As Integer
Dim t1 As Integer,t2 As String,flag As Boolean For i = 1 To n-1 ‘排序
For j = ① If cj(i)<cj(j) Then
t1 = cj(i):cj(i) = cj(j):cj(j) = t1
t2 = kh(i):kh(i) = kh(j):kh(j) = t2 Elseif cj(i) = cj(j) And kh(i) > kh(j) Then
t2 = kh(i):kh(i) = kh(j):kh(j) = t2
End If Next j
Next i
m = ②
If m <= n Then ‘统计进入面试人数
i = m
flag = False
Do While ③ If cj(i) = cj(i+1) Then
i = i+1 Else
flag = True End If
Loop
Text2.text = Str(cj(m)) Text3.text = Str(i)
For j = 1 To i
List2.AddItem kh(j) + “ ” + Str(cj(i)) Next j
Else
Text2.Text=”面试人数超过总人数了” End If
End Sub
(1)、读取的数据表名为(2)、(单选)可以填在①处的代码是（ ）A、i+1 To n B、n To i+1 C、1 To n-i(3)、请在②、③划线处填入适当的代码。② ③
-
13、【加试题】某同学编写了一段模仿Excel的Rank排位函数VB程序，运行界面如图。程序功能如下：程序运行后先自动生成1000个取值范围在[1,100]的随机数（保留两位小数）并显示在List1中，在Text1和Text2中输入排序范围的起始位置和结束位置，在b(i)中存储a(i)在该范围中的排位，并输出排位到列表框List2，实现上述功能的VB程序如下，但加框处代码有错，请改正。
Dim a(1 To 1000) As Single, b(1 To 1000) As Integer Private Sub Form_Load()
Randomize '生成 1000 个随机数 For i = 1 To 1000
① '产生随机数，保留二位小数b(i) = 1 '初始排位为 1
List1.AddItem "a(" & i & ")=" & a(i) Next i
End Sub
Private Sub Command1_Click()
Dim ks As Integer, js As Integer
ks = Val(Text1.Text)
js = Val(Text2.Text)
For i = ks To js
For j = ks To js
If
Then b(i) = b(i) + 1 ②Next j
Text1 Text2
List2.AddItem "a(" & i & ")" & "在 a(" & ks & ")~a(" & js & ")中排位为" & b(i) Next i
End Sub
① ②
-
14、小王制作一个关于“端午祝福”的多媒体作品。请回答下列问题：
(1)、下面不属于规划与设计阶段的是（多选，填字母：A .系统结构设计/B .功能模 块设计/C .媒体元素分解/D .制定脚本大纲）(2)、文字1图层的效果是文字逐渐变大，再逐渐淡出，则文字1图层的补间类型是。(3)、测试影片时，一开始没有显示背景，为了使背景一直出现，应进行的操作是。(4)、若要在该场景播放到最后一帧时，出现“退出”按钮，点击该按钮可以关闭该动画。则该按钮应放在当前已有图层中的图层的最后一帧,并在“退出”按钮上设置动画命令。 -
15、两个10进制大整数相加可以用数组的方法逐位相加来实现，小王同学制作了如图的VB程序，以实现求2个50位以内的10进制整数的和。
(1)、根据程序代码，该事件过程名为。(2)、把代码补充完整。Private Sub Command1_Click()
Dim a(1 To 51) As Integer, b(1 To 51) As Integer, c(1 To 51) As Integer Dim lens1 As String, lens2 As String
lens1 = Len(Text1.Text) ：lens2 = Len(Text2.Text)
For i = Len(Text1.Text) To 1 Step -1 ‘读取数据，逐位保存在数组中
a(i) = Mid(Text1.Text, lens1 - i + 1, 1) Next i
For i = Len(Text2.Text) To 1 Step -1
b(i) = Mid(Text2.Text, lens2 - i + 1, 1) Next i
For i = 1 To 51 ‘从个位到高位逐位求和
c(i) =
If c(i) > 9 Then
c(i) = c(i) - 10
c(i + 1)=
End If Next i
f = False '从左到右输出第一个不为 0 的元素开始从高位到低位输出和
For i = 51 To 1 Step -1
If c(i) <> 0 Then f = True
If f Then Text3.Text = Text3.Text & c(i) Next i
End Sub
(3)、图中，为了使Text1和Text2文本框在Form1界面上能够左对齐，需要更改Text1的Left属性，则可以在Form_Load（）中添加代码Text1.Left= -
16、小王同学近期制作了“部分大学生毕业实习生收支问卷调查表”，并用EXCEL进行数据处理，如图a所示。请回答下列问题：
(1)、小王先在B10单元格输入求平均值函数，再用自动填充功能填充C10:E10单元格，则B10单元格输入的公式是。(2)、图b所示图表的数据区域为。
(3)、若在表格第3与第4行之间插入一行（不做其他操作），则B11单元格中平均值显示为。(4)、如图c，若要以“本月结余”为主要关键字对毕业生进行排序，则排序的数据区域为。
-
17、【加试题】有如下程序段：
Dim a(1 To 6) As Integer
a(1) = 33: a(2) = 24: a(3) = 45: a(4) = 16: a(5) = 77: a(6) = 8 For i = 1 To 3
For j = 5 To i + 1 Step -1
If a(j - 1) > a(j) Then t = a(j - 1): a(j - 1) = a(j): a(j) = t
Next j
If j Mod 2 = 0 Then i = i + 1 Next i
执行该程序段后，a(1)到 a(6)分别为 （ ）
A、8 33 16 24 45 77 B、8 16 24 33 45 77 C、16 33 24 45 77 8 D、16 24 33 45 77 8 -
18、【加试题】有如下程序段：
i = 1: j = 8: count = 0: f = False
Key = Val(Text1.Text)
Do While i <= j
m = (i + j) \ 2
If a(m) = Key Then
count = count + 1
f = True
End If
If a(m) < Key Then
i = m + 1
Else
j = m - 1
End If Loop
数组元素a(1)到a(8)分别为1,2,3,4,5,6,6,7，在Text1输入6，执行该程序段后，下面说法正确的是（ ）
A、f的值为False B、j的值为5 C、count的值为2 D、m的值为6 -
19、【加试题】一段时长为10秒、1024╳800像素、24位真彩色、PAL制式（25帧/秒）的未经压缩的AVI格式无声视频，其文件存储容量约为（ ）A、19MB B、58MB C、586MB D、5860MB
-
20、小王使用 Flash 软件制作单场景动画，其时间轴如图a 所示，“声音”图层的同步方式如b所示，下面说法正确的是（ ）
A、将帧频改为6fps，动画播放速度将变快 B、在“声音”图层第 50 帧插入帧，测试影片时声音播放效果会发生改变 C、形状补间图层第 30 帧“插入关键帧”，不会影响该图层的形状补间动画效果 D、若将“声音”图层锁定，则不能更换“声音”图层第一帧中的声音素材