小李編寫了一個VB 程序,功能如下:在文本框 Text1 中依次輸入各個區(qū)間的起點和終點(數(shù)據(jù)均為小于100的正整數(shù),都用逗號分隔并以逗號結尾),單擊“查找”按鈕 Command1后,在 Label2上顯示最短區(qū)間長度。例如,三個區(qū)間為(1,10),(15,23),(26,29),輸入格式及程序運行界面如第11題圖所示。
(1)要使窗體Form1標題顯示“最短區(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)容的結束符缺失(即輸入內(nèi)容為 1,10,15,23,26,29),單擊“查找”按鈕,標簽Label2中顯示的內(nèi)容是 最短區(qū)間長度是9最短區(qū)間長度是9。【考點】查找算法及其程序實現(xiàn).【答案】C;( ?。?;①temp*10+Val(ch)或Val(Str(temp)+ch)或其他等價表達式;kMod2=1或kMod2<>0;最短區(qū)間長度是9【解答】【點評】聲明:本試題解析著作權屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復制發(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)容的結束符缺失(即輸入內(nèi)容為 1,10,15,23,26,29),單擊“查找”按鈕,標簽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
本網(wǎng)部分資源來源于會員上傳,除本網(wǎng)組織的資源外,版權歸原作者所有,如有侵犯版權,請立刻和本網(wǎng)聯(lián)系并提供證據(jù),本網(wǎng)將在三個工作日內(nèi)改正