3.1解析法同步练习沪科版信息技术选修1

这是一份教科版 (2019)选修4 人工智能初步本册综合课时练习，共11页。试卷主要包含了选择题，填空题，操作题等内容，欢迎下载使用。

一、选择题
1．某VB程序段如下：
Text1.Text = ""
Fr i=1 T 10
b(a(i) Md 10) = b(a(i) Md 10)+1
Next i
Fr i=0 T 9
If b(i) Md 2 = 1 Then
Text1.Text = Text1.Text + Str(i) + Str(b(i))
End If
Next i
数组b各元素初值为0，数组元素a(1)到a(10)的值依次为57，23，43，20，18，30，47，70，77，36，执行该程序段后，文本框Text1中显示的内容为（ ）
A．3 3 7 7 7B．0 3 6 1 3 2 7 3
C．0 3 6 1 7 3 8 1D．0 3 6 1 7 7 7 8
2．以下VB程序段的功能是：单击一次按钮 Cmmand1，在列表List1中随机输出一行10个大小写字母。已知字母“A”和“a”的ASCII码值分别为65和97。
Private Sub Cmmand1_Click()
Dim s As String，c As String，i As String，a As String，t As Integer
Randmize
s=" "
Fr i= 1 T 10
①
If a num Then num b(i)
Next i
数组b各元素初始值为0，数组元素a(1)到a(10)的值依次为“68，17，24，30，36，40，55，58，61，66”，执行该程序段，num的值为（ ）
A．2B．3C．4D．5
5．某算法的部分流程图如图所示。执行该流程，输出s的值约为
A．0B．1C．2D．3
6．输入一个字符存变量k，统计字符串s中以该字符为首字母的单词个数，小王编写的VB程序段如下：
s = "Pythn is a ppular prgramming language！"
k = text1. Text：c = 0：n = 0
Fr i = 1 T Len（s）
ch = Mid（s，i，1）
If Then
c = c + 1
If c = 1 And ch = k then n = n + 1
Else

End If
Next i
为实现上述功能，程序段两个方框处的语句分别为（ ）
A．①ch >= "A" And ch ="a" And ch = "A" And ch ="a" And ch "Z"） ②c=0
D．①（ch "Z"）And（ch < "a" Or ch > "Z"） ②c=1
7．下面VB程序的功能为：在文本框Text1和Text2中输入两个整数，单击按钮对象Cmmand1，在标签对象Label1中显示这两个数的差。
Functin lsc(x，y) As Integer
If x＞y Then
lsc＝x－y
Else
lsc＝y－x
End If
End Functin
Private Sub Cmmand1_Click( )
Dim a1 As Integer，a2 As Integer
a1＝Val(Text1.Text)
a2＝Val(Text2.Text)
Label1.Captin＝________
End Sub
要实现上述功能，程序画线处应填入的语句为( )
A．lsc(x，y)B．lsc(Text1.Text，Text2.Text)
C．lscD．lsc(a1，a2)
8．如下图的流程图，最后变量c输出的值是（ ）
A．2B．1C．-1D．6
9．在日常生活中，我们常常会碰到许多可以用算法解决的问题，以下描述中适合用解析法来解决的有（ ）。
① 已知5个电阻阻值，求它们并联后的阻值
② 求某个同学期中考试各科成绩总分
③ 求某个班级期中考试某门科目的最高成绩
④ 根据三个系数a、b、c的值，求一元二次方程ax2+bx+c=0的解
A．①②③B．②③④C．①②④D．①②③④
10．为了保护学生视力，教室里安装了不少日光灯管。假设每个教室有40W灯管18个，每个整流器5W，每度电0.55元，每天用电12小时，每个教室每天的电费要多少？编程解决此问题最合适的算法是（ ）。
A．顺序查找算法B．解析法C．递归算法D．穷举法
二、填空题
11．【加试题】某种字符加密方法描述如：
①将待加密的字符分成若干个字符串组，每组n个字符，剩余字符(个数小于n)自成一组。
②将每组字符按以下方法重新组合，得到新的字符串。
重新组合规则：取每组第1个字符依次连接生成第i个新的字符串，共n组。
③将底组后的n组字符串依次进行字符交换，得到加密字符(加密前后字符均为大写)。
字符变换规则：按字母顺序后移i个位置后输出。
④依次合并变换后的字符串，即为密文。
例如：明文=“ABCDEFGHIJK”，n=4的字符加密过程如下：
(1)已知n=3，则待加密数据“ABCDEFG”加密后的密文为_________________。
(2)小张根据上述加密算法，设计了一个对应的加密程序，其VB代码如下，请在划线处填入合适的代码。
下面进行重新组合：重组后数据保存到s1中
下面进行字符变换：字符变换后数据保存到ans中
划线处应填入的代码分别为：（1）______________ （2）______________ （3）______________
12．分析完善程序。
一百个铜钱买了一百只鸡，其中公鸡一只5钱、母鸡一只3钱，小鸡一钱3只，问一百只鸡中公鸡、母鸡、小鸡各多少？设一百只鸡中公鸡、母鸡、小鸡分别为x，y，z，这里x，y，z为正整数，设计算法并编写程序输出所有的买鸡方案。
Dim x As Integer, y As Integer, z As Integer
Fr x = 1 T 20
Fr y = 1 T 33
Fr z = 3 T 99 Step 3
If Then
Print "公鸡:" & x, "母鸡:" & y, "小鸡:" & z
Next z
Next y
Next x
End Sub 代码可以简化，思路大致是这样的。
结果是: 公鸡:4 母鸡:18 小鸡:78
公鸡:8 母鸡:11 小鸡:81
公鸡:12 母鸡:4 小鸡:84
根据上述回答如下问题
（1）本题采用的算法是 ____________（填写：解析法/穷举法/排序法/递归法）
（2）程序代码中空白处应填写的条件是___________（填A/B/C/D）
A．x+y+z=100 and 5x+3y+z/3=100
B．x+y+z=100 r 5x+3y+z/3=100
C．x+y+z=100 and 5*x+3*y+z/3=100
D．x+y+z=100 r 5*x+3*y+z/3=100
13．补全程序。
已知包含25项的数列：1，2/3，3/5，……，24/47，25/49
问题1：写出该数列的通项公式f(n)=_________________
问题2：以下是计算s=1+2/3+3/5+……+24/47+25/49的程序，请补全代码。
Dim i As Integer
Dim s As Single
s = 0
Fr i = 1 T 25
s = s +_____________
Next i
Print s
14．____________法就是在分析具体问题的基础上，抽取出一个数学模型，这个数学模型能用若干个解析式表示出来，解决了这些表达式，问题也就得以解决。
15．尼克斯彻定理：任何一个大于等于 1 的整数的立方等于一串连续奇数之和，如：13=1，23=3+5，33=7+9+11。编写一个 VB 程序验证尼克斯彻定理，程序运行时，在文本框 Text1 中输入 一个大于等于 1 的整数，单击“验证”按钮 Cmmand1，在文本框 Text2 中显示验证结果，运行界 面如下图所示
实现上述功能的 VB 代码如下，其中加框处代码有错，请改正。
Dim n As Integer, i As Integer, t As Integer, sum As Lng, s As String
n = Val(Text1.Text)
Fr i = 1 T n ^ 3 Step 2 ' 变量 i 表示连续奇数的首个整数
sum = 0 : t =i : flag = False
D While sum 0
sum = sum-1
If sum = 0 Then
s = s + Str(i)
Else
s = s + Str(i) + "+"
End If
i = i + 2
Lp
Text2.Text = s
End Sub
加框部分应改为：① _________ ②__________
三、操作题
16．输出方阵每行最大值及所在位置。程序功能如下：单击按钮Cmmand1，生成n个随机数，若n=Int(Sqr(n))*Int(Sqr(n)，则将n个随机数以Int(Sqr(n))*Int(Sqr(n)的方阵形式输出(例，n=49时，输出数据规模7*7的方阵)，同时输出方阵中每行的最大值及其位置，否则提示“重新输入”，程序运行结果部分界面如图所示：
程序运行的部分代码如下，回答下列问题
(1)若要修改窗体标题为“方阵行最大值及位置”，可通过修改其__________属性完成。
(2)根据代码回答，方阵中生成随机数a的范围是__________(单选，填字母：A．区间【10，100】的奇数/B．区间【11，99】的整数)
(3)完成划线处填空
Dim I As Integer，a As Integer，s As String，n As Integer
Dim max As Integer，h As Integer，L As Integer
n=Val(Text1.Text)
If nInt(Sqr(n))*Int(Sqr(n)) Then
Text1.Text="重新输入，输入一个完全平方数"
Else
Text1.Text=Str(n)&"是完全平方数，生成的方阵行最大值及位置如下："
Fr i=1 T n
a=Int(2*Int(5＋45*Rnd))＋1
s=s＋Str(a)
If a>max Then
max=a
h=_______
L=_______
End If
If i Md Sqr(n)=0 Then
List1.AddItem s&" "&"第"&Str(h)&"行的最大值是"&Str(max)&"位于第"&Str(L)&"列"
s=""
max=0
End If
Next i
End If
(4)结合代码，若文本框Text1中输入25，生成的方阵某行数据为“53 97 61 33 97”，则该行的最大值97位于第_________列(选填：2/5)
参考答案：
1．C
2．A
3．D
4．D
5．C
6．A
7．D
8．B
9．C
10．B
11． BFJCDGH jLen(s) Md n ASC(Mid(s1,k,1))-ASC(“A”)+j
12． 穷举法 C
13． n/(2n-1) i/(2*i-1)
14．解析
15． t =t + 2 sum = sum – i
16． Captin A (i-1)\sqr(n)+1 (i-1)md sqr(n)+1 2