搜索
......第一套试题一、选择题（每题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）Ifsex=“男”Andage＜40AndInStr(duty,“教授”)＞0Thenn=n+1（B）Ifsex=“男”Andage＜40And(duty=“教授”Orduty=“副教授”)Thenn=n+1（C）Ifsex=“男”Andage＜40AndRight(duty,2)=“教授”Thenn=n+1（D）Ifsex=“男”Andage＜40Andduty=“教授”Andduty=“副教授”Thenn=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）Dima[3,4]AsInteger（B）Dima(3,4)AsInteger（C）Dima(n,n)AsInteger（D）Dima(3,4)AsInteger6.下面子过程语句说明合法的是(A、D)（A）Subf1(ByValn%)（B）Subf1(n%)AsInteger（C）Functionf1%(f1%)（D）Functionf1(ByValn%)7.假定有如下的命令按钮(名称为Command1事)件过程：PrivateSubCommand1_Click()x=InputBox(输入：，输入整数)MsgBox输入的数据是：”，，”输入数据：+xEndSub8.程序运行后，单击命令按钮，如果从键盘上输入整数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整除的数并求出它们的和。请填空。PrivateSubCommandl_C1ick()Fori＝1To20x＝Int(_rnd*101+200__)If_xmod5=0__ThenPrintxS＝S十xEndIfNextiPrintSum＝：SEndSub(5分)2、某次大奖赛，有7个评委打分，如下程序对一名参赛者，输入7个评委的打分分数，去掉一个最高分和一个最低分后，求出平均分为该参赛者的得分。请在下划线处填入相应的内容。PrivateSubCommand1_Click()Dimmark!,aver!I%,max1!min1!aver=0Fori=1To7Mark=InputBox(“输入第”&i&“位评委的打分”)......Ifi=1ThenMax1=mark:min1=markElseIfmark＜min1ThenMin1=markElseIfmark＞max1ThenMax1=markEndIfEndIfAver=aver+markNextiAver=PrintaverEndSub四、操作题(第一题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）2004．已知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）Caption12.文本框所没有的属性是(D)（A）Enabled（B）Visible（C）BackColor（D）Caption13.要设置命令按钮的背景图形，必须设置的两个属性是(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）Ifx＞yThenMax=xElseMax=y（C）Max=x（D）Ify＞=xThenMax=yIfy＞xThenMax=yMax=x16.以下关于VisualBasic特点的叙述中，错误的是(D)（A）VisualBasic是采用事件驱动编程机制的语言（B）VisualBasic程序既可以编译运行，也可以解释运行（C）构成VisualBasic程序的多个过程没有固定的执行顺序（D）VisualBasic程序不是结构化程序，不具备结构化程序的三种基本结构17.复选框的Value属性为1时，表示(B)（A）复选框未被选中（B）复选框被选中（C）复选框内有灰色的勾（D）复选框操作有错误18.在下列关于键盘事件的说法中，正确的是(D)......（A）按下键盘上的任意一个键都会引发KeyPress事件（B）大键盘上的“1”键和数字键盘的“1”键的KeyCode码相同（C）KeyDown和KeyUp的事件过程中有KeyAscii参数（D）大键盘上的“4”键的上档字符是“$”，当同时按下Shift和大键盘上的“4”键时10.如果列表框(List1)中没有被选定的项目，则执行List1.RemoveItemList1.ListIndex语句的结果是(A)(A)移去第一项(B)移去最后一项(C)移去最后加入列表的一项(D)以上都不对11.设有如下语句：Dima，bAsIntegerc=VisualBasicd=#7／20／2005#以下关于这段代码的叙述中，错误的是(A)（A）a被定义为Integer类型变量（B）b被定义为Integer类型变量（C）c中的数据是字符串（D）d中的数据是日期类型二、填空题（每题2分，共20分）1．在VB中，要显示程序代码，必须在代码窗口；要设计程序的运行界面，必须在窗体窗口。2．整型变量x中存放了一个二位数，要将二位数交换位置，例如，13变成31，实现的表达式是x\10+(xmod10)*103．数学表达式sin15°+-ln(3x)的VB算术表达式为sin(15/180*∏)+-exp(3*x)。4．表示x是5的倍数或是9的倍数的逻辑表达式为xmod5=0orxmod9=0。5．在VB中，123456&、1.2346D+5这2个常数分别表示long、double类型。19.若已建立了Form1和Form2两个窗体，默认启动窗体为Form1。通过工程属性菜单的启动对象命令的通用选项卡，可将启动窗体设置为Form2。在程序中若要显示Form1窗体，则执行show语句。20.文本框(Text1)中有选定的文本，执行Text1.SelText=〝Hello〞的结果是hellotext121.在程序运行时，如果将框架的enable属性设为False，则框架的标题呈灰色，表示框架内的所有对象均被屏蔽，不允许用户对其进行操作。......9、声明如下数组：Dima(3,-2To2,5)，则数组a包含的元素的个数为12012.赋值语句：a=123&MID(“123456”,3,2)执行后，a变量中的值是“12334”三、请完成下列的程序（共15分）1、窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，请为下列程序编写相应的子过程。PrivateSubText1_LostFocus()CallC