教科版選修1《程序與程序設計語言》-文庫吧
2024-12-23 15:45 本頁面
【正文】 (2) If a 能被 2整除 Then 輸出“ yes” If a Mod 2 = 0 Then Print YES (3) Else輸出“ no” Else Print NO (4) End if End If (5)結束。 End Sub 【 隨堂練習 】 ? 操作題 有 10個評委為參賽選手打分。評分時，去掉最高分和最低分，算出其余 8個分數(shù)的平均分，作為該選手的得分。請設計一算法，從鍵盤輸入 10個評委給的分數(shù)，輸出選手的得分。 ? 設： MAX為評委給出的最高分； MIN為評委給出的最底分； N為評委給出的分數(shù)個數(shù)； X為評委給出的分數(shù)； S為評委分數(shù)總和。 ? 用偽代碼描述如下： N=1 S=0 輸入第一個評委給出的分數(shù) → X S=S+X MAX=X MIN=X N=N+1 IF N10 THEN 輸出 （ SMAXMIN） /8；結束 ELSE 輸入下一個評委給出的分數(shù) → X S=S+X IF XMAX THEN MAX=X IF XMIN THEN MIN=X 返回 ”N=N+1”這一步 END IF Private Sub Command1_Click() Dim max As Double, min As Double, n As Double, x As Double, s As Double, y As Double n = 1 s = 0 x = InputBox (第 1個評委給出的分數(shù) =, 請輸入第 1個評委給出的分數(shù) ) s = s + x max = x min = x redo: n = n + 1 If n 10 Then y = (s max min) / 8 Print 該選手的得分為： 。 y。 分 Else x = InputBox(第 amp。 (n) amp。 個評委給出的分數(shù) =, 請輸入第 amp。 (n) amp。 個評委給出的分數(shù) ) s = s + x If x max Then max = x End If If x min Then min = x End If GoTo redo End If End Su
環(huán)評公示相關推薦
鄂ICP備17016276號-1