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

 Private Sub Command1_Click()

 Dim arr(1 T0 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，请将程序补充完整。

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

 Private Sub Command1_Click()

 Dim arr(1 T0 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，请将程序补充完整。

下面VBA程序段运行时，内层循环的循环总次数是【 】 

      For m = 0 To 7 step3

         For n = m To m+1

         Next n

      Next m

下列程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Text l中输出该数组中各元素的最小值。请填空。

 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

 Text1=Min

 End Sub

若窗体中已有一个名为Cmd的命令按钮、一个名为Label1的标签和一个名为Text1的文本框，且文本框的内容为空，然后编写如下事件代码：

      Private Function f(x As Long) As Boolean

        If x Mod 2=0 Then

            f=False

        Else

           f=True

        End If

     End Function

     Private Sub Cmd_Click( )

        Dim n As Long

        n=Val(Me! text1)

         p=IIf(f(n), "奇数“，"偶数")

        Me! Labell. Caption=n&"是"&p

  End Sub

窗体打开运行后，在文本框中输入11，单击命令按钮，则标签显示内容为【 】。

在窗体上添加两个文本框和一个按钮，在按钮的单击事件中添加如下代码：

      Private sub command1_Click( )

         Text1="vba test"

         Text2=text1

         Text1= "test end"

     End sub

单击按钮后，text2中的文本内容是【 】。

创建分组统计查询时，总计项应选择【 】。

表操作共有三种视图，分别是设计视图、打印视图和【 】视图。

查询设计器分为上下两部分，上半部分是表的显示区，下半部分是【 】。

将整个软件划分成若干单独命名和可编址的部分，称之为【 】。

在数据库逻辑结构的设计中，将E-R模型转换为关系模型应遵循相关原则。对于三个不同实体集和它们之间的多对多联系m:n:p，最少可转换为【 】个关系模式。