内容发布更新时间 : 2024/6/7 22:47:10星期一 下面是文章的全部内容请认真阅读。

..

End Sub

(3) _____________________________________________________ 为了减缓字符串的出现速度，可将Timerl的Interval属性值 _________________________________________ (选填，填字母：A.调大、B?调 小）。

15?第19届亚洲运动会将于2022年09月在杭州举行，为提高大家锻炼身体的热情，小龙使用Flash软件 制作主题为“晨练”的多媒体作品。请回答下列问题：

(1) 小龙在分析了作品的应用需求之后，接下来要分析作品的创作需求，包括确定主题思想、结构类型、 作品内容、_______ (多选，填字母:A.社会需求/B?设施要求/C?作品效益/D?发布方式/E?用户情况）。 (注：全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）

(2) 如图a所示，“太阳”图层第1帧到第60帧的动画实现了“太阳”实例从完全透明到完全显示，该动 画类型为_______ (选填：动画补间/形状补间/逐帧动画）。

如图b所示为制作“五环”影片剪辑元件的界面，第1帧为1个圆环，第5帧、第10帧、第15帧、 第20帧逐渐增加一个圆环，形成完整的5个圆环。小龙在制作图a中的“五环”图层时使用了该“五环” 影片剪辑元件，但发现5个圆环呈现完整后，又重新开始从1个圆环到5个圆环，小龙想5个圆环呈现完 整后就一直显示5个圆环，应进行的操作是 。

(1) 如图a所示，测试影片时，单击“退出”按钮，进入到“鸣谢”场景的第1帧并开始播放，则“退出” 按钮的动作脚本为 _________ 。

(2) 单击“退出”按钮后，仍能听见图a中“音乐”图层的声音，可知其声音“同步”属性为 _____ (选 填：数据流/事件）。

16.【加试题】小龙编写了一个简易加法器VB程序，运行界面如图所示。在文本框Textl中输入一个数字 后再输入空格表示一个加数输入完毕，连续不断输入不同的加

个数以及总 数，待所有需要相加的数输入完毕后，单击

“求和”按钮Commandl后，在标签label1中显示加数的 和。（数字0和空格的ASCII码分别为48、32)

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

Dim a As String

Dim x As Integer, s As Integer, k As Integer a = Text 1. Text

.下载可编辑.

..

17.【加试题】中秋节时，班级组织活动，其中有抽奖环节，小龙在7选3中选考了技术，班主任让小龙 编写一个VB抽奖程序，功能如下：窗体装载过程从数据库读取所有同学的相关数据并显示在列表框List1 中，抽奖时在文本框Text1中输入要抽出的人数，单击“摇奖”按钮command〗，程序进行处理，结果输出 在列表框list2中。程序运行界面如下图所示。

实现上述功能的VB程序如下，请回答下列问题：

(1) 分析下面的程序代码，可知数据表名为 __________________ (2) 请在划线处填入合适的代码。

Dim a(1 To 100) As String ’数组大小满足处理要求，学生学号 Dim b(1 To 100) As String ’数组大小满足处理要求，学生姓名 Dim i As Integer ’学生总数 Dim j As Integer

Dim dd(1 To 100) As Integer Private Sub Form_Load()

‘从数据库读取全班同学的相关信息，存储在数组a、数组b和变量i中 Dim n As Integer

.下载可编辑.

..

Dim conn As New ADODB.Connection Dim rs As New ADODB. Recordset Dim strSQL As String

conn.ConnectionString = \〃\\1718.accdb\

Set rs.ActiveConnection = conn strSQL = \rs.Open strSQL

’本过程的其他语句略 End Sub

Private Sub Commandl—Click()

Dim ShuruNum As Integer, k As Integer, y As Integer, n As Integer Randomize

ShuruNum = Val(Text1. Text) Label4.Caption =\For k = l To i dd(k) = 0 Next k

If ShuruNum > 0 And ShuruNum <= i Then

j = 1

Do While j <= ShuruNum y = Int(Rnd() * i) + 1 If _______________ Then'①

dd(j) = y j = j + 1 End If Loop

List2. Clear

For n = 1 To ShuruNum

List2. AddItem ______________ ，② Next n Else

Label4.Caption =\错误：没有输入中奖人数或超过学生总数〃 End If End Sub

’核对重复，避免同一人再次中奖

Private Function CheckCF(p As Integer) As Boolean

Dim m As Integer,x As Boolean x = True ’初始化 For m = 1 To j

If _________________ Then '③

x = FalseExit For End If Next m

CheckCF = x End Function

.下载可编辑.

..

第一部分通用技术部分

一、选择题（本大题共13小题，每小题2分，共26分。每小题列出的四个备选项中只有一

个是符合题目要求的，不选、多选、错选均不得分）

1. 如图所示的一款健康活氧机，利用大自然中雷击放电产生臭氧的原理，以空气为原料，

产生高浓度的臭氧，不仅可去除果蔬表面残留的农药，而且可以净化空气、杀菌消毒等。 以下关于该产品的说法中恰当的是

A. 该产品具有杀菌消毒效果，体现了技术具有发展人的作用

第1题图 B. 该产品会消耗一定量的空气，体现了技术的两面性

C. 不用担心农药使用过量，有助于提高果蔬种植的产量 D. 该产品申请到专利后，可以帮助其在一定时间内独占市场 2. 如图所示的钢锯是金工的常用工具。下列说法中，不是从人机关系角度考虑的是

A. 钢锯前端弯曲成弧形 B. 手柄的外形设计成弧形

第2题图C. 采用元宝螺母紧固钢锯条

D. 钢锯条锯齿有粗有细，可以锯割不同的材料

3. 小明发现如图所示的普通书立在放置较多的书本时容易翻倒，他准备重新设计一款，以下对其设计过 程的说法中不正确的是

A. 小明通过观察日常生活，发现了问题 B. 小明在方案构思之后，应进行设计分析 C. 小明需要制作模型来测试书立的稳定性

D. 小明在设计过程中，可能需要多次修改设计方案

第 3 题

4. 小明使用台钻按照冲眼、装夹工件、装夹钻头和钻孔的顺序在一块薄钢板上钻直径为5m图 m的孔时，下 列工具中，不一定需要用到的是

A.夹头钥匙 B.麻花钻头 C.样冲 D.平口钳

5. 如图所示是用等边角钢和木条制作的简易小三角架的 加工图，下列说法中正确的是

需要钻4个大小一样的孔 木条所需的长度无法判断 主视图中的两个孔需要攻丝 需要的角钢长度至少360mm

6. 用大小合适的方木料制作如图所示的构件，根据所划的线判断，下列锯 割的位置中合理的是

.下载可编辑.

..

7. 如图所示的千斤顶是一种通过转动螺纹连杆把汽车顶起的装置，在更换汽车轮胎时经常用到。千斤顶 在顶起汽车后，下列部件主要受力形式的分析正确的是

第7题

A.支撑臂受压、螺纹连杆受拉 B.支撑臂受弯曲、螺纹连杆受压 C.支撑臂受弯曲、螺纹连杆受扭转 D.支撑臂受压、螺纹连杆受弯曲 8. 如图所示为某套遥测系统的流程框图，以下有关它的说法中正确的是

第8题图

A. B. C. D. 没有正常连接也能测量和采集温度 只要温度超过阈值就能控制风扇 有温度询问命令不一定能控制风扇 有远端控制命令能发送温度和控制风扇

.下载可编辑.