17.競(jìng)選班長(zhǎng).編號(hào)分別為1、2、3、4、5的五位候選人參加班長(zhǎng)競(jìng)選,現(xiàn)要設(shè)計(jì)一個(gè)計(jì)票程序,根據(jù)回收的選票信息統(tǒng)計(jì)各位候選人的得票數(shù),得票數(shù)最多的被選為班長(zhǎng),并輸出班長(zhǎng)的編號(hào).選票信息為一個(gè)數(shù)字序列,由每張選票的投票結(jié)果構(gòu)成,如某選票序列為101233303,其含義見如表所示.
選票序列 |
1 |
0 |
1 |
2 |
3 |
3 |
3 |
0 |
3 |
含義 |
第1張選票投給1號(hào) |
第2張選票棄權(quán) |
第3張選票投給1號(hào) |
第4張選票投給2號(hào) |
第5張選票投給3號(hào) |
第6張選票投給3號(hào) |
第7張選票投給3號(hào) |
第8張選票棄權(quán) |
第9張選票投給3號(hào) |
備注:選票序列101233303,序列中的數(shù)字i,表示投票給編號(hào)為i的人,即編號(hào)為i的人得1票,其中數(shù)字0表示不投給任何人,即為棄權(quán).表中選票序列的投票結(jié)果為:1號(hào)得2票,2號(hào)得1票,3號(hào)4得票,4號(hào).5號(hào)均為0票(沒人投),所以3號(hào)得票數(shù)最高,被選為班長(zhǎng). |
程序運(yùn)行時(shí),在文本框Text1中輸入選票信息,單擊“計(jì)算”按鈕Command1后,被選為班長(zhǎng)的編號(hào)顯示在文本框Text2中.程序運(yùn)行效果如圖所示.
實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)?jiān)跈M線處填入合適的代碼.
Private Sub Command1_Click ( )
Dima(1To 5)As Integer
'數(shù)組元素a(1)~a(5)依次存放編號(hào)為1~5的五位候選人的得票數(shù)
Dim st As String,i As Integer,j As Integer,n As Integer
Dim ans As Integer'變量ans存放被選為班長(zhǎng)的人的編號(hào)
Dim max As Integer'變量max存放最多的得票數(shù)
st=Text1.Text
For i=1To 5
a(i)=0
Next i
For i=1To 5
For j=1To n
If
Then a(i)=a(i)+1
Next j
Next i
max=0
For i=1To 5
If a(i)>max Then
max=a(i):ans=i
Next i
End Sub.