大学Visual Basic课程VB5.docx
《大学Visual Basic课程VB5.docx》由会员分享,可在线阅读,更多相关《大学Visual Basic课程VB5.docx(11页珍藏版)》请在冰豆网上搜索。
大学VisualBasic课程VB5
VB模拟试题(5)
一、选择题
1.为了把窗体上某个控件变成活动控件,应执行的操作是()
A.单击窗体的边框B.单击控件的内部
C.双击控件D.双击窗体
2.VB6.0集成环境的主窗口中不包括()
A.标题栏B.菜单栏C.状态栏D.工具栏
3.为了保存一个VB应用程序,下列廉洁中正确的是()
A.只保存窗体文件(.frm)B.只保存工程文件(.vbp)
C.分别保存工程文件和窗体文件D.分别保存工程文件和标准模块文件(.bas)
4.下列不可作为VB变量名的是()
A.4*DeltaB.AlphaC.ABCD.ABT1
5.设a=2,b=3,c=4,d=5,表达式3>2*bORa=cANDb<>cORc>d的值是()
A.1B.-1C.FalseD.True
6.下列逻辑表达式中,能正确表示条件“x,y都是奇数”的是()
A.xMod2=1OryMod2=1B.xMod2=0OryMod2=0
C.xMod2=1AndyMod2=1D.xMod2=0AndyMod2=0
7.执行以下语句后,输出的结果是()
s$="ABCDEFGHIJK"
PrintMid$(s$,3,4);
prinLen(s$)
A.ABCD11B.CDEF11C.EFGH11D.HIJK11
8.若要求在文本框中输入密码时在文本框中显示#号,则应在此文本框的属性窗口中设置()
A.Text属性值为#B.Caption属性值为#
C.PasswordChar属性值为#D.PasswordChar属性值为真
9.为了使列表框中的项目分为多项显示,需要设置的属性为()
A.ColumnsB.StyleC.listD.MultiSelect
10.设置复选框或单选按钮标题对齐方式的属性是()
A.AlignB.AlignmentC.SortedD.value
11.确定一个窗体或控件大小属性是()
A.Width或HeightB.Width和HeightC.Top或LeftD.Top和Left
12.假定窗体的名称为(Name属性)为form1,则把窗体的标题设置为“VBTEST”的语句正确的是()
A.form1=“VBTEST”B.Caption=“VBTEST”
C.form1.test=“VBTEST”D.form1.name=“VBTEST”
13.使文本框获得焦点的方法()
A.ChangeB.GotFocusC.SetFocusD.LostFocus
14.为了使标签中的内容居中显示,应把Alignment属性设置为()
A.0B.1C.2D.3
15.假定窗体上有一个Text1文本框,为使它的文本内容位于中间并且没有边框,则正确的属性设置为()
A.Text1.Alignment=1B.Text1.Alignment=2
Text1.BorderStyle=0Text1.BorderStyle=1
C.Text1.Alignment=1D.Text1.Alignment=2
Text1.BorderStyle=1Text1.BorderStyle=0
16.在窗体中添加一个列表框,然后编写如下两个事件过程:
PrivateSubForm_Click()
List1.RemoveItem1
List1.RemoveItem3
List1.RemoveItem2
EndSub
PrivateSubForm_Load()
List1.AddItem"AA"
List1.AddItem"BB"
List1.AddItem"CC"
List1.AddItem"DD"
List1.AddItem"EE"
EndSub
运行上面的程序,然后单击窗体,列表框中所显示的内容为()
A.AAB.DDC.AAD.BB
BBEECCCC
17.假定在图片框Picture1中装入一个图形,为了清除该图形(注意,清除图形,而不是删除图片框),应采用的正确的方法是()
A.选择图片框,然后按Del键
B.执行语句Picture1=LoadPicture(“”)
C.执行语句Picture1.parent=””
D.选择图片框,在属性窗口中选择Picture属性,然后按回车键
18.在VB中要设置菜单项的快捷访问键,应使用()符号
A.&B.*C.$D.@
19.假定有以下程序段:
Fori=1To3
Forj=5To1Step-1
Printi*j
Nextj,i
则语句Printi*j的执行次数是()
A.15B.16C.17D.18
20.当一个工程含有多个窗体时,其中的启动窗体是()
A.启动VB时建立的窗体B.第一个添加的窗体
C.最后一个添加的窗体工程属性D.在工程属性对话框中指定的窗体
21.在窗体中添加一个文本框,然后编写如下代码:
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
DimcharAsString
char=Chr$(KeyAscii)
KeyAscii=Asc(UCase(char))
Text1.Text=String(3,KeyAscii)
EndSub
程序运行后,如果在键盘上输入字母“a”,则文本框中显示的内容为()
A.aB.AC.aaaaD.AAAA
22.在窗体中添加一个标签Lb1Result和一个命令按钮Command1,然后编写程序,程序的功能是单击命令按钮,计算1+2+3+4+5的值,并把结果转化为字符串显示在标签内,能够实现上述功能的程序段是()
A.PrivateSubCommand1_Click()B.PrivateSubCommand1_Click()
DimI,RAsIntegerDimI,RAsInteger
ForI=1To5Step1ForI=1To5Step1
R=R+IR=R+I
NextNext
Lb1Result.Name=Str$(R)Lb1Result.Caption=Str$(R)
EndSubEndSub
C.PrivateSubCommand1_Click()D.PrivateSubCommand1_Click()
DimI,RAsIntegerDimI,RAsInteger
DoWhileI<5Do
R=R+IR=R+I
I=I+1I=I+1
LoopLoopWhileI<5
Lb1Result.Caption=Str$(R)Lb1Result.Caption=Str$(R)
EndSubEndSub
23.在窗体中添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1),然后编写如下事件过程:
PrivateSubCommand1_Click()
x=0
DoWhilex<10
x=(x-2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
EndSub
程序运行后,单击命令按钮,在两个文本框中显示的值分别为()
A.1和0B.2和24C.3和50D.4和68
24.在窗体中添加一个命令按钮(其Name属性为Command1),然后编写如下代码:
PrivateSubCommand1_Click()
Dima(10)AsInteger
Dimp(3)AsInteger
k=1
ForI=1To10
a(I)=I
NextI
ForI=1To3
p(I)=a(I*1)
NextI
ForI=1To3
k=k+p(I)*2
NextI
Printk
EndSub
程序运行后,单击命令按钮,输出结果是()
A.15B.13C.30D.37
25.阅读程序:
PrivateSubCommand1_Click()
a=10:
b=15:
c=20:
d=25
Printa;Spc(5);b;Spc(5);c
Printb;Space$(5);b;Space$(5);c
Printc;Spc
(2);"+";Spc
(2);d;
PrintSpc
(2);"=";Spc
(2);c+d
EndSub
程序运行后,单击窗体,输出结果是()
26.在窗体中添加一个名称为Command1的命令按钮,然后编写如下程序:
PrivateSubCommand1_Click()
DimIAsInteger,jAsInteger
Dima(10,10)AsInteger
DimsumAsInteger
ForI=1To10
Forj=1To10
a(I,j)=(I-1)*3+j
Nextj
NextI
……
Printsum
EndSub
此过程的功能是计算数组a中的副对角线上元素的和,为实现此;功能,省略号处的程序段应该是()
A.ForI=1To10B.ForI=1To10
Forj=1To10Forj=1To10
IfI+j=10ThenIfI+j==10Then
sum=sum+a(I,j)sum=sum+a(I,j)
EndIfEndIf
NextjNextj
NextINextI
C.ForI=1To10D.ForI=1To10
Forj=1To10Forj=1To10
IfI+j=10ThenIfI+j==10
sum=sum+a(I,j)sum=sum+a(I,j)
NextjNextj
NextINextI
27.阅读程序:
Functionf(aAsInteger)
b=0
Staticc
b=b+1
c=c+1
f=a+b+c
EndFunction
PrivateSubCommand1_Click()
DimaAsInteger
a=2
ForI=1To3
Printf(a)
NextI
EndSub
运行上面的程序,单击命令按钮,输出结果为()
A.B.C.D.
28.假定有以下两个过程:
SubS1(ByValxAsInteger,ByValyAsInteger)
DimtAsInteger
t=x
x=y
y=t
EndSub
SubS2(xAsInteger,yAsInteger)
DimtAsInteger
t=x
x=y
y=t
EndSub
则以下说法中正确的是()
A.用过程S1可以实现交换两个变量值的操作,S2不能实现
B.用过程S2可以实现交换两个变量值的操作,S1不能实现
C.用过程S1和S2都可以实现交换两个变量值的操作
D.用过程S1和S2都不能实现交换两个变量值的操作
29.在窗体中添加一个通用对话框Commondialog1和一个命令按钮Command1,当单击按钮时打开颜色对话框,能实现此功能的程序段是()
A.PrivateSubCommand1_Click()B.PrivateSubCommand1_Click()
CommonDialog1.ShowOpenCommonDialog1.ShowColor
EndSubEndSub
C.PrivateSubCommand1_Click()D.PrivateSubCommand1_Click()
CommonDialog1.ShowFontCommonDialog1.ShowHelp
EndSubEndSub
30.在窗体中添加一个通用对话框,其名称为CommonDialog1,然后添加一个命令按钮。
要求单击命令按钮时,打开一个打开文件的通用对话框。
该窗口的标题为“打开”,在文件类型框中显示的是TextFiles(*.txt)。
则能够满足上述要求的程序是()
A.PrivateSubCommand1_Click()
CommonDialog1.Flags=cdlOFNHideReadOnly
CommonDialog1.Filter="allfiles(*.*)|*.*|textfiles"&"(*.txt)|*.txt|Batchfiles(*.bat)|*.bat"
CommonDialog1.FilterIndex=1
CommonDialog1.ShowOpen
MsgBoxCommonDialog1.FileName
EndSub
B.PrivateSubCommand1_Click()
CommonDialog1.Flags=cdlOFNHideReadOnly
CommonDialog1.Filter="allfiles(*.*)|*.*|textfiles"&"(*.txt)|*.txt|Batchfiles(*.bat)|*.bat"
CommonDialog1.FilterIndex=2
CommonDialog1.ShowOpen
MsgBoxCommonDialog1.FileName
EndSub
C.PrivateSubCommand1_Click()
CommonDialog1.Flags=cdlOFNHideReadOnly
CommonDialog1.Filter="allfiles(*.*)|*.*|textfiles"&"(*.txt)|*.txt|Batchfiles(*.bat)|*.bat"
CommonDialog1.FilterIndex=1
CommonDialog1.ShowSave
MsgBoxCommonDialog1.FileName
EndSub
D.PrivateSubCommand1_Click()
CommonDialog1.Flags=cdlOFNHideReadOnly
CommonDialog1.Filter="allfiles(*.*)|*.*|textfiles"&"(*.txt)|*.txt|Batchfiles(*.bat)|*.bat"
CommonDialog1.FilterIndex=2
CommonDialog1.ShowSave
MsgBoxCommonDialog1.FileName
EndSub
二、填空题
1.以下语句的输出结果是____________
a%=4.5678
Printa%
2.下列语句的输出结果是_____________
PrintInt(12345.6789*100+0.5)/100
3.窗体、图片框或图像框中的图形通过对象的___________属性设置。
4.由Arry函数建立的数组的名字必须是_____________类型
5.以下程序段的输出结果是____________
num=0
Whilenum<=2
num=num+1
Printnum
Wend
6.在窗体中添加一个命令按钮(其Name属性为Command1),然后编写如下代码:
PrivateSubCommand1_Click()
Dimn()AsInteger
Dima,bAsInteger
a=InputBox("Enterthefirstnumber")
b=InputBox("Enterthesecondnumber")
ReDimn(aTob)
Fork=LBound(n,1)ToUBound(n,1)
n(k)=k
Printn(k)
Nextk
EndSub
程序运行后,单击命令按钮,在输入对话框中分别输入2和3,输出结果为___________。
7.在窗体中添加两个文本框和一个命令按钮,然后在命令按钮的代码窗口中编写如下代码:
PrivateSubCommand1_Click()
Text1.Text="VB"
Text2.Text=Text1.Text
Text1.Text="ABC"
EndSub
程序运行后,单击命令按钮后,两个文本框中显示的内容分别为________和________。
8.以下程序的功能是:
从键盘上输入若干个学生的考试分数,统计并输出最高分数和最低分数,当输入负数时结束输入,输出结果,请将程序补充完整。
PrivateSubForm_Click()
Dimx,amax,aminAsSingle
x=InputBox("Enterascore")
amax=x
amin=x
DoWhile_____________
Ifx>amaxThen
amax=x
EndIf
If_____________Then
amin=x
EndIf
x=InputBox("Enterascore")
Loop
Print"max=";amax,"min=";amin
EndSub
9.设计一个计时程序。
该程序用户界面如图所示,由一个文本框(Text1)、两个按钮:
命令按钮1(Command1)、命令按钮2(Command2)组成。
程序运行后,单击开始按钮,则开始计时,文本框中显示秒数,单击停止按钮,则计时停止。
单击窗口则退出。
请将下列程序补充完整。
OptionExplicit
Dimi
PrivateSubCommand1_Click()
i=0
Timer1.Interval=1000
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click()
Timer1.Enabled=False
EndSub
PrivateSubForm_Click()
__________Me
EndSub
PrivateSubForm_Load()
Timer1.Enabled=False
Text1.Text=0
EndSub
PrivateSubTimer1____________()
i=i+1
Text1.Text=___________
EndSub
10.下面程序的功能是:
输入一个字符串,在“d:
\f1.dat”文件中查找输入的字符串是否存在,若存在,则输出“找到字符串”,否则输出“没找到字符串”。
请将下列程序补充完整。
PrivateSubForm_Load()
a$=InputBox("请输入要查找的字符串")
Open"d:
\f1.dat"For____________As#1
b$=Input(LOF
(1),1)
___________
y=InStr(1,b$,a$)
Ify<>0Then
Print"找到字符串";a$
Else
Print"没找到字符串";a$
EndIf
EndSub
答案:
一、选择题:
1---5BCCAC
6--10CBCAB
11-15BBCCD
16-20CBAAD
21-25DBBBA
26-30ABABB
二、填空题:
1、4
2、12345.68
3、PICTURE
4、VARIANT
5、3
6、2
3
7、ABC
8、VB
9、X>=0
10、X11、UNLOAD
12、TIMER
13、I
14、INPUT
15、CLOSE