下列问题中适合使用枚举算法解决的是（   ）

A．计算两个数的乘积

B．计算50个同学的平均分

C．查找200以内所有能被7整除且个位数字为5的自然数

D．设计主题班会

下表记录了7个数据的冒泡排序过程，分析表中数据可以得知采用升序的方式，要经历多少次数据比较（ ）

原始数据	3	98	8	88	5	78	28
第1遍	3	5	98	8	88	78	28
第2遍	3	5	8	98	88	78	28
…	…	…	…	…	…	…	…

 

A．6

B．7

C．21

D．36

小李有一被污损的保修卡(如图)，客服热线中有一个数字被污损掉了，找出这个数字的适合算法是（   ）

A．枚举算法	B．解析算法
C．对分查找算法	D．递归算法

请认真阅读并分析下面Visual Basic程序代码，按要求完成题目。
Dim a(1 To 6) As Integer
Dim n, i, j, k As Integer
Private Sub Command1_Click()
For i =" 1" To n - 1
For j =   （1） To n
If a(i) < a(j) Then
k = a(i):  （2）  : a(j) = k
End If
Next j
Next i
For i =" 1" To n
list2.AddItem Str(a(i))
Next I
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val(    (3)  )
List1.AddItem Str(a(n))
Text1.Text = "": Text1.SetFocus
End If
End Sub
①程序中出现了text和list两种控件，其中list控件的中文名称是列表框，text控件的中文名称是    。
（2）在上述程序段中3处带序号的空白地方补充恰当的语句，完善程序。

小明设计了一个Visual Basic程序：求 1～n(不超过10000)之间能被5整除但不能被3整除的自然数。其设计界面如图1所示、代码编辑窗口如图2所示。

图1

图2
（1）解决此问题主要采用的算法为   ①  （填：解析算法 / 枚举算法）。
（2）图2中标注A处应填写的代码为 ②    。
（3）图2中List1.AddItem Str(i)语句中AddItem是List1的 (填: 事件/属性/方法)。

有如下VB程序:
Dim i As Integer, j As Integer, k As string, n As Integer
n = 3
List1.Clear
For i="1" To n
k =″″
For j="1" To i
k = k+″*″
Next j
List1.AddItem k
Next i
该程序运行后, 在列表框List中显示的是(    )

A．	B．
C．	D．

下面是一段关于计算变量s的算法：
①变量s的初值是0
②变量i从1起循环到n，此时变量s的值由下面的表达式计算
③s=s+(-1)*I
④输出变量s的值
这个计算s值的算法中，s的代数式表示式（   ）

A．1－2+3－4+…+(-1)n×(n－1)

B．1－2+3－4+…+(-1)n×n

C．1+2+3+4+…+(n－1)+n

D．－1－2－3－…－n

现需计算1*2*3*……*n=?有如下程序段，在划线处填入合适的语句或表达式，完成程序。
s=1
i=1
Do While i<=n
S =" s" * i
i =" i" + 1

输入一个三位数的整数，要求将此三位数的各位上的数字重新排列，组成一个尽可能大的三位数。例如：输入213，重新排列可得到尽可能大的三位数是321。
现要求编写VB程序（运行界面如图所示），实现如下功能：在文本框Text1中输入一个三位数整数，单击“求解”按钮Command1，在文本框Text2中显示重新组合后的最大三位数整数。某同学按此要求编写的程序如下，其中函数max(x)用于求解最大三位数整数，但加框处代码有错，请改正。

①__________________②___________________
Function max(x As Integer) As Integer
Dim a As Integer, b As Integer, c As Integer, t As Integer
a =" x" \ 100
b = (x \ 10) \ 10 ' ①
c =" x" mod 10
If a < b Then t =" a:" a =" b:" b = t
If a < c Then t =" a:" a =" c:" c = t
If b < c Then t =" c:" c =" b:" b = t
max = c* 100 + b * 10 + a ' ②
End Function
Private Sub Command1_Click()
Dim n As Integer, y As Integer
n = Val(Text1.Text)
y = max(n)
Text2.Text = Str(y)
End Sub

下面程序的功能是：计算表达式1+3+5+…+(2n-1)的值，在文本框Text1中输入n的值，结果在文本框Text2中输出。则程序中划线处的语句应填____________。
Private Sub Command1_Click()
Dim sum As Long,i As Integer,n As Integer
sum = 0
n = Val(Text1.Text)
For i =" 1" To 2 * n - 1 Step 2
    
Next i
Text2.Text=Str(sum)
End Sub