vb程序设计试题

第一套试题一、选择题(每题2分，共30分)1在VB环境中，工程文件的扩展名是(C )(A) .frm (B).bas (C).vbp (D).frx2下面4项中不属于面向对象系统三要素的是(A )(A) 变量(B)事件(C)属性(D)方法3. 、/、Mod、*这4个算述运算符中，优先级别最低的是(C )(A)(B)/(C)Mod(D)*4要使Print方法在Form_Load事件中起作用，要对窗体的(C )属性进行设置 (A)BackColor(B)ForeColor(C)AutoRedraw(D)Caption5不论何控件，共同具有的属性是(B )(A)Text(B)Name(C)ForeColor(D)Caption6要使Forml窗体的标题栏显示“欢迎使用VB”，以下语句正确的是(D )(A) Forml.Caption二“欢迎使用 VB” (B) Forml.Caption二 /欢迎使用 VB /(C) Forml.Caption二欢迎使用 VB(D) Forml.Caption二欢迎使用 VB7. VB提供了结构化程序设计的3种基本结构，这3种基本结构是(D )(A)递归结构，选择结构，循环结构(B)选择结构，过程结构，顺序结构(C)过程结构，输入、输出结构，转向结构(D)选择结构，循环结构，顺序 结构8给变量赋值a=l23+MID( “l23456” ,3,2)，a变量中的值是(D ) (A)“l2334”(B)l23(C)l2334(D)l579. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人 数，不正确的语句是( D )(A) If sex二“男” And ageV40 And InStr(duty, “教授”)0 Then n=n+l(B) If sex= “男” And ageV40 And (duty二“教授” Or duty二“副教授”)Then n=n+l(C) If sex= “男” And ageV40 And Right(duty,2)= “教授” Then n=n+l(D) If sex= “男” And ageV40 And duty二“教授” And duty二“副教授” Thenn=n+l l0.若要清除列表框的所有内容，可用来实现的方法是(C )(A) RemoveItem (B)Cls(C) Clear(D)以上均不可以11. 要使时钟控件Timer 1的Timer事件不起作用，以下正确的语句是(B )(A) Timer1.Visible=False(B)Timer1.Enabled=False(A) Timer1.Interval=1000(D)Timer1.Index=012引用列表框(Lis t1)最后一个数据项应使用的语(B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1) (C)List1.List(ListCount)(D)List1.List(ListCount-1)13. 如下数组声明语句，正确的是( B )(A)Dim a3,4As Integer(B)Dim a(3,4)As Integer(C)Dim a(n,n) As Integer(D)Dim a(3,4)As Integer14. 下面子过程语句说明合法的是(A、D )(A)Sub f1(ByVal n%)(B)Sub f1(n%)As Integer(C)Function f1%(f1%)(D)Function f1(ByVal n%)15. 假定有如下的命令按钮(名称为Command 1)事件过程：Private Sub Command1_Click()x=Inpu tBox(输入：，“输入整数)MsgBox输入的数据是：”，”输入数据：+xEnd Sub16. 程序运行后，单击命令按钮，如果从键盘上输入整数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(有垂直滚动条)，但没有垂直滚动条显示，原因是没有将 属性设置为True。6、VB的注释语句采用字符开头，若一行上书写多个语句，则各语句间用字符分隔。7、列表框中项目的序号是从 0开始的。8、列表框中的 list 和属性是数组。9、如果要每隔15秒产生一个计时器事件，则Interval属性应设置为1500010、在 VB 中，事件过程名由 和 function构成。三、请完成下列的程序(共15分)1、以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5 整除的数并求出它们的和。请填空。Private Sub Commandl_C1ick()Fori = 1To 20x = Int( rnd*101+200 _)If x mod 5=0_ ThenPrint xS = S 十 xEnd IfNext iPrint Sum=: SEnd Sub(5分)2、某次大奖赛，有7个评委打分，如下程序对一名参赛者，输入7个评委的打 分分数，去掉一个最高分和一个最低分后，求出平均分为该参赛者的得分。请在 下划线处填入相应的内容。Private Sub Command1_Click()Dim mark!,aver!I%,max1!min1!aver=0For i=1 To 7Mark=InputBox( “输入第” &i& “位评委的打分”)If i=1 ThenMaxi二mark:ElseIf markVminl ThenMini二markElself markmax1 ThenMaxi二markEnd IfEnd IfAver二aver+markNex t iAver=Print averEnd Sub四、操作题（第一题15分，第二小题20分，共计35分）提示：请同学们在E盘下面建立一个以自己的名字和学号命名的文件夹，然后将自己设计的窗体保存在这个文件夹下面即可，工程文件可以不保存，但窗体一定要保存1、斐波纳契（Fibonacci）数列的第一项是1.第二项是1,以后各项都是前两项 的和。试用递归算法编写一个程序，求斐波纳契数列第N项的值。（15分）2、设计一个窗体，在窗体中设置3个标签、1个文本框、2个单选按钮、3个复 选按钮和两个命令按钮。在文本框中输入某人的姓名，并在性别和爱好项目中进 行选择，单击“显示资料”命令按钮，将个人资料显示出来；单击“充填”按钮， 将文本内容清楚，选项回复到初始状态（20分）第二套试题一、选择题（每题2分，共30分）1. 在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口 外，必不可少的窗口是( C )(A) 窗体布局窗口(B)立即窗口2. 表达式16/4-2八5*8/4MOD52的值为(A) 14(B)43. Int (198.555*100+0.5)/100 的值为(A)198(B)199.64. 已知A$= “ ”，则表达式Val(Left$(A)123456(B)123445(C)代码窗口(D)监视窗口( B )(C)20(D)2( C )(C)198.56(D)200$,4)+Mid$(a $,4,2)的值为 ( B )(C)8(D)65. 表达式 DateDiff(“y”，#12/30/1999#,#1/13/2000#)的结果是(C )注: 一个Y表示相隔天数，四个Y表示相隔年数。A)1B)11(C)14(D)996. 若要使命令按钮不可操作，要设置的属性是 ( A )(D)Caption(D)Caption)(A)Enabled(B)Visible(C)BackCol7. 文本框所没有的属性是( D )(A)Enabled(B)Visible(C)BackColor8. 要设置命令按钮的背景图形，必须设置的两个属性是 ( A(A) Style 和 Picture(B) Style 和 Icon(C) Caption 和 Picture(D) Value 和 Icon9. 下面正确的赋值语句是( C )(A) x+y=30(B) y= n *r*r(C) y=x+30(D) 3y=x10. 下面程序段求两个数中的大数，不正确的是 ( D )(A) Max=IIf(xy,x,y)(B) If xyThen Max二x Else Max二y(C) Max=x(D) If y=x Then Max=yIf yx Then Max=yMax=x11. 以下关于Visual Basic特点的叙述中，错误的是(D)(A) Visual Basic是采用事件驱动编程机制的语言(B) Visual Basic程序既可以编译运行，也可以解释运行(C) 构成Visual Basic程序的多个过程没有固定的执行顺序(D) Visual Basic程序不是结构化程序，不具备结构化程序的三种基本结构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. 设有如下语句：Dim a，b As Integerc=VisualBasic d=#7202005#以下关于这段代码的叙述中，错误的是 ( A )(A)a被定义为Integer类型变量(C)c中的数据是字符串(B) b被定义为Integer类型变量(D)d中的数据是日期类型二、填空题(每题2分，共20分)1. 在VB中，要显示程序代码，必须在 代码 窗口；要设计程序的运行 界面，必须在窗体窗口。2. 整型变量x中存放了一个二位数，要将二位数交换位置，例如，13变成31，实现的表达式是3. 数学表达式 sin15 +-ln(3x)的 VB 算术表达式为 sin(15/180*n)+-exp(3*x)4. 表示x是5的倍数或是9的倍数的逻辑表达式为 x mod 5=0or x mod 9=05. 在 VB 中，123456&、1.2346D+5 这 2 个常数分别表示 long 、 double _类型。6. 若已建立了 Form 1和Form2两个窗体，默认启动窗体为Form1。通过 工程属 性 菜单的 启动对象 命令的通用选项卡，可将启动窗体设置为Form2。在程序 中若要显示Form1窗体，则执行show语句。7文本框(Text1)中有选定的文本，执行Text1.SelText二Hello的结果是_ hellotext18. 在程序运行时，如果将框架的enable 属性设为False，则框架的标题 呈灰色，表示框架内的所有对象均被屏蔽，不允许用户对其进行操作。9、声明如下数组：Dim a(3,-2 To 2,5)，则数组a包含的元素的个数为12010. 赋值语句：a=123&MID(“123456”，3,2)执行后，a变量中的值是“ 12334”三、请完成下列的程序(共15分)1、窗体上有名称分别为Textl、Text2的2个文本框，要求文本框Textl中输入 的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实 现上述功能，请为下列程序编写相应的子过程。Private Sub Text1_LostFocus()Call CheckInput(Text1，500)End SubPrivate Sub Text2_LostFocus()Call CheckInput(Text2，1000)End SubSub Checklnput(t As Control， as integer )If ThenEnd IfEnd SubNext iEnd Sub (5分)2、子过程MoveStr()是把字符数组移动m个位置，当Tag为True时左移，将前 m个字符移到字符数组尾，例如，“abcdefghij ”左移3个位置后，结果为“defghijabc” ；当Tag为False时右移，将后m个字符移到字符数组前，如 “abcdefghij”右移3个位置后，结果为“hijabcdefg”。子过程如下：Public Sub MoveStr(a$(),m%,Tag As Boolean)Dim I%,j%,t$If Tag thenFor I=1 To mt二a(0)For j=0 To ubound(a)-1A(j)=a(j+1)Next jA(ubound(a)二tNext IElseFor 1=1 To mt二 a(ubound(a)For j二Ubound(A) to 1 step -1A(j)=a(j-1)Nex t ja(0)=cNex t IEnd IfEnd Sub请在程序中下划线处填入相应的内容。四、操作题(第一题15分，第二小题20分，共计35分)提示：请同学们在E盘下面建立一个以自己的名字和学号命名的文件夹， 然后将自己设计的窗体保存在这个文件夹下面即可，工程文件可以不保存, 但窗体一定要保存1、编程实现打印以下图案(15分)* * * * * * * * *2、统计学生成绩设计如图所示应用程序，当单击“输入成绩”按钮时，在InputBox对话框中输 入学生人数，然后在对话框中依次输入不多于人数的数个成绩。再次单击“输入 成绩”按钮将追加学生人数和成绩。单击“显示成绩”按钮显示成绩、平均分和 未输入成绩的人数。(20分)飢成蕴输入-|n|X|已经输入的学生成绩为:999897960有1于学生的成绩没有输入输人成绩平均成绩为T8f显示成鏡第三套试题一、选择题(每题2分，共30分)1. 下面各种高级语言中，不是面向对象程序设计语言的是(C)(A)Visual Basic (B)C+ (C)Pascal (D)Java2. 函数 DateAdd( “m”，l#l/30/2000#)语句的结果是(A )(A)00-2-29(B)00-2-28(C)00-2-30(D)00-1-313. 表达式LenB(“123程序设计ABC”)的值是(C)(A)10(B)14(C)20(D)174当文本框的ScrollBars属性设置了非零值，没有效果，其原因是(B )(A)文本框中没有内容(B)文本框的MultiLine属性为False(C) 文本框的MultiLine属性为True (D)文本框中的Locked属性为True5. 若要禁止窗体被用户移动，通过设置可达此要求的窗体的属性是 ( B)(A)MaxButton(B)Moveable(C)Move(D)ControlBox6. 下列语句中将按钮(Commandl)的标题赋值给文本框(Textl)Text属性的是 ( B )(A)Text1=Command1(B)Text1=Command1.Caption(C)Text1.Text=Command1(D)Text1.Text=CStr(Command1)7. 语句f x=1 Then y=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)Text9将数据项“China”添加到列表框(Listl)中成为第一项应使用的语句是(A) (A)List1.AddItemChina,0 (B)List1.AddItemChina,1 (C)Listl.AddItem 0, China (D)Listl.AddItem l,China10.在下列说法中，正确的是(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 (Shift And vbCtrlMask)(D) (Shift And vbCtrlMask) And (KeyCode and vbKeyF3)12. 设有命令按钮Command1的单击事件过程，代码如下：Private Sub Command1_Click()Dim a(30)As IntegerFor i=1 To 30a(i)=Int(Rnd*100)NextFor Each arrItem In aIf arrItem Mod 7=0 Then Print arrItem；If arrItem90 Then Exit ForNextEnd Sub对于该事件过程，以下叙述中错误的是 ( B)A) a数组中的数据是30个100以内的整数B) 语句For Each arrItem In a有语法错误C) If arrItem Mod 7=0语句的功能是输出数组中能够被7整除的数D) If arrItem90语句的作用是当数组元素的值大于90时退出For循环13. 要想从子过程调用后返回两个结果，下面子过程语句说明合法的是 (C )(A)Sub f2(ByVal n%,ByVal m%)(B) Sub f1(n%,ByVal m%)(C) Sub f1(n%,m%)(D) Sub f1(ByVal n%,m%)14. 以下关于 MsgBox 的叙述中，错误的是 (D )(A) MsgBox 函数返回一个整数(B) 通过MsgBox函数可以设置信息框中图标和按钮的类型(C) MsgBox 语句没有返回值(D) MsgBox 函数的第一个参数是一个整数，该参数只能确定对话框中显示的 按钮数量15. 设 x=4,y二8,z=7，表达式 xz) Or zx 的值是(D )(A) 1(B) -1(C)True(D) False二、填空题(每题2分，共20分)1. 在VB中设置或修改一个对象的属性的方法有两种，它们分别是属性窗口 和代码窗口。2. InS tr（7, “什么 ASCII 是 ASCI I 编码”，“ASCII”）的结果 9；InS tr（ “什么 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 顺序的属性是 t abindex 。6. 表达式5/4*65 Mod 2的值是 。7为了使计时器控件Timer 1每隔0.5秒触发一次Timer事件，应将Timer 1控 件的 int erval 属性设置为 500。8. Rnd函数的值的范围为 。9为了给x,y,z这3个变量赋初值1,正确的赋值语句是。10.数组：Dim a（4,-2 To 3,3）包含的元素的个数为120。三、请完成下列的程序（共15分）1一下程序实现的是求解1!+2!+3!+n!的值，其中n的值由输入框读入。请在程序中下划线处填入相应的内容。（5分）Dim n, sum, multi as longDim I ,j as longN二val（inputbox（ “ 输 入 N 的 值 是： ”）sum二0for I=1 to nmulti二 for j=1 to Imulti二multi*jnext jsum=sum+multinext Iprint sum2.输入若干字符，统计有多少个元音字母、有多少个其他字母，不区分大小写，直接按Enter键结束，并显示结果。其中，CountY中放元音字母个数，CountC 中放其他字符数。Dim CountY%,CountC%Private Sub Text1_KeyPress（KeyAscii As Integer）Dim C$C二If “A”V=C And CV二 “Z” ThenSelect CaseCCasea , e , i , o , uCountY=CountY+1Case elseCountC=CountC+1End SelectEnd IfIfThenPrint “元音字母有”；CountY； “个”Print “其它字母有”；CountC； “个”End IfEnd Sub请在程序中下划线处填入相应的内容。四、操作题（第一题15分，第二小题20分，共计35分）提示：请同学们在E盘下面建立一个以自己的名字和学号命名的文件夹，然后将自己设计的窗体文件保存在这个文件夹下面即可，工程文件可以不 保存，但窗体一定要保存1、编程实现打印以下图案（15 分）aabcabcdeabcdefgabcdefghi2、用单选按钮和复选框控制文本框中输入的字体 要求：两个单选按钮，两个复选框（图形）。一个文本框（设计时已经输入文字，字体三号）。一个图片框，用于显示文本框中文本的字体。一个命令按钮用于切换字体。界面设计如图所示 （20分）