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

以下程序的功能是隨機(jī)生成20個(gè)1到100之間的正整數(shù),用選擇排序法將其按從大到小的順序排列后輸出.請(qǐng)將下列程序補(bǔ)充完整.
Private Sub Command1_Click
( ?。?/div>
(  )

Dim a(20)As Integer,i As Integer
Dim j As Integer,temp As Integer
Prin“排序前:”
For i=1 To 20
a(i)=Int(Rnd*100)+1
Print a(i);
Next i
Print
For i=1 To 19
For
j=i+1
j=i+1
 To 20
If
(j)>a(i)
(j)>a(i)
Then
t=a(i)
a(i)=a(j)
a(j)=t
a(j)=t

End If
Next j
Next i
Print“排序后:”
For i=1To 20
Print a(i);
Next i
End Sub
(1)程序中橫線處①應(yīng)填入
j=i+1
j=i+1

(2)程序中橫線處②應(yīng)填入
(j)>a(i)
(j)>a(i)

(3)程序中橫線處③應(yīng)填入
a(j)=t
a(j)=t

【答案】( ?。?;j=i+1;(j)>a(i);a(j)=t;j=i+1;(j)>a(i);a(j)=t
【解答】
【點(diǎn)評(píng)】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/11/5 5:0:1組卷:21引用:1難度:0.1
相似題
  • 1.有一個(gè)數(shù)組,采用冒泡排序,第一遍排序后的結(jié)果為:2,10,5,45,6,7,9,20,24那么該數(shù)組的原始順序不可能的是( ?。?/h2>

    發(fā)布:2024/11/5 3:0:2組卷:2引用:2難度:0.5
  • 2.【加試題】有如下程序段:
    For i=1To 6
    f=False
    For j=7To i+1Step-1
    If d(j)<d(j-1)Then
    t=d(j):d(j)=d(j-1):d(j-1)=t
    f=True
    End If
    Next j
    If f=False Then Exit For
    Next i
    如果數(shù)組元素d(1)到d(7)的值依次為“18,22,9,32,16,12,40”,則執(zhí)行此程序段后,變量i的值為( ?。?/h2>

    發(fā)布:2024/11/3 11:30:1組卷:10引用:1難度:0.7
  • 3.為了找出QQ在線時(shí)間最長(zhǎng)的5名學(xué)生,李風(fēng)設(shè)計(jì)了一個(gè)排序程序.程序運(yùn)行界面如圖所示:
    菁優(yōu)網(wǎng)
    左邊列表框List1中顯示排序前數(shù)據(jù),單擊“排序”按鈕Command1,在右邊列表框List2中顯示在線時(shí)間從高到低排名前5名的數(shù)據(jù).程序中數(shù)組a和數(shù)組b分別存儲(chǔ)學(xué)生的QQ昵稱和對(duì)應(yīng)的QQ在線時(shí)間.
    程序代碼如下:
    Const n As Integer=14'n為學(xué)生數(shù)
    Dim a(1To n) As String'數(shù)組a用于存儲(chǔ)學(xué)生的QQ昵稱
    Dim b(1To n) As Integer'數(shù)組b用于存儲(chǔ)學(xué)生的QQ在線時(shí)間
    Private Sub Command1_Click ( ?。?br />Dim i As Integer,j As Integer,t As String,p As Integer
    For i=1To n-1
    For j=n To i+1Step-1
    If  ①Then
    t=a(j-1):a(j-1)=a(j):a(j)=t
    p=b(j-1):b(j-1)=b(j):b(j)=p
    End If
    Next j
    Next i
    For i=1To 5
    List2.AddItem SpaceEx(a(i))+Str(b(i))+“分鐘“
    Next i
    End Sub
    '以下函數(shù)用于在字符串后補(bǔ)插空格
    Function SpaceEx(s As String) As String
    Dim t As String,d As Integer,i As Integer
    t=s:d=Len(s)
    For i=1To 5-d
    t=t+““
    Next i
    SpaceEx=②
    End Function
    Private Sub Form_Load ( ?。?br />'此過程用于對(duì)數(shù)組a和數(shù)組b進(jìn)行賦值,并顯示在List1中,代碼略
    End Sub
    (1)解決此問題采用的算法是
     
    .(填:選擇排序/冒泡排序)
    (2)在程序①和②填入適當(dāng)?shù)恼Z句或表達(dá)式,將程序補(bǔ)充完整:
    程序中①應(yīng)填入
     
    .程序中②處應(yīng)填入
     

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