小李編寫了一個VB 程序,功能如下:在文本框 Text1 中依次輸入各個區(qū)間的起點和終點(數(shù)據(jù)均為小于100的正整數(shù),都用逗號分隔并以逗號結(jié)尾),單擊“查找”按鈕 Command1后,在 Label2上顯示最短區(qū)間長度。例如,三個區(qū)間為(1,10),(15,23),(26,29),輸入格式及程序運行界面如第11題圖所示。
![](https://img.jyeoo.net/quiz/images/202107/104/ef00d589.png)
(1)要使窗體Form1標(biāo)題顯示“最短區(qū)間長度”,則需修改該窗體的 CC(單選,填字母:A.Font/B.Text/C.Caption)屬性。
(2)實現(xiàn)上述功能的VB程序如下,請在橫線處填入合適的代碼。
Private Sub Command1_Click ( )( ?。?/div>
Dim s As String,ch As String
Dim i As Integer,k As Integer
Dim L As Integer,R As Integer
Dim temp As Integer,min As Integer
s=Text1.Text
i=1:k=0:temp=0:min=100
Do While i<=Len(s)
ch=Mid(s,i,1)
If ch>=“0“And ch<=“9“Then
temp=①①temp*10+Val(ch)或Val(Str(temp)+ch)或其他等價表達式①temp*10+Val(ch)或Val(Str(temp)+ch)或其他等價表達式
Else
k=k+1
If ②kMod2=1或kMod2<>0kMod2=1或kMod2<>0Then
L=temp
Else
R=temp
If R-L+1<min Then min=R-L+1
End If
temp=0
End If
i=i+1
Loop
Label2.Caption=“最短區(qū)間長度是“+Str(min)
End Sub
(3)運行程序,若文本框 Text1 中輸入內(nèi)容的結(jié)束符缺失(即輸入內(nèi)容為 1,10,15,23,26,29),單擊“查找”按鈕,標(biāo)簽Label2中顯示的內(nèi)容是 最短區(qū)間長度是9最短區(qū)間長度是9。【考點】查找算法及其程序?qū)崿F(xiàn).【答案】C;( );①temp*10+Val(ch)或Val(Str(temp)+ch)或其他等價表達式;kMod2=1或kMod2<>0;最短區(qū)間長度是9【解答】【點評】聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。發(fā)布:2024/6/27 10:35:59組卷:5引用:1難度:0.5
Dim s As String,ch As String
Dim i As Integer,k As Integer
Dim L As Integer,R As Integer
Dim temp As Integer,min As Integer
s=Text1.Text
i=1:k=0:temp=0:min=100
Do While i<=Len(s)
ch=Mid(s,i,1)
If ch>=“0“And ch<=“9“Then
temp=①
①temp*10+Val(ch)或Val(Str(temp)+ch)或其他等價表達式
①temp*10+Val(ch)或Val(Str(temp)+ch)或其他等價表達式
Else
k=k+1
If ②
kMod2=1或kMod2<>0
kMod2=1或kMod2<>0
ThenL=temp
Else
R=temp
If R-L+1<min Then min=R-L+1
End If
temp=0
End If
i=i+1
Loop
Label2.Caption=“最短區(qū)間長度是“+Str(min)
End Sub
(3)運行程序,若文本框 Text1 中輸入內(nèi)容的結(jié)束符缺失(即輸入內(nèi)容為 1,10,15,23,26,29),單擊“查找”按鈕,標(biāo)簽Label2中顯示的內(nèi)容是
最短區(qū)間長度是9
最短區(qū)間長度是9
。發(fā)布:2024/6/27 10:35:59組卷:5引用:1難度:0.5
相似題
-
1.某對分查找算法的VB程序段如下:
數(shù)組元素a(1)到a(10)的值依次為“12,15,18,20,25,39,47,88,90,99”,經(jīng)過上述代碼查找后,下列表達式正確的是( ?。?/h2>發(fā)布:2024/12/20 16:0:2組卷:5引用:2難度:0.5 -
2.某數(shù)組d中的數(shù)據(jù)依次是[8,12,15,28,28,32,36,39],要查找某個元素是否在數(shù)組中,下列說法正確的是( ?。?/h2>
發(fā)布:2024/12/20 0:0:1組卷:3引用:1難度:0.7 -
3.有如下對分查找VB程序段:
若數(shù)組元素a(1)~a(10)的值依次為“5,9,13,18,22,27,31,39,40,44”,運行程序后,文本
框Text2中顯示的內(nèi)容為3,則輸入的key值不可能為( ?。?/h2>發(fā)布:2024/12/20 20:0:2組卷:3引用:2難度:0.4
APP開發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司| 應(yīng)用名稱:菁優(yōu)網(wǎng) | 應(yīng)用版本:5.0.7 |隱私協(xié)議|第三方SDK|用戶服務(wù)條款
本網(wǎng)部分資源來源于會員上傳,除本網(wǎng)組織的資源外,版權(quán)歸原作者所有,如有侵犯版權(quán),請立刻和本網(wǎng)聯(lián)系并提供證據(jù),本網(wǎng)將在三個工作日內(nèi)改正