Ifa(i)-etime>nmaxThennmax=a(i)-etime
btime=a(i):
etime=b(i)
EndIf
Nexti
Label2.Caption="最长挤牛奶时间为:
"+Str(ymax)+"时刻"
Label3.Caption="最长无人挤牛奶时间为:
"+Str(nmax)+"时刻"
EndSub
17、小王编写了一个依据成绩计算名次的VB程序,成绩为0到100之间的整数。
算法的基本思想:
先统计每个分数的个数,然后按照分数从高到低依次计算每个有效分数(该分数的个数不为0)对应的名次,分数相同时名次并列。
最高分为第1名,该分数的名次与个数之和为下一个有效分数的名次,以此类推。
程序用数组A存放每个分数对应的个数,数组B存放每个分数对应的名次。
例如,下表中最高分100有2个,并列第1名,则分数96的名次为分数100的名次加上分数100的个数,即第3名。
分数
100
99
98
97
96
95
94
…
0
个数(A数组)
2
0
0
0
1
0
3
…
0
名次(B数组)
1
3
4
…
程序运行时,学生数据显示在列表框List1中,单击“计算”按钮Command1,计算结果显示在列表框List2中,程序运行界面如图所示。
实现上述功能的VB程序如下,请回答下列问题:
(1)如表所示,若分数93的个数为2,则该分数对应的名次为_____________。
(2)请在划线处填入合适的代码。
DimsName(1To50)AsString'存放学生姓名
DimsScore(1To50)AsInteger'存放学生分数
DimrecCountAsInteger'存放学生人数
PrivateSubForm_Load()
'本过程从数据库中读取学生数据,存储在相应的变量中,并在List1中显示
'代码略
EndSub
Functionads(xAsInteger,nAsInteger)AsString'整数转换成长度固定的字符串
DimsxAsString,nxAsInteger,iAsInteger
sx=Str(x):
nx=Len(sx)
Fori=1Ton-nx
sx=""+sx
Nexti
1
EndFunction
PrivateSubCommand1_Click()
DimA(0To100)AsInteger'存放每个分数的个数
DimB(0To100)AsInteger'存放每个分数的名次
DimmcAsInteger,scoreAsInteger,iAsInteger
Fori=0To100
A(i)=0
Nexti
Fori=1TorecCount'计算每个分数的个数
2
Nexti
mc=1
Fori=100To0Step-1'计算每个分数的名次
IfA(i)<>0Then
B(i)=mc
3
EndIf
Nexti
List2.Clear
List2.AddItem"姓名分数名次"
List2.AddItem"----------------"
Fori=1TorecCount
score=sScore(i)
mc=B(sScore(i))
List2.AddItemsName(i)+ads(score,5)+"第"+ads(mc,3)+"名"
Nexti
EndSub
参考答案
一、选择题答案(每题2分)
1
2
3
4
5
6
B
D
A
B
C
A
7
8
9
10
11
12
B
C
C
B
C
D
二、非选择题(本大题共5小题,其中第13小题4分,第14小题5分,第15小题8分,第16小题3分,第17小题6分,共26分)
13、
(1)=rank(d3,$d$3:
$d$12)(1分)
(2)A2,E2,A5:
A10,E5:
E10(1分)
(3)会(1分)2(1分)
14、
(1)B(1分)
(2)
b1*2+b2(2分)
i=i+4(1分)(3)北3(1分)
15、
(1)D(1分)
(2)0%或0(1分)(3)形状补间(1分)(4)AC(2分)
(5)12(1分)(6)stop();geturl(“赏析.txt”);(2分)
16、
(1)n-1(1分)
(2)etime>=a(i)Andetime
17、
(1)7(1分)
(2)ads=sx(1分)(3)A(sScore(i))=A(sScore(i))+1(2分)(4)mc=mc+a(i)或mc=b(i)+a(i)(2分)
第二部分通用技术
一、选择题(本大题共13小题,每小题2分,共26分。
每小题列出的四个备选项中只有一个是符合题目要求的,不选、多选、错选均不得分)
1.如图所示是深圳市某科技有限公司开发的人形机器人——阿尔法二代。
关于该机器人的相关技术,下列说法不正确的是
A.既能做各种复杂的动作,还能辅助治疗自闭症患者,体现了技术的综合性
B.与第一代只能模仿人类做出各种动作相比,阿尔法二代更加智能,能听懂人话,能与人互动,体现了技术的创新性
C.该公司在舵机伺服系统方面,拥有自主知识产权,体现了技术的专利性
D.未来的阿尔法机器人将涉足家庭陪护、机器人教育等更多智能化的工作领域,势必对社会劳动力结构产生深刻影响。
人们需要不断学习新的技能,从而适应劳动力市场变化
2.如图所示是一款新型的弯柄平板锉(手柄弯曲60°)。
从设计中的人机关系角度分析,以下说法中不正确的是
A.手柄的颜色不属于人机设计要考虑的内容
B.手柄的长度主要取决于手掌宽度,考虑了人体的静态尺寸
C.手柄无突出的锐边和棱角,实现了安全目标
D.以手柄的弯曲代替手腕的弯曲,有效减少作业者右臂疲劳度,实现了舒适目标
通用技术老师要求学生利用15mm厚的多层板设计一款便携式木质小板凳。
如图所示是某小组的设计方案,完成第3~4题。
3.该小组同学对自主设计的小板凳进行了测试和评价,评价结果如图所示。
以下对坐标图的分析中不正确的是
A.成本较高
B.稳固性较差
C.携带很不方便
D.易于制造
4.该组同学发现,原有方案在收纳时,无法折叠成预想的效果(如图所示)。
于是,提出了如下四个改进措施,其中合理的是
ABCD
5.如图所示是一个模型的立体图,其正确的三视图是
某同学欲将一块120×50×2的铁板加工成如图所示的轮叉。
完成第6~7题。
6.为确保安装轮轴的两个孔的位置精度符合使用要求,以下加工流程中合理的是
A.锯割→划线→锉削→划线→钻孔→弯折
B.划线→钻孔→锉削→划线→锯割→弯折
C.划线→锯割→锉削→弯折→划线→钻孔
D.划线→弯折→锯割→锉削→划线→钻孔
7.制作支架的过程中,以下操作中不正确的是
A.使用划规划弧线时,尽量一次划成
B.使用钢锯锯割时,尽量多使用锯条的中间部分
C.用平锉锉削支架的弧面部分
D.钻孔时带防护眼镜
8.如图所示是古代弓箭发射器,图中绞杆、绞轴、主弓的受力形式分别为
A.受拉、受拉、受拉B.受弯曲、受扭转、受弯曲
C.受拉、受弯曲、受弯曲
D.受弯曲、受扭转、受拉
9.如图所示是一款电动平衡车。
该系统主要由控制器、陀螺仪、电机、蓄电池、车体等部分组成。
关于该系统,下列说法不正确的是
A.系统整体具有的代步功能是各要素在孤立状态下所没有的。
这体现了系统的整体性
B.若电池电芯不合格,则会影响平衡车中充电器的正常工作。
这体现了系统的相关性
C.当车身前倾或后倾时,车轮会随之前进或后退,以维持车身平衡。
这体现了系统的动态性
D.这款车不但短途代步非常方便,还可以有效缓解资源的消耗和空气污染。
这体现了系统的目的性
10.如图所示是网络型温室智能控制系统示意图。
该系统可实时采集、存储温室内的环境信息(室内温度、土壤湿度、CO2浓度、光照等环境参数),然后通过网络将数据传输给控制计算机,并按控制计算机的命令对温室的执行机构进行控制,从而实现对温室的智能控制。
下列关于该控制系统的说法,错误的是
A.控制器是控制计算机B.输出量是实际的温室环境信息
C.执行器温室智能采集控制器
D.检测装置是各类传感器
11.【加试题】图示是一个简易的光控灯电路。
合上开关K,电路工作,当外界光线暗到一定的程度,Rg阻值很大,LED灯亮;当外界光线亮到一定的程