2021年郑州大学VB模拟题5

璟欧阳光明末创编 璟欧阳光明末创编 2021.03.07璟欧阳光明末创编 璟欧阳光明末创编 2021.03.07*欧阳光明*创编 2021.03.07（HNCE网上考试系统v9.6］本套软件使用权属于：郑州大学欧阳光明（2021.03.07）考试课程：考试时间：90分钟考场:第一考场考试日期:2012.05.07考号：20113160128姓名： 剩余时间：89:45 保存交卷退岀帮助本卷共有3道大题：一、艰项选择题（50道小题.共50分〉1>已知x=2,y=9,z=-4,逻辑表达式QyORz>xANDNOTz>y的值是 。（1分）口、True□Q.oFL、False2.PrintFormat(1234.234・"ws.ccsm*):Format(1234.234・Um:堵护埠曲")的站示结果是 ：’(1分)F11231.2311231.231^L123.234001234.234FL123.231001231.23匚1、1231.2311234.2313.以下关于InputBox函数的叙述中，错误的是O(1分)匚1、InputBoxR数的"提示信息参数”不能缺省FL每执行…次InputBox函数，只能输入一个值匚1、InputBox函数的返回值是数值型的匚1、耍保％InputBox函数的返回值必须賦予一个变量仁以下不合法的常虽是 °（1分）F110*2FLlooFLloo.oFL10E+015.程序如下：k=0:DoUntilk>10:k=k+1:LOOD的循环体执行次数是 a（1分）口、9口、10口、n匚1、无数次6.设a=3,b=5,则以下表达式值为假的是 o（1分）1 Lxa>=bAndb>10FL(a>b)Or(b>2)末欧阳光明末创编 末欧阳光明末创编 2021.03.07璟欧阳光明末创编 璟欧阳光明末创编 2021.03.07末欧阳光明末创编 末欧阳光明末创编 2021.03.07璟欧阳光明末创编 璟欧阳光明末创编 2021.03.07FL(a<0)or(b>0)『L、(5>a)And(b>2)7%abc%,abc!*abc$»abc#分别声明abc是,O(1分)口、FL(a<0)or(b>0)『L、(5>a)And(b>2)7%abc%,abc!*abc$»abc#分别声明abc是,O(1分)口、整型、取精度、字符串、双精度变虽整型、字符串、双精度变量o、单精度、整型、字符串、双牯度变虽匚L整型、双精度、字符串.双精度变址8、文本框中的ScrollBars屈性已设宜为3-Both,但却没有水平和垂直滚动条的效果.原因可能是。（1分）口、文本框中没有内容Q、文木框的MultiLine属性为False口、文木框的MaxLength属性为0Q、文木框的Locked属性是True9.下血四个语句中，正确的赋值语句是.O（I分）Q.aQ.a口、…Q.a。（1分）10.窗体上有•个文木框和-个命名按钮，、勺向文木框中输入一个字符时，命令按钮的标题设宜为“il•算机考试"。（1分）nI AxPrivateSubCommand1_C1ick()nI AxPrivateSubCommand1_C1ick():Command1・CaptionQ、PrivateSubCommandl_Click():Textl="计算=VI=VI•算机考试二EndSub机考试7EndSubnI sPrivateSubTextl_Change0nI sPrivateSubTextl_Change0:Command1.CaptionO、PrivateSubTextl_Click():Textl.Caption="计算机考试=="计算机考试=EndSub计算机考试"：EndSubllx运行程序：x=2:Fori=1Tollx运行程序：x=2:Fori=1To10Step2:x=x+i:Next,x的值是.。（1分）口、26口、S312.启动VisualBasic后，VB为用户新建立的第•个工程的名字是。（1分）匚L窗休13.F13.F列叙述中，正确的是.。（1分）口、匸程文件口、匸程文件（.vbp）应用程序可以在任何计算机上运□b、打开-个工程文件,系统自动装入与该工程有关的窗休文件O、VB匸程文件中可以没有窗体文件存工程文件（.vbp）即可O、VB匸程文件中可以没有窗体文件存工程文件（.vbp）即可14%若要选择Text对象的Textl_KeyPress事件，可以 □ （1分）FZL在屈性窗【1中选抒FL在匸程资源管理器窗口中选择口、在代码设计窗口中利用对象列枷、过程列挣选口在窗体设讣窗旳皿“、择15.Cis方法可以清除窗体或图片框中的 .（1分）FHb、在设il阶段放宜的控件匚1、在设汁阶段使用Picture设宜的背景位图匚1、在运行阶段产生的图形和文字Q、以上全部内容16.比较两个数中较大的数的程序段.错误的是 。(1分)n1 \、IFx>yThenmax=xElsemax二yF11 、max=IIF(x>y,x,y)F-!1 k、IFx>yThenmax=x:max=yIF-!1 、max=x:Ifx<yThenmax=y17s窗体上有…个标签Label1和“个命名按钮Commandl,十程序运行时每单击一次命令按钮，标签就向右移动一定距离。在Commandl.Click0中能完成这个功能的命令为 -O(1分)L_Label1.Left=1001 IB.Labell.Left=Label1.Left-100FLLabel1.Move100FL、Labell.MoveLabell.Left+10018s能产生［10,32］之间随机整数的函数表达式为 c.（1分〉F1Int(Rnd*22)+10FLInt(Rnd*23)+10FLInt(Rnd*22)+llFLInt(Rnd*23)+1119.不屈于一个工程文件（*・VbD）里的文件是 。（1分）FL*.txt文件FL*.bas文件|rL*.C1S文件FL、*.frm文件20、程序如下：i=0:s=0:Do：i=i+2：s=i+s：LoopUntil1>4,执行后s的值是 （1.分）口、10口、n

21、与传统的程序设ili吾言相比较.VisualBasic出的特点是 。（1分）Q、数据处理口Q、数据处理O、O、面向对空的可视化编程匸1、中文支持22、能够盛放其他拎件，而且是锻基木的对彖是Q22、能够盛放其他拎件，而且是锻基木的对彖是Q、窗体（1分）图像匚1、标签23、23、窗体设讣器是用干设汁 （1分〉口、窗体的代码口、窗体的代码口、对象的属性O、应用程序的代码O、应用程序的代码O、应用程序的界面如果VB环境中缺少某个窗口，•般应从主菜单 的下拉菜单•中找到相应的激活命令。（1分）匚如果VB环境中缺少某个窗口，•般应从主菜单 的下拉菜单•中找到相应的激活命令。（1分）匚1、文件FZL视图lrL调试25、在下列语句中，正确的是 。(1分)nI \、Textl.Text+Text2.Text=Text3.Textn、Label1.Caption=4567Command1・\ame="cmdok"nI 、x=InputBox(pleaseinput)26、执行语句age=InputBox（*i§输入数值："年龄输入框「38”）,如果从键盘上输入数值20并按回车键,则下列叙述中，不正确的叙述是 。（1分）口、变量Age的值是数值口、变量Age的值是数值20Q、对话框标题栏中显示的是"年龄输入枇"O、对话框的默认值是38Q、对话框的提示文字为"请输入数值"27、PrintDateDiff（W,俎/28/2004站#1/31/2004»）的输出结果是 °（1分）口、0 口、!口、. O）、228、在下列符号常呆的声明中. 是不合法的。（1分〉

nI \、nI \、ConstaAsSingle=2.6nI sConstaAsDouble=2*2I 、ConstaAsInteger=abFLConsta="OK"（1分〉29、执行程序段：Constc$="Henan":c$="Zhengzhou":c$="Daxue":Printc$・（1分〉I 、Zhengzhoun.I 、ZhengzhounI nI 、Daxue口、显示出错信息30、m、n是整数.且“皿在以下4个语句中，能将x賦值为一个m〜n之间（含m,n）的任总整数.即满足m^x^n的是 0 （1分）F1x=Int(Rnd*n)*mFLx=Int(Rnd*(n-m+1))~mFl1 、x=Int«Rnd*m)•nFl1 、x=Int(Rnd*n~m))+m31.方法Print^等级7"考试S输出的结果是 。（1分）匚1、等级考试匚1、等级;考试FL"等级考试"FZL"等级";"考试"32、下列数据中. 是日期型数据。（1分）FL"01730/2001"『LDate("01/30/2001")FL301/30/20013L01/30/200433、下列选项中. 不是字符串常址。（1分）匚1、"你好"口、“E2L"True"FL、3False»31、执行程序段：a=6:b=8：F=Sqr(a*a•b*b）：PrintF.输出的结果是 c（1分）0.6n.sQ.!0n.m35sInputBox函数返回值的类型为 。（1分）匚1、数值□b、字符串末欧阳光明末创编 末欧阳光明末创编 2021.03.07末欧阳光明末创编 末欧阳光明末创编 2021.03.07匚1、变体口0、数值或字符串36.设有变用:声明：DimTestDateAsDate,为变＞TestDate正确賦值的表达方式是 。（1分）F1TestDate=31/1/2002^FLTestDate=X1/1/2002"#FLTestDate=Date("1/1/2002")FL、TestDate=Format("m/d/yy~,"1/1/2002")37.下而表达式中. 的运算结果与其他3个不同。(1分)1 1^-Log(Exp(-3.5))FLInt(-3.5)・0.51 Lx~Abs(_3.5)1^ Sin(30*3.14/ISO)38.语句X二X十1的正确含义是 。（1分）匚1、变址X的值与X・1的值相等叵1、将变址X的值存到X+1中去□：、将变址X的值加1后赋洽变:,!：X□d、变址X的值为139.执行程序段:a$="China":bS=Rights(aS,3):(:$=String(3,b$):PrintcS,输出的结果是 。分）F1chiElaaa口、iiin1 D、ina40s执行程序段:DimaxsAsInteger:axs%=232:axs=232.32:Printaxs%;axs,输出的结果是 。(1FL232232032EH.232232L232.32232.32FZL显示出错信息41.变虽未赋值时.数值熨变虽的值为 °（1分）Q.o匚L空串""口、沁匸1、没任何值42.假设变Iti：iVar是一个整型变址.则执行賦值语句iVar=P-飞之后.变fttiVar的值是 。（1分〉EldH.SSc.5□＞、2343、语句Print4+5\6*7/8Mod9的值是3(1分〉承欧阳光明末创编2021.03.07(1分〉末欧阳光明末创编 末欧阳光明末创编 2021.03.07**欧阳光明*创编 2021.03.07末欧阳光明末创编 末欧阳光明末创编 2021.03.07**欧阳光明*创编 2021.03.07Q,544执行语句PrintFormat（32548.5,Fh%抽0・00"）■输岀结果是 □（1分）I3251S.5FL32,51S.50匚I3251S.5FL32,51S.50FL032,518.5045.下列不合法的常虽形式是.O（1分）l^~L"100"FLloo.ofL10E+0.545.下列不合法的常虽形式是.O（1分）l^~L"100"FLloo.ofL10E+0.5Q、ConstG=23+1246.设有变体变址x.执行语句：x=InputBox（^输入数值示例"）后.如果从惟盘t：输入10并按回乍键•则下列叙述中正确的是a（1分）口、变虽x的值是数值10Q、在InputBox对话框标题栏中显示的是"示例"O、o是默认值Q、变量x的值是字符串“10”47.下列符号常虽的声明中.是不合法的C（1分）I AsConstaAsSingle=1・I AsConstaAsSingle=1・1n “I 、ConstaAsInteger= 12FL、Consta=~0K"FL、Consta=~0K"O（1分）•18、某中心选拔身髙T超过1・7米且体重W小于52・O（1分）FIT>=1.7AndW<=52.5FLT<=1.7OrW>=52.5FLT>1.7AndW<52.5FL、T>1.7OrW<62549.以下声明语句中,错误的是.a（1分）I AxConstvar1=123Q、Constvar2="ABC"O、Publicconst=*if算机等级考试"I 、Staticvar3asInteger50.表达式"Turbo"+"C">"True"+"Basic*的值是..（1分〉sTrue匚1、False末欧阳光明末创编 2021.03.07末欧阳光明末创编 2021.03.07璟欧阳光明末创编 璟欧阳光明末创编 2021.03.07末欧阳光明末创编 2021.03.07末欧阳光明末创编 2021.03.07璟欧阳光明末创编 璟欧阳光明末创编 2021.03.07Q、出错信息鑒填空题（7道小.題.共30分）1、*产生50个60、100的随机数.统计其中被6整除余2的个数，并将这些数输出。PrivateSubcommandl_click()Dimx,nAsIntegerDimcounterAsIntegerForI =1To50x=Int(Rnd*41+60)Mod6=2Thencounter=counter+1EndIfNextnPrintcounterEndSub（4分〉2、*对10个100以内的整数用冒泡法按递减顺序排序。PrivateSubCommandl_Click()Dima(10)AsInteger,tAsIntegerDimiAsInteger,jAsIntegerFori=1To10a(i)=Int(Rnd♦101)Printa(i);Nexti:PrintFori=1To9Forj=1To10-iIfa(j)<a(j+1)ThenI =a(j):a(j)=a(j+1):a(j+1)=tNextjNextiFori=1To10Print*(lNexti：PrintEndSub

（4分）*随机产生n个两位整数.求出其中的最大值和垠小值。PrivateSubCommandl_Click()Dima(100)AsInteger,nAsInteger,iAsIntegerDimminAsInteger,maxAsInteger=InputBox(vbCrLf+vbCrLf十f)Print^产生的随机数为.RandomizeFori=1Tona(i)=Int(Rnd*90)+10Printa(i):Nexti：Printmin=a(l):max=minFori=2ToI! Ifa(.i)>maxThenmax=a(i)Ifa(.i)<minThenmm=a(i)NextiPrint最大值为“；maxPrint小值为”；minEndSub（4分）♦杨辉三角形如图所示(<x_5.jpg>):*完成下面程序。PrivateSubForm_Click()Dima(lTo10,1To10)AsInteger,i%,j%Fori=1To10a(i,1)=1NextiFori=3To10Forj=2Toi-1a(i,j)=a(i-1,j■1)+a(i-1>j)Nextj

NextiFori=1To10Forj=1ToI! PrintTab(56、*用子过程输itiFibonacci6、*用子过程输itiFibonacci（斐波那契）数列（0、1、1、2、3、5、8・•・）的前20项及前20项的和。程序代码如下PrivateSubCommandl_Click（）PrintNextiEndSub【附图3】（4分）*利用判断一个三位数是否为对称数（如：343）的函数过程•求出所有三位对称数之和。*程序代码如下：PrivateSubCommandl_Click（）DimsumAsLong,nAsIntegersum=0Forn=100To999Ifduicheng(n)thensum=sum+! NextnEndSubPublicFunctionduicheng(ByVaii%)AsBooleana=iMod10c=i\100Ifa=cThenduicheng=trueElseduicheng=FalseEndIf（4分）末欧阳光明末创编 2021.03