一個(gè)考古學(xué)家在尋找外星生物曾到過地球的證據(jù)．他偶然發(fā)現(xiàn)一面破損的墻上有一串奇怪的數(shù)字，數(shù)字長度不超過9位數(shù)，左側(cè)是完整的，而很多數(shù)字的右側(cè)部分因石頭被腐蝕而極難辨認(rèn)．他發(fā)現(xiàn)保存完好的數(shù)都是2的冪，于是他猜測所有數(shù)都是2的冪．為了證明他的結(jié)論，他選取了一份數(shù)的清單，每個(gè)數(shù)中清晰可辨的數(shù)字個(gè)數(shù)總是嚴(yán)格小于模糊不清的數(shù)字個(gè)數(shù)．請你為這些數(shù)找出一個(gè)盡量小的2的冪，使得它左側(cè)的數(shù)字和清單吻合．
以下程序，在Text1中輸入一個(gè)清單中的數(shù)n,單擊按鈕Command1后在Label中輸出一個(gè)最小的指數(shù)x（若存在），使得2^x從最高位開始的若干個(gè)數(shù)字等于n.如：輸入10，則找到最小的x=20，即2²⁰=1048576的前兩位與輸入數(shù)相同；而x=10的結(jié)果1024長度不符．如果在給定條件內(nèi)找不到這樣的指數(shù)x,則輸出“No Power of 2”．
'power函數(shù)的功能與2^n一致，只不過它的返回值是String類型而不是整數(shù)型

Function  power（n As Integer） As String
Dim  res  As  Long
res=2^{^}n
power=Trim（Str（res））‘trim （　?。┖瘮?shù)的作用是去掉字符串左右的空格
End  Function
'check （　　）函數(shù)用于檢測前幾位數(shù)和長度是否符合要求，符合要求返回為True
Function  check（x_power  As  String,n  As  String） As Boolean
Dim length  As  Integer,x_power_len  As  Integer
length=Len（n）
x_power_len=Len（ x_power）
If Mid（x_power,1，length）=n  And

length＜x_power_len-lenth

length＜x_power_len-lenth

 Then
check=True
Else
check=False
End If
End Function
Private  Sub  Commandl_Click （　?。?br />Dim  n  As  String,i  As  Integer,x As String
n=Textl.Text
i=0
x=power（i）
Do  While  Len（x）＜10And     ②
i=i+1
x=power（i）
Loop
If Len（x）＜10Then
Labell.Caption=“2的”&  ③ &
“次方的前幾位是”& n &“，符合要求”
Else
Label1．Caption=“No Power of 2”
End If
End Sub.