设有n盏灯，放在一排。从1 到 n依次顺序编号。有 n个人也从1到n依次编号。第1个人（1号）将灯全部关闭，第2个人（2号）将凡是2的倍数的灯打开，第3个人（3号）将凡是3的倍数的灯做相反处理（该灯如果为打开的，则将它关闭，如关闭的将它打开），以后的人和3号一样，将凡是自己号数倍数的灯做相反处理。问当n个人操作后，哪几盏灯是亮的。（亮灯为0，关闭为1）
为了实现这一目标，完善下列程序，使之能完成该功能。
Private Sub Command1_Click()
Const n=20
Dim i As Integer,j As Integer
Dim a(1 To n) As integer
For j=1 To n
a(j)=0
Next j
For i=1 To n
For j=1 To n
If j Mod i=0 Then
______________ ‘(1)
End If
Next j
Next i
For j=1 To n
If ________ Then List1.AddItem Str(j) ‘(2)
Next j
End Sub
为了实现这一目标，完善下列程序，使之能完成该功能。
Private Sub Command1_Click()
Const n=20
Dim i As Integer,j As Integer
Dim a(1 To n) As integer
For j=1 To n
a(j)=0
Next j
For i=1 To n
For j=1 To n
If j Mod i=0 Then
______________ ‘(1)
End If
Next j
Next i
For j=1 To n
If ________ Then List1.AddItem Str(j) ‘(2)
Next j
End Sub
一辆卡车运矿石，晴天每天运20次，雨天每天最多运12次，他一共运了8天，共112次，则晴天和雨天各有几天。用VB程序来解决这个问题，单击按钮Command1，在文本框Text1中输出晴天的天数，在文本框Text2中输出雨天的天数，程序代码如下：
Private Sub Command1_Click()
i＝1
j＝7
Do While ____①____
i＝____②____
j＝____③____
Loop
Text1.Text＝Str(i)
Text2.Text＝Str(j)
End Sub
则下列说法正确的是( )
Private Sub Command1_Click()
i＝1
j＝7
Do While ____①____
i＝____②____
j＝____③____
Loop
Text1.Text＝Str(i)
Text2.Text＝Str(j)
End Sub
则下列说法正确的是( )
| A．①应填的代码为 i*20＋j*12<>112 |
| B．②应填的代码为i－1 |
| C．③应填的代码为j＋1 |
| D．描述该算法的思想为解析算法 |
某算法的部分流程图如下图所示：
执行该算法，下列描述正确的是( )
执行该算法，下列描述正确的是( )
| A．t←t＋2执行了4次 |
| B．s≤35? 执行了4次 |
| C．循环结构后，t的值为7 |
| D．该算法体现了枚举算法思想 |
古希腊著名科学家毕达哥拉斯把1、3、6、10、15、21、28……称为三角形数。这些三角形数序列有一定的规律，后一个数与前一个数的差刚好构成一个等差数列2、3、4、5、6、7、……，所以，第2位的“3”等于序列的第1位数“1”加上等差数“2”，第3位的6等于序列的第2位数“3”加上等差“3”……，第n位数m等于序列的第n-1位数加上等差数n。小金利用这个规律编写了一个判断三角形数的VB程序，在文本框Textl中输入一个大于1的正整数，单击“判断”按钮Commandl,在标签Labell中显示判断结果。程序设计界面如图所示。
(1) 在设计程序界面时，要清空标签中显示的内容“Labell”，应修改该标签的_________属性。
(2) VB程序代码如下，请在划线处填入合适代码。
Private Sub Command1 Click()
s =________________________
If n = s Then
Labell. Caption = Str(n) +〃是一个三角形数。"
Exit For
______________________________________
Labell. Caption = Str(n) +"不是一个三角形数。"
Exit For
End If
Next i
(3)若文本框Text1中输入的内容为“27”，单击按钮Commandl后，标签Labell中显示的内容是_________________
(1) 在设计程序界面时，要清空标签中显示的内容“Labell”，应修改该标签的_________属性。
(2) VB程序代码如下，请在划线处填入合适代码。
Private Sub Command1 Click()
Dim n As Integer, s As Integer
s = 0
n = Val(Textl. text)
If n > 1 Then
For i = 1 To ns =________________________
If n = s Then
Labell. Caption = Str(n) +〃是一个三角形数。"
Exit For
______________________________________
Labell. Caption = Str(n) +"不是一个三角形数。"
Exit For
End If
Next i
Else
Labell.Caption = 〃请输入一个大于1的正整数"End If
End Sub(3)若文本框Text1中输入的内容为“27”，单击按钮Commandl后，标签Labell中显示的内容是_________________
穷举法的适用范围是（ ）
| A．一切问题 |
| B．所求问题的解无限多 |
| C．所求问题解的个数有限且有明确的条件 |
| D．所求问题解的个数有限且无明确的条件 |
列出所有可能的情况，逐个判断有哪些符合问题所要求的条件，从而解决问题，这是（ ）思路
| A．递归算法 | B．顺序查找算法 | C．穷举法 | D．解析法 |
设计算法，求同时满足以下条件的所有四位正整数之合s。①不大于n(n的值由键盘输入)②能被9整除③十位数是2。算法流程图如下所示：
（1）解决上述问题的算法属于（_______）
A.枚举法 B.擂台法 C.解析法 D.对分法
（2）判断x能被9整除的设计思路是 ；取x十位上数字的设计思路是 。（_______）
A.x除以9的余数为0；先求x除以10的余数，再求该余数除以10的商
B.x除以9的商为0；先求x除以10的余数，再求该余数除以100的商
C.x除以9的商为0；先求x除以100的余数，再求该余数除以100的商
D.x除以9的余数为0；先求x除以100的余数，再求该余数除以10的商
（3）小明根据上述思路，设计了一段不完整的程序。请完善划线处内容，完成上述功能。
Dim n as Integer，x as Integer，s as long
s=0
n=InputBox(“输入四位数上限值”)
For____________
_____________
（1）解决上述问题的算法属于（_______）
A.枚举法 B.擂台法 C.解析法 D.对分法
（2）判断x能被9整除的设计思路是 ；取x十位上数字的设计思路是 。（_______）
A.x除以9的余数为0；先求x除以10的余数，再求该余数除以10的商
B.x除以9的商为0；先求x除以10的余数，再求该余数除以100的商
C.x除以9的商为0；先求x除以100的余数，再求该余数除以100的商
D.x除以9的余数为0；先求x除以100的余数，再求该余数除以10的商
（3）小明根据上述思路，设计了一段不完整的程序。请完善划线处内容，完成上述功能。
Dim n as Integer，x as Integer，s as long
s=0
n=InputBox(“输入四位数上限值”)
For____________
If___________and_____________ Then
s=s+xEnd If
Next_____________