数学上把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中显示的内容是______________________。

小金编写了一个统计随机数分布的VB程序，部分程序如下所示，在调试程序的时候出现如右图所示的错误信息：

n =0 : m = 0
For  i =1 To 100
If  Rnd > 0.5  Then
n = n + 1
Else
m = m + 1
Next  i
……
小金仔细分析该程序段后，发现其中缺少了（ ）

A．For

B．End If

C．Next

D．If

下列VB程序运行时，在文本框Text1中输人数据6，在文本框Text2中输入数据9，单击命令按钮Command1后，文本框Text1中显示的内容是   (1)  ，文本框Text2中显示的内容是   (2)   。
Private Sub Command1_C1ick ()
Dim a As Integer, b As Integer
a=Val(Text1.Text)
b=Val(Text2.Text)
a=a*b
b=a/b
a=a/b
Text.Text=Str(a)
Text2.Text=Str(b)
End Sub

小明根据如下流程图编写了VB程序，但运行时提示有错，请找出程序中的5个错误，并改正。

（1）错误语句的编号是_______。（2）修改为___________________________。
（2）错误语句的编号是_______。（2）修改为___________________________。
（3）错误语句的编号是_______。（2）修改为___________________________。
（4）错误语句的编号是_______。（2）修改为___________________________。
（5）错误语句的编号是_______。（2）修改为___________________________。

用VB模拟设计某软件的登录界面，如图所示，当鼠标单击“<请输入帐号>”所在的文本框Text1，文字内容就消失。则此事件处理的过程名应该是(    )

A．登录窗口_CliCk

B．Text1_KeyPress

C．CommAnD1_CliCk

D．Text1_CliCk