普源為晚上的班級(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中所用的算法是