( ?。?/div>
‘隨機(jī)產(chǎn)生10個(gè)2位奇數(shù)整數(shù)
‘代碼略
End sub
Private Sub Command1_Click
( )
( ?。?/div>
Dim i As Integer,j As Integer,k As Integer,c As Integer
For j=1 To 10
i=2:m=Int(Sqr(a)
Do While
i=i+1
Loop
If
①Then
c=c+1
b(c)=a(j)
End if
temp=b(c)
For k=c-1 To 1 Step-1
If
temp>b(k) Then Exit For
b(k+1)=b(k)
Next k
②Next j
For i=1 To c
List2.Additem Str(b(i))
Next i
End Sub
【答案】C;會;( ?。唬ā 。?/div>
【解答】
【點(diǎn)評】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/6/27 10:35:59組卷:1引用:2難度:0.3
相似題
-
發(fā)布:2024/11/13 21:30:1組卷:6引用:3難度:0.6
-
發(fā)布:2024/11/11 11:30:2組卷:4引用:3難度:0.3
-
發(fā)布:2024/11/11 18:0:1組卷:0引用:1難度:0.5