3.2穷举法同步练习沪科版信息技术选修1

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

一、选择题
1．逻辑运算符 And 在计算数值时是转换为二进制数后按位进行与运算，计算规则是：1 And 1 = 1，1 And 0 = 0，0 And 1 = 0，0 And 0 = 0，例如 7 转换为二进制数 00000111，12 转换 为二进制为 00001100，因此 7 And 12 的结果为 4。有如下 VB 程序段：
Private Sub Cmmand1_Click()
n = 0
Fr i = 1 T 31 k = i
t = 0
D While k > 0
k = k And (k - 1)
t = t + 1
Lp
If t = 3 Then n = n + 1
Next i
Label1.Captin = Str(n)
End Sub
单击命令按钮 Cmmand1，标签 Label1 中显示的结果为
A．6B．8C．10D．12
2．有如下VB程序段:
Dim a(1 t 5) as Integer, i as Integer, c as Integer
a(1) = 2 : a(2) = 1 : a(3) = 3 : a(4) = 4 : a(5) = 5
c = 0
Fr I = 3 t 5
If a(i - 2) + a(i - 1) = a(i) Then c = c + 1
Next i
Text1.Text = Str(c)
该程序运行后,文本框text1中显示的内容是（ ）
A．1B．2C．3D．4
3．有如下 VB 程序段：
str1 = Text1.Text :len1 = Len(str1)
i = 0
D While i 1 Then
Fr i = 1 T n
s =________________________
If n = s Then
Labell. Captin = Str(n) +〃是一个三角形数。"
Exit Fr
______________________________________
Labell. Captin = Str(n) +"不是一个三角形数。"
Exit Fr
End If
Next i
Else
Labell.Captin = 〃请输入一个大于1的正整数"
End If
End Sub
(3)若文本框Text1中输入的内容为“27”，单击按钮Cmmandl后，标签Labell中显示的内容是_________________
15．数学中的“自守数”：如果一个数的平方数的末几位等于该数本身，这个数就是自守数。例如：
5*5=25
6*6=36
25*25=625
76*76=5776
……
那么，5、6、25、76 等数被称为自守数。小袁编写一个 VB 程序，实现如下功能：找出 10000 以内所有可能的自守数，单击“统计”按钮 Cmmand1，将符合要求的自守数显示在列表框 List1 中，统计个数显 示在标签 Label1 中，运行界面如图所示。
（1）程序运行时要在按钮上显示“统计”，应设置该按钮的________属性。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Cmmand1_Click()
Dim n As Single, k As Integer, t As Integer, c As Integer
List1.Clear c=0
Fr n = 5 T 10000
k = Len(Trim(n)) 'Trim()函数用于删除字符串前后的空格
t = (n * n) Md ① _
If t = n Then
List1.AddItem Str(n)
②
End If
Next n
Label1.Captin = "自守个数为：" + Str(c)
End Sub
为实现上述功能，划线处应填入的代码分别为
①__________________________________________ 。
②___________________________________________。
（3）解决该问题采用了_______（选填：枚举/解析）算法。
三、操作题
16．小刘设计了一个排序算法，该排序算法会将数组a中奇数位的元素从小到大排列，偶数位的元素从大到小排列，程序界面如图，算法的VB程序段如下：
回答以下问题：
(1)若要修改按钮Cmmand1上显示的文字，应修改的属性名是________(单选，填字母：A．Text/B．Captin/C．Click)
(2)程序代码中，Fr语句加框处有错，应改为________。
(3)划线部分的代码应填
①_______________________
②________________________
(4)若将划线处“Fr i=1 T n-2”修改为“Fr i=1 T n-1”，是否会出错?________ (填是/否)
参考答案：
1．C
2．B
3．B
4．C
5．D
6．B
7．C
8．A
9．D
10．D
11． Captin s\100 md 10 a=6 r b=6 n=n+1
12． a(j)=1-a(j) a(j)=0
13． k=j*j 或k=j^2 (其他等价答案也行) Str(k) (其他等价答案也行)
14． captin s+i elseif s>n then 27不是一个三角形数
15． Captin 10^k c=c+1 枚举
16． B i+2 t=-t i md 2 =1 否