福建省高职单招计算机考试模拟卷(14)

计算机专业模拟卷

For i = 1 To n

____ _（8）____________ = InputBox("请输入评委评分：") Next i

Command2.Enabled = True End Sub

Private Sub Command2_Click() Dim sum As Single, aver As Single Dim max As Single, min As Single max = a(1): min = a(1): sum = a(1) For i = _____ （9）________________ sum =____ _（10）___________ ______ If max < a(i) Then max=a(i) If min > a(i) Then min=a(i) Next i

aver = (sum - max - min) / (n - 2) Text1.Text = Str(aver) End Sub

Private Sub Command3_Click() End End Sub