VB题库2.docx
- 文档编号:9793087
- 上传时间:2023-02-06
- 格式:DOCX
- 页数:22
- 大小:60.19KB
VB题库2.docx
《VB题库2.docx》由会员分享,可在线阅读,更多相关《VB题库2.docx(22页珍藏版)》请在冰豆网上搜索。
VB题库2
1.数学式子sin30°写成VB表达式是___A___。
A.Sin(30*3.14/180)B.Sin(30)C.Sin(30°)D.Sin30
2.下面表达式中,___C___的运算结果与其他三个不同。
A.-Abs(-3.5)B.Int(-3.5)+0.5C.Exp(-3.5)D.Sgn(-3.5)-2.5
3.已知X
A.Sgn(X-Y)-Sgn(A-B)=-1B.Sgn(Y-X)-Sgn(A-B)=-2
C.Sgn(Y-X)-Sgn(A-B)=0D.Sgn(Y-X)-Sgn(A-B)<0
4.如果要改变窗体的标题,则需要设置的属性是__C_____。
A.BackcolorB.NameC.CaptionD.Borderstyle
5.如果要在两个菜单命令项之间加一条分隔线,可在标题文本框中键入_D______。
A.#B.+C.&D.-
6.在程序中可以通过复选框和单选按钮的____A___属性值来判断它们的当前状态它。
AValueB.CaptionC.CheckedD.Selected
7.设有如下程序:
OptionBase1
PrivateSubForm_Click()
DimA
DimiAsInteger
A=Array(1,2,3,4,5,6,7,8,9)
Fori=1To4
PrintA(4+i);
Nexti
EndSub
程序运行后,单击窗体,则在窗体上显示的是____A____。
A.5678B.2345C.1234D.6789
8.下列程序段的执行结果为____D____。
Dima(10)AsInteger,b()AsInteger
DimiAsInteger
ReDimb(5)
Fori=1To10
a(i)=i
IfiMod2=0Then
b(i/2)=a(i)
EndIf
Nexti
Printa(4);b(3)
A.34B.43C.64D.46
9.下列程序段的执行结果为_____A___。
DimM
(2)
Fori=1To2
M(i)=0
Nexti
K=2
Fori=1Tok
Forj=1TOk
M(j)=M(i)+1
PrintM(k);
Nextj
Nexti
A.0223B.1234C.1223D.0123
10.执行下面的程序,输出结果是__B_________。
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
A.49B.1830C.718D.918
11.调用由语句PrivateSubConvert(YAsInteger)定义的Sub过程时,以下不是按值传递的是________D___。
A.Convert(X)B.CallConvert(X*1)C.CallConvert((X))D.ConvertX
12.设有如下程序
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
以下说法中错误的是______A_____。
A.GetArray过程的参数n是按值传送的
B.程序运行结束时,在窗体上显示的是c数组中元素的个数
C.数组b中的偶数被保存在数组c中
D.如果输入的数据大于10,则窗体上不显示任何信息
13.能被对象所识别的动作与对象可执行的活动分别称为对象的__D______。
A.方法、事件B.过程、方法C.事件、属性D.事件、方法
14.以下叙述中错误的是___D_____。
A.一个工程中可以含有多个标准模块文件
B.以.BAS为扩展名的文件是标准模块文件
C.窗体文件包含该窗体及其控件的属性
D.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
15.以下叙述中错误的是___C_____。
A.保存VisualBasic程序时,应分别保存窗体文件及工程文件
B.打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件
C.VisualBasic应用程序只能以解释方式执行
D.事件可以由用户引发,也可以由系统引发
16.向已有数据的C:
\test\test.txt文件添加数据,正确的文件打开命令是_____B_____。
A.Open"C:
\test\test.txt"ForOutputAs#511
B.Open"C:
\test\test.txt"ForAppendAs#511
C.Open"C:
\test\test.txt"ForOutputAs#512
D.Open"C:
\test\test.txt"ForAppendAs#512
17.以下叙述中正确的是____C_______。
A.使用Input#语句可以从随机文件中读取数据
B.一个记录中所包含的各个元素的数据类型必须相同
C.随机文件中每个记录的长度是固定的
D.Open命令的作用是打开一个已经存在的文件
18.下面关于顺序文件的描述正确的是______C_____。
A.可通过编程对文件中的某条记录方便地修改
B.每条记录的长度必须相同
C.数据只能以ASCII码形式存放在文件中,所以可通过文本编辑软件显示
D.文件的组织结构复杂
19.在下面的程序段中,循环体将执行___C___次。
Forv=20To10Step-2
printv
Nextv
A.10B.0C.6D.5
20.执行以下语句后,a的值为__A___。
DimaAsInteger
a=1
Do
a=a+2
LoopWhilea=100
A.3B.1C溢出D.101
21.下面程序运行后,单击command1后屏幕显示是____B_____。
PrivateSubcommand1_click()
Fori=1To4
Ifi>3ThenExitFor
Nexti
Forj=1To6
i=i+j
Nextj
Printi,j
EndSub
A.266B.257C.256D.267
22.在窗体上画一个命令按钮,名称为Command1。
单击命令按钮时,执行如下事件过程:
PrivateSubCommand1_Click()
a$="MicroSoftVisualBasic"
B$=Right(a$,5)
C$=Mid(a$,1,9)
MsgBoxa$,,B$,C$,1
EndSub
则在弹出的信息框的标题栏中显示的信息是____B__。
A.1B.BasicC.MicroSoftD.MicroSoftVisualBasic
23在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:
PrivateSubCommand1_Click()
A=Inputbox("EnterAnInteger")
B=Inputbox("EnterAnInteger")
Text1.Text=B+A
EndSub
程序运行后,单击命令按钮,如果在输入对话框中分别输入4和56,则文本框中显示的内容是_____B__。
A.456B.564C.60D.出错
24.在文本框Text1中输入数字12,Text2中输入数字34,执行以下语句,只有____A____可使文本框Text3中显示46。
A.Text3.Text=val(Text1.Text)+val(Text2.Text)
B.Text3.Text=Text1.Text&Text2.Text
C.Text3.Text=Text1.Text+Text2.Text
D.Text3.Text=val(Text1.Text)&val(Text2.Text)
25.运行下面程序,如果输入85,则输出结果是__C___。
DimaAsInteger,iAsInteger
a=InputBox("inputa:
")
Ifa>60Theni=1
Ifa>70Theni=2
Ifa>80Theni=3
Ifa>90Theni=4
Print"i=";i
A.i=4B.i=2C.i=3D.i=1
26.运行下面程序,输出结果是__A___。
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
A.8B.5C.-3D.2
27.关于语句Ifx=1Theny=1,下列说法正确的是___A____。
A.x=1为关系表达式,y=1为赋值语句B.x=1和y=1均为关系表达式
C.x=1和y=1均为赋值语句D.x=1为赋值语句,y=1为关系表达式
28.以下不能实现在窗体上选择多个控件的方法是___B____。
A.按住Shift键同时单击每个控件B.单击每个控件
C.按住Ctrl键同时单击每个控件D.通过鼠标拖一方框将它们选定
29.当一个复选框被选中时,它的Value属性的值是___A____。
A.1B.0C.2D.3
30.设有一个命令按钮,若要实现按回车键等同按此键,应设置其___D______。
A.Cancel属性设为True
B.Cancel属性设为False
C.Default属性设为False
D.Default属性设为True
31.在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分别为Label1.Label2,标题分别为空白和"共有文件"的标签。
编写程序,使得驱动器列表框与目录列表框.目录列表框与文件列表框同步变化,并且在标签Label1中显示当前文件夹中文件的数量。
能够正确实现上述功能的程序是:
D
A.PrivateSubDir1_Change()
File1.Path=Dir1.Path
EndSub
PrivateSubDrive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.ListCount
EndSub
B.PrivateSubDir1_Change()
File.Path=Dir1.Path
EndSub
PrivateSubDrive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.List
EndSub
C.PrivateSubDir1_Change()
File1.Path=Dir1.Path
Label1.Caption=File1.ListCount
EndSub
PrivateSubDrive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.List
EndSub
D.PrivateSubDir1_Change()
File1.Path=Dir1.Path
Label1.Caption=File1.ListCount
EndSub
PrivateSubDrive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption=File1.ListCount
EndSub
32.在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮。
然后编写如下事件过程:
PrivateSubCommand1_Click()
CommonDialog1.FileName=""
CommonDialog1.Filter="allfile|*.*|(*.DoC)|*.Doc|(*.Txt)|*.Txt"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle="VBTest"
CommonDialog1.Action=1
EndSub
对于这个程序,以下叙述中错误的是______A_____。
A.在该对话框中指定的默认文件类型为文本框(*.Txt)
B.该对话框的标题为VBTest
C.该对话框被设置为"打开"对话框
D.在该对话框中指定的默认文件名为空
33.下列___B___是日期型常量。
A."2/1/01"B.#2/1/02#C.2/1/02D.{2/1/02}
34.下面所列四组数据中,全部是正确的VB常数的是_D__。
A.276,123.56,1.2E-2,#True#B.HABCE,02-03-2004,False,0.3
C.ABCE,#02-03-2004#,E-2D.2768,1.34D2,"ABCDE",&O1767
35.以下能在窗体Form1的标题栏中显示"Visualbasic窗体"的语句是__B_____。
A.Form1.Name="Visualbasic窗体"
B.Form1.Caption="Visualbasic窗体"
C.Form1.Title="Visualbasic窗体"
D.Form1.Text="Visualbasic窗体"
36.VB中可以使用自己定义的Sub过程和Function过程,______A_____过程称为函数,这种过程可以返回值。
A.FunctionB.事件C.属性D.通用
37.在下面的程序段中,循环体将执行_____D_次。
Forv=10To20Step-2
printv
Nextv
A.5B.10C.6D.0
38.在窗体上有一个文本框控件,名称为Txttime,一个计时器控件,名称为Timerl,要求每一秒钟在文本框中显示一次当前的时间。
程序为:
PrivateSubTimer1______()
Txttime.Text=Time
EndSub
在下划线上应填入的内容是___D_____。
A.VisibleB.EnabledC.IntervalD.Timer
39.以下叙述中错误的是___B____。
A.控件的名称可以由编程人员设定
B.窗体或控件的事件的名称可以由编程人员确定
C.移动鼠标时,会触发Mousemove事件
D.双击鼠标可以触发Dblclick事件
40.若要将水平滚动条的最小值设为0,最大值设为255,应对其__D___属性进行设置。
A.Width和HeightB.Left和TopC.SmallChange和LargeChangeD.Min和Max
41.下面程序的功能是随机生成20个三位正整数,输出其中的第二大数,按要求完善程序。
PrivateSubForm_Click()
DimiAsInteger,nAsInteger
DimmaxAsInteger,max1AsInteger
n=Int(Rnd*900)+100
___max=n______
Fori=1To19
n=Int(Rnd*900)+100
Ifn>maxThen
____max1=max_______
max=n
ElseIf__n>max1_____Then
max1=n
EndIf
Nexti
Print"最大数是";max;"第二大数是";max1
EndSub
42.运行如下程序后,输出结果为____19____。
Form=1To4
a=0
Forj=1To5
a=1
Fork=1To6
a=a+3
Nextk
Nextj
Nextm
Printa
43.阅读下面程序,当单击窗体后,窗体上输出的是_17133________。
PrivateSubForm_Click()
DimiAsInteger,kAsInteger
DimaAsInteger,bAsInteger
a=5:
b=1
Fori=1Toa+bStepb
i=i+1
a=a+i
b=b+i
k=k+1
Nexti
Printa;b;k
EndSub
44.若形参前缺省ByVal和ByRef关键字,系统默认为按____地址_______传递。
45.运行下列程序,依次点击第一个和第二个按钮,结果为___100________。
DimaAsInteger'在窗体通用部分定义a为窗体模块级的变量
PrivateSubCommand1_Click()
DimbAsInteger
a=10
b=20
EndSub
PrivateSubCommand2_Click()
DimbAsInteger
Printa;
Printb
EndSub
46.随机生成10个整数,并放入一个一维数组中,然后将其前5个元素与后5个元素对换,即:
第1个元素与第10个元素互换,第2个元素与第9个元素互换……分别输出数组原来各元素的值和对换后各元素的值。
PrivateSubCommand1_Click()
Dima(10)AsInteger
DimiAsInteger,jAsInteger
Print"原序列:
"
Fori=1To10
a(i)=Int(Rnd*90)+10
Printa(i);
Nexti
Fori=1To_5_______
t=a(i)
_a(i)=a(11-i)_______
_a(11-i)=t_______
Nexti
Print"交换后的序列:
"
Fori=1To10
Printa(i);
Nexti
EndSub
47.执行以下程序段,则第一行输出结果是__53_____,第二行输出结果是_-30______。
Dima(-3To5)AsSingle
Dimb(3,4)AsInteger
PrintUBound(a),UBound(b,1)
PrintLBound(a),LBound(b,2)
48.执行下列程序,单击命令按钮在窗体上输出结果为_563_____。
OptionBase1
PrivateSubCommand1_Click()
Dima(3,3)AsInteger,kAsInteger
DimiAsInteger,jAsInteger,nAsInteger
n=UBound(a,1)
Fori=1Ton-2
Forj=iTon-i
a(i,j)=k+1
a(j,n+1-i)=k+2
a(n+1-i,n+1-j)=k+3
a(n+1-j,i)=k+4
k=k+4
Nextj
Nexti
IfnMod2<>0Then
a((n+1)/2,(n+1)/2)=k+1
EndIf
Printa(1,2);a(2,3);a(3,3)
EndSub
49.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:
MicrosoftVisualBasicProgramming
然后编写如下事件过程:
PrivateSubCommand1_Click()
Open"D:
\Temp\Outf.Txt"ForOutputAs#1
ForI=1ToLen(Text1.Text)
C=Mid(Text1.Text,I,1)
IfC>="A"AndC<="Z"Then
Print#1,Lcase(C);
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 题库