2023-2024学年高一上学期选修一第三单元第一节 解析法与问题解决

2023-2024学年高一上学期选修一第三单元第一节 解析法与问题解决 一、选择题 1．PM2.5能较长时间悬浮于空气中，其在空气中含量浓度越高，就代表空气污染越严重.当PM2.5值达到178时，输出的P的值为（    ） A．优良 B．轻度污染 C．中度污染 D．严重污染 2．解析算法是通过找出解决问题的前提条件与结果之间的关系表达式，并计算表达式来实现问题的求解，下列更适合使用解析算法实现的是（   ） A．找出1000以内的所有质数 B．输入长方形的长和宽，计算长方形的周长 C．统计全班同学的身高 D．将输入的三个数从小到大进行排序 3．2022年的开年明星，“冰墩墩”当仁不让，整个冬奥会赛事期间，冰墩墩常常霸榜微博热搜。除了话题度，与冰墩墩相关的衍生品也一直脱销，线下线上“一墩难求”。家在太原的小明有幸较早买到了几个冰墩墩和雪容融毛绒公仔，准备选择顺丰标快邮寄给在临汾老家的表弟，经查找获取到顺丰标快省内实时计费规则为首重（1.0kg以内）：13.0元，超过1.0kg的部分：2.0元/kg，为了预估邮费，小明准备用所学Python语言编写一个计费程序。小明在设计算法时运用weight=n×i+m×j等数学式子来求解，他采用的算法属于（    ） A．枚举法 B．二分法 C．解析法 D．递归法 4．以下适合用解析算法解决的问题是(     ) A．将10个评委的打分按由大到小的顺序进行排序 B．计算出租车费 C．找出一管乒乓球中质量不符合标准的球 D．求三位正整数中的“水仙花数” 5．下列Visual Basic程序段运行后，变量x的值为（    ） x="3:" y=50 Do while x < sqr(y) x=x+2 Loop A．7 B．8 C．9 D．10 6．解析算法是通过找出解决问题的前提条件与结果之间的关系表达式，并计算表达式来实现问题的求解，下列问题适合用解析算法求解的是（   ） A．用公式计算行人过马路最短绿灯时长问题 B．在10000个零件中找出一个质量不同的零件问题 C．“韩信点兵”问题 D．“鸡兔同笼”问题 7．某同学要制作一个计算商品团购优惠的VB小程序。请回答以下问题： 该同学绘制了该程序的流程图，如下图所示： 当n为100、p为10时，实付金额s的值是（   ） A．1000元 B．950元 C．850 D．750元 8．以下只能用解析算法求解的是（ ） A．已知边长a、b、c，求三角形面积。 B．求用10元、20元和50元三种纸币组合支付360元的不同方案。 C．求2000以内的素数。 D．求所有的水仙花数的总和。 9．以下程序段执行后整型变量n的值为（   ）。 n=0 for i="1" to_____step 5 n=n+i next i A．50 B．34 C．15 D．210 10．两个阻值分别为R1、R2的电阻并联后，电路阻值R可由公式1/R=1/R1+1/R2求解，下面能正确求出R的VB表达式是（     ） A．R1+R2/(R1*R2) B．R1*R2/(R1+R2) C．R1*R2/ R1+R2 D．(R1+R2) /(R1*R2) 11．某电子设备的电路板上有一个6位的“跳板开关”，此开关每一位都只有“打开”和“闭合”两种状态。这个“跳板开关”最多能表示的状态数为（   ） A．120 B．64 C．60 D．6 12．有如下VB程序段： For i= 1 To 6     a(i)= Int(Rnd* 15)     If i >= 3 Then         lf a(i) = a(i- 1)+ a(i - 2)Then             a(i)= a(i) Mod 2         Else             a(i) = a(i)\ 2         End If     End If Next i 执行该程序段后，在下列选项中，a（1）-a（6）各元素值不可能的是（   ） A．7 13 2 1 1 3 B．9 3 2 3 0 2 C．2 8 10 3 5 7 D．14 11 7 2 4 1 13．小明同学用等差数列求和公式解决了1+2+3+……+N的问题。这是用（   ）解决问题。 A．解析法 B．枚举法 C．模拟法 D．递推法 14．执行如下VB程序段，则s的值是（    ） s=56s1=s\10 s2=s Mod 10 s=s1+s2*10 Print"s=";s A．5.6 B．6.5 C．56 D．65 15．一个两位数x，将它的个位数与十位数字对调后得到一个新数y，此时y恰好比x大36，求出所有这样的两位数。为其中的空白处选择合适的选项（ ）。 A．x-y<>36 B．x-y=36 C．y-x<>36 D．y-x=36 二、填空题 16．有如下Visual Basic程序段： a="2" b=5 c=4 If a>b or c<b Then m="a-b" Else m=b-c 该程序段运行后,变量m的值为_______。 17．某绘图软件的部分指令如下：（画笔前进或后退均能画出线条） 指令名称指令功能 FDN画笔前移N厘米 BKN画笔后移N厘米 LTN画笔在原地向左方转动N度 RTN画笔在原地向右方转动N度 补充程序中的第六行中的指令，使程序可以绘出如图所示的图形，。 第一行  FD  10 第二行  RT  90 第三行  FD  15 第四行  LT  90 第五行  _________ 第六行  LT  90 第七行 FD 5 18．见右图。从数组d[1]~d[5]，5个元素中找最小值所在的数组元素下标，并输出。 A处应填写 [1] 。 B处应填写 [2] 。 19．编写VB程序，实现如下功能：单击“计算”按钮，在列表框List1中产生10个[1，99]随机数，文本框Text1显示相邻两个数字之间相差最大的差值。运行界面如图所示。 （1）窗体上，“计算”按钮的对象名是 。 （2）实现上述功能的VB程序如下，请在划线处填入合适的代码。      Private sub cmd1_click( )      Dim b(1 to 10) as integer      Dim I as integer,max as integer ,a as integer, c as integer      Max=0      For i=1 to 10         Randomize         A=int(rnd*99)+1                  List1.additem  str(a)      Next i    For  i=2 to 10       C=       If c>max then Next I End sub 20．要求将某一字符串中指定的字符改写成小写或大写（如果原先是大写就改成小写，反之改成大写），并将处理后的字符重新输出。 程序界面如下图所示，在Text1中输入原始字符串，在Text2中输入需要改变的字符，单机“改变”按钮后，在Text3中输出处理后的结果。程序代码如下： Private Sub Command1_Click() Dim s As String, result As String, k As String Dim zs As String, n As Integer result = "" s = Text1.Text k = Text2.Text For n =" 1" To Len(s) ① If zs =" k" Then If Asc(zs) >=" 65" And Asc(zs) <=" 90" Then zs =" Chr(Asc(zs)" + 32) ElseIf Asc(zs) >=" 97" And Asc(zs) <=" 122" Then zs =" Chr(Asc(zs)" - 32) End If End If ② Next n ③ End Sub 在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整: 程序中①划线处应填入___________________。 程序中②划线处应填入___________________。 程序中③划线处应填入___________________。 三、操作题 21．生活中，许多女士喜欢穿高跟鞋，那穿高跟鞋会使人感到美吗？黄金分割能解释这个问题。人体躯干与身高比例的黄金分割点是肚脐。换句话说，这一比值越接近0.618，愈给人美之感。现按要求编写“高跟鞋的最佳之选”的VB程序（界面如下图所示），实现如下功能： 首先，设某女躯干a米和身高b米，分别从文本框Text1和Text2中输入，比值为g。鞋跟高度为s（单位与 a、b 一致），那么比值g=（a+s）/（ b+s），如果g=0.618，那么鞋跟高度S的值就是最佳高度,所以最佳的鞋跟高度s=(0.618b-a)/0.382,设计程序计算最佳鞋跟高度的程序。 （1）应用程序界面设计时，为了显示s的值，在窗体中添加了 控件，一般需将它的 属性值设置为空。 （2）图中的人物是通过设置Image1对象的 属性,将外部图像文件添加进去的。 （3）请根据题意将下列程序补充完整。 Private Sub Command1_Click（ ） Dim a As Single, b As Single，s As Single a = Val（Text1.Text） b = ① ② Label4.caption=str(s) End Sub 22．完全平方数之和。编写 VB 程序，实现如下功能：在文本框 Text1 中输入用逗号分隔的一系列整数（每个整数的绝对值不超过 1000，个数不超过 100 个）， 单击“计算”按钮 Command1，计算输入的整数中的完全平方数之和（完全平方数是指一个整数能表示成某个整数的平方的形式，例如 4 是完全平方数，可以表示成 2 的平方），并将结果显示 在标签 Label1中。 程序运行效果如图所示。 （1）文本框 Text1不具备的属性为 （单选，填字母： A．Text/B．Caption/C．Width/D．Font）。 （2）实现上述功能的 VB 程序如下，请在划线处填入合适代码。 Private Sub Command1_Click() Dim s As String Dim i As Integer, j As Integer, ans As Long Dim f As Boolean ans = 0 s = Text1.Text: j = 1: For i = 1 To Len(s) ch = Mid(s, i, 1) If    ch = ","    Then x = Val(Mid(s, j, i - j)) If Then ans = ans + x f = True j = i + 1 ElseIf ch = "-" Then f = False j = j + 1 End If Next i Label1.Caption = "完全平方数之和为： " + Str(ans) End Sub （3）若文本框 Text1中输入的内容为“-4,4,4”（不包括双引号），则标签Label1 中输出的内容为“完全平方数之和为： ”。 试卷第1页，共3页 试卷第1页，共3页 学科网（北京）股份有限公司 参考答案： 1．B 2．B 3．C 4．B 5．C 6．A 7．D 8．A 9．B 10．B 11．B 12．C 13．A 14．D 15．D 16．-3 17．BK 10 18．[1]min=1 [2]d[i]<d[min] 19． Cmd1 b（i）＝a abs（b（i﹣1）﹣b（i）） max=c text2.text=str（max） 20．（1）zs =" Mid(s," n, 1) （2）result =" result" &amp; zs  或 result =" result" + zs （3）Text3.Text = result 21．（1）Label或标签、caption （2）picture （3）val(text2.text)、s=(0.618*b-a)/0.382 22． B f=true f and int(sqr(x))^2=x 4 答案第1页，共2页 答案第1页，共2页 学科网（北京）股份有限公司 $$