资源描述
第一套试题一、选择题(每题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分)
展开阅读全文