单选题请阅读下面程序：
Option Base 1
Private Sub Form_Click()
Dim Art(4,4) As Integer
For i=1 To 4
For j=1 To 4
Arr(i,j)=(i-1)*2+j
Next j
Next i
For i=3 To 4
For j=3 To 4
Print Arr(j,i)
Next j
Print
Next i
End Sub
程序运行后，单击窗体，则输出结果是______。
单选题设有如下程序：
Private Sub Form_Click()
Dim ary(1 To 5)As Integer
Dim i As Integer
Dim sum As Integer
For i=1 To 5
ary(i)=i+1
sum=sum+ary(i)
Next i
Print sum
End Sub
程序运行后，单击窗体，则在窗体上显示为______。
单选题满足下列条件之一的年份是闰年：1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份，下面判断闰年的正确表达式是
单选题在“报表设计器”中，可以使用控件是( )
单选题在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是doc文件，则正确的描述格式是
单选题形状控件的Shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是______。A．B．C．D．
单选题在程序代码中清除图片框Picture1 中的图形的正确语句是______ 。
单选题下列程序段的执行结果为a=1b=1For I=1 To 3 f=a+b a=b b=f Print f;Next I
单选题在数据管理技术发展的三个阶段中，数据共享最好的是( )。
单选题对下列程序段，说法正确的是（ ）。
Text1．Top=2000
Text1．Left=800
单选题如果要向工具箱中加入控件和部件，可以利用“工程”菜单中的______命令。
单选题窗体上有一个名称为Cornmand1的命令按钮。其单击事件过程如下：
Private Sub Command1_Click()
Open"c:/f1.txt" For Input As#1:Open"c:/f2.txt"For Output As#2
Do While Not EOF(1)
Line Input#1, str1:Print#2, str1
Loop
Close
End Sub
以下关于上述程序的叙述中，错误的是
单选题列表框用于列出可供用户选择的项目列表，下列______属性用来存放所有的列表项。
单选题假定有如下事件过程： Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Sinsle，Y As Single) If Button=2 then PopupMenu popForm End If End Sub 则以下描述中错误的是
单选题若变量a未事先定义而直接使用(例如：a=0)，则变量a的类型是
单选题窗体上有一个名称为CD1的通用对话框，一个名称为Command1的命令按钮，其事件过程如下：Private Sub Command1_Click() CD1.Filter = "All File|*.*|Word|*.Doc|*.exe|*.exe" CD1.FilterIndex = 2 CD1.DialogTitle = "Open File" CD1.FileName = "E:/Test.doc" CD1.InitDir = "E:" CD1.ShowOpenEnd Sub对于以上程序，以下叙述中错误的是
单选题在Visual Basic应用程序中，以下正确的描述是 ______。
A. 过程的定义可以嵌套，但过程的调用不能嵌套
B. 过程的定义不可以嵌套，但过程的调用可以嵌套
C. 过程的定义和过程的调用均可以嵌套
D. 过程的定义和过程的调用均不能嵌套
单选题有如下程序：Private Sub Command1_Click() Dim i As Integer， j As Integer Dim sum As Integer n＝1 Do j＝1 Do sum＝sum＋j j＝j＋1 Print j； Loop Until j>3 n＝n＋2 Loop Until n>10 Print sumEnd Sub运行上述程序，外层Do循环执行的次数为( )。
单选题在通用过程中，为了把某个参数定义为可变参数，应使用的关键字是
单选题为了实现鼠标自动拖放，必须把( )属性设置为1；而为了执行手动拖放，必须把该属性设置为0。