PDF《技术试题》

数组 zm 存放

26 个字母出现的次数 Dim s As String, c As String Dim cx As String '

变量 cx 存放次数最多的字符 s = Text1. Text For i =

1 To Len(s) c = Mid(s, i, 1) If c >

= a And c max Then max = j : cx = If zm(j) = max Then cx = cx + + Chr(Asc( a ) + j - 1) End If Next j f = Int(max / sum * 100) Label2. Caption = 字母: &

cx &

次数: &

max &

频率: &

Str(f) &

% End Sub 17.【加试题】小李编写 VB 程序,功能如下:单击 生成数组 按钮 Command1,则随机生成

13 个 取值范围是 1~13 的正整数,分别存储到数组 a 中,对数组 a 的元素进行升序排列,并在标签 label1 中显示;

再单击 连续数 按钮 Command2, 则在排序后的数组 a 中查找连续个数最多(忽 略重复数值)的一组数值(即:连续数),若有两组连续数个数一样多,则取数值小的一组, 将连续数显示在标签 label2 中.运行界面如第

17 题图所示. 第17 题图 若实现上述功能的程序如下,请在划线处填写合适代码,使程序正常运行. Dim a(1 To 13) As Integer Dim n As Integer Private Sub Command1_Click() Dim i As Integer, s As String, j As String Randomize n =

13 For i =

1 To n a(i) = Int(Rnd * 13) +

1 Next i For i =

1 To n -

1 For j = i +

1 To n If a(j) <

a(i) Then t = a(j): ① : a(i) = t 技术(选考试题) 第9页(共16 页) End If Next j Next i s = For i =

1 To n s = s + Str(a(i)) If ② Then s = s + , Next i Label1. Caption = s End Sub Private Sub Command2_Click() Dim i As Integer, j As Integer Dim t As Integer, k As Integer Dim max As Integer '

存储连续数个数最大值 Dim begin As Integer '

存储连续数开始的数值 k =

1 max =

1 For i =

2 To

13 If a(i) = a(i - 1) +

1 Or a(i) = a(i - 1) Then If ③ Then k = k +

1 If k >

max Then max = k begin = ④ End If Else k =

1 End If Next i s = For j = begin To begin + max -

1 s = s + Str(j) Next j Label2. Caption = s End Sub 技术(选考试题) 第10 页(共16 页) 第二部分 通用技术(共50 分)

一、选择题(本大题共

13 小题,每小题

2 分,共26 分.在每小题给出的四个选项中,只有一个是 符合题目要求的,不选、多选、错选均不得分) 1.如图所示为一款螺旋线套,用于保护脆弱线缆,适用各种直 径的电线. 螺旋线套采用高弹性硅胶材质制作, 柔韧性极佳, 生态环保.以下关于螺旋线套的说法中,错误的是 A.保护电线,延长使用寿命,体现技术的目的性 B.采用环保可回收材料,体现技术的可持续发展的理念 C.保护线材的同时更显美观,体现技术的两面性 D.开发团队在该产品发布前为产品申请了专利,这样才能受到法律的保护 2. 如图所示为钢筋弯曲试验装置, 通过与现实发生情况相似的 方法挤压钢筋使其弯曲至一定角度,观察弯曲部分有无裂 缝、起层剥落状况,若无明显变化则为合格品.该试验的方 法属于 A.移植试验法 B.模拟试验法 C.虚拟试验法 D.优选试验法 3.如图所示的折叠椅,但是还缺少合适的连接方案,下列设计 方案中,不能实现折叠的是 A.两腿轴连接及连接片连接 B.前腿开槽,后腿轴连接 C.前腿轴连接,后腿插销 D.增加凹槽,两腿轴连接 4.如图所示是一款吸壁沐浴液盒,下列对该沐浴液盒的设计分析和评价中,不正确的是( ) A.按压头的按压面积较大,符合设计的实用原则 B.能用吸盘吸附在浴室瓷砖上,主要是从 物 的角度考虑 C.外观新颖独特,体现设计的创新原则 D.单手即可完成操作,实现人机关系的高效目标 第1题图 第2题图 第4题图 第3题图 技术(选考试题) 第11 页(共16 页) F 手柄 连杆 推拉杆 支座 连接片 第7题图 5.在加工制作三角架过程中,将大小合适的角铁加工........