单选题在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框，一个名称为Filel的文件列表框，两个名称分别为Label1、Label2、标题分别为空白和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Labell中显示当前文件夹中文件的数量。如下图所示。能够正确实现上述功能的程序是()。
单选题下面为单精度实型(即单精度浮点型)变量的是
单选题阅读程序： Private Sub Form_Click()
x=50 For i=1 To 4
y=InputBox("请输入一个整数") y=Val (y) If y Mod 5=0
Then a=a+y x=y Else
a=a+x End If Next i
Print a End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为______。
A.100
B.50
C.120
D.70
单选题在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1)，外观如图所示。编写如下程序PrivateSubFormLoad()Text1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand1Click()x=Val(Text1.Text)y=Val(Text2.Text)Text3.Text=f(x,y)EndSubFunctionf(ByValxAsInteger,ByValyAsInteger)DoWhiley＜＞0tmp=xModyx=yy=tmpLoopf=xEndFunction运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是______。
单选题有三个关系R，S和T如下：
单选题设有如下事件过程：Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)If Button=2ThenPopupMenu popMenuEnd IfEnd Sub则以下描述中错误的是( )。
单选题若在窗体模块的声明部分声明了如下自定义类型和数组： Private Type rec Code As Integer Caption As String End Type Dim arr(5)As rec 则下面的输出语句中正确的是( )。
单选题为了读取数据，需打开顺序文件“D:/data5.txt”，以下正确的命令是
单选题以下说法不正确的是( )。 A) 使用ReDim语句可以改变数组的维数 B) 使用ReDim语句可以改变数组的类型 C) 使用ReDim语句可以改变数组每一维的大小 D) 使用ReDim语句可以对数组的所有元素进行初始化
单选题下列程序段的输出结果是x=5 Print x+1；x+1
单选题在设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框：PrivateSubCommandl_Click()CD1.DialogTitle="打开文件"CD1.InitDir="C:"CD1.Filter="所有文件|*.*|Word文档|*.doc|文本文件|*.txt"CD1.FileName=""CD1.Action=1IfCD1.FileName=""ThenPrint"未打开文件"ElsePrint"要打开文件v&CD1.FileNameEndIfEndSub但实际显示的对话框中列出了C:/下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是______。A.把CD1.Action=1改为CD1.Action=2B.把“CD1.Filter=”后面字符串中的“所有文件”改为“文本文件”C.在语句CD1.Action=1的前面添加：CD1.Filterlndex=3D.把CD1.FileName=""改为CD1.FileName=“文本文件”
单选题在窗体上有一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。下列能够正确实现上述功能的程序是( )。
单选题vate Sub Commandl—Click()Dim m As Integer,n As Integerm=1：n=0Do While m<20n=m+nm=3*m+1LoopPrint m，nEnd Sub程序运行后，单击命令按钮Command1，输出结果为( )。
单选题编写如下程序： Private Sub Command1_Click() Dim a(3，3)As Integer，b(3，3)As Integer For i=1 To 3 For j=1 To 3 a(i，j)=i+j：b(i，j)=a(i，j)+i*(j-1) Next i Next i For i=1 To 3 For i=1 To 3 Print b(i，j)； Next i Print Next i End Sub 程序运行后，单击命令按钮Command1，输出结果为
单选题在窗体上画一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果为 ( )。 Private Sub p1(n As Integer) For i=n To 1 Step-1 x=String(i, "*") Print x Next i End Sub Private Sub Command1_Click() p1 (3) End SubA) * * * * * * B) * * * * * * C) * * *D) * * * * * *
单选题下列哪一项使图像(Image)控件中的图像自动适应控件的大小
____
。
单选题在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1，2，3，4) j=1 Fori=4 To 1 Step-1 s=s+a(i)*j j*10 Next i Print s End Sub 程序运行后，单击命令按钮，其输出结果是______。 A) 12 B) 34 C) 1234 D) 4321
单选题在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n=1 To 20 If n Mod 3＜＞0 Then in=m+n/3 Next Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是
单选题在窗体上画一个列表框、一个文体框及一个按钮，然后编写如下事件过程： Private Sub Form Loab() List.AddItem"357" List.AddItem"246" List.AddItem"123" List.AddItem"456" TEXT1.Text="" End Sub Private Sub Command1_Click() List．Listindex=3 Print List.Text1+Text1.Text End Sub 程序运行后，在文本框中输入"789"，然后双击列表框中的"456"，则输出结果为
单选题顺序文件在一次打开期间