16.學(xué)校藝術(shù)節(jié)比賽,有7個(gè)評(píng)委打分,設(shè)計(jì)VB程序?qū)σ幻麉①愓叽蚍郑谖谋究蜉斎胨性u(píng)委打分,單擊“運(yùn)行”按鈕Commandl,在文本框Text8中顯示最高分,文本框Text9中顯示最低分,去掉一個(gè)最高分,一個(gè)最低分,剩余5個(gè)評(píng)委打分的平均分(保留一位小數(shù))為最后得分,在文本框Text10中輸出該參賽者的得分.運(yùn)行效果如圖所示. 實(shí)現(xiàn)上述功能的VB代碼如下,但加框處代碼有錯(cuò),請(qǐng)改正. Private Sub Commandl-Click( ) Dim a (1 to 7)As Single Dim i As Integer,sum As Single,max As Single,min As Single Dim aver As Single a(1)=Val(Text1.Text):a(2)=Val(Text2.Text):a(3)=Val(Text3.Text) a(4)=Val(Text4.Text):a(5)=Val(Text5.Text) a(6)=Val(Text6.Text):a(7)=Val(Text7.Text) max=a(1) min=a(1) For i=2 to 7 If max<a(i) Then max=a(i) Elself Then min=a(i) End If sum=sum+a(i) Next i Text8.Text=Str(max) Text9.Text=Str(min) aver=Int((sum-max-min)/5*10+0.5)/10 Text10.Text=Str(aver) End Sub.
17.一個(gè)班的老師和小朋友共有30人,他們?cè)诮淌依锿孀バ∏蛴螒颍灿星?00個(gè).已知,每個(gè)男孩抓了30個(gè)球,每個(gè)女孩抓了20個(gè)球,每位老師抓了10個(gè)球,最后正好抓完.問(wèn):男孩、女孩和老師各多少人?為了求解這一問(wèn)題,編寫(xiě)了下列VB程序. Private Sub Commandl-Click( ) Dim boy As Integer,girl As Integer'定義“boy“,“girl“分別表示男孩、女孩人數(shù)變量 Dim teacher As Integer'定義“teacher“表示老師人數(shù)變量 For boy=1 To 15 For girl=1 To 23 teacher=
If
Then Listl.AddItem Str(boy)+““+Str(girl)+““+Str(teacher) End If Next girl Next boy End Sub (1)解決此問(wèn)題采用的算法是