共回答了20個問題采納率：80%

Dim a(10) As Integer

Private Sub Command1_Click()

For i = 1 To 10

a(i) = InputBox("請輸入第" & i & "個分數")

Text1.Text = Text1.Text & Str(a(i))

Next i

End Sub

Private Sub Command2_Click()

Max = a(1)

Min = a(1)

For i = 1 To 10

s = s + a(i)

If Max < a(i) Then Max = a(i)

If Min > a(i) Then Min = a(i)

Next i

s = (s - Max - Min) / 8

Text2.Text = Max

Text3.Text = Min

Text4.Text = s

End Sub

Private Sub Command3_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

End Sub

Private Sub Command4_Click()

End

End Su

1年前

8

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的用python模拟评委打分_用vb 编写一个评委打分的程序1． 编写一个评委打分的程序，实现以下功能：a) 单击“评委给分”按钮时弹出InputBo...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。