試卷征集
加入會(huì)員
操作視頻

小李基于選擇排序思想編寫了一個(gè)VB程序?qū)崿F(xiàn)數(shù)據(jù)排序,排序后奇數(shù)在前、偶數(shù)在后,奇數(shù)和偶數(shù)都按升序排序。具體功能如下:產(chǎn)生10個(gè)隨機(jī)整數(shù)存數(shù)組a,在列表框List中顯示,單擊“排序”按鈕Command1,對(duì)數(shù)組a排序后在列表框List2中顯示。程序運(yùn)行界面如圖所示,實(shí)現(xiàn)上述功能的ⅤB代碼如下:
菁優(yōu)網(wǎng)
Constn=10
Dima(0Ton)AsInteger
PrivateSubForm_Load ( ?。?br />′程序功能:產(chǎn)生n個(gè)隨機(jī)整數(shù)存數(shù)組a,在列表框Listl中顯示,代碼略。
Endsub
PrivateSubCommand1_Click ( ?。?br />DimiAsInteger,jAsInteger,kAsInteger,tAsInteger,flagAsBoolean
i=1:flag=True
DoWhileI<=n-1
IfflagThen
k=0:flag=False
Forj=iTon
Ifa(j)Mod2=1Then
If菁優(yōu)網(wǎng)Thenk=j:flag=True‘改正:
a(j)<a(k)or flag=false
a(j)<a(k)or flag=false

EndIf
Nextj
IfflagThen
IfI<>kThent=a(i):a(i)=a(k):a(k)=t
Else
i=i-1
i=i-1

EndIf
Else
K=i
Forj=i+1Ton
Ifa(j)<a(k)Thenk=j
Nextj
Ifi<>kThent=a(i):a(i)=a(k):a(k)=t
EndIf
i=i+1
Loop
Fori=1Ton
List2.AddItemStr(a(i))
Endsub
(1)代碼“Privatesubcommand1_click ( ?。敝械腃lick是
C
C
。(單選,填字母:A.對(duì)象名/B.屬性名/C.事件名)
(2)將程序代碼中橫線處代碼補(bǔ)充完整。
(3)程序代碼中的加框處代碼有誤,請(qǐng)改正。
(4)程序代碼中,flag值為
true
true
表示該遍處理是挑選未排序奇數(shù)中的最小數(shù)據(jù)排到合適的位置。

【答案】a(j)<a(k)or flag=false;i=i-1;C;true
【解答】
【點(diǎn)評(píng)】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/11/22 3:0:2組卷:16引用:2難度:0.3
相似題
  • 1.有如下 Python 程序段:
    菁優(yōu)網(wǎng)
    運(yùn)行后列表中的值可能是(  )

    發(fā)布:2024/12/18 21:0:2組卷:5引用:3難度:0.3
  • 2.用VB編寫的函數(shù)bubble_sort是一個(gè)用冒泡方法實(shí)現(xiàn)排序的函數(shù),其調(diào)用時(shí)需要三個(gè)參數(shù):布爾類型參數(shù)sx來確定是升序還是降序,sx為True時(shí)為升序,否則為降序;整數(shù)型數(shù)組a
     
    是待排序的數(shù)據(jù),數(shù)據(jù)從a(1)開始存放;整數(shù)型參數(shù)n表示傳入的數(shù)組長(zhǎng)度,該函數(shù)的返回值也是一個(gè)整數(shù)型數(shù)組.所以調(diào)用此函數(shù)實(shí)現(xiàn)排序非常方便:
    比如有一個(gè)整數(shù)型數(shù)組a(1 to 10)需要降序排序,可以直接這樣調(diào)用:
    a
     
    =bubble_sort(False,a
     
    ,10)
    該函數(shù)VB代碼如下:
    Function bubble_sort(sx As Boolean,a
     
     As Integer,n As Integer) As Integer
     

    Dim i,j,t As Integer
    For i=1 To n-1
    For j=
     
    Step-1
    If
     
    Then
    If a(j)<a(j-1)Then t=a(j):a(j)=a(j-1):a(j-1)=t
    Else
    If a(j)>a(j-1)Then t=a(j):a(j)=a(j-1):a(j-1)=t
    End If
    Next j
    Next i
    bubble_sort=a
     

    End Function
    請(qǐng)將代碼補(bǔ)充完整:
     

     

    發(fā)布:2024/12/20 20:30:1組卷:23引用:2難度:0.3
  • 3.用選擇排序法對(duì)一組數(shù)據(jù)進(jìn)行升序排序,第一趟排序結(jié)束后的順序?yàn)?、6、9、3、7,則原始數(shù)據(jù)順序不可能的是(  )

    發(fā)布:2024/12/18 23:0:1組卷:10引用:1難度:0.5
小程序二維碼
把好題分享給你的好友吧~~
APP開發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司| 應(yīng)用名稱:菁優(yōu)網(wǎng) | 應(yīng)用版本:5.0.7 |隱私協(xié)議|第三方SDK|用戶服務(wù)條款
本網(wǎng)部分資源來源于會(huì)員上傳,除本網(wǎng)組織的資源外,版權(quán)歸原作者所有,如有侵犯版權(quán),請(qǐng)立刻和本網(wǎng)聯(lián)系并提供證據(jù),本網(wǎng)將在三個(gè)工作日內(nèi)改正