16.【加試題】一個(gè)程序功能如下:?jiǎn)螕糸_(kāi)始按鈕,每隔1秒產(chǎn)生一個(gè)[1,100]內(nèi)的隨機(jī)整數(shù),賦給變量n,對(duì)產(chǎn)生的隨機(jī)整數(shù)進(jìn)行判斷,如果是偶數(shù)就顯示在列表框List1中,如果是奇數(shù)就顯示在列表框List2中.當(dāng)隨機(jī)整數(shù)達(dá)到20個(gè)時(shí),停止.Timer控件的Enabled屬性設(shè)置為False,即程序剛運(yùn)行時(shí)不起作用.程序代碼如下: Dim m As Integer'm為模塊級(jí)變量,用于記錄隨機(jī)整數(shù)個(gè)數(shù) Private Sub Command1_Click( ) Randomize Timer1.Enabled=True End Sub Private Sub Timer1_Timer( ) Dim n As Integer
If
Then List1.AddItem n Else List2.AddItem n End If m=m+1 If m=20 Then
End Sub 在程序①、②、③橫線(xiàn)處填入適當(dāng)?shù)恼Z(yǔ)句或表達(dá)式,把程序補(bǔ)充完整. (1)程序中①橫線(xiàn)處應(yīng)填入
17.【加試題】年級(jí)里有100位同學(xué)參加技術(shù)期中考試,張老師編寫(xiě)了一個(gè)程序,能夠找出第k名的分?jǐn)?shù)和取得該分?jǐn)?shù)的學(xué)生名單.分?jǐn)?shù)相同的學(xué)生名次相同.程序界面如圖所示. 實(shí)現(xiàn)上述功能的程序如下,請(qǐng)?jiān)跈M線(xiàn)處填入合適的代碼. Dim stname(1To 100)As String'存放學(xué)生姓名 Dim stscore(1To 100)As Integer'存放對(duì)應(yīng)的學(xué)生分?jǐn)?shù) Dim paiming(1To 100)As Integer'存放對(duì)應(yīng)的學(xué)生名次 Private Sub Form_Load( )'鏈接數(shù)據(jù)庫(kù),將學(xué)生的姓名、分?jǐn)?shù)分別對(duì)應(yīng)存放在數(shù)組name和score中 '代碼略 End Sub Private Sub Command1_Click( ) Dim n As Integer,i As Integer k=Val(Text1.Text) For i=1To 99
If stscore(j)<stscore(j+1)Then temp=stscore(j) stscore(j)=stscore(j+1) stscore(j+1)=temp End If Next j Next i m=1:stscore(1)=1 For i=2To 100 '計(jì)算每位學(xué)生的名次,分?jǐn)?shù)相同則名次相同 If
Then Paiming(i)=paiming(i-1) Else m=m+1 paiming(i)=m End If Next i For i=k To 100 If
Then List1.AddItem name(k)&“”&Str(paiming(k)) Loop End Sub.