vb程序设计试题含答案Word文件下载.docx
《vb程序设计试题含答案Word文件下载.docx》由会员分享，可在线阅读，更多相关《vb程序设计试题含答案Word文件下载.docx（17页珍藏版）》请在冰点文库上搜索。
13.如下数组声明语句，正确的是（B）
（A）Dima[3,4]AsInteger（B）Dima（3,4）AsInteger
（C）Dima（n,n）AsInteger（D）Dima（3,4）AsInteger
14.下面子过程语句说明合法的是（A、D）
（A）Subf1（ByValn%）（B）Subf1（n%）AsInteger
（C）Functionf1%（f1%）（D）Functionf1（ByValn%）
15.假定有如下的命令按钮（名称为Command1）事件过程：
PrivateSubCommand1_Click（）
x=InputBox（"
输入：
"
，"
输入整数"
）
MsgBox"
输入的数据是：
”，，”输入数据：
+x
EndSub
16.程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是（A）
（A）x的值是数值10（B）输入对话框的标题是“输入整数”
（C）信息框的标题是“输入数据：
10”（D）信息框中显示的是“输入的数据是：
”
二、填空题（每题2分，共20分）
1、当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择视图菜单
的工具箱选项，使“工具箱”窗口显示。
2、VB是一种面向对象的程序设计语言，采用了事件驱动编程机制。
3、Int（-5.5）、Int（5.5）、Fix（-5.5）、Round（-5.5）的值分别是-6、5、-5、-6。
4、表达式Ucase（Mid（“abcdefgh”,3,4））的值是CDEF。
5、将文本框的ScrollBar的属性设置为2（有垂直滚动条），但没有垂直滚动条显示，原因是没有将multline属性设置为True。
6、VB的注释语句采用‘字符开头，若一行上书写多个语句，则各语句间
用：
字符分隔。
7、列表框中项目的序号是从0开始的。
8、列表框中的list和selected属性是数组。
9、如果要每隔15秒产生一个计时器事件，则Interval属性应设置为15000。
10、在VB中，事件过程名由sub和function构成。
三、请完成下列的程序（共15分）
1、以下程序的功能是：
生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。
请填空。
Private
Sub
Commandl_C1ick（）
Fori＝1To
20
x＝Int（_rnd*101+200__）
If_xmod5=0__Then
Print
x
S＝S十x
End
If
Next
i
Sum＝"
：
S
Sub（5分）
2、某次大奖赛，有7个评委打分，如下程序对一名参赛者，输入7个评委的打分分数，去掉一个最高分和一个最低分后，求出平均分为该参赛者的得分。
请在下划线处填入相应的内容。
PrivateSubCommand1_Click（）
Dimmark!
aver!
I%,max1!
min1!
aver=0
Fori=1To7
Mark=InputBox（“输入第”&
i&
“位评委的打分”）
Ifi=1Then
Max1=mark:
min1=mark
Else
Ifmark＜min1Then
Min1=mark
ElseIfmark＞max1Then
Max1=mark
EndIf
Aver=aver+mark
Nexti
Aver=
Printaver
四、操作题（第一题15分，第二小题20分，共计35分）
提示：
请同学们在E盘下面建立一个以自己的名字和学号命名的文件夹，然后将自己设计的窗体保存在这个文件夹下面即可，工程文件可以不保存，但窗体一定要保存
1、斐波纳契（Fibonacci）数列的第一项是1.第二项是1，以后各项都是前两项的和。
试用递归算法编写一个程序，求斐波纳契数列第N项的值。
（15分）
2、设计一个窗体，在窗体中设置3个标签、1个文本框、2个单选按钮、3个复选按钮和两个命令按钮。
在文本框中输入某人的姓名，并在性别和爱好项目中进行选择，单击“显示资料”命令按钮，将个人资料显示出来；
单击“充填”按钮，将文本内容清楚，选项回复到初始状态（20分）
第二套试题
1.在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是（C）
（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口
2．表达式16/4-2^5*8/4MOD5\2的值为（B）
（A）14（B）4（C）20（D）2
3．Int（198.555*100+0.5）/100的值为（C）
（A）198（B）199.6（C）198.56（D）200
4．已知A$=“12345678”，则表达式Val（Left$（A$,4）+Mid$（a$,4,2））的值为（B）
（A）123456（B）123445（C）8（D）6
5．表达式DateDiff（“y”,#12/30/1999#,#1/13/2000#）的结果是（C）注：
一个Y表示相隔天数，四个Y表示相隔年数。
（A）1（B）11（C）14（D）99
6.若要使命令按钮不可操作，要设置的属性是（A）
（A）Enabled（B）Visible（C）BackCol（D）Caption
7.文本框所没有的属性是（D）
（A）Enabled（B）Visible（C）BackColor（D）Caption
8.要设置命令按钮的背景图形，必须设置的两个属性是（A）
（A）Style和Picture（B）Style和Icon
（C）Caption和Picture（D）Value和Icon
9.下面正确的赋值语句是（C）
（A）x+y=30（B）y=π*r*r（C）y=x+30（D）3y=x
10.下面程序段求两个数中的大数，不正确的是（D）
（A）Max=IIf（x＞y,x,y）（B）Ifx＞yThenMax=xElseMax=y
（C）Max=x（D）Ify＞=xThenMax=y
Ify＞xThenMax=yMax=x
11.以下关于VisualBasic特点的叙述中，错误的是（D）
（A）VisualBasic是采用事件驱动编程机制的语言
（B）VisualBasic程序既可以编译运行，也可以解释运行
（C）构成VisualBasic程序的多个过程没有固定的执行顺序
（D）VisualBasic程序不是结构化程序，不具备结构化程序的三种基本结构
12.复选框的Value属性为1时，表示（B）
（A）复选框未被选中（B）复选框被选中
（C）复选框内有灰色的勾（D）复选框操作有错误
13.在下列关于键盘事件的说法中，正确的是（D）
（A）按下键盘上的任意一个键都会引发KeyPress事件
（B）大键盘上的“1”键和数字键盘的“1”键的KeyCode码相同
（C）KeyDown和KeyUp的事件过程中有KeyAscii参数
（D）大键盘上的“4”键的上档字符是“$”，当同时按下Shift和大键盘上的“4”键时
14.如果列表框（List1）中没有被选定的项目，则执行List1.RemoveItemList1.ListIndex语句的结果是（A）
（A）移去第一项（B）移去最后一项
（C）移去最后加入列表的一项（D）以上都不对
15.设有如下语句：
Dima，bAsInteger
c="
VisualBasic"
d=#7／20／2005#
以下关于这段代码的叙述中，错误的是（A）
（A）a被定义为Integer类型变量（B）b被定义为Integer类型变量
（C）c中的数据是字符串（D）d中的数据是日期类型
1．在VB中，要显示程序代码，必须在代码窗口；
要设计程序的运行界面，必须在窗体窗口。
2．整型变量x中存放了一个二位数，要将二位数交换位置，例如，13变成31，实现的表达式是x\10+（xmod10）*10
3．数学表达式sin15°
+-ln（3x）的VB算术表达式为sin（15/180*∏）+-exp（3*x）。
4．表示x是5的倍数或是9的倍数的逻辑表达式为xmod5=0orxmod9=0。
5．在VB中，123456&
、1.2346D+5这2个常数分别表示long、double类型。
6.若已建立了Form1和Form2两个窗体，默认启动窗体为Form1。
通过工程属性菜单的启动对象命令的通用选项卡，可将启动窗体设置为Form2。
在程序中若要显示Form1窗体，则执行show语句。
7.文本框（Text1）中有选定的文本，执行Text1.SelText=〝Hello〞的结果是hellotext1
8.在程序运行时，如果将框架的enable属性设为False，则框架的标题呈灰色，表示框架内的所有对象均被屏蔽，不允许用户对其进行操作。
9、声明如下数组：
Dima（3,-2To2,5），则数组a包含的元素的个数为120
10.赋值语句：
a=123&
MID（“123456”,3,2）执行后，a变量中的值是“12334”
1、窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。
为了实现上述功能，请为下列程序编写相应的子过程。
PrivateSubText1_LostFocus（）
CallCheckInput（Text1，500）
EndSub
PrivateSubText2_LostFocus（）
CallCheckInput（Text2，1000）
SubCheckInput（tAsControl，asinteger）
IfThen
EndSub（5分）
2、子过程MoveStr（）是把字符数组移动m个位置，当Tag为True时左移，将前m个字符移到字符数组尾，例如，“abcdefghij”左移3个位置后，结果为“defghijabc”;
当Tag为False时右移，将后m个字符移到字符数组前，如“abcdefghij”右移3个位置后，结果为“hijabcdefg”。
子过程如下：
PublicSubMoveStr（a$（）,m%,TagAsBoolean）
DimI%,j%,t$
IfTagthen
ForI=1Tom
t=a（0）
Forj=0Toubound（a）-1
A（j）=a（j+1）
Nextj
A（ubound（a））=t
NextI
t=a（ubound（a））
Forj=Ubound（A）to1step-1
A（j）=a（j-1）
a（0）=c
请在程序中下划线处填入相应的内容。
1、编程实现打印以下图案（15分）
*
***
*****
***
*
2、统计学生成绩
设计如图所示应用程序，当单击“输入成绩”按钮时，在InputBox对话框中输入学生人数，然后在对话框中依次输入不多于人数的数个成绩。
再次单击“输入成绩”按钮将追加学生人数和成绩。
单击“显示成绩”按钮显示成绩、平均分和未输入成绩的人数。
（20分）
第三套试题
1.下面各种高级语言中，不是面向对象程序设计语言的是（C）
（A）VisualBasic（B）C++（C）Pascal（D）Java
2．函数DateAdd（“m”,1#1/30/2000#）语句的结果是（A）
（A）00-2-29（B）00-2-28（C）00-2-30（D）00-1-31
3．表达式LenB（“123程序设计ABC”）的值是（C）
（A）10（B）14（C）20（D）17
4.当文本框的ScrollBars属性设置了非零值，没有效果，其原因是（B）
（A）文本框中没有内容（B）文本框的MultiLine属性为False
（C）文本框的MultiLine属性为True（D）文本框中的Locked属性为True
5.若要禁止窗体被用户移动，通过设置可达此要求的窗体的属性是（B）
（A）MaxButton（B）Moveable（C）Move（D）ControlBox
6.下列语句中将按钮（Command1）的标题赋值给文本框（Text1）Text属性的是（B）
（A）Text1=Command1（B）Text1=Command1.Caption
（C）Text1.Text=Command1（D）Text1.Text=CStr（Command1）
7.语句Ifx=1Theny=1,下列说法正确的是（C）
（A）x=1和y=1均为赋值语句
（B）x=1和y=1均为关系表达式
（C）x=1为关系表达式，y=1为赋值语句
（D）x=1为赋值语句，y=1为关系表达式
8.要获得用户在组合框输入的内容，应利用的组合框的属性是（D）
（A）List（B）Selected
（C）ListIndex（D）Text
9.将数据项“China”添加到列表框（List1）中成为第一项应使用的语句是（A）
（A）List1.AddItem〞China〞,0（B）List1.AddItem〞China〞,1
（C）List1.AddItem0,〞China〞（D）List1.AddItem1,〞China〞
10.在下列说法中，正确的是（B）
（A）通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上
（B）在列表框中不能进行多项选择
（C）在列表框中能够将项目按字母顺序从大到小排列
（D）框架也有Click和DblClick事件
11.在KeyDown或KeyUp的事件过程中，能用来检查Ctrl和F3是否同时按下的表达式为（C）
（A）（button=vbCtrlMask）And（KeyCode=vbKeyF3）
（B）KeyCode=vbKeyControl+vbKeyF3
（C）（KeyCode=vbKeyF3）And（ShiftAndvbCtrlMask）
（D）（ShiftAndvbCtrlMask）And（KeyCodeandvbKeyF3）
12.设有命令按钮Command1的单击事件过程，代码如下：
Dima（30）AsInteger
Fori=1To30
a（i）=Int（Rnd*100）
Next
ForEacharrItemIna
IfarrItemMod7=0ThenPrintarrItem；
IfarrItem>
90ThenExitFor
对于该事件过程，以下叙述中错误的是（B）
A）a数组中的数据是30个100以内的整数
B）语句ForEacharrItemIna有语法错误
C）IfarrItemMod7=0……语句的功能是输出数组中能够被7整除的数
D）IfarrItem>
90……语句的作用是当数组元素的值大于90时退出For循环
13.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是（C）
（A）Subf2（ByValn%,ByValm%）（B）Subf1（n%,ByValm%）
（C）Subf1（n%,m%）（D）Subf1（ByValn%,m%）
14.以下关于MsgBox的叙述中，错误的是（D）
（A）
MsgBox函数返回一个整数
（B）通过MsgBox函数可以设置信息框中图标和按钮的类型
（C）MsgBox语句没有返回值
（D）
MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量
15．设x=4,y=8,z=7，表达式x<
y
And
（Not
y>
z）
Or
z<
x
的值是
（D）
1
（B）
-1
（C）True
（D）
False
1．在VB中设置或修改一个对象的属性的方法有两种，它们分别是属性窗口和代码窗口。
2．InStr（7，“什么ASCII是ASCII编码”，“ASCII”）的结果9；
InStr（“什么ASCII是ASCII编码”，“ASCII”）的结果3。
3．给变量w赋值：
w=Choose（Weekday（“2010,1,26”）,“Red”,“Green”,“Blue”,“Yellow”）后，变量w中的值是星期二。
4．将alignment属性设置为1，单选按钮和复选框的标题显示在左边；
将style属性设置为1，单选按钮和复选框以图形方式显示。
5.在窗体上有若干控件，其中有一个名称为Text1的文本框。
影响Text1的Tab顺序的属性是
tabindex。
6.表达式
5/4*6\5
Mod
2的值是
。
7．为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的interval
属性设置为500
8.Rnd函数的值的范围为[0,1）
9.为了给x,y,z这3个变量赋初值1，正确的赋值语句是
10.数组：
Dima（4,-2To3,3）包含的元素的个数为120。
1.一下程序实现的是求解1！
＋2！
＋3！
＋…+n!
的值，其中n的值由输入框读入。
（5分）
Dimn,sum,multiaslong
DimI,jaslong
N=val（inputbox（“输入N的值是：
”））
sum=0
forI=1ton
multi=1
forj=1toI
multi=multi*j
nextj
sum=sum+multi
nextI
printsum
2.输入若干字符，统计有多少个元音字母、有多少个其他字母，不区分大小写，直接按Enter键结束，并显示结果。
其中，CountY中放元音字母个数，CountC中放其他字符数。
DimCountY%,CountC%
PrivateSubText1_KeyPress（KeyAsciiAsInteger）
DimC$
C=ucase（ch,（keyascii））
If“A”＜=CAndC＜=“Z”Then
SelectCaseC
Case“a”,”e”,”i”,”o”,”u”
CountY=CountY+1
Caseelse
CountC=CountC+1
EndSelect
Ifkeyascii=13Then
Print“元音字母有”；
CountY；
“个”
Print“其它字母
升级会员 