試卷征集
加入會員
操作視頻

菁優(yōu)網(wǎng)編寫一個(gè)VB程序,實(shí)現(xiàn)產(chǎn)生10個(gè)不重復(fù)的奇數(shù)序列,篩選出其中的素?cái)?shù),將其按小到大的順序排序。程序界面如圖所示:
(1)代碼“Private Sub commandl_click
C
C
”的Click_是(單選,填字母:A對象名/B屬性名/C事件名)。
(2)實(shí)現(xiàn)上述功能的VB程序如下,請?jiān)跈M線處填入合適的代碼。
(3)程序中加框處代碼有錯(cuò),請改正。
(4)橫線處temp>b(k)用b(c)>b(k)代替會不會影響正常結(jié)果?
(選填:會/不會)。
Dim a(1 To 10)As Integer,b(0 To 10)As Integer
Private Sub Form_Load
(  )
( ?。?/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菁優(yōu)網(wǎng)
i=i+1
Loop
IfThen
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
相似題
  • 1.下列程序執(zhí)行后的結(jié)果為( ?。?br />菁優(yōu)網(wǎng)

    發(fā)布:2024/11/13 21:30:1組卷:6引用:3難度:0.6
  • 2.有如下程序段:
    For i=1 To Len(Text1.Text)
    c=Mid(Text1.Text,i,1)
    If c>=“0“And c<=“9“Then c=Chr(Asc(c)+1)
    If c>=“A“And c<=“Z“Then c=Chr(Asc(c)+32)
    s=s+c
    Next i
    若文本框Text1的內(nèi)容為“Number 2468!”執(zhí)行程序后,變量s的值為( ?。?/h2>

    發(fā)布:2024/11/11 11:30:2組卷:4引用:3難度:0.3
  • 3.有如下VB程序段:
    菁優(yōu)網(wǎng)
    執(zhí)行以上程序段后,Text1中顯示的值可能是(  )

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