欧美另类久久久精品|欧美 日韩 免播放器|国产真实伦对白在线播放|亚洲精品亚洲人成在线播放|亚洲中文字幕无码爆乳av|亚洲精品国产第一综合99|国产寡妇婬乱A毛片视频中文|久久99久久无码毛片一区二区

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

普源為晚上的班級(jí)聯(lián)歡會(huì)設(shè)計(jì)了一個(gè)抽獎(jiǎng)程序,將所有同學(xué)的編號(hào)和對(duì)應(yīng)的姓名分別保存在數(shù)組a(全班共50個(gè)同學(xué),編號(hào)為1到50)和數(shù)組b中,程序會(huì)隨機(jī)產(chǎn)生一個(gè)1到50的正整數(shù)(同時(shí)包括1和50),作為中獎(jiǎng)編號(hào).
程序界面如圖所示,左邊列表框List1中顯示同學(xué)的編號(hào)和姓名,單擊“抽獎(jiǎng)“按鈕(Command1),在標(biāo)簽Label3中顯示抽中的編號(hào),同時(shí)在標(biāo)簽Label4中顯示“恭喜***同學(xué)“,其中具體同學(xué)的姓名從數(shù)組b中獲?。?br />解決此問(wèn)題的程序段如下:
Dim a(1To 50)As Integer
Dim b(1To 50)As String
Function search(m As Integer) As Integer
search=0
For i=1To 50
If m=a(i) Then
search=a(i)
End If
Next i
End Function
Private Sub Command1_Click ( ?。?br />Dim c As Integer,t as integer
Randomize
c=int(rnd*50)+1
c=int(rnd*50)+1

Label3.Caption=Str(c)
t=search(c)
If t<>0Then
Label4.Caption=“恭喜“+②
b(t)
b(t)
+“同學(xué)“
End If
End Sub
Private Sub Form_Load ( ?。?br />'此過(guò)程用于對(duì)數(shù)組a和數(shù)組b進(jìn)行初始賦值,代碼略
End Sub
(1)函數(shù)search中所用的算法是
順序查找
順序查找
. (選填:順序查找 或 對(duì)分查找)在程序①和②橫線處,填入適當(dāng)?shù)恼Z(yǔ)句或表達(dá)式,把程序補(bǔ)充完整:
(2)程序中①橫線處應(yīng)填入
c=int(rnd*50)+1
c=int(rnd*50)+1

(3)程序中②橫線處應(yīng)填入
b(t)
b(t)

【答案】c=int(rnd*50)+1;b(t);順序查找;c=int(rnd*50)+1;b(t)
【解答】
【點(diǎn)評(píng)】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書(shū)面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/12/5 12:30:1組卷:16引用:1難度:0.1
相似題
  • 1.某對(duì)分查找算法的VB程序段如下:

    數(shù)組元素a(1)到a(10)的值依次為“12,15,18,20,25,39,47,88,90,99”,經(jīng)過(guò)上述代碼查找后,下列表達(dá)式正確的是( ?。?/h2>

    發(fā)布:2024/12/20 16:0:2組卷:5引用:2難度:0.5
  • 2.某數(shù)組d中的數(shù)據(jù)依次是[8,12,15,28,28,32,36,39],要查找某個(gè)元素是否在數(shù)組中,下列說(shuō)法正確的是( ?。?/h2>

    發(fā)布:2024/12/20 0:0:1組卷:3引用:1難度:0.7
  • 3.有如下對(duì)分查找VB程序段:

    若數(shù)組元素a(1)~a(10)的值依次為“5,9,13,18,22,27,31,39,40,44”,運(yùn)行程序后,文本
    框Text2中顯示的內(nèi)容為3,則輸入的key值不可能為( ?。?/h2>

    發(fā)布:2024/12/20 20:0:2組卷:3引用:2難度:0.4
APP開(kāi)發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司| 應(yīng)用名稱(chēng):菁優(yōu)網(wǎng) | 應(yīng)用版本:5.0.7 |隱私協(xié)議|第三方SDK|用戶服務(wù)條款
本網(wǎng)部分資源來(lái)源于會(huì)員上傳,除本網(wǎng)組織的資源外,版權(quán)歸原作者所有,如有侵犯版權(quán),請(qǐng)立刻和本網(wǎng)聯(lián)系并提供證據(jù),本網(wǎng)將在三個(gè)工作日內(nèi)改正