第一套试题一、选择题（每题 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）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）选择结构，循环结构，顺序结构8. 给变量赋值a=123+MID(“123456”,3,2) ，a 变量中的值是( D )（A）“12334”（B）123 （C）12334 （D）1579. 下面If 语句统计满足性别为男、职称为副教授以上、年龄小于40 岁条件的人数，不正确的语句是( D )（A）If sex= “男”And age＜40 And InStr(duty, “教授”) ＞0 Then n=n+1 （B）If sex= “男”And age＜40 And (duty= “教授”Or duty= “副教授”) Then n=n+1（C）If sex= “男”And age＜40 And Right(duty,2)= “教授”Then n=n+1 （D）If sex=“男”And age＜40 And duty= “教授”And duty= “副教授”Then n=n+110. 若要清除列表框的所有内容，可用来实现的方法是( C )（A）RemoveItem （B）Cls（C）Clear （D）以上均不可以3. 要使时钟控件Timer1 的Timer 事件不起作用，以下正确的语句是( B ) （A）Timer1.Visible=False （B）Timer1.Enabled=False（A）Timer1.Interval=1000 （D）Timer1.Index=04. 引用列表框(List1) 最后一个数据项应使用的语( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)5. 如下数组声明语句，正确的是( B )（A）Dim a[3,4]As Integer （B）Dim a(3,4)As Integer（C）Dim a(n,n) As Integer （D）Dim a(3,4)As Integer6. 下面子过程语句说明合法的是(A、D )（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer（C）Function f1%(f1%) （D）Function f1(ByVal n%)7. 假定有如下的命令按钮( 名称为Command1事) 件过程：Private Sub Command1_Click()x=InputBox(" 输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEnd Sub8. 程序运行后，单击命令按钮，如果从键盘上输入整数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 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 ThenMax1=mark: min1=markElseIf mark ＜min1 ThenMin1=markElseIf mark ＞max1 ThenMax1=markEnd IfEnd IfAver=aver+markNext iAver=Print averEnd Sub四、操作题( 第一题15 分，第二小题20 分，共计35 分)提示：请同学们在 E 盘下面建立一个以自己的名字和学号命名的文件夹，然后将自己设计的窗体保存在这个文件夹下面即可，工程文件可以不保存，但窗体一定要保存1、斐波纳契（Fibonacci ）数列的第一项是 1. 第二项是1，以后各项都是前两项的和。
试用递归算法编写一个程序，求斐波纳契数列第N项的值。
（15分）2、设计一个窗体，在窗体中设置 3 个标签、1 个文本框、2 个单选按钮、3 个复选按钮和两个命令按钮。
在文本框中输入某人的姓名，并在性别和爱好项目中进行选择，单击“显示资料”命令按钮，将个人资料显示出来；单击“充填”按钮，将文本内容清楚，选项回复到初始状态（20 分）第二套试题一、选择题（每题 2 分，共30 分）9.在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是( C )（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口2．表达式16/4-2^5*8/4MOD5\2 的值为( B )（A）14 （B）4 （C）20 （D）23．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）65．表达式DateDiff （“y”,#12/30/1999#,#1/13/2000# ）的结果是( C ) 注：一个Y表示相隔天数，四个Y表示相隔年数。
（A）1 （B）11 （C）14 （D）9911.若要使命令按钮不可操作，要设置的属性是( A )（A）Enabled （B）Visible （C）BackCol （D）Caption 12.文本框所没有的属性是( D )（A）Enabled （B）Visible （C）BackColor （D）Caption 13.要设置命令按钮的背景图形，必须设置的两个属性是( A )（A）Style 和Picture （B）Style 和Icon（C）Caption 和Picture （D）Value 和Icon14.下面正确的赋值语句是( C )（A）x+y=30 （B）y=π*r*r （C）y=x+30 （D）3y=x15.下面程序段求两个数中的大数，不正确的是( D )（A）Max=IIf(x ＞y,x,y) （B）If x ＞yThen Max=x Else Max=y（C）Max=x （D）If y ＞=x Then Max=yIf y ＞x Then Max=y Max=x16.以下关于Visual Basic 特点的叙述中，错误的是( D)（A）Visual Basic 是采用事件驱动编程机制的语言（B）Visual Basic 程序既可以编译运行，也可以解释运行（C）构成Visual Basic 程序的多个过程没有固定的执行顺序（D）Visual Basic 程序不是结构化程序，不具备结构化程序的三种基本结构17.复选框的Value 属性为1 时，表示( B )（A）复选框未被选中（B）复选框被选中（C）复选框内有灰色的勾（D）复选框操作有错误18.在下列关于键盘事件的说法中，正确的是(D)K eyPress 事件引发（A）按下键盘上的任意一个键都会（B）大键盘上的“1”键和数字键盘的“1”键的KeyCode码相同（C）KeyDown和KeyUp的事件过程中有KeyAscii 参数（D）大键盘上的“4”键的上档字符是“$”，当同时按下Shift 和大键盘上的“4”键时10.如果列表框(List1) 中没有被选定的项目，则执行List1.RemoveItemList1.ListIndex 语句的结果是( A )(A) 移去第一项(B) 移去最后一项(C) 移去最后加入列表的一项(D) 以上都不对11.设有如下语句：Dim a，b As Integerc="VisualBasic"d=#7／20／2005#以下关于这段代码的叙述中，错误的是( A )为Integer 类型变量为Integer 类型变量（B）b 被定义（A）a 被定义（C）c 中的数据是字符串（D）d 中的数据是日期类型题 2 分，共20 分）二、填空题（每1．在VB中，要显示程序代码，必须在代码窗口；要设计程序的运行界面，必须在窗体窗口。