編寫VB程序，尋找第1位為2，第5位為5，數(shù)字長度為5的完全平方數(shù)（即開根號之后是一個整數(shù)），并統(tǒng)計個數(shù)．要求：單擊“尋找”按鈕Command1，將符合要求的五位數(shù)顯示在列表框List1中，統(tǒng)計的個數(shù)顯示在標簽Label2中，界面如圖所示．
實現(xiàn)上述功能的VB程序代碼如下：
Private Sub Command1_Click（ ?。?/div>（ ?。?/div>
Dim i As Integer,n As Integer
Dim x As Integer
n=0
For i=0To 999
x=①20005+i*1020005+i*10
If②int（sqr（x）=sqr（x）int（sqr（x）=sqr（x） Then
List1．AddItem str（x）
n=n+1
End If
Next i
Label2．Caption=“共有：“+Str（n）+“個“
End Sub
（1）在設計應用程序界面時，要將按鈕Command1的標題改為“尋找”，應該修改它的CaptionCaption屬性
（2）為實現(xiàn)上述功能，劃線①處應填入的代碼為20005+i*1020005+i*10；劃線②處應填入的代碼為int（sqr（x）=sqr（x）int（sqr（x）=sqr（x）；
（3）解決該問題主要采用的算法是枚舉算法枚舉算法．【考點】編輯事件處理過程的代碼；對象的屬性、方法和事件．【答案】（ ?。?；20005+i*10；int（sqr（x）=sqr（x）；Caption；20005+i*10；int（sqr（x）=sqr（x）；枚舉算法【解答】【點評】聲明：本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有，未經(jīng)書面同意，不得復制發(fā)布。發(fā)布：2024/4/20 14:35:0組卷：2引用：1難度：0.1
相似題
-
1．根據(jù)AQI值判斷城市的空氣質(zhì)量。若城市的AQI值（整數(shù)）不超過100則空氣質(zhì)量優(yōu)良，否則空氣質(zhì)量有污染。當輸入的AQI值為-1時則退出程序。不要更改程序結(jié)構(gòu)，將題中的①②③④填入正確的語句。
city=input（“請輸入城市名：”）
AQI=int（input（“請輸入空氣質(zhì)量指數(shù)AQI的值：”））
①______ AQI!=-1：
if ②______：
print（city,“的空氣質(zhì)量優(yōu)良?！保?br />③______：
print（city,“的空氣質(zhì)量有污染?！保?br />city=input（“請輸入城市名：”）
AQI=④（input（“請輸入空氣質(zhì)量指數(shù)AQI的值：”））
（1）序號①答案為 。
A．if
B．while
C．for
D．def
（2）序號②答案為 。
A．AQI＞=100
B．AQI＜=100
C．AQI＞100
D．AQI＜100
（3）序號③答案為 。
A．elif
B．break
C．if
D．else
（4）序號④答案為 。
A．int
B．float
C．str
D．else
-
2．一球從100米高度自由落下，每次落地后反跳回原高度的一半，再下落。編寫一個C程序，求它在第10次落地時，其經(jīng)過了多少米？第10次反彈多高？
-
3．利用海倫公式求解三角形面積。已知a,b,c為三角形的三條邊長，p為三角形的半周長，即p=（a+b+c）/2，計算此三角形面積S的海倫公式為：
。不要更改程序結(jié)構(gòu)，將題中的①②③填入正確的語句。
import math#導入數(shù)學模塊
def hl（a,b,c）：#定義求三角形面積的函數(shù)
p=①
s=math.jye.ai（②）#sqrt用于計算算術平方根
return ③#返回面積的值
a,b,c=3，4，5#邊長依次賦值
print（“此三角形的面積S為：“，hl（a,b,c））
（1）序號①答案為
A． （a+b+c）/2 B．p*（p-a）*（p-b）*（p-c）
C． （a+b+c）*2 D．s
（2）序號②答案為
A．（a+b+c）/2 B．p*（p-a）*（p-b）*（p-c）
C．（a+b+c）*2 D．（3+4+5）/2
（3）序號③答案為
A．p B．s
C．p*（p-a）*（p-b）*（p-c） D．0
（ ?。?/div>
Dim i As Integer,n As Integer
Dim x As Integer
n=0
For i=0To 999
x=①
If②
List1．AddItem str（x）
n=n+1
End If
Next i
Label2．Caption=“共有：“+Str（n）+“個“
End Sub
（1）在設計應用程序界面時，要將按鈕Command1的標題改為“尋找”，應該修改它的
（2）為實現(xiàn)上述功能，劃線①處應填入的代碼為
（3）解決該問題主要采用的算法是
Dim i As Integer,n As Integer
Dim x As Integer
n=0
For i=0To 999
x=①
20005+i*10
20005+i*10
If②
int（sqr（x）=sqr（x）
int（sqr（x）=sqr（x）
ThenList1．AddItem str（x）
n=n+1
End If
Next i
Label2．Caption=“共有：“+Str（n）+“個“
End Sub
（1）在設計應用程序界面時，要將按鈕Command1的標題改為“尋找”，應該修改它的
Caption
Caption
屬性（2）為實現(xiàn)上述功能，劃線①處應填入的代碼為
20005+i*10
20005+i*10
；劃線②處應填入的代碼為int（sqr（x）=sqr（x）
int（sqr（x）=sqr（x）
；（3）解決該問題主要采用的算法是
枚舉算法
枚舉算法
．【考點】編輯事件處理過程的代碼；對象的屬性、方法和事件．
【答案】（ ?。?；20005+i*10；int（sqr（x）=sqr（x）；Caption；20005+i*10；int（sqr（x）=sqr（x）；枚舉算法
【解答】
【點評】
聲明：本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有，未經(jīng)書面同意，不得復制發(fā)布。
發(fā)布：2024/4/20 14:35:0組卷：2引用：1難度：0.1
相似題
-
1．根據(jù)AQI值判斷城市的空氣質(zhì)量。若城市的AQI值（整數(shù)）不超過100則空氣質(zhì)量優(yōu)良，否則空氣質(zhì)量有污染。當輸入的AQI值為-1時則退出程序。不要更改程序結(jié)構(gòu)，將題中的①②③④填入正確的語句。
city=input（“請輸入城市名：”）
AQI=int（input（“請輸入空氣質(zhì)量指數(shù)AQI的值：”））
①______ AQI!=-1：
if ②______：
print（city,“的空氣質(zhì)量優(yōu)良?！保?br />③______：
print（city,“的空氣質(zhì)量有污染?！保?br />city=input（“請輸入城市名：”）
AQI=④（input（“請輸入空氣質(zhì)量指數(shù)AQI的值：”））
（1）序號①答案為。
A．if
B．while
C．for
D．def
（2）序號②答案為。
A．AQI＞=100
B．AQI＜=100
C．AQI＞100
D．AQI＜100
（3）序號③答案為。
A．elif
B．break
C．if
D．else
（4）序號④答案為。
A．int
B．float
C．str
D．else發(fā)布：2025/1/2 11:0:1組卷：0引用：0難度：0.4 -
2．一球從100米高度自由落下，每次落地后反跳回原高度的一半，再下落。編寫一個C程序，求它在第10次落地時，其經(jīng)過了多少米？第10次反彈多高？
發(fā)布：2025/1/2 11:0:1組卷：0引用：3難度：0.3 -
3．利用海倫公式求解三角形面積。已知a,b,c為三角形的三條邊長，p為三角形的半周長，即p=（a+b+c）/2，計算此三角形面積S的海倫公式為：
。不要更改程序結(jié)構(gòu)，將題中的①②③填入正確的語句。
（1）序號①答案為import math#導入數(shù)學模塊
def hl（a,b,c）：#定義求三角形面積的函數(shù)
p=①
s=math.jye.ai（②）#sqrt用于計算算術平方根
return ③#返回面積的值
a,b,c=3，4，5#邊長依次賦值
print（“此三角形的面積S為：“，hl（a,b,c））
A． （a+b+c）/2 B．p*（p-a）*（p-b）*（p-c）
C． （a+b+c）*2 D．s
（2）序號②答案為
A．（a+b+c）/2 B．p*（p-a）*（p-b）*（p-c）
C．（a+b+c）*2 D．（3+4+5）/2
（3）序號③答案為
A．p B．s
C．p*（p-a）*（p-b）*（p-c） D．0發(fā)布：2025/1/2 11:0:1組卷：0引用：0難度：0.4
本網(wǎng)部分資源來源于會員上傳，除本網(wǎng)組織的資源外，版權(quán)歸原作者所有，如有侵犯版權(quán)，請立刻和本網(wǎng)聯(lián)系并提供證據(jù)，本網(wǎng)將在三個工作日內(nèi)改正