Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim i As Integer For i = 0 To 7

Combo1.Items.Add ( \Next i End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ________（5）________ Combo1.Text = \

If ________（6）________ Then

Combo1.Items.RemoveAt Combo1.Items.Count () – 1 End If End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Combo1.Items.Count() > 4 And Combo1.SelectedIndex <> -1 Then ________（7）________ Else

________（8）________ End If End Sub

3.（优秀生选拔）文本文件“C:\\素材\\score.txt”中存放着n个学生的某科成绩（10 < n <= 60），每行仅存放一个学生的成绩。填空完成下列程序，使其逐个读入成绩，并显示在文本框 txtScore 中；同时将前6名成绩显示在文本框 txtTop6 中，程序的运行结果如图所示。请注意程序中给出的注释。

Private Sub btnTop6_Click(??) Handles btnTop6.Click Dim s(59), i, j, c, t As Integer, s1 As String

FileOpen(1, \素材\\score.txt\（9） ) '以顺序输入方式打开

文件

c = 0 s1 = \

Do While （10） '当文件尚未结束时，读下一个成绩 s(c) = Val( （11） ) '读取一个（一行）成绩 s1 = s1 & s(c) & vbCrLf c = c + 1 Loop

FileClose(1)

txtScore.Text = s1

For i = 0 To 5 '降序排出前六名成绩 For j = i + 1 To （12） If s(i) < s(j) Then

t = s(i) : s(i) = s(j) : s(j) = t End If Next Next s1 = \

For i = 0 To 5

s1 = s1 & s(i) & vbCrLf Next

txtTop6.Text = s1 End Sub

（1）n = Text1.Text （2）r = Int(Rnd + 0.5) （3）n2 = n2 + 1 （4）Text2.Text = n1

（5）Combo1.Items.Insert(0, Combo1.Text) （6）Combo1.Items.Count > 8

（7）Combo1.items.Remove(Combo1.selecteditem) 或者

Combo1.Items.RemoveAt(Combo1.SelectedIndex) （8）msgbox( \项数小于等于4或无选中的项！\