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

计算机专业模拟卷

Option Base 1

Private Sub Command1_Click() Dim city As Variant

city = ____ （3）____________ ("北京", "天津", "上海", "重庆") For i = （4） To UBound(city) Combo1.AddItem ____ （5）____________ Next End Sub

3．比赛评分程序。在窗体上建立一个文本框、一个标签框和三个命令按钮，单击“输入评分”命令按钮，分别输入评委人数及各个评委的评分，单击“计算得分”命令按钮则计算并将最后得分显示在Text1文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），要求输入评分之前，“计算得分”按钮失效（变灰），如图5-28所示。以下是实现上述功能的程序，请填空。

图5-28

Option Base 1

Dim a() As Single, n As Integer Private Sub Form_Load()

Command2.Enabled = ____ （6） _____________ End Sub

Private Sub Command1_Click() n = InputBox("请输入评委人数：") _____ _____（7）

_______ _____