小李父母开了一家农家乐，顾客可以到桔园自摘桔子，收费标准是门票每人20元，采摘的桔子每斤10元，付费时若能完成小游戏则有优惠。用VB软件设计的自摘收费程序，功能如下：在文本框Textl中输入自摘的人数n，在文本框Text2中输入摘得桔子重量w。界面右上方是小游戏部分，程序在文本框Text3显示随机产生的桔子层数m，根据图中所示的堆桔子方法（第1层1个；第2层4个；第3层9个……），请顾客计算出m层桔子总数s，输入到文本框Text4中，单击“是否优惠计算”按钮Command1，就会在标签Label4中输出最后的费用f，并在标签Label7中给出提示是否“优惠后的费用”。运行效果如图所示： 

(1)自摘收费程序所用的算法是_____________（填：解析算法/枚举算法）。
(2)为实现上述功能，请在划线①和②处填入合适的代码。
Dim m As Integer
Private Sub Command1_Click() 
Dim n As Integer, s As Integer
Dim w As Single, f As Single
n = Val(Text1.Text) '输入大人人数n
w = Val(Text2.Text)     '输入重量w
f = 20 * n + 10 * w '计算无优惠的费用f
s = 0
For i = 1 To m '计算桔子总数
s = s + i * i
Next i
If  s= ①__________  Then '判断是否拿到优惠计算费用
f = f * 0.5 + s * 0.3 '计算优惠后的费用
Label7.Caption = "恭喜你，这是优惠后的费用！"
Else
Label7.Caption = "很遗憾，你没有算对哦！"
End If
Label4.Caption = Str(f) '输出最后的费用f
End Sub
Private Sub Form_Load()
Randomize
m = ②________________ '随机产生15层及以内的桔子层数（0不算）
Text3.Text = Str(m)
End Sub
（3）若3位顾客摘得5斤桔子，游戏中需要计算出3层桔子的总个数，但是他们没有算对桔子个数，在text4中输入了16，那么这3位顾客需付总费用__________元。

在文本框text1中输入一个8位数，单击统计按钮统计各数字出现的个数，并输出出现次数最多的那个。运行效果如图所示：

（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的_______属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim n As Long, m As Integer
Dim a(0 To 9) As Integer
n = Val(Text1.Text)
List1.Clear
For i = 0 To 9
a(i) = 0
Next i
Do While n > 0
t = n Mod 10
a(t) = a(t) + 1
①_____________
Loop
m = a(0)
For i = 1 To 9
If a(i) > m Then m = a(i): k = i
List1.AddItem Str(i) & "：" & Str(a(i)) & "个"
Nextｉ
Label2.Caption = "出现最多的数字是：" + ②_______________
End Sub

（加试题）以下VB代码运行后，在文本框Text1输入3，则最终在文本框Text1输出的结果为（   ）
Private Sub Text1_Change()
Dim m As Integer, i As Integer
k = Val(Text1.Text)
For i = 2 To 4
If k <= 14 Then
k = k + i
End If
Next i
Text1.Text = Str(k)
End Sub

A．21

B．17

C．14

D．12

   编写VB程序，实现如下功能：在文本框Txt1中输入字符串，如“12321”、“abba”，点击Com1按钮，判断输入的字符串是否对称，即从左读到右与从右读到左完全一样，并在标签lab2上显示判断结果。

(1）   在程序代码中，第一行语句“Private Sub Com1_Click( )”中的Com1_Click( )是_____________(填字母：

A．对象名 /

B．事件名 /

C．事件处理过程名 /

D．方法名）

(2）为实现上述功能，请在划线处填入合适的代码或语句。

Private Sub Com1_Click()
Dim s As String, c1 As String, c2 As String
Dim n As Integer, i As Integer
Dim f As ①____________.
s = Txt1.Text
n = Len(s)
f = True
For i = 1 To n \ 2
c1 = Mid(s, i, 1)

②___________.

  If c1 <> c2 Then
③___________.
Exit For     '退出For循环
End If
Next i
If f = True Then
Lab2.Caption = "对称"
Else
Lab2.Caption = "不对称"
End If
End Sub

（加试题）有如下VB程序段：
For i = 5 To 4 Step -1
k = i
For j = 6 - i To 1 Step -1
If a(j) < a(k) Then k = j
Next j
If i <> k Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
数组元素a(1)到a(5)的值依次为“41，66，70，83，31”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为( ）

A．31，41，66，83，70	B．83，70，66，41，31
C．83，66，70，41，31	D．31，41，66，70，83

某算法流程图如下图所示，执行这部分流程后，变量a和b的值分别为（   ）

A．6和5

B．1和4

C．1和-1

D．-3和7

某算法的部分流程图如图所示。执行这部分流程后，变量a的值为（    ）

A．1	B．2
C．3	D．4

某算法的部分流程图如图所示，执行该部分后，变量的值an为

A．3

B．5

C．7

D．8

某算法的流程图如图所示：程序运行结束后a,b的值为

A．2，2

B．4，6

C．10，16

D．26，36

张真同学对数字系统很感兴趣，他已经学会了整数十进制转换为二进制的方法："除2取余，逆序排列"法。通过查找资料得知，十进制小数转换成二进制小数采用"乘2取整，顺序排列"法。具体做法是：用2乘十进制小数部分，得到积，将积的整数部分取出，再用2乘余下的小数部分，又得到一个积，再将积的整数部分取出，如此进行，直到积中的小数部分为零，或者达到所要求的精度为止。张真同学编写了VB程序如第17题图:程序运行时,在文本框Text1中输入一个带小数的正十进制数（小于32767），点击“进制转换”按钮Command1，在文本框Text2中输出转化后的带小数的二进制数，精确到4位小数。
实现上述功能的VB程序如下，请回答下列问题：

（1）按照本程序的功能，在Text1中输入数据4.125，点击“进制转换”按钮Command1，在Text2中输出     。
（2）请在画线处填入合适的代码：
Private Sub Command1_Click()
Dim k As Integer, i As Integer, pos As Integer, temp As Integer
Dim s As String, c As String, result As String
Dim s1 As Integer,s2 As Single
result = "":i = 1
s = Text1.Text
c = Mid(s, i, 1)
Do While c <> "."
i = i + 1
c = Mid(s, i, 1)
Loop
pos = i
1     
s2 = Val("0." + Mid(s, pos + 1,len(s)-pos))
'整数部分s1转化为二进制
temp = s1 Mod 2
result = str(temp) & result
s1 = s1 \ 2
Do While s1 <> 0
temp = s1 Mod 2
result = str(temp) & result
s1 = s1 \ 2   
Loop
result = result & "."
'小数部分s2转化为二进制,最多保留4位小数
k = 1
Do While   ②     
temp = Int(s2 * 2)
result = result & str(temp)
  3   
k = k + 1
Loop
Text2.Text = result
End Sub