Command1.Enabled = True

End Sub

（8）在窗体上画一个名称为“Command1”的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

    Dim a As String

    a = "123456789"

    For i = 1 To 5

        Print Space(6 - i); Mid$(a,  【8】 , 2 * i - 1)

    Next i

End Sub

    程序运行后，单击命令按钮，窗体上的输出结果是

     5

    456

   34567

  2345678

 123456789

请填空。

（9）以下程序的功能是：将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来，要求把A(1)到A(10)依次赋给B(1,1)到B(1,10)，把A(11)到A(20)依次赋给B(2,1)到B(2,10)，……，把A(91)到A(100)依次赋给B(10,1)到B(10,10)。请填空。

Option Base 1

Private Sub Form_Click()

    Dim i As Integer, j As Integer

    Dim A(1 To 100) As Integer

    Dim B(1 To 10, 1 To 10) As Integer

    For i = 1 To 100

        A(i) = Int(Rnd * 100)

    Next i

    For i = 1 To   【9】

        For j = 1 To  【10】

            B(i, j) =  【11】

            Print B(i, j);

        Next j

        Print

    Next i

End Sub

（10）在窗体上画一个名称为Combo1的组合框，然后画两个名称分别为Label1、Label2，标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在Label2中给出提示“已成功添加新输入项。”，如图所示。如果输入的项目已存在，则在Label2中给出提示“输入项已在组合框中。”。请填空。