2017vb模拟2【HNCE网上考试系统 v9.6】.doc

【HNCE网上考试系统 v9.6】 本套软件使用权属于：郑州大学考试课程:VB-程序设计-练习 考试时间:90分钟 考场:第一考场 考试日期:2017.04.20剩余时间：89:55保存交卷退出帮助窗体顶端本卷共有2道大题:窗体底端一、单项选择题（50道小题，共50分）1、要求在程序运行时，一旦点击文本框使之获取焦点，就自动选中文本框内的所有文本，则需要编写事件过程_。（1分）A、Text1_Change() B、Text1_GotFocus()C、Text1_KeyPress(KeyAsciiAsInteger)D、Text1_SetFocus()2、如果对文本框Text1设置了PasswordChar=“$”，且程序运行时向文本框中输入“abcd”，则文本框中显示的是_。（1分）A、1个“$”B、4个“$”C、不显示内容D、“*”3、与传统的程序设计语言相比较，VisualBasic最突出的特点是_。（1分）A、结构化的程序设计B、数据处理C、面向对象的可视化编程D、中文支持4、Cls方法可以清除窗体或图片框中的_。（1分）A、在设计阶段使用Picture设置的背景位图B、在设计阶段放置的控件C、在运行阶段产生的图形和文字D、以上全部内容5、决定窗体标题栏显示内容的属性是_。（1分）A、TextB、NameC、CaptionD、BackStyle6、以下不合法的常量是_。（1分）A、102B、100C、100.0D、10E+017、若要使标签控件显示时，不覆盖其背景内容，应设置的属性是_。（1分）A、ForecolorB、BackColorC、BackStyleD、BorderStyle8、已知x=2,y=9,z=4，逻辑表达式xyORzxANDNOTzy的值是_。（1分）A、TrueB、-1C、0D、False9、设a=3，b=5，则以下表达式值为假的是_。（1分）A、a=bAndbl0B、(ab)Or(b2)C、(a0)D、(5a)And(b2)10、下面四个语句中，正确的赋值语句是_。（1分）A、a=a+cB、a+c=aC、c+a=aD、ac=a11、保存一个VisualBasic应用程序，正确的是_。（1分）A、只保存工程文件(.vbp)B、只保存窗体文件（.frm）C、只保存标准模块文件（.bas）D、分别保存窗体文件和工程文件12、能产生10，32之间随机整数的函数表达式为_。（1分）A、Int(Rnd*22)+10B、Int(Rnd*23)+10C、Int(Rnd*22)+11D、Int(Rnd*23)+1113、若要选择Text对象的Text1_KeyPress事件，可以_。（1分）A、在属性窗口中选择B、在工程资源管理器窗口中选择C、在代码设计窗口中利用对象列表框、过程列表框选择D、在窗体设计窗口中双击Text1对象14、以下_是正确的ForNext结构。（1分）A、Forx=1ToStep10NextxB、Forx=3To-3Step-3NextxC、Forx=1Tox=10NextxD、Forx=3To10Step3Nexty15、语句Printint(-23.4)=;Int(-23.4)的输出结果为（1分）A、Int(-23.4)=-23.4B、(-23.4)=23.4C、Int(-23.4)=-23D、Int(-23.4)=-2416、一个工程文件中可以有多个窗体，默认状态下，VB运行时指定为启动窗体的是_。（1分）A、窗体B、Form窗体C、Form1窗体D、第一个创建的窗体17、处于设计状态时，在窗体上双击鼠标，则系统在代码窗口显示的事件过程模板是_。（1分）A、LoadB、ClickC、DblClickD、MouseDown18、表示年龄(age)在20岁和30岁之间的表达式是_。（1分）A、age=20Andage=200rage=30C、age=30D、age=3019、在Form_Load()中，如果想用Print方法将计算结果显示在窗体上，则必须保证窗体的_属性值为True。（1分）A、EnabledB、ApperanceC、AutoRedrawD、Moveable20、设n=10，执行n=IIF(n=3,n,-n)后，n的值为_。（1分）A、10B、-10C、3D、-321、下列语句中，正确的是_。（1分）A、IfabThent=aa=bb=tB、IfabThent=a;a=b;b=tC、Ifa=bThent=aa=bb=tD、Ifa=bThent=a:a=b:b=t22、SelectCase语句中的“表达式列表”不能是_。（1分）A、变量名的列表，例如Casex,y,zB、值的列表，例如Casea,b,cC、To表达式，例如Case1to10D、Is关系表达式，例如CaseIs10:k=k+1:Loop的循环体执行次数是_。（1分）A、9B、10C、11D、无数次24、如果在图片框Picture1中装入一个图片，为了清除该图片（不删除图片框），应采用的方法是_。（1分）A、选择图片框，在属性窗口中选择Picture属性条，然后按回车键B、选择图片框，然后按Del键C、执行语句Picture1.Picture=LoadPicture()D、执行语句Picture1.Picture=25、下列叙述中，正确的是_。（1分）A、工程文件（.vbp）应用程序可以在任何计算机上运行B、打开一个工程文件，系统自动装入与该工程有关的窗体文件C、VB工程文件中可以没有窗体文件D、退出VB系统前要保存新创建的应用程序，只需保存工程文件（.vbp）即可26、执行程序段：Constc$=Henan:c$=Zhengzhou:c$=Daxue:Printc$，输出的结果是_。（1分）A、HenanB、ZhengzhouC、DaxueD、显示出错信息27、设有变体变量x，执行语句：x=InputBox(输入数值,0,示例)后，如果从键盘上输入10并按回车键，则下列叙述中正确的是_。（1分）A、变量x的值是数值10B、在InputBox对话框标题栏中显示的是“示例”C、0是默认值D、变量x的值是字符串“10”28、表达式Val(.123E2CD)的值是_。（1分）A、.123B、12.3C、OD、.123E2CD29、执行MsgBox123+123，信息框中可以出现_。（1分）A、123+123B、123123C、246D、显示出错信息30、已知下列程序段：a=3:b=4:Printba，输出的结果是_。（1分）A、TrueB、FalseC、43D、显示出错信息31、下列符号常量的声明中，_是不合法的。（1分）A、ConstaAsSingle=2.6B、ConstaAsString=abC、ConstaAsDouble=Sin(1)D、Consta=OK32、下列符号常量的声明中，_是不合法的。（1分）A、ConstaAsSingle=1.1B、ConstaAsInteger=12C、ConstaAsDouble=Sin(1)D、Consta=OK33、PrintFormat(32556,#);Format(32556,#)的输出结果是_。（1分）A、3255632556B、3255632556C、32556-325D、-3255632534、下列数据中，_是日期型数据。（1分）A、01/30/2004B、Date(01/30/2004)C、#01/30/2004#D、01/30/200435、表达式Turbo+CTrue+Basic的值是_。（1分）A、TrueB、FalseC、NullD、出错信息36、假设变量iVar是一个整型变量，则执行赋值语句iVar=2+3之后，变量iVar的值是_。（1分）A、2B、3C、5D、2337、InputBox函数返回值的类型为_。（1分）A、数值B、字符串C、变体D、数值或字符串38、某中心选拔身高T超过1.7米且体重W小于52.5公斤的学员，能正确表示该条件的布尔表达式是_。（1分）A、T=1.7AndW=52.5B、T=52.5C、T1.7AndW1.7OrW2)B、Not(3+42Or23D、21And3a(j)Thent=a(i):a(i)=a(j):a(j)=tNextjNextiFori=1To10Printa(i);Nexti:PrintEndSub（4分）4、*杨辉三角形如图所示：*完成下面程序。PrivateSubForm_Click()Dima(1To10,1To10)AsInteger,i%,j%Fori=1To10a(i,1)=1a(i,)=1NextiFori=3To10Forj=Toi-1a(i,j)=a(i-1,j-1)+a(i-1,j)NextjNextiFori=1To10Forj=1ToPrintTab(5*(j-1)+1);a(i,j);NextjPrintNextiEndSub【附图3】（6分）5、*利用判断一个三位数是否为对称数（如：343）的函数过程，求出所有三位对称数之和。*程序代码如下：PrivateSubCommand1_Click()DimsumAsLong,nAsIntegersum=0Forn=100To999Ifduicheng()thensum=sum+NextnEndSubPublicFunctionduicheng(ByVali%)AsBooleana=iMod10c=i100Ifa=cThenduicheng=trueElseduicheng=FalseEndIfEnd（6分）6、*编写一个显示随机数的程序，如图所示。*运行过程：*点击训练开始按钮之后，每隔一秒产生一个5位数的随机整数显示到上面的标签中。PrivateSubCommand1_Click()Timer1.Enabled=TrueTimer1.Interval=EndSubPrivateSub_Load()Label1.ForeColor=vbWhiteLabel1.BackColor=vbGreenEndSubPrivateSubTimer1_()Label1=Val(Int(Rnd*90000+10000)EndSub【附图1】（6分）7、*下列程序的功能是：求出500以内最大的10个能被13或17整除的自然数之和。*请填空：OptionExplicitPrivateSubCommand1_Click()Dims%,i%,n%s=0i5001StepIfiMod13=0iMod17=0Thenn=n+s=s+EndIfIf=10ThenForNextiPrintsEndSub程序运行的结果是（10分）8、*下载由正整数组成的文件，编写程序，统计该文件中素数（质数）的个数。把结果写入试卷中指定位置。（在大于1的自然数中，除了1和此整数自身外，无法被其他自然数整除的数是素数，1不是素数）*请填空：OptionExplicitPrivateSubCommand1_Click()Dimx%,t%,m%