以下程序段运行后消息框的输出结果为______。

 s=“Access”

 Dim str As String

 For i=1 To Len(s)

   str=UCase(Mid(S，I，1))+str

 Next i

 MsgBox str

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

 Private Sub Command1_Click( )

 Dim arr(1 To 100) As Integer

 For i=1 To 100

   arr(i)=Int(Rnd*______)

 Next i

 Max=arr(1)

 Min=arr(1)

 For i=1 To 100

    If ______Then

 Max=arr(1)

 End If

 If ______Then

 Min=arr(i)

 End If

 Next i

 MsgBox Max

 MsgBox Min

 End Sub

 程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组arr中，然后查找并先后使用消息框输出这100个数中的最大值Max和最小值Min。请依据上述功能将程序补充完整。

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：

 Public x As Integer

 PrivateSubCommand1_Click()

   x=3

   Call n

   Call f2

 MsgBox x

 End Sub

 Private Sub f1()

   x=x*x

 End Sub

 Private Sub f2()

   Dim x As Integer

   x=x+4

 End Sub

窗体打开运行后，单击命令按钮，则消息框的输出结果为______。

下面程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Text1中输出该数组中各元素的最小值。请依据上述功能将程序补充完整。

   Option Base 1

   Private Sub Command1_Click()

    Dim arr1()

    Dim Min As Integer，i As Integer

    arr1=Array(12，435，76，-24，78，54，866，43)

    Min=______

    For i=2 To 8

     If arr1(i)＜Min Then______

    Next i

    Textl=Min

   End Sub

某窗体中有一命令按钮，名称为C1，要求在窗体视图中单击此命令按钮后，命令按钮上显示的文字颜色变为棕色(棕色代码为128)，实现该操作的VBA语句是______。

以下程序段运行后消息框的输出结果为______。

 s=“Access”

 Dim str As String

 For i=1 To Len(s)

   str=UCase(Mid(S，I，1))+str

 Next i

 MsgBox str

空字符串的长度为______。

窗体中有一命令按钮，名称为Command1。要求在窗体视图中单击此命令按钮后，命令按钮上面的文字变为加粗，实现该操作的VBA语句是______。

打开一个表应该使用的宏操作是______。

在使用Dim语句定义数组时，在缺省情况下数组下标的下限为______。

利用Access创建的数据库项目文件，其扩展名为______。