单选题以下说法不正确的是( )。 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",则输出结果为
单选题顺序文件在一次打开期间
单选题假定Picture1和Text1分别为图片框和文本框的名称,则下列错误的语句是( )。
单选题以下( )事件过程可以将打开的对话框的标题改变为“新标题”。
单选题下面关于算法的叙述中,正确的是( )。
单选题为了使一个复选框被禁用(灰色显示),应把它的Value属性设置为
单选题在窗体上画一个命令按钮,然后编写如下程序: Sub S1(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t=x x=y y=t End Sub Private Sub Command1_Click() Dim a As Integer, b As Integer a=10 b=30 S1 a, b Print "a="; a; "b="; b End Sub 程序运行后,单击命令按钮,输出结果是______。
单选题由事务型数据流图映射为软件结构的设计首先应设计一个______它有两个功能:接收事务数据,根据事务类型调度相应的处理模块。
A. 总控模块
B. 事务中心
C. 变换中心
D. 事务调度
单选题以下不能输出“Program”的语句是( )。
单选题在窗体上有一个命令按钮,然后编写如下事件过程 Private Sub Command1 _ cickc ( ) a=InputBox("enter the first integer") b=InputBox("enter the second integer") Print b + a End Sub 程序运行后,单击命令按钮,先后在两个输入框中分别输入“2”和“6”,则输出结果为
