最新vb程序设计试题(含答案)资料

1、第一套试题一、选择题（每题2分，共30分）1. 在VB环境中，工程文件的扩展名是（C ）（A）.frm（ B） .bas（C） .vbp（ D） .frx2. 下面4项中不属于面向对象系统三要素的是（A ）（A）变量（B）事件（C）属性（D）方法、/、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

2、） Name（C） ForeColor（ D） Caption6. 要使Form1窗体的标题栏显示“欢迎使用 VB',以下语句正确的是（D ）（A） Form1.Caption= “欢迎使用 VB'（B） Form1.Caption= /欢迎使用 VB，（C） Form1.Caption=欢迎使用 VB（D） Form1.Caption="欢迎使用 VB'7. VB提供了结构化程序设计的3种基本结构，这3种基本结构是（D ）（A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构（C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序

3、结构8. 给变量赋值a=123+MID（“ 123456”，3,2），a变量中的值是（D ）（A）“ 12334”（B） 123（ C） 12334（D） 1579. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人 数，不正确的语句是（D ）（A） If sex= “男” And agev40 And InStr（duty,“教授”）0 Then n=n+1（B）If sex= “男” And age v 40 And （duty= “教授” Or duty= “副教授”）The n n=n+1（C） If sex= “男” And age v 40 And Right

4、（duty,2）=“教授” Then n=n+1（D）If sex= “男” And agev 40 And duty= “教授” And duty= “副教授” Then n=n+110. 若要清除列表框的所有内容，可用来实现的方法是（C ）(A) Removeitem(B) Cis(C) Clear(D)以上均不可以11. 要使时钟控件Timerl的Timer事件不起作用，以下正确的语句是(B )(A) Timer1.Visible=False(B) Timerl.Enabled=False（A） Timer1.Interval=1OOO（D） Timer1.Index=012. 引用列表

5、框（List1）最后一个数据项应使用的语（B ） (A)List1 丄ist(List1.ListCount) (B)List1.List(List1.ListCount-1)(C) List1 丄 ist(ListCou nt)(D)List1.List(ListCo un t-1)13. 如下数组声明语句，正确的是(A) Dim a3,4As Integer(C) Dim a(n,n) As Integer14. 下面子过程语句说明合法的是(A) Sub f1(ByVal n%)(C) Function f1%(f1%)(B )(B) Dim a(3,4)As Integer(D) Dim

6、 a(3,4)As Integer(A、D )(B) Sub f1(n%)As Integer(D) Function f1(ByVal n%)15. 假定有如下的命令按钮（名称为Comma nd事件过程：Private Sub Comma nd1_Click（）x=lnputBox（"输入："，"输入整数"）MsgBox输入的数据是：”，”输入数据："+xEnd Sub16. 程序运行后，单击命令按钮，如果从键盘上输入整数10,则以下叙述中错误的是（A ）（A）x的值是数值10（ B）输入对话框的标题是“输入整数”（C）信息框的标题是“输入数

7、据：10”（ D）信息框中显示的是“输入的数据是：”二、填空题（每题2分，共20分）1、当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择 视图 菜单的 工具箱选项，使“工具箱”窗口显示。2、 VB是一种面向对象的程序设计语言，采用了 事件驱动编程机制。3、 Int(-5.5) 、Int(5.5) 、Fix(-5.5) 、Round(-5.5)的值分别是-6、_5_、-5、-6o4、表达式 Ucase(Mid( “abcdefgh ” ,3,4)的值是 CDEF 。5、 将文本框的ScrollBar的属性设置为2(有垂直滚动条)，但没有垂直滚动条显示，原因是没有将 multline 属性

8、设置为 True。& 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 =仃o 20x = Int(_ rnd*

9、101+200 .)If_ x mod 5=0 .ThenPrint xS= S 十 xEnd IfNext iPrint"Sum=": SEnd Sub (5 分)2、 某次大奖赛，有7个评委打分，如下程序对一名参赛者，输入 7个评委的打 分分数，去掉一个最高分和一个最低分后， 求出平均分为该参赛者的得分。请在 下划线处填入相应的内容。Private Sub Comma nd1_Click()Dim mark!,aver!l%,max1! min1!aver=0For i=1 To 7Mark=InputBox( “输入第” && “位评委的打分”)If

10、i=1 The nMax仁mark: min 仁markElseIf mark v mini ThenMin仁markElself mark > maxi The nMax仁markEnd IfEnd IfAver=aver+markNext iAver=Print averEnd Sub四、操作题（第一题15分，第二小题20分，共计35分） 提示：请同学们在 E盘下面建立一个以自己的名字和学号命名的文件夹, 然后将自己设计的窗体保存在这个文件夹下面即可，工程文件可以不保存, 但窗体一定要保存1、斐波纳契（Fib on acci ）数列的第一项是1.第二项是1，以后各项都是前两项的和。试

11、用递归算法编写一个程序，求斐波纳契数列第N项的值。（15分）2、设计一个窗体，在窗体中设置 3个标签、1个文本框、2个单选按钮、3个复 选按钮和两个命令按钮。在文本框中输入某人的姓名，并在性别和爱好项目中进 行选择，单击“显示资料”命令按钮，将个人资料显示出来；单击“充填”按钮, 将文本内容清楚，选项回复到初始状态（20分）第二套试题、选择题（每题2分，共30分）1. 在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口 外，必不可少的窗口是(C )(A)窗体布局窗口2. 表达式 16/4-2A5*8/4MOD52 的值为(A) 14(B) 43. Int(198.555*10

12、0+0.5)/100 的值为(A) 198(B) 199.6(B)立即窗口(C)B )(C)C )(C)代码窗口20198.56(D)(D)监视窗口4. 已知 A$= “ 12345678”，则表达式 Val(Left$(A(B )(A) 123456( B) 123445(C)$,4)+Mid$(a(D)$,4,2)的值为2005. 表达式 DateDiff ( “y”，#12/30/1999#,#1/13/2000#)一个丫表示相隔天数，四个丫表示相隔年数。(A) 1( B) 11(C) 146. 若要使命令按钮不可操作，要设置的属性是(A )(A) Enabled(B) Visible(

13、C) BackCol7. 文本框所没有的属性是(D )(A) Enabled(B) Visible(C) BackColor8. 要设置命令按钮的背景图形，必须设置的两个属性是(A )(D) 6的结果是(C ) 注:(D) 99(D) Caption(D) Caption(A) Style 和 Picture(C) Caption 和 Picture9. 下面正确的赋值语句是(C )(A) x+y=30(B) y= n *r*r(B) Style 和 Icon(D) Value 和 Icon(C) y=x+30( D 3y=x10. 下面程序段求两个数中的大数，不正确的是(D )(A)Max=

14、IIf(x>y,x,y)(B)If x>yThen Max=x ElseMax=y(C)Max=x(D)If y > =x Then Max=yIf y > x Then Max=yMax=x11. 以下关于Visual Basic 特点的叙述中，错误的是(D)(A) Visual Basic 是采用事件驱动编程机制的语言(B) Visual Basic 程序既可以编译运行，也可以解释运行(C) 构成Visual Basic程序的多个过程没有固定的执行顺序(D) Visual Basic 程序不是结构化程序，不具备结构化程序的三种基本结构12. 复选框的Value属性为

15、1时，表示(B )(A)复选框未被选中(B)复选框被选中(C)复选框内有灰色的勾(D)复选框操作有错误13. 在下列关于键盘事件的说法中，正确的是(D)(A) 按下键盘上的任意一个键都会引发 KeyPress事件(B) 大键盘上的“ 1”键和数字键盘的“ 1”键的KeyCode码相同(C) KeyDowr和KeyUp的事件过程中有 KeyAscii参数(D) 大键盘上的“ 4”键的上档字符是“ $”，当同时按下Shift和大键盘上的 “4”键时14. 如果列表框(List1)中没有被选定的项目，则执行 List1.RemoveltemList1.Listlndex 语句的结果是(A )移去最后

16、一项以上都不对(A )(B) b被定义为Integer类型变量(D) d中的数据是日期类型(A) 移去第一项(B)(C)移去最后加入列表的一项(D)15. 设有如下语句：Dim a，b As Integerc="VisualBasic"d=#7/ 20/2005#以下关于这段代码的叙述中，错误的是(A) a被定义为Integer类型变量(C) c中的数据是字符串二、填空题(每题2分，共20分)1. 在VB中，要显示程序代码，必须在 代码窗口 ：要设计程序的运行 界面，必须在 窗体窗口。2. 整型变量x中存放了一个二位数，要将二位数交换位置，例如， 13变成31,实现的表达式

17、是x10+(x mod 10)*103. 数学表达式 sin15 ° +-ln(3x)的 VB算术表达式为 sin(15/180* n)+-exp(3*x)o4 .表示x是5的倍数或是9的倍数的逻辑表达式为 x mod 5=0or x mod 9=0 5 .在 VB 中，123456& 1.2346D+5 这 2 个常数分别表示 long 、double_类型。6. 若已建立了 Form1和Form2两个窗体，默认启动窗体为 Form1。通过 工程属 性 菜单的 启动对象 命令的通用选项卡，可将启动窗体设置为 Form2。在程序 中若要显示Form1窗体，则执行show 语句

18、。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变量中的值是三、请完成下列的程序(共15分)1、 窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入 的数据小于500，文本框T

19、ext2中输入的数据小于1000，否则重新输入。为了实 现上述功能，请为下列程序编写相应的子过程。Private Sub Text1_LostFocus()Call CheckInput(Text1，500)End SubPrivate Sub Text2_LostFocus()Call CheckI nput(Text2， 1000)End SubSub Check In put(t As Con trol， as in teger )If ThenEnd IfEnd SubNext iEnd Sub (5 分)2、 子过程MoveStr()是把字符数组移动 m个位置，当Tag为True时左

20、移，将前 m个字符移到字符数组尾，例如，“ abcdefghij ”左移3个位置后，结果为“ defghijabc ” ;当Tag为False时右移，将后m个字符移到字符数组前，如“ abcdefghij ”右移3个位置后，结果为“ hijabcdefg ”。子过程如下：Public Sub MoveStr(a$(),m%,Tag As Boolea n)Dim I%,j%,t$If Tag the nFor I=1 To mt=a(0)For j=0 To ubound(a)-1A(j)=a(j+1)Next jA(ubo un d(a)=tNext IElseFor 1=1 To mt=a

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

22、“输入 成绩”按钮将追加学生人数和成绩。 单击“显示成绩”按钮显示成绩、 平均分和 未输入成绩的人数。(20分)N成蹟输入遵茅窗己经输入的学生成绩为：99 98 97 96 0有1亍学生的成绩没有输入输入成绩平均成绩为78第二套试题一、选择题(每题2分，共30分)1. 下面各种高级语言中，不是面向对象程序设计语言的是(C)(A) Visual Basic( B) C+( C)Pascal( D) Java2. 函数 DateAdd( “ m ,1#1/30/2000#)语句的结果是(A )(A) 00-2-29(B) 00-2-28(C) 00-2-30(D) 00-1-313 .表达式Len

23、B( “ 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. 下列语句中将按钮(Command1的标题赋值给文本框(Text1)Text属性的是(B )(A)

24、Text仁Comma nd1(B)Text仁Comma nd1.Capti on(C)Text1.Text=Comma nd1 (D)Text1.Text=CStr(Comma nd1)7. 语句If 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) List In dex(D) Text9. 将数据项“ China”添加到列

25、表框(Listl )中成为第一项应使用的语句是(A)(A)Listl.Addltem " China" ,0(B) Listl.Addltem " China" ,1(C)List1.Addltem 0," China"(D) List1.AddItem 1," China"10. 在下列说法中，正确的是(B )(A) 通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上(B) 在列表框中不能进行多项选择(C) 在列表框中能够将项目按字母顺序从大到小排列(D) 框架也有Click和DbICIick事件11.

26、在KeyDown或 KeyUp的事件过程中，能用来检查 Ctrl和F3是否同时按下的 表达式为(C)(A) (butto n=vbCtrlMask) And (KeyCode=vbKeyF3)(B) KeyCode=vbKeyCo ntrol+vbKeyF3(C) (KeyCode=vbKeyF3) And (Shift And vbCtrlMask)(D) (Shift And vbCtrlMask) And (KeyCode and vbKeyF3)12. 设有命令按钮Comma nd的单击事件过程，代码如下：Private Sub Comma nd1_Click()Dim a(30)As

27、 In tegerFor i=1 To 30a(i)=I nt(R nd*1OO)NextFor Each arrItem In aIf arrItem Mod 7=0 The n Print arrItem；If arrltem>90 The n Exit ForNextEnd Sub对于该事件过程，以下叙述中错误的是(B)A) a数组中的数据是30个100以内的整数B) 语句For Each arrItem In a有语法错误C) If arrItem Mod 7=0语句的功能是输出数组中能够被7整除的数D) If arrItem>90 语句的作用是当数组元素的值大于90时退出

28、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，表达式 x<y A

29、nd (Not y>z) Or z<x 的值是(D )(A) 1(B) -1(C) True( D) False二、填空题(每题2分，共20分)1. 在VB中设置或修改一个对象的属性的方法有两种，它们分别是属性窗口 和代码窗口 。2. InStr(7 , “什么 ASCII 是 ASCII 编码”，“ASCII”)的结果 _9;In Str( “什么 ASCII 是 ASCII 编码”，“ ASCII”)的结果。3. 给变量 w赋值：w=Choose(Weekday(2010,1,26 ”)，“Red'，“Green”, “Blue”,“ Yellow ”)后，变量w中的值是星期二。4. 将alignment属性设置为1，单选按钮和复选框的标题显示在左边；将 _ style属性设置为1,单选按钮和复选框以图形方式显示。5. 在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是tab in dex。6. 表达式 5/4*65 Mod 2的值是 。7. 为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的 inter