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