下列VB程序的功能是：程序運行時，單擊命令按鈕Commandl后，產生10個[1，999]范圍內互不相同的隨機整數，依次顯示在列表框List1中，然后將它們按從小到大的順序排序，排序結果顯示在列表框List2中．數組a用于存儲產生的10個隨機整數，變量f用于標記隨機整數x與已生成的整數是否有重復，如有則為True,沒有則為False.
為實現上述功能，請在橫線處填入合適的代碼．
Dim a（1To 10）As Integer
Private Sub Command1_Click （ ）
Dim n As Integer'n用于統(tǒng)計已經產生的隨機整數個數
Dim i As Integer,j As Integer
Dim x As Integer,k As Integer
Dim f As Boolean
Randomize
n=0
List1．Clear
List2．Clear
Do While n＜10
x=Int（Rnd*999）+1Int（Rnd*999）+1'產生[1，999]范圍內的隨機整數
f=False
For i=1To n
If x=a（i）x=a（i）Then f=True
Next i
If f=False Then
n=n+1
a（n）=x
List1．AddItem Str（a（n））
End If
Loop
For i=1To 9
For j=10To i+1Step-1
If a（j）＜a（j-1）a（j）＜a（j-1）Then
k=a（j）：a（j）=a（j-1）：a（j-1）=k
End If
Next j
Next i
For i=1To 10
List2．AddItem Str（a（i））
Next i
End Sub.
【答案】Int（Rnd*999）+1；x=a（i）；a（j）＜a（j-1）
【解答】
【點評】
聲明：本試題解析著作權屬菁優(yōu)網所有，未經書面同意，不得復制發(fā)布。
發(fā)布：2024/6/27 10:35:59組卷：11引用：1難度：0.3
相似題
-
1．研究表明每天的深度睡眠總時長占據總睡眠時長的20%及以上，即表示當天的睡眠質量非常好。現根據采集的一周數據來分析本周睡眠質量：
?良好——“睡眠質量非常好”的天數累計達到5天
?不好——連續(xù)3天都沒有“睡眠質量非常好”的天數出現
?一般——良好和不好之外的情況
編寫VB程序實現上述功能。運行程序，單擊“統(tǒng)計分析”按鈕Command1，在標簽Labe12中輸出結果。程序運行界面如圖所示。
請回答下列問題：
（1）一周的睡眠數據如表，則本周的睡眠質量是（選填字母：A.良好/B.一般/C.不好）
（2）實現上述功能的部分VB程序如下，請在橫線處填入合適的代碼。日期 總睡眠時長（單位：分鐘） 深度睡眠總時長（單位：分鐘） 2月28日 470 100 3月1日 464 159 3月2日 387 47 3月3日 460 87 3月4日 447 69 3月5日 349 121 3月6日 587 133 
發(fā)布：2025/1/2 12:0:1組卷：0引用：1難度：0.3 -
2．英語單詞'illustriousness'意思是'優(yōu)秀'，有如下 Python程序段：
執(zhí)行該程序后，輸出的結果不可能是（ ?。?/h2>發(fā)布：2025/1/2 11:30:1組卷：1難度：0.5 -
3．數組a和數組d的數據存放情況如表所示，a[（d[2]\2）*2]的值是（ ?。?br />
發(fā)布：2025/1/2 12:0:1組卷：0引用：1難度：0.6