在窗体上画一个命令按钮Command1，然后编写如下程序：

 Private Sub Command1_click()

 Dim arr() As Integer

 ReDim arr(3)

 For i=0 To 3

  arr(i)=i

 Next i

 x=InputBox("请输入一个数字：")

 If Val(x)＞4 Then

   ReDim arr(4)

   an(4)=x

 End If

    Me.Print(an(4)-arr(3))

 End Sub

 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【 】。

程序运行后，若为“甲队”且成绩大于80分，则在窗体上显示“表现优良”，否则显示“表现普通”。

 Private Sub Form_Activate()

 Dim team1 As String

 Dim fen As Integer

 team 1="乙队"

 fen=86

 Print

 Print"球队=；"team1

 Print"成绩=；"fen

 If team1="甲队"Then

 If fen＞=80 Then

 Print"表现优良!"

 Else

 ______

 End If

 Else

 Print"表现普通"!

 End If

 End Sub

在面向对象方法中，(  )描述的是具有相似属性与操作的一组对象。

在窗体上画一个命令按钮Command1，然后编写如下程序：

 Private Sub Command1_click()

 Dim arr() As Integer

 ReDim arr(3)

 For i=0 To 3

  arr(i)=i

 Next i

 x=InputBox("请输入一个数字：")

 If Val(x)＞4 Then

   ReDim arr(4)

   an(4)=x

 End If

    Me.Print(an(4)-arr(3))

 End Sub

 程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为【 】。

改变驱动器列表框的Drive属性值将激活 ______ 事件。

关于MDI体下列说法正确的是（　　）。

在Visual Basic 6中下列 ______是不对的。

要使文本框获得输入焦点，则应采用文本框控件的方法是

窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：

Private Sub Command1_Click（　　）

For k=List1．ListCout-1 To 0 Step-1

If List1．Selected(k)Then

List2．Addltem List1．List(k)

List1．Removeltem k

End If

Next k

End Sub

程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是（　　）。

下列关于文件的叙述中，错误的一条是______。

用Print方法在Form1窗体中显示出4个#号的正确代码为(  )。