（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中给出提示“输入项已在组合框中。”。请填空。

Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

        For i = 0 To Combo1.ListCount - 1

            If Combo1.Text =  【12】  Then

                Label2.Caption = "输入项已在组合框中。"

                Exit Sub

            End If

        Next i

        Label2.Caption = "已成功添加新输入项。"

        Combo1. 【13】  Combo1.Text

    End If

End Sub

（11）在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程：

Private Sub Command1_Click()

    Dim inData As String

    Text1.Text = ""

    Open "d:\myfile.txt" For  【14】  As #1

    Do While  【15】  

        Input #1, inData

        Text1.Text = Text1.Text + inData

    Loop

    Close  #1

End Sub

    程序的功能是，打开D盘根目录下的文本文件myfile.txt，读取它的全部内容并显示在文本框中。请填空。