数学上把2，4，8，16等数称为2的幂次方。编写程序，实现如下功能：在文本框Text1中输入一个正整数n，单击“查找”按钮，找到一个2的幂次方，使其与n之差的绝对值最小，并在标签框 Label1中输出。如果找到两个同时满足条件的幂次方，则输出较小的。程序运行界面如图所示。

（1）要使程序运行时，标签框Labell的ForeColor属性值为vbRed，可在Form_Load事件处理过程中添加语句___________（单选，填字母：

A．Label1. ForeColor= vbRed/

B．Labell. vbRed= ForeColor/

C．Fore Color. Label1=vbRed）。

（2）实现上述功能的VB程序如下，请在画线处填入合适的代码。
Private Sub Command 1_ Click()

Dim n As Long, sum As Long, ans As Long

n= Val(Textl. Text)

sum=1

Do While sum <n

   ____________

Loop

If n =sum Then

ans=sum
ElseIf ___________Then
ans=sum/2
Else
ans =sum
End If
Label 1. Caption = Str(ans)
End Sub
（3）若文本框Text1中输入的内容为“24”，单击“查找”按钮，标签框 Label l中显示的内容是______________________。

在窗体上画一个命令按钮，名称为command1，单击命令按钮，执行如下事件过程：
Private Sub Command1_Click() 
Dim a As String
Dim c As String
a = "software and hardware"
c =" Mid(a," 14, 8)
Text1.text = c
End Sub
则在文本框Text1中显示的信息是（   ）

A．software and hardware

B．software

C．hadrware

D．and

小李父母开了一家农家乐，顾客可以到桔园自摘桔子，收费标准是门票每人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位顾客需付总费用__________元。

能正确表达“a≤1或a≥5”的VB逻辑表达式是_______。

A．a<="1" 或a>=5

B．a<=1,a>=5

C．a<="1" or a>=5

D．a<="1" and a>=5

小明利用VB编写了一个“质因数分解”的程序，程序的功能如下：在文本框Textl中输入一个大于1的正整数，单击“转化”按扭Command 1后，则在标签Label 2中显示该整数质因数分解公式。若输入的数为素数时，则直接输出该数；若输入的数小于等于1或为小数时，则显示出错信息。程序运行时界面如图所示：

实现该程序的代码如下：
Private Sub Command1_Click( )
Dim n As Double，m As Long，s As String
n = Val (Text1.Text)
IfThen
m=2
s=“”
Do While n > 1
If n Mod m = 0 Then
_________①__________
If s=“”Then
s=Str(m)
Else
s=s+“X” + Str(m)
_________②__________
Else
m=m+1
End If
Loop
Label 2.Caption = Text1.Text+“=”+s
Else
Text1.Text=“”
Label2.Caption“=你输入的数不在转化范围内，请重新输入!”
End If
End Sub
(1)在程序界面设计时，应使用控件工具箱中的___________(单选题填字母

A．

B．

C．

D．)控件添加命令按钮Comand1，并将该对象的____________属性设置为“转化”。

(2)加框处的代码有误，应改为_____________________。
(3)划线①处应填入代码___________________________。
(4)划线②处应填入代码___________________________。
(5)若在文本框中输入的内容为53，则标签Label2中显示的内容为_______________。