當(dāng)前位置： 2016年浙江省普通高校高考信息技術(shù)模擬試卷（1）> 試題詳情

某同學(xué)用VB編制了一段程序，想實(shí)現(xiàn)從鍵盤(pán)上隨機(jī)輸入10個(gè)10-100之間的整數(shù)，然后在屏幕上按照從小到大的順序輸出．但是該同學(xué)在關(guān)鍵處出現(xiàn)問(wèn)題，你能否幫他把程序補(bǔ)充完整．請(qǐng)?jiān)诔绦蚨螜M線(xiàn)處①②③④填上合適的語(yǔ)句．
Private Sub Command1_Click
Dim a（10）As Integer
For i=1To 10
Randomize
a（i）=①
Int（Rnd90）+10
Int（Rnd90）+10

Next i
For i=1To 9
For ②
J=I+1
J=I+1
To 10
If a（i）＞a（j） Then
r=a（i）
③
a（i）=a（j）
a（i）=a（j）

a（j）=r
End If
Next j
Next i
For i=1To 10
④
Print a（i）
Print a（i）
；
Next i
End Sub.

【考點(diǎn)】冒泡排序算法及其實(shí)現(xiàn)．

【答案】Int（Rnd*90）+10；J=I+1；a（i）=a（j）；Print a（i）

【解答】

【點(diǎn)評(píng)】

聲明：本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有，未經(jīng)書(shū)面同意，不得復(fù)制發(fā)布。

當(dāng)前模式為游客模式，立即登錄查看試卷全部?jī)?nèi)容及下載

發(fā)布：2024/6/27 10:35:59組卷：12引用：1難度：0.3

相似題

1．有程序段如下：
Dim a（1 To 8）As Integer
K=8：n=8
For i=1 To 3
    For j=i+1 To n
        If a（i）＜a（j） Then
            t=a（i）：a（i）=a（j）：a（j）=t
        End If
    Next j
    For j=n-i To i+1 Step-1
        If a（k）＞a（j） Then
            t=a（k）：a（k）=a（j）：a（j）=t
        End If
    Next j
    k=k-1
Next i
數(shù)組元素a（1）～a（8）中的初始值為：8，13，7，14，6，9，5，12，執(zhí)行該程序段后，數(shù)組元素a（1）～a（8）中的值將變?yōu)椋ā　。?/h2>
A．14，13，12，8，9，7，6，5 B．5，6，7，9，8，12，13，14
C．5，6，7，8，9，12，13，14 D．14，13，12，9，8，7，6，5
發(fā)布：2024/11/13 0:0:1組卷：2引用：2難度：0.5
解析
2．有如下VB程序段：

執(zhí)行該程序段后，a（1）～a（6）各元素可能的值是（　　）
A．1 2 5 3 10 8 B．0 3 5 6 8 9
C．10 8 7 6 2 0 D．9 7 5 4 3 6
發(fā)布：2024/11/9 6:30:1組卷：2引用：1難度：0.5
解析
3．小王基于冒泡排序算法編寫(xiě)了一個(gè)VB程序，實(shí)現(xiàn)數(shù)據(jù)分段排序。功能如下：在文本框Text1中輸入產(chǎn)生的數(shù)據(jù)個(gè)數(shù)，單擊“產(chǎn)生原始數(shù)據(jù)”按鈕Command1，隨機(jī)產(chǎn)生若干個(gè)不重復(fù)的整數(shù)依次存儲(chǔ)在數(shù)組a中，并顯示在文本框Text2中。在文本框Text3中輸入每段數(shù)據(jù)的元素個(gè)數(shù)及排序的次序（0表示升序，1表示降序），數(shù)據(jù)之間用空格隔開(kāi)，提取數(shù)據(jù)后，依次存儲(chǔ)在數(shù)組b中。單擊“排序”按鈕Command2，根據(jù)要求輸出數(shù)據(jù)排序的結(jié)果。部分運(yùn)行界面如圖所示。

（1）若在文本框Text1中輸入“10”，文本框Text2中顯示“29 25 95 52 50 38 46 51 23 44”，在文本框Text3中輸入“3 1 4 0 3 0”，則排序后數(shù)據(jù)序列為

。（單選）
A.25 29 95 52 50 46 38 51 44 23
B.95 29 25 38 46 50 52 23 44 51
C.95 29 25 38 46 50 52 51 44 23
D.23 25 29 38 44 46 50 51 52 95
（2）請(qǐng)?jiān)跈M線(xiàn)處填入合適的代碼。
發(fā)布：2024/11/9 20:0:2組卷：6引用：2難度：0.3
解析

把好題分享給你的好友吧~~

A．14，13，12，8，9，7，6，5	B．5，6，7，9，8，12，13，14
C．5，6，7，8，9，12，13，14	D．14，13，12，9，8，7，6，5

A．1 2 5 3 10 8	B．0 3 5 6 8 9
C．10 8 7 6 2 0	D．9 7 5 4 3 6

2．有如下VB程序段：執(zhí)行該程序段后，a（1）～a（6）各元素可能的值是（ ）

2．有如下VB程序段：

執(zhí)行該程序段后，a（1）～a（6）各元素可能的值是（　　）