Next i
Label1.Caption = \位置变化情况：\For i = 1 To n
List2.AddItem Str(a(i)) Next i End Sub
17．【加试题】小李与小王合作编写一个成绩统计的VB程序：小王编写一个过程，该过程从数据库读取某一指定科目的相关数据，存储在数组a中；小李编写一个过程，该过程依据数组a中的相关数据统计各班平均分。小李与小王约定的数组a各元素含义如图所示。
程序功能如下：在文本框text1中输入科目名称，单击“读取数据库”按钮command1，程序从数据库读取数据；单击“开始统计”按钮command2，程序进行统计处理，结果输出在列表框list1中。程序运行界面如下图所示。
数组元素 数组元素的含义 a(1) 存储班级数n a(2) 从a(2)到a(n+1) 依次存储第1、2、?第n个班级人数 ? a(n+1) a(n+2) 从a(n+2) 依次存储第1班每个学生的单科成绩、第2班? 每个学生的单科成绩、?第n? 班每个学生的单科成绩 实现上述功能的VB程序如下，请回答下列问题： （1）根据程序运行界面中的数据及数组a各元素的含义，数组元素a(5)的值为（填写数值）。
（2）分析程序，可知数据库的文件名为 （3）请在划线处填入合适的代码。
Dim a(1 to 600) as integer‘数组大小满足处理要求 Private sub command1_click()
‘本过程由小王完成，从数据库读取指定科目的各相关数据，存储在数组a中
Dim conn As New ADODB.Conncction
Dim rs As New ADODB.Recordset
Conn ConncctionString=”provider=Microsoft.ACE.OLEDB.12.0;data source=”+”Score.accdb” Conn.Open
Set rs.ActiveConnection=conn ‘本过程的其他语句略 End sub
Private sub command2_click()
‘依据数组a中的相关数据统计各班级平均分
Dim i As Integer, j As Integer, n As Integer
Dim p As Integer, sum As Integer, aver As Single ①
p = n + 2
For i = 1 To n sum = 0
For j = 1 To a(i + 1) ②
p = p + 1 Next j
aver = sum / a(i + 1)
list1.additemstr(i)+\next i End sub
第二部分通用技术（50分）
一、选择题（本大题共13小题，每小题2分，共26分，每小题列出的四个备选项中只有一个是符合题目要求的，不选、错选、多选均不得分。） 1、随着智能手机和网络技术的发展，移动支付应用越来越广泛，使人们的观念和生活方式发生改变，下列关于移动支付技术的说法中，正确的是（ ）
A. 移动支付改变了人们的生活方式，体现了技术的创新性 B. 移动支付应用了智能手机、通讯网络、金融管理等方面的知识，体现了技术的综合性
C. 移动支付在没有通讯信号的地方无法使用，体现了技术的两面性
D. 移动支付功能改变人们的观念，体现技术具有解放人的作用 2、如图所示是一款可折叠木椅，从设计中的人机关系角度分析下列说法中不正确的是（ ）
A、采用铰连接便于折叠和展开，实现了高校目标
B、栅格结构的椅面和靠背透气性好，实现了舒适目标 C、折叠和展开需要双手手操作，主要考虑了普通人群
D、站在一侧就可以将木椅折叠和展开，主要考虑了人的静态尺寸 3、如图所示是一款折叠电动自行车，下列关于该车的设计分析和评价的说法中不正确的是（ ） A、设计成可折叠结构主要考虑了“物”的因素 B、采用电动助力，主要考虑“人”的因素
C、人力驱动车轮转动时，可以发电并对蓄电池充电，符合设计的创新原则
D、不仅可以骑行，还可以固定起来成为运动器械，符合设计的使用原则
4、小明参考如图所示的产品，准备用木条制作一款可折叠的饮水桶支架，提出了下列结构方案，其中合理的是（ ）
5、下列对流程方框图的说法不正确的是（ ） A、方框表示每个事项或活动，称为环节
B、单向箭头表示时序不可以颠倒，双向箭头表示时序可以颠倒 C、串行框表示须依次进行，称为串行环节
D、并行框表示可由多人或在多个地点同时进行，称为并行环节
6、如图所示是某模型的三视图，下列模型中与其对应的是（ ）
7、下列金属材料加工操作中不符合操作要领的是（ ）
8、如图所示为钢筋混凝土横梁的受力变形示意图。由于混凝土擅长抗压力，而钢筋擅长抗拉力，为了合理利用钢筋，下列对横梁的分析正确的是（ ） A、上部弯曲的程度比下部大，应在上部布置粗钢筋，下部布置细钢筋
相关推荐：
loading