福建省高职单招计算机考试模拟卷(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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库福建省高职单招计算机考试模拟卷(14)在线全文阅读。