郑州大学VB模拟题5

./[HNCE网上考试系统v9.6]本套软件使用权属于：大学考试课程:考试时间:90分钟考场:第一考场考试日期:考号：：剩余时间：89:45保存交卷退出帮助本卷共有3道大题:一、单项选择题〔50道小题,共50分1、已知x=2,y=9,z=－4,逻辑表达式x>yORz>xANDNOTz>y的值是______。〔1分A、TrueB、-1C、0D、False2、PrintFormat<1234.234,"###.#####">;Format<1234.234,"########.##">的显示结果是______。〔1分B、123.234001234.234C、123.234001234.233、以下关于InputBox函数的叙述中,错误的是______。〔1分A、InputBox函数的"提示信息参数"不能缺省B、每执行一次InputBox函数,只能输入一个值C、InputBox函数的返回值是数值型的D、要保存InputBox函数的返回值必须赋予一个变量4、以下不合法的常量是______。〔1分A、10^2B、100C、100.0D、10E+015、程序如下：k=0:DoUntilk>10:k=k+1:Loop的循环体执行次数是______。〔1分A、9B、10C、11D、无数次6、设a=3,b=5,则以下表达式值为假的是______。〔1分A、a>=bAndb>l0B、<a>b>Or<b>2>C、<a<0>or<b>0>D、<5>a>And<b>2>7、abc％,abc!,abc$,abc#分别声明abc是______。〔1分A、整型、单精度、字符串、双精度变量B、整型、整型、字符串、双精度变量C、单精度、整型、字符串、双精度变量D、整型、双精度、字符串、双精度变量8、文本框中的ScrollBars属性已设置为3-Both,但却没有水平和垂直滚动条的效果,原因可能是______。〔1分A、文本框中没有容B、文本框的MultiLine属性为FalseC、文本框的MaxLength属性为0D、文本框的Locked属性是True9、下面四个语句中,正确的赋值语句是______。〔1分A、a=a+cB、a+c=aC、c+a=aD、a－c=a10、窗体上有一个文本框和一个命名按钮,当向文本框中输入一个字符时,命令按钮的标题设置为"计算机考试"。下面正确的事件过程为______。〔1分A、PrivateSubCommand1_Click<>:Command1.Caption="计算机考试":EndSubB、PrivateSubCommand1_Click<>:Text1="计算机考试":EndSubC、PrivateSubText1_Change<>:Command1.Caption="计算机考试":EndSubD、PrivateSubText1_Click<>:Text1.Caption="计算机考试":EndSub11、运行程序：x=2:Fori=1To10Step2:x=x+i:Next,x的值是______。〔1分A、26B、27C、38D、5712、启动VisualBasic后,VB为用户新建立的第一个工程的名字是______。〔1分A、窗体1B、工程C、窗体D、工程113、下列叙述中,正确的是______。〔1分A、工程文件〔.vbp应用程序可以在任何计算机上运行B、打开一个工程文件,系统自动装入与该工程有关的窗体文件C、VB工程文件中可以没有窗体文件D、退出VB系统前要保存新创建的应用程序,只需保存工程文件〔.vbp即可14、若要选择Text对象的Text1_KeyPress事件,可以______。〔1分A、在属性窗口中选择B、在工程资源管理器窗口中选择C、在代码设计窗口中利用对象列表框、过程列表框选择D、在窗体设计窗口中双击Text1对象15、Cls方法可以清除窗体或图片框中的______。〔1分A、在设计阶段使用Picture设置的背景位图B、在设计阶段放置的控件C、在运行阶段产生的图形和文字D、以上全部容16、比较两个数中较大的数的程序段,错误的是______。〔1分A、IFx>yThenmax=xElsemax=yB、max=IIF<x>y,x,y>C、IFx>yThenmax=x:max=yD、max=x:Ifx<yThenmax=y17、窗体上有一个标签Label1和一个命名按钮Command1,当程序运行时每单击一次命令按钮,标签就向右移动一定距离。在Command1_Click<>中能完成这个功能的命令为______。〔1分A、Label1.Left=100B、Label1.Left=Label1.Left-100C、Label1.Move100D、Label1.MoveLabel1.Left+10018、能产生[10,32]之间随机整数的函数表达式为______。〔1分A、Int<Rnd*22>+10B、Int<Rnd*23>+10C、Int<Rnd*22>+11D、Int<Rnd*23>+1119、不属于一个工程文件〔*.vbp里的文件是______。〔1分A、*.txt文件B、*.bas文件C、*.cls文件D、*.frm文件20、程序如下：i=0:s=0:Do:i=i+2:s=i+s:LoopUntili>4,执行后s的值是______〔1分A、10B、11C、12D、1521、与传统的程序设计语言相比较,VisualBasic最突出的特点是______。〔1分A、结构化的程序设计B、数据处理C、面向对象的可视化编程D、中文支持22、能够盛放其他控件,而且是最基本的对象是______。〔1分A、窗体B、图像C、标签D、文本23、窗体设计器是用于设计______。〔1分A、窗体的代码B、对象的属性C、应用程序的代码D、应用程序的界面24、如果VB环境中缺少某个窗口,一般应从主菜单______的下拉菜单中找到相应的激活命令。〔1分A、编辑B、文件C、视图D、调试25、在下列语句中,正确的是______。〔1分A、Text1.Text+Text2.Text=Text3.TextB、Command1.Name="cmdok"C、Label1.Caption=4567D、x=InputBox<pleaseinput>26、执行语句age=InputBox<"请输入数值","年龄输入框","38">,如果从键盘上输入数值20并按回车键,则下列叙述中,不正确的叙述是______。〔1分A、变量Age的值是数值20B、对话框标题栏中显示的是"年龄输入框"C、对话框的默认值是38D、对话框的提示文字为"请输入数值"27、PrintDateDiff<"m",#1/28/2004#,#1/31/2004#>的输出结果是______。〔1分A、OB、1C、-1D、228、在下列符号常量的声明中,______是不合法的。〔1分A、ConstaAsSingle=2.6B、ConstaAsInteger="ab"C、ConstaAsDouble=2*2D、Consta="OK"29、执行程序段：Constc$="Henan":c$="Zhengzhou":c$="Daxue":Printc$,输出的结果是______。〔1分A、HenanB、ZhengzhouC、DaxueD、显示出错信息30、m、n是整数,且n>m,在以下4个语句中,能将x赋值为一个m～n之间〔含m,n的任意整数,即满足m≥x≥n的是______。〔1分A、x=Int<Rnd*n>+mB、x=Int<Rnd*<n–m+1>>+mC、x=Int<Rnd*m>+nD、x=Int<Rnd*<n-m>>+m31、方法Print"等级";"考试",输出的结果是______。〔1分A、等级考试B、等级;考试C、"等级考试"D、"等级";"考试"32、下列数据中,______是日期型数据。〔1分A、"01/30/2004"B、Date<"01/30/2004">C、#01/30/2004#D、01/30/200433、下列选项中,______不是字符串常量。〔1分A、"你好"B、""C、"True"D、#False#34、执行程序段：a=6:b=8:F=Sqr<a*a+b*b>:PrintF,输出的结果是______。〔1分A、6B、8C、10D、1435、InputBox函数返回值的类型为______。〔1分A、数值B、字符串C、变体D、数值或字符串36、设有变量声明：DimTestDateAsDate,为变量TestDate正确赋值的表达方式是______。〔1分A、TestDate=#1/1/2002#B、TestDate=#"1/1/2002"#C、TestDate=Date<"1/1/2002">D、TestDate=Format<"m/d/yy","1/l/2002">37、下面表达式中,______的运算结果与其他3个不同。〔1分A、Log<Exp<-3.5>>B、Int<-3.5>+0.5C、-Abs<-3.5>D、Sin<30*3.14/180>38、语句X=X+1的正确含义是______。〔1分A、变量X的值与X+1的值相等B、将变量X的值存到X+1中去C、将变量X的值加1后赋给变量XD、变量X的值为139、执行程序段：a$="China":b$=Right$<a$,3>:c$=String$<3,b$>:Printc$,输出的结果是______。〔1分A、ChiB、aaaC、iiiD、ina40、执行程序段：DimaxsAsInteger:axs%=232:axs=232.32:Printaxs%;axs,输出的结果是______。〔1分A、232232032B、232232C、232.32232.32D、显示出错信息41、变量未赋值时,数值型变量的值为______。〔1分A、OB、空串""C、NullD、没任何值42、假设变量iVar是一个整型变量,则执行赋值语句iVar="2"+"3"之后,变量iVar的值是______。〔1分A、2B、3C、5D、2343、语句Print4+5\6*7/8Mod9的值是______。〔1分A、4B、5C、6D、744、执行语句PrintFormat<32548.5,"###,##0.00">,输出结果是______。〔1分A、32548.5B、32,548.5C、032,548.50D、32,548.5045、下列不合法的常量形式是______。〔1分A、"1O0"B、100.0C、1OE+0.5D、ConstG=23+1246、设有变体变量x,执行语句：x=InputBox<"输入数值","0","示例">后,如果从键盘上输入10并按回车键,则下列叙述中正确的是______。〔1分A、变量x的值是数值10B、在InputBox对话框标题栏中显示的是"示例"C、0是默认值D、变量x的值是字符串"10"47、下列符号常量的声明中,______是不合法的。〔1分A、ConstaAsSingle=1.1B、ConstaAsInteger="12"C、ConstaAsDouble=Sin<1>D、Consta="OK"48、某中心选拔身高T超过1.7米且体重W小于52.5公斤的学员,能正确表示该条件的布尔表达式是______。〔1分A、T>=1.7AndW<=52.5B、T<=1.7OrW>=52.5C、T>1.7AndW<52.5D、T>1.7OrW<62549、以下声明语句中,错误的是______。〔1分A、Constvarl=123B、Constvar2="ABC"C、Publicconst="计算机等级考试"D、Staticvar3asInteger50、表达式"Turbo"+"C">"True"+"Basic"的值是______。〔1分A、TrueB、FalseC、NullD、出错信息二、填空题〔7道小题,共30分1、*产生50个60~100的随机数,统计其中被6整除余2的个数,并将这些数输出。

PrivateSubcommand1_click<>

Dimx,nAsInteger

DimcounterAsInteger

For=1To50

x=Int<Rnd*41+60>

IfMod6=2Then

counter=counter+1

EndIf

Nextn

Printcounter

EndSub

〔4分2、*对10个100以的整数用冒泡法按递减顺序排序。

PrivateSubCommand1_Click<>

Dima<10>AsInteger,tAsInteger

DimiAsInteger,jAsInteger

Fori=1To10

a<i>=Int<Rnd*101>

Printa<i>;

Nexti:Print

Fori=1To9

Forj=1To10-i

Ifa<j><a<j+1>Then=a<j>:a<j>=a<j+1>:a<j+1>=t

Nextj

Nexti

Fori=1To10

Printa<>;

Nexti:Print

EndSub

〔4分3、*随机产生n个两位整数,求出其中的最大值和最小值。

PrivateSubCommand1_Click<>

Dima<100>AsInteger,nAsInteger,iAsInteger

DimminAsInteger,maxAsInteger

=InputBox<vbCrLf+vbCrLf+"n=">

Print"产生的随机数为"

Randomize

Fori=1Ton

a<i>=Int<Rnd*90>+10

Printa<i>;

Nexti:Print

min=a<1>:max=min

Fori=2To

Ifa<i>>maxThenmax=a<i>

Ifa<i><minThenmin=a<i>

Nexti

Print"最大值为";max

Print"最小值为";min

EndSub

〔4分4、*辉三角形如图所示{<x_5.jpg>}：

*完成下面程序。

PrivateSubForm_Click<>

Dima<1To10,1To10>AsInteger,i%,j%

Fori=1To10

a<i,1>=1

a<i,>=1

Nexti

Fori=3To10

Forj=2Toi-1

a<i,j>=a<i-1,j-1>+a<i-1,j>

Nextj

Nexti

Fori=1To10

Forj=1To

PrintTab<5*<j-1>+1>;a<i,j>;

Nextj

Print

Nexti

EndSub

[附图3]〔4分5、*利用判断一个三位数是否为对称数〔如：343的函数过程,求出所有三位对称数之和。

*程序代码如下：

PrivateSubCommand1_Click<>

DimsumAsLong,nAsInteger

sum=0

Forn=100To999

Ifduicheng<n>thensum=sum+

Nextn

EndSub

PublicFunctionduicheng<ByVali%>AsBoolean

a=iMod10

c=i\100

Ifa=cThen

duicheng=true

Else

duicheng=False

EndIf

End

〔4分6、*用子过程输出Fibonacci〔斐波那契数列〔0、1、1、2、3、5、8...的前20项及前20项的和。

*程序代码如下：

PrivateSubCommand1_Click<>

Dims&,a%,b%,c%

a=0:b=1

=a+b