VB测试题选择题.docx
《VB测试题选择题.docx》由会员分享,可在线阅读,更多相关《VB测试题选择题.docx(12页珍藏版)》请在冰豆网上搜索。
VB测试题选择题
1.下面所列四组数据中,全部是正确的VB常数的是____。
2768,1.34D2,"ABCDE",&O1767
2.函数Len(Str(Val("123.4")))的值为______。
6
3.下面表达式中,_Exp(-3.5)_____的运算结果与其他三个不同。
4.PictureBox、Frame、OptionButton、ListBox、TextBox、Form、ComboBox这7个对象中,具有Caption属性的有_3______个。
5.以下叙述中错误的是__如果把一个菜单项的Enabled属性设置为False,则该菜单项不可见___。
6.使用_AddItem______方法可将新的列表项添加到一个列表框中。
7.执行下列程序段,输出结果为_70_________。
Dima(10)AsInteger
DimiAsInteger
Fori=1To10
a(i)=2*i-1
Nexti
Printa(4);
Erasea
Printa(4)
8.以下关于动态数组的语句中,正确的是_ReDima(k+1):
ReDimpreservea(10)______。
9.下列程序段的执行结果为__113______。
DimM(10),N(10)
i=3
Forj=1To5
M(j)=j
N(i)=2*i+j
Nextj
PrintN(i);M(i)
10.执行下面的程序,输出结果是____1830_______。
OptionExplicit
PrivateSubForm_Click()
DimMAsInteger,NAsInteger
M=1:
N=2
PrintM+N+F(M,N)
M=2:
N=1
PrintF(M,N)+F(M,N);
EndSub
PrivateFunctionF(XAsInteger,YAsInteger)
X=X+Y
Y=X+3
F=X+Y
EndFunction
11.调用由语句PrivateSubConvert(YAsInteger)定义的Sub过程时,以下不是按值传递的是__ConvertX_________。
12.下列说法正确的是_模块级变量可在模块通用声明段中用Private和Dim定义__________。
13.以下不属于VisualBasic系统的文件类型是__.Bat______。
14.在VB中有一行程序代码:
Text1.Text="VisualBasic",其中的Text1、Text和"VisualBasic"分别代表__对象、属性、值____。
15.以下叙述中错误的是_在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件_______。
16.VB中三种文件访问的类型为__顺序、随机、二进制_________。
17.在使用OPEN语句打开文件时,如果省略"for子句",则打开的文件存取方式为_随机存取方式__________。
18.向已有数据的C:
\test\test.txt文件添加数据,正确的文件打开命令是_Open"C:
\test\test.txt"ForAppendAs#511__________。
19.下面程序段的运行结果为__溢出______。
DimsAsInteger,iAsInteger
i=1:
s=1
Do
i=i+s
LoopUntils>10
Printi,s
20.执行以下语句后,a的值为__溢出______。
DimaAsInteger
a=1
Do
a=a+2
LoopUntila=100
21.下面程序段的运行结果为_1212288_______。
n=1
Fori=1To4
Forj=1Toi
n=n*j
Nextj
Printn;
Nexti
22.若执行定义语句DimaAsInteger,以下给a赋值的语句中,错误的是_a=2*32760\3_____。
23.执行语句:
A=Inputbox("Today","Tomorrow","Yesterday")
将显示一个输入对话框,在对话框的输入区中显示的信息是_Yesterday_____。
24.在文本框Text1中输入数字12,Text2中输入数字34,执行以下语句,只有_Text3.Text=val(Text1.Text)+val(Text2.Text)_______可使文本框Text3中显示46。
25.下列程序段的执行结果是_False______。
X=2
Y=1
IfX*Y<1ThenY=Y-1ElseY=-1
PrintY-X>0
26.关于语句Ifx=1Theny=1,下列说法正确的是_x=1为关系表达式,y=1为赋值语句______。
27.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,然后编写如下事件过程:
PrivateSubCommand1_Click()
N=Text1.Text
SelectCaseN
Case1To20
X=10
Case2,4,6
X=20
CaseIs<10
X=30
Case10
X=40
EndSelect
Text2.Text=X
EndSub
程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是_10___。
28.在菜单过程中使用的事件是利用鼠标__单击____菜单条来实现的。
29.如果要在两个菜单命令项之间加一条分隔线,可在标题文本框中键入_-______。
30.窗体Form1的名称属性是frm,它的Load事件过程名是_Form_Load______。
31.在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分别为Label1.Label2,标题分别为空白和"共有文件"的标签。
编写程序,使得驱动器列表框与目录列表框.目录列表框与文件列表框同步变化,并且在标签Label1中显示当前文件夹中文件的数量。
能够正确实现上述功能的程序是:
PrivateSubDir1_Change()
File1.Path=Dir1.Path
Label1.Caption=File1.ListCount
EndSub
PrivateSubDrive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.ListCount
EndSub
假定在窗体上建立了通用对话框,其名称为CommonDialog1,用下面的语句可以建立一个对话框:
CommonDialog1.Action=2
与该语句等价的语句是_CommonDialog1.showsave__________。
32.在代码编辑器中,如果一条语句太长,无法在一行内写下(不包括注释),要折行书写,可以在行末使用续行字符__一个空格加一个下划字符(_)____,表示下一行是当前行的继续。
33.以下关于图片框控件的说法中,错误的是_用Stretch属性可以自动调整图片框中图形的大小______。
34.Sub过程与Function函数最根本的区别是__前者无返回值,但后者有_________。
35.执行以下语句后,a的值为__3___。
DimaAsInteger
a=1
Do
a=a+2
LoopWhilea=100
36.如果单击一个当前没有被选中的复选框,其他已被选中的复选框会处于_选中_____状态。
37.以下关于窗体的描述中,错误的是_执行UnloadForm1语句后,窗体Form1消失,但仍在内存中_______。
在程序中分别将变量IntA、Bl、st和D定义为整型、布尔型、字符串型和日期型,下列赋值语句在执行时会出错的是Bl=#True#____。
VisualBasic布尔运算符Xor,Or,Not,And中,级别最高的运算符是_Not_____。
函数Int(Rnd*6+1)的取值范围是_从1到6共6个整数_____。
以下使用方法的代码中,正确的是__Text1.SetFocus____。
放置控件到窗体中的最迅速的方法是_双击工具箱中的控件_______。
下列程序段的执行结果为_0223_______。
DimM
(2)
Fori=1To2
M(i)=0
Nexti
K=2
Fori=1Tok
Forj=1TOk
M(j)=M(i)+1
PrintM(k);
Nextj
Nexti
假设通用声明段中有语句Optionbase1,过程中定义数组:
Dima(6)asInteger,则以下引用数组元素的语句中正确的是_a(n+3)=a(n+1)+a(n+2)______。
下列程序段的执行结果为____18________
DimA(5,5)AsInteger
Fori=1To3
Forj=1To4
A(i,j)=i*j
Nextj
Nexti
PrintA(2,3)+A(3,4)+A(4,5)
执行下面的程序,输出结果是__1830_________。
OptionExplicit
PrivateSubForm_Click()
DimMAsInteger,NAsInteger
M=1:
N=2
PrintM+N+F(M,N)
M=2:
N=1
PrintF(M,N)+F(M,N);
EndSub
PrivateFunctionF(XAsInteger,YAsInteger)
X=X+Y
Y=X+3
F=X+Y
EndFunction
在语句PublicSubSort(IAsInteger)中,I是一个按___地址________传递的参数。
设有如下程序
OptionBase1
PrivateSubCommand1_Click()
Dima(10)AsInteger
DimnAsInteger
n=InputBox("输入数据")
Ifn<10Then
CallGetArray(a,n)
EndIf
EndSub
PrivateSubGetArray(b()AsInteger,nAsInteger)
Dimc(10)AsInteger
j=0
Fori=1Ton
b(i)=CInt(Rnd()*100)
Ifb(i)/2=b(i)\2Then
j=j+1
c(j)=b(i)
EndIf
Nexti
Printj
EndSub
以下说法中错误的是__GetArray过程的参数n是按值传送的_________。
VB是用于开发_Windows_____环境下的应用程序的工具。
以下叙述中错误的是_VisualBasic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性_______。
为了清除窗体上的一个控件,下列正确的操作是_选择(单击)要清除的控件,然后按Del键_______。
若磁盘文件C:
\Data1.dat不存在,下列打开文件语句中,会产生错误的是_Open"C:
\Data1.dat"ForInputAs#2__________。
下面程序段的运行结果为__12624______。
Fori=1To4
n=1
Forj=1ToI
n=n*j
Nextj
Printn;
Nexti
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimAAsInteger
A=Inputbox("EnterAnInteger")
B=Inputbox("EnterAnInteger")
Text1.Text=B+A
EndSub
程序运行后,单击命令按钮,如果在输入对话框中分别输入4和56,则文本框中显示的内容是_60______。
在窗体上画一个文本框,然后编写如下事件过程:
PrivateSubForm_Click()
X=Inputbox("请输入一个整数")
PrintX+Text1.Text
EndSub
程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击"确定"按钮后,在窗体上显示的内容是_123456______。
运行下面程序,输出结果是__8___。
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger,cAsInteger
DimdAsInteger
a=5
b=-3
c=8
d=IIf(a>bAnda>c,a,IIf(b>c,b,c))
printd
EndSub
有如下程序:
PrivateSubCommand1_Click()
x=InputBox("inputvalue")
SelectCasex
CaseIs>0
y=x+1
CaseIs=0
y=x+2
CaseElse
y=x+3
EndSelect
Printx;y
EndSub
假设运行时从键盘上输入-5,输出结果是_-5-2______。
若要将水平滚动条的最小值设为0,最大值设为255,应对其_Min和Max____属性进行设置。
以下能在窗体Form1的标题栏中显示"Visualbasic窗体"的语句是__Form1.Caption="Visualbasic窗体"_____。
在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮。
然后编写如下事件过程:
PrivateSubCommand1_Click()
CommonDialog1.FileName=""
CommonDialog1.Filter="allfile|*.*|(*.DoC)|*.Doc|(*.Txt)|*.Txt"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle="VBTest"
CommonDialog1.Action=1
EndSub
对于这个程序,以下叙述中错误的是__在该对话框中指定的默认文件类型为文本框(*.Txt)_________。
以下不能作为VisualBasic变量名的是___12-E___。
表达式2+3*4^5-Sin(X+1)/2中最先进行的运算是_X+1_____。
图像框有一个属性,可以自动调整图形的大小,以适应图像框的尺寸,这个属性是__Stretch______。
以下关于函数过程的叙述中,正确的是__函数过程形参的类型与函数返回值的类型没有关系_________。
在下面的程序段中,循环体将执行___0___次。
Forv=10To20Step-2
printv
Nextv
当一个PictureBox控件的AutoSize属性为True时,在该控件中载入一个比控件的高度与宽度都大的图片时,图片的大小与控件的大小相比是__相等___。
程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是__Load_____。
设窗体上有一个文本框,名称为Text1,程序运行后,要求该文本框不能接受键盘输入,但能输出信息,以下属性设置正确的是___Text1.Enabled=False____。
38.