题目

数学上把2，4，8，16等数称为2的幂次方。编写程序，实现如下功能： 在文本框Text1中输入一个正整数n，单击“查找”按钮，找到一个2的幂次方，使其与n之差的绝对值最小，并在标签框 Label1中输出。如果找到两个同时满足条件的幂次方，则输出较小的。程序运行界面如图所示。 （1） 要使程序运行时，标签框Labell的ForeColor属性值为vbRed，可在Form_Load事件处理过程中添加语句（单选，填字母： A . Label1. ForeColor= vbRed/ B . Label1. 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(Text1. 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”，单击“查找”按钮，标签框 Label1中显示的内容是。 答案： 【1】A 【1】sum=sum*2【2】n-sum/2<=sum-n或n-sum/2<=Abs(n-sum)或4*n<=3*sum或其他等价答案 【1】16

查看本题答案和解析