郑州大学VB模拟题5

1、【HNCE网上考试系统v9.6】本套软件使用权属于：XX大学考试课程:考试时间:90分钟考场:第一考场考试日期:2012.05.07考号：20113160128XX：剩余时间：89:45保存交卷退出帮助本卷共有3道大题:一、单项选择题（50道小题，共50分）1、已知x=2,y=9,z=，逻辑表达式xyORzxANDNOTzy的值是_。（1分）、True、-1、0、False2、PrintFormat(1234.234,#.#);Format(1234.234,#.#)的显示结果是。（1分）、1234.2341234.23、123.234001234.234、123.234001234.23、1

2、234.2341234.2343、以下关于InputBox函数的叙述中，错误的是。（1分）、InputBox函数的“提示信息参数”不能缺省、每执行一次InputBox函数，只能输入一个值、InputBox函数的返回值是数值型的、要保存InputBox函数的返回值必须赋予一个变量4、以下不合法的常量是。（1分）、102、100、100.0、10E+015、程序如下：k=0:DoUntilk10:k=k+1:Loop的循环体执行次数是_。（1分）、9、10、11、无数次6、设a=3，则以下表达式值为假的是_。（1分）、a=bAndbl0、(ab)Or(b2)、(a0)、(5a)And(b2)7、a

3、bc，abc!，abc$，abc#分别声明abc是_。（1分）、整型、单精度、字符串、双精度变量、整型、整型、字符串、双精度变量、单精度、整型、字符串、双精度变量、整型、双精度、字符串、双精度变量8、文本框中的ScrollBars属性已设置为3-Both，但却没有水平和垂直滚动条的效果，原因可能是。（1分）、文本框中没有内容、文本框的MultiLine属性为False、文本框的MaxLength属性为0、文本框的Locked属性是True9、下面四个语句中，正确的赋值语句是_。（1分）、a=a+c、a+c=a、c+a=a、ac=a10、窗体上有一个文本框和一个命名按钮，当向文本框中输入一个字符

4、时，命令按钮的标题设置为“计算机考试”。下面正确的事件过程为。（1分）、PrivateSubCommand1_Click():Command1.Caption、PrivateSubCommand1_Click():Text1=计算机=计算机考试:EndSub考试:EndSub、PrivateSubText1_Change():Command1.Caption=、PrivateSubText1_Click():Text1.Caption=计算机考试:EndSub计算机考试:EndSub11、运行程序：x=2:Fori=1To10Step2:x=x+i:Next，x的值是。（1分）、26、27、3

5、8、5712、启动VisualBasic后，VB为用户新建立的第一个工程的名字是。（1分）、窗体1、工程、窗体、工程113、下列叙述中，正确的是_。（1分）、工程文件（.vbp）应用程序可以在任何计算机上运、打开一个工程文件，系统自动装入与该工程有关的行窗体文件、VB工程文件中可以没有窗体文件VB系统前要保存新创建的应用程序，只需保存工程文件（.vbp）即可14、若要选择Text对象的Text1_KeyPress事件，可以_。（1分）、在属性窗口中选择、在工程资源管理器窗口中选择、在代码设计窗口中利用对象列表框、过程列表框选、在窗体设计窗口中双击Text1对象择15、Cls方法可以清除窗体或图

6、片框中的。（1分）、在设计阶段使用Picture设置的背景位图、在设计阶段放置的控件、在运行阶段产生的图形和文字、以上全部内容16、比较两个数中较大的数的程序段，错误的是。（1分）、IFxyThenmax=xElsemax=y、max=IIF(xy,x,y)、IFxyThenmax=x:max=y、max=x:Ifx4，执行后s的值是_（1分）、10、11、12、1521、与传统的程序设计语言相比较，VisualBasic最突出的特点是_。（1分）、结构化的程序设计、数据处理、面向对象的可视化编程、中文支持22、能够盛放其他控件，而且是最基本的对象是。（1分）、窗体、图像、标签、文本23、窗体

7、设计器是用于设计_。（1分）、窗体的代码、对象的属性、应用程序的代码、应用程序的界面24、如果VB环境中缺少某个窗口，一般应从主菜单_的下拉菜单中找到相应的激活命令。（1分）、编辑、文件、视图、调试25、在下列语句中，正确的是_。（1分）、Text1.Text+Text2.Text=Text3.Text、Command1.Name=cmdok、Label1.Caption=4567、x=InputBox(pleaseinput)26、执行语句age=InputBox(请输入数值,年龄输入框,38)，如果从键盘上输入数值20并按回车键，则下列叙述中,不正确的叙述是。（1分）、变量Age的值是数值

8、20、对话框标题栏中显示的是年龄输入框、对话框的默认值是38、对话框的提示文字为请输入数值27、PrintDateDiff(m,#1/28/2004#,#1/31/2004#)的输出结果是_。（1分）、O、1、-1、228、在下列符号常量的声明中，_是不合法的。（1分）、ConstaAsSingle=2.6、ConstaAsInteger=ab、ConstaAsDouble=2*2、Consta=OK29、执行程序段Constc$=Henan:c$=Zhengzhou:c$=Daxue:Printc$，输出的结是_。（1分）、Henan、Zhengzhou、Daxue、显示出错息30、n是整数

9、，且nm，在以下4个语句中，能x赋值n之间（m,n）的任意整数，即满xn的是_。（1分）、x=Int(Rnd*n)+m、x=Int(Rnd*(nm+1)+m、x=Int(Rnd*m)+n、x=Int(Rnd*(n-m)+m31、方法Print等级;考，输出的结是_。（1分）、等级考、等级;考试、等级考、等级;考32、下列数据中，_是日期型数据。（1分）、01/30/2004、Date(01/30/2004)、#01/30/2004#、01/30/200433、下列选项中，_不是字符串常量。（1分）、你好、True、#False#34、执行程序段a=6:b=8:F=Sqr(a*a+b*b):Pr

10、intF，输出的结是。（1分）、6、8、10、1435、InputBox函数返回值的型_。（1分）、数值、字符串、变体、数值或字符串36、设有变量声明：DimTestDateAsDate，为变量TestDate正确赋值的表达方式是。（1分）、TestDate=#1/1/2002#、TestDate=#1/1/2002#、TestDate=Date(1/1/2002)、TestDate=Format(m/d/yy,1/l/2002)37、下面表达式中，的运算结果与其他3个不同。（1分）、Log(Exp(-3.5)、Int(-3.5)+0.5、-Abs(-3.5)、Sin(30*3.14/180)

11、38、语句X=X+1的正确含义是。（1分）、变量X的值与X+1的值相等、将变量X的值存到X+1中去、将变量X的值加1后赋给变量X、变量X的值为139、执行程序段：a$=China:b$=Right$(a$,3):c$=String$(3,b$):Printc$，输出的结果是。（1分）、Chi、aaa、iii、ina40、执行程序段：DimaxsAsInteger:axs%=232:axs=232.32:Printaxs%;axs，输出的结果是_。（1分）、232232032、232232、232.32232.32、显示出错信息41、变量未赋值时，数值型变量的值为。（1分）、O、空串、Null、

12、没任何值42、假设变量iVar是一个整型变量，则执行赋值语句iVar=2+3之后，变量iVar的值是_。（1分）、2、3、5、2343、语句Print4+56*7/8Mod9的值是_。（1分）、4、5、6、744、执行语句PrintFormat(32548.5,#,#0.00)，输出结果是_。（1分）、32548.5、32,548.5、032,548.50、32,548.5045、下列不合法的常量形式是_。（1分）、1O0、100.0、1OE+0.5、ConstG=23+1246、设有变体变量，执行语句：x=InputBox(输入数值,0,示例)后，如果从键盘上输入10并按回车键，则下列叙述中

13、正确的是_。（1分）、变量x的值是数值10、在InputBox对话框标题栏中显示的是“示例”、0是默认值、变量x的值是字符串“10”47、下列符号常量的声明中，_是不合法的。（1分）、ConstaAsSingle=1.1、ConstaAsInteger=12、ConstaAsDouble=Sin(1)、Consta=OK48、某中心选拔身高T超过1.7米且体重小于52.5公斤的学员，能正确表示该条件的布尔表达式是_。（1分）、T=1.7AndW=52.5、T=52.5、T1.7AndW1.7OrWTrue+Basic的值是_。（1分）、True、False、Null、出错信息二、填空题（7道小

14、题，共30分）1、*产生50个60100的随机数，统计其中被6整除余2的个数，并将这些数输出。PrivateSubcommand1_click()Dimx,nAsIntegerDimcounterAsIntegerFor=1To50 x=Int(Rnd*41+60)IfMod6=2Thencounter=counter+1EndIfNextnPrintcounterEndSub（4分）2、*对10个100以内的整数用冒泡法按递减顺序排序。PrivateSubCommand1_Click()Dima(10)AsInteger,tAsIntegerDimiAsInteger,jAsIntegerF

15、ori=1To10a(i)=Int(Rnd*101)Printa(i);Nexti:PrintFori=1To9Forj=1To10-iIfa(j)maxThenmax=a(i)Ifa(i)minThenmin=a(i)NextiPrint最大值为;maxPrint最小值为;minEndSub（4分）4、*杨辉三角形如图所示：*完成下面程序。PrivateSubForm_Click()Dima(1To10,1To10)AsInteger,i%,j%Fori=1To10a(i,1)=1a(i,)=1NextiFori=3To10Forj=2Toi-1a(i,j)=a(i-1,j-1)+a(i-1

16、,j)NextjNextiFori=1To10Forj=1ToPrintTab(5*(j-1)+1);a(i,j);NextjPrintNextiEndSub【附图】（4分）5、*利用判断一个三位数是否为对称数（如：343）的函数过程，求出所有三位对称数之和。*程序代码如下：PrivateSubCommand1_Click()DimsumAsLong,nAsIntegersum=0Forn=100To999Ifduicheng(n)thensum=sum+NextnEndSubPublicFunctionduicheng(ByVali%)AsBooleana=iMod10c=i100Ifa=c

17、Thenduicheng=trueElseduicheng=FalseEndIfEnd（4分）6、*用子过程输出Fibonacci（斐波那契）数列（、1、3、8.）的前20项及前20项的和。*程序代码如下：PrivateSubCommand1_Click()Dims&,a%,b%,c%a=0:b=1=a+bPrintaPrintbFori=1To18fiba,b,cprints=s+cNextiPrintFibonacci（斐波那契）数列的前20项的和为：;sEndSubPrivateSubfib(a,b,c)c=a+ba=bb=cEndSub（4分）7、*控件属性改变，如图所示PrivateSubCommand1_Click()IfCommand1.Caption=字号ThenLabel1.=30Command1.Caption=颜色Label1.=vbRedCommand1.Caption=字号EndIfEndSub【附图】（6分）三、编程题（2道小题，共20分）1、*编写程序：*已知一个斐波那契数列的前两项为1,1，以后的每一项均为前两项的和。*例如：1,1,2,3,5，.，请求出这个数列前43项的和。（10分）必须将本题程序最后的运行结果填入下面的框中。否则，该题以零分计!请将你解答本题所写的源程序粘贴