vb程序设计试题

1、第一套试题一、选择题(每题2分，共30分)在VB环境中，工程文件的扩展名是(C)(A) .frm(B).bas(C).vbp(D).frx下面4项中不届于面向对象系统三要素的是(A)(A) 变量(B)事件(C)届性(D)方法、/、Mod*这4个算述运算符中，优先级别最低的是(C)(A) (B)/(C)Mod(D)*要使Print方法在Form_Load事件中起作用，要对窗体的(C)届性进行设置(A)BackColor(B)ForeColor(C)AutoRedraw(D)Caption不论何控件，共同具有的届性是(B)(A)Text(B)Name(C)ForeColor(D)Caption要使

2、Form1窗体的标题栏显示“欢迎使用VB',以下语句正确的是(D)(A)Form1.Caption="欢迎使用VB'(B)Form1.Caption=/欢迎使用VB，(C)Form1.Caption=欢迎使用VB(D)Form1.Caption="欢迎使用VB'VB提供了结构化程序设计的3种基本结构，这3种基本结构是(D)(A)递归结构，选择结构，循环结构(B)选择结构，过程结构，顺序结构(C)过程结构，输入、输出结构，转向结构(D)选择结构，循环结构，顺序结构给变量赋值a=123+MID("123456”，3,2),a变量中的值是(D)(

3、A)“12334”(B)123(Q12334(D)157下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是(D)10.若要活除列表框的所有内容，可用来实现的方法是(C)(A)Ifsex=“男”Andage<40AndInStr(duty,“教授”)>0Thenn=n+1(B)Ifsex=Thenn=n+1“男”Andage<40And(duty=“教授”Orduty=)(C)Ifsex=“男”Andage<40AndRight(duty,2)=“教授”Thenn=n+1(D)Ifsex=n=n+1“男”Andage<40And

4、duty=“教授”Andduty="副教授”Then(A) Removeitem(B)Cls(C)Clear(D)以上均不可以要使时钟控件Timerl的Timer事件不起作用，以下正确的语句是(B)(A)Timer1.Visible=False(B)Timer1.Enabled=False(A)Timer1.Interval=1000(A)Timer1.Interval=1000(A)Timer1.Interval=1000(D)Timer1.Index=0引用列表框(List1)最后一个数据项应使用的语(B)(A)List1.List(List1.ListCount)(B)List

5、1.List(List1.ListCount-1)List1.List(ListCount)(D)List1.List(ListCount-1)如下数组声明语句，正确的是(A)Dima3,4AsInteger如下数组声明语句，正确的是(A)Dima3,4AsInteger(A)Dima3,4AsInteger(A)Dima3,4AsInteger(B) Dima(3,4)AsInteger(C) Dima(n,n)AsInteger(CI) Dima(n,n)AsInteger(CII) Dima(n,n)AsInteger(D) Dima(3,4)AsInteger14.下面子过程语句说明合

6、法的是14.下面子过程语句说明合法的是14.下面子过程语句说明合法的是(A、D)(A)Subf1(ByValn%)(A)Subf1(ByValn%)(A)Subf1(ByValn%)(B) Subf1(n%)AsInteger(D)Functionf1(ByValn%)(C)Functionf1%(f1%)假定有如下的命令按钮(名称为Command尊件过程：PrivateSubCommand1_Click()x=InputBox("输入："，"输入整数”)MsgBox输入的数据是：”，”输入数据："+xEndSub程序运行后，单击命令按钮，如果从键盘上输

7、入整数10,则以下叙述中错误的是(A)(B)输入对话框的标题是“输入整数”(D)信息框中显示的是“输入的数(A)x的值是数值10(C)信息框的标题是“输入数据：10据是：”二、填空题(每题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的届性

8、设置为2(有垂直滚动条)，但没有垂直滚动条显示，原因是没有将multline届性设置为True。6、VB的注释语句采用'字符开头,若一行上书写多个语句，则各语句问用字符分隔07、列表框中项目的序号是从0开始的。8、歹0表框中的list和selected届性是数组。9、如果要每隔15秒产生一个计时器事件，则Interval届性应设置为1500010、在VB中，事件过程名由sub和function构成。三、请完成下列的程序(共15分)1、以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。PrivateSubCommandl_C1ick(

9、)Fori=1To20x=Int(_rnd*101+200)If_xmod5=0.ThenPrintxS=S十xEndIfNextiPrint"Sue":SEndSub(5分)2、某次大奖赛，有7个评委打分，如下程序对一名参赛者，输入7个评委的打分分数，去掉一个最高分和一个最低分后，求出平均分为该参赛者的得分。请在下划线处填入相应的内容。PrivateSubCommand1_Click()Dimmark!,aver!I%,max1!min1!aver=0Fori=1To7Mark=InputBox(“输入第”&i&“位评委的打分”)Ifi=1ThenMax1

10、=mark:min1=markElseIfmark<miniThenMin1=markElselfmark>max1ThenMax1=markEndIfEndIfAver=aver+markNextiAver=PrintaverEndSub四、操作题（第一题15分，第二小题20分，共计35分）提示：请同学们在E盘下面建立一个以自己的名字和学号命名的文件夹，然后将自己设计的窗体保存在这个文件夹下面即可，工程文件可以不保存，但窗体一定要保存1、斐波纳契（Fibonacci）数列的第一项是1.第二项是1,以后各项都是前两项的和。试用递归算法编写一个程序，求斐波纳契数列第N项的值。（15分

11、）2、设计一个窗体，在窗体中设置3个标签、1个文本框、2个单选按钮、3个复选按钮和两个命令按钮。在文本框中输入某人的姓名，并在性别和爱好项目中进行选择，单击“显示资料”命令按钮，将个人资料显示出来；单击“充填”按钮,将文本内容活楚，选项回复到初始状态（20分）第二套试题、选择题（每题2分，共30分）在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、届性窗口外，必不可少的窗口是(C)(A) 窗体布局窗口(B)立即窗口(C)代码窗口(D)监视窗口表达式16/4-2%*8/4MOD52的值为(B)(A) 14(B)4(C)20(D)2Int(198.555*100+0.5)/100的值为(

12、C)(A)198(B)199.6(C)198.56(D)200已知A$="”，则表达式Val(Left$(A$,4)+Mid$(a$,4,2)的值为(B)(A)123456(B)123445(C)8(D)6表达式DateDiff("y”，#12/30/1999#,#1/13/2000#)的结果是(C)注:一个Y表示相隔天数，四个Y表示相隔年数。(A)1(B)11(C)14(D)99若要使命令按钮不可操作，要设置的届性是(A)(A)Enabled(B)Visible(C)BackCol(D)Caption文本框所没有的届性是(D)(A)Enabled(B)Visible(C)

13、BackColor(。Caption要设置命令按钮的背景图形，必须设置的两个届性是(A)(B)Style和Icon(D)Value和Icon(C)y=x+30(A)Style和Picture(C)Caption和Picture下面正确的赋值语句是(C)(A)x+y=30(B)y=兀*r*r下面程序段求两个数中的大数，不正确的是(D)(A)Max=IIf(x>y,x,y)(B)Ifx>yThenMax=xElseMax=y(C)Max=x(D)Ify>=xThenMax=yIfy>xThenMax=yMax=x以下关于VisualBasic特点的叙述中，错误的是(D)(A

14、) VisualBasic是采用事件驱动编程机制的语言(B) VisualBasic程序既可以编译运行，也可以解释运行(C) 构成VisualBasic程序的多个过程没有固定的执行顺序(D) VisualBasic程序不是结构化程序，不具备结构化程序的三种基本结构复选框的Value届性为1时，表示(B)(A)复选框未被选中(B)复选框被选中(C)复选框内有灰色的勾(D)复选框操作有错误在下列关于键盘事件的说法中,正确的是(D)(A)按下键盘上的任意一个键都会引发KeyPress事件(B) 大键盘上的“1”键和数字键盘的“1”键的KeyCode码相同(C) KeyDowrf日KeyUp的事件过程

15、中有KeyAscii参数(D) 大键盘上的“4”键的上档字符是“$”，当同时按下Shift和大键盘上的“4”键时如果歹U表框(List1)中没有被选定的项目，则执行List1.RemoveItemList1.ListIndex语句的结果是(A)(A) 移去第一项(B)移去最后一项以上都不对(A)(B)b被定义为Integer类型变量(D)d中的数据是日期类型(C)移去最后加入列表的一项(D)设有如下语句：Dima,bAsIntegerc="VisualBasic"d=#7/20/2005#以下关丁这段代码的叙述中，错误的是(A) a被定义为Integer类型变量(C)c中的

16、数据是字符申二、填空题(每题2分，共20分)在VB中，要显示程序代码，必须在代码窗口;要设计程序的运行界面，必须在窗体窗口。2.整型变量x中存放了一个二位数，要将二位数交换位置，例如，13变成31,实现的表达式是x10+(xmod10)*10数学表达式sin150+-ln(3x)的VB算术表达式为sin(15/180*H)+-exp(3*x).表示x是5的倍数或是9的倍数的逻辑表达式为xmod5=0orxmod9=0_。4 .在VB中，123456&1.2346D+5这2个常数分别表示long、double_类型。6. 若已建立了Form1和Form2两个窗体，默认启动窗体为Form1

17、。通过工程了性菜单的启动对象命令的通用选项卡，可将启动窗体设置为Form2。在程序中若要显示Form1窗体、则执行show语句。7. 文本框(Text1)中有选定的文本，执行Text1.SelText=''Hello”的结果是hellotext1在程序运行时，如果将框架的enable届性设为False,则框架的标题呈灰色，表示框架内的所有对象均被屏蔽，不允许用户对其进行操作。8. 声明如下数组：Dima(3,-2To2,5)，则数组a包含的元素的个数为12010.赋值语句:10.赋值语句:a=123&MID("123456”，3,2)执行后，a变量中的值是12

18、334三、请完成下列的程序(共15分)1、窗体上有名称分另U为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小丁500,文本框Text2中输入的数据小丁1000,否则重新输入。为了实现上述功能，请为下歹0程序编写相应的子过程。PrivateSubText1_LostFocus()CallCheckInput(Text1,500)EndSubPrivateSubText2_LostFocus()CallCheckInput(Text2,1000)EndSubSubCheckInput(tAsControl,asinteger)IfThenEndIfEndSubNextiEn

19、dSub(5分)2、子过程MoveStr()是把字符数组移动m个位置，当Tag为True时左移，将前m个字符移到字符数组尾，例如，“abcdefghij”左移3个位置后，结果为“defghijabc”；当Tag为False时右移，将后m个字符移到字符数组前，如“abcdefghij”右移3个位置后，结果为“hijabcdefg”。子过程如下：PublicSubMoveStr(a$(),m%,TagAsBoolean)DimI%,j%,t$IfTagthenForI=1Tomt=a(0)Forj=0Toubound(a)-1A(j)=a(j+1)NextjA(ubound(a)=tNextIEl

20、seForI=1Tomt=a(ubound(a)Forj=Ubound(A)to1step-1A(j)=a(j-1)Nextja(0)=cNextIEndIfEndSub中在程序中下划线处填入相应的内容。四、操作题(第一题15分，第二小题20分，共计35分)提示：请同学们在E盘下面建立一个以自己的名字和学号命名的文件夹,然后将自己设计的窗体保存在这个文件夹下面即可，工程文件可以不保存,但窗体一定要保存1、编程实现打印以下图案(15分)*2、统计学生成绩设计如图所示应用程序，当单击“输入成绩”按钮时，在InputBox对话框中输入学生人数，然后在对话框中依次输入不多丁人数的数个成绩。再次单击“输

21、入成绩”按钮将追加学生人数和成绩。单击“显示成绩”按钮显示成绩、平均分和未输入成绩的人数。(20分)已经输入的学生成筋为：gggggy96有1个学生的成绩没有输入输&成绩平均成绩为78第二套试题一、选择题(每题2分，共30分)下面各种高级语舌中，不是面向对象程序设计语言'的是(C)(A)VisualBasic(B)C+(C)Pascal(D)Java函数DateAdd("M',1#1/30/2000#)语句的结果是(A)(A)00-2-29(B)00-2-28(C)00-2-30(D)00-1-313.表达式LenB(“123程序设计ABC)的值是(C)(A)

22、10(B)14(C)20(D)17当文本框的ScrollBars届性设置了非零值，没有效果，其原因是(B)(A)文本框中没有内容(B)文本框的MultiLine届性为False(C)文本框的MultiLine届性为True(D)文本框中的Locked届性为True若要禁止窗体被用户移动，通过设置可达此要求的窗体的届性是(B)(A)MaxButton(B)Moveable(C)Move(。ControlBox下歹0语句中将按钮(Command1)勺标题赋值给文本框(Text1)Text届性的是(B)(A)Text1=Command1(B)Text1=Command1.Caption(C)Text

23、1.Text=Command1(D)Text1.Text=CStr(Command1)语句Ifx=1Theny=1,下歹0说法正确的是(C)(A) x=1和y=1均为赋值语句(B) x=1和y=1均为关系表达式(C) x=1为关系表达式,y=1为赋值语句(D) x=1为赋值语句，y=1为关系表达式要获得用户在组合框输入的内容，应利用的组合框的届性是(D)(A)List(B)Selected(A) (C)ListIndex(D)Text将数据项“China”添加到列表框(List1)中成为第一项应使用的语句是(A)(A)List1.AddItem"China,0(B)List1.Add

24、Item"China,1(C)List1.AddItem0,"China"(D)List1.AddItem1,"China”在下列说法中，正确的是(B)通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上在列表框中不能进行多项选择在列表框中能够将项目按字母顺序从大到小排列框架也有Click和DblClick事件在KeyDow咸KeyUp的事件过程中，能用来检查Ctrl和F3是否同时按下的表达式为(C)(button=vbCtrlMask)And(KeyCode=vbKeyF3)KeyCode=vbKeyControl+vbKeyF3(KeyCode

25、=vbKeyF3)And(ShiftAndvbCtrlMask)(ShiftAndvbCtrlMask)And(KeyCodeandvbKeyF3)设有命令按钮Command的单击事件过程，代码如下：PrivateSubCommand1_Click()Dima(30)AsIntegerFori=1To30a(i)=Int(Rnd*100)NextForEacharrItemInaIfarrItemMod7=0ThenPrintarrItem；IfarrItem>90ThenExitForNextEndSubA) 对于该事件过程，以下叙述中错误的是(B)a数组中的数据是30个100以内的整

26、数语句ForEacharrItemIna有语法错误IfarrItemMod7=0语句的功能是输出数组中能够被7整除的数IfarrItem>90语句的作用是当数组元素的值大于90时退出For循环要想从子过程调用后返回两个结果，下面子过程语句说明合法的是(C)(A)Subf2(ByValn%,ByValm%)(B)Subf1(n%,ByValm%)(C)Subf1(n%,m%)(。Subf1(ByValn%,m%)以下关于MsgBox的叙述中，错误的是(D)(A) MsgBox函数返回一个整数(B) 通过MsgBox函数可以设置信息框中图标和按钮的类型(C) MsgBox语句没有返回值(D)

27、 MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量设x=4,y=8,z=7，表达式x<yAnd(Noty>z)Orz<x的值是(D)(A)1(B)-1(C)True(。False二、填空题(每题2分，共20分)在VB中设置或修改一个对象的届性的方法有两种，它们分别是届性窗口和代码窗口。1. InStr（7,“什么ASCII是ASCII编码”，“ASCII”）的结果9;InStr（“什么ASCII是ASCII编码”，“ASCII”）的结果。2. 给变量w赋值：w=Choose（Weekday（2010,1,26”）,“Red',“Green”

28、，“Blue”，“Yellow”）后，变量w中的值是星期二。3. 将alignment届性设置为1,单选按钮和复选框的标题显示在左边；将_style届性设置为1,单选按钮和复选框以图形方式显示。4. 在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的届性是tabindex。5. 表达式5/4*65Mod2的值是。6. 为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的interval届性设置为500。7. Rnd函数的值的范围为0,1）。8. 为了给x,y,z这3个变量赋初值1,正确的赋值语句是数组：Dima（4,-2To3,3）