单选题在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：
Private Sub func(L As Label)
L.Caption="1234"
End Sub
Private Sub Form_Load()
Label1.Caption="ABCDE"
Label2.Caption=10
End Sub
Private Sub Command1_Click()
a=Valf Label2.Caption)
Call func(Label1)
Label2.Caption=a
End Sub
程序运行后，单击命令按钮，则在两个标签中显示的内容分别为______。
单选题在窗体上画一个文本框，一个命令按钮和一个标签，其名称分别为Text1、Command1和Label1,文本框的Text1属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() x=Int(Val(Text1.Text)+0.5) Label1.Calffion=Str(x) End Sub 程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是______。
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的 事件过程：
Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then
fun = 2
Else
fun = 1
End If
End Function
Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0
For i = 1 To 5
s = s + fun(i) Next
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是______。
单选题在窗体上画一个命令按钮，其名称为Commandl，然后编写如下程序： Function Fonc(By Val x As Integer,y As InteSer) y=x*y If y＞0 Then Func=X； Else Func=y End If End Function Private Sub Commandl_Click() Dim a As Integer,b As Integer a=3 b=4 c=Func(a,B) Print"a=";a Print"b=";b Print"C=";C End Sub 程序运行后，单击命令按钮，其输出结果为______。
单选题假定有以下程序段For i=1 To 3 For j=5 To 1 Srep-1 Print i*j Next jNext i则语句Print i*j 的执行次数是______。
单选题在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labell)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。下列可以实现上述操作的事件过程是______。
单选题设有如下通用过程：
Public Sub Fun(a()As Integer, x As Integer)
For i=1 To 4
x=x*a(i)
Next
End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim arr(5) As Integer, n As Integer
n=1
For i=1 To 4
arr(i)=i+i
Next
Fun arr, n
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是______。
单选题要删除列表框中最后一个列表项，正确的语句是( )。
单选题一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员与实体计算机之间的联系是( )。
单选题以下关于图片框控件的说法中，错误的是( )。 A) 可以通过Print方法在图片框中输出文本 B) 图片框控件中的图形可以在程序运行过程中被清除 C) 图片框控件中可以放置其他控件 D) 用Stretch属性可以自动调整图片框中图形的大小
单选题设已打开5个文件，文件号为1、2、3、4、5。要关闭所有文件，则下列语句正确的是( )。 A)Close#1,2,3,4,5 B)Close#1,#2,#3,#4,#5 C)Closeg#1-#5 D)Close#1;#2,#3;#4;#5
单选题在窗体上画２个文本框（名称分别为Text1和Text2），一个命令按钮（名称为Command1）。并定义以下记录类型和变量：
Private Type Teacher
ID As Integer
Name As String * 10
End Type
Dim Teach As Teacher
程序运行后，在Text1中输入编号（ID），在Text2中输入姓名（Name），然后单击命令按钮，则把两个文本框中的内容写入随机文件d:/f1.txt。以下能够正确实现上述功能的事件过程是
单选题Visual Basic 6.0集成环境的主窗口中不包括___________。
A.标题栏
B.状态栏
C.菜单栏
D.工具栏
单选题以下关系表达式中，其值为True的是( )。
单选题下面程序在调试时出现了死循环
Private Sub Command1_Click()
n=Input Box("请输入一个整数")
Do
If n Mod 2=0 Then
n=n+1
Else
n=n+2
End If
Loop Until n=1000
End Sub
下面关于死循环的叙述中正确的是【 】
单选题在窗体上画一个名称为CD1的通用对话框，并有以下程序：
Private Sub Form_load()
CD1.DefaultExt=".doc"
CD1.fileName="c:/file1.txt"
CD1.filter="应用程序(*.exe)|*.exe"
End Sub
程序运行时，如果显示了“打开”对话框，在文件夹类型中下拉列表中的默认文件类型为______。
单选题为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Text1中，若编写如下事件过程：Private Sub Command1 Click()
Dim a&,s&,k&
s=1
a=2
For k=2 To 10
a=a*2
s=s+a
Next k
Text1.Text=s
End Sub
执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是______。
单选题以下程序输出的结果为______。 x=1 y=4 Do Until y＞4 x=x*y y=y + 1 Loop Print x
单选题将命令按钮设置为窗体的取消按钮，要设置的属性为
单选题下列程序代码实现生成20个0～100之问的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段( )，完成程序。 Private Sub Command1 Click() Dim arr(1 To 20) For i=1 To 20 arr(i)=______ Text1. Text=Text1. Text＆arr(i)＆Chr(13)＆Chr(10) Next i Surn=0 For Each X______ If X＞50 Then Print Tab(20)；X Sum=Sum+X End If NextX Print Tab(20)；"Sum="；Sum End Sub