以下程序段运行结束后，变量x的值为(  )。 

x＝2 

y＝4 

Do 

x＝x*y 

y＝y+1 

Loop While y＜4

在窗体上画一个命令按钮，其名称为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(i)

 End If

 If______Then

 Min＝arr(i)

 End If

 Next i

 MsgBox Max

 MsgBox Min

 End Sub

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

下面程序的功能是：用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 arr l(i)＜Min Then______

 Next i

 Text1＝Min

 End Sub

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

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

 Public x As Integer

 Private Sub Command1______Click()

 x＝3

 Call f1

 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

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

空字符串的长度为______。

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

 s＝"Access"

 Dim str As String

 For i＝1 To Len(s)

 str＝UCase(Mid(S,I,I))+str

 Next i

 MsgBox str

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

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

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

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