vb模拟练习二(参考答案).doc

一、单项选择题（50道小题，共50分）1、窗体上有一个标签Label1和一个命名按钮Command1，当程序运行时每单击一次命令按钮，标签就向右移动一定距离。在Command1_Click()中能完成这个功能的命令为_。（1分）A、Label1.Left=100B、Label1.Left=Label1.Left-100C、Label1.Move100D、Label1.MoveLabel1.Left+1002、若要使标签控件显示时，不覆盖其背景内容，应设置的属性是_。（1分）A、ForecolorB、BackColorC、BackStyleD、BorderStyle3、窗体文件的扩展名_。（1分）A、.basB、.vbpC、.exeD、.frm4、窗体上有一个文本框和一个命名按钮，当向文本框中输入一个字符时，命令按钮的标题设置为“计算机考试”。下面正确的事件过程为_。（1分）A、PrivateSubCommand1_Click():Command1.Caption=计算机考试:EndSubB、PrivateSubCommand1_Click():Text1=计算机考试:EndSubC、PrivateSubText1_Change():Command1.Caption=计算机考试:EndSubD、PrivateSubText1_Click():Text1.Caption=计算机考试:EndSub5、下列语句中，正确的是_。（1分）A、IfabThent=aa=bb=tB、IfabThent=a;a=b;b=tC、Ifa=bThent=aa=bb=tD、Ifa=bThent=a:a=b:b=t6、程序段Dimx%:IfxTheny=xElsey=x+1:Printy运行后，显示的结果是_。（1分）A、0B、1C、随机数D、显示出错信息7、要把一个Image控件对象设置成隐藏，应设置的属性是_。（1分）A、VisibleB、EnabledC、DefaultD、Cancel8、以下关于InputBox函数的叙述中，错误的是_。（1分）A、InputBox函数的“提示信息参数”不能缺省B、每执行一次InputBox函数，只能输入一个值C、InputBox函数的返回值是数值型的D、要保存InputBox函数的返回值必须赋予一个变量9、SelectCase语句中的“表达式列表”不能是_。（1分）A、变量名的列表，例如Casex,y,zB、值的列表，例如Casea,b,cC、To表达式，例如Case1to10D、Is关系表达式，例如CaseIs=bAndbl0B、(ab)Or(b2)C、(a0)D、(5a)And(b2)12、能够通过标准工具栏打开的窗口是_。（1分）A、代码窗口B、设计器窗口C、属性窗口D、立即窗口13、下面四个语句中，正确的赋值语句是_。（1分）A、a=a+cB、a+c=aC、c+a=aD、ac=a14、处于设计状态时，在窗体上双击鼠标，则系统在代码窗口显示的事件过程模板是_。（1分）A、LoadB、ClickC、DblClickD、MouseDown15、不属于一个工程文件（*.vbp）里的文件是_。（1分）A、*.txt文件B、*.bas文件C、*.cls文件D、*.frm文件16、如果在图片框Picture1中装入一个图形，为了清除该图形（不删除图片框），应采用的方法是_。（1分）A、选择图片框，在属性窗口中选择Picture属性条，然后按回车键B、选择图片框，然后按Del键C、执行语句Picture1.Picture=LoadPicture()D、执行语句Picture1.Picture=17、表达式4+56*7/8Mod9的值是_。（1分）A、4B、5C、6D、718、在设计工作状态，当双击窗体上任何一个控件时，打开的窗口是_。（1分）A、窗体布局窗口B、窗体设计窗口C、属性窗口D、代码窗口19、表示年龄(age)在20岁和30岁之间的表达式是_。（1分）A、age=20Andage=200rage=30C、age=30D、age=3020、保存一个VisualBasic应用程序，正确的是_。（1分）A、只保存工程文件(.vbp)B、只保存窗体文件（.frm）C、只保存标准模块文件（.bas）D、分别保存窗体文件和工程文件21、在程序运行模式能够_。（1分）A、中断程序B、添加程序C、输入程序D、编辑程序22、程序如下：k=0:DoUntilk10:k=k+1:Loop的循环体执行次数是_。（1分）A、9B、10C、11D、无数次23、有一个命令：Text1=欢迎您！，表达方式中省略了对象的_。（1分）A、方法B、属性名C、对象名D、标题24、要求在程序运行时，一旦点击文本框使之获取焦点，就自动选中文本框内的所有文本，则需要编写事件过程_。（1分）A、Text1_Change() B、Text1_GotFocus()C、Text1_KeyPress(KeyAsciiAsInteger)D、Text1_SetFocus()25、运行程序：x=2:Fori=1To10Step-2:x=x+i:Next，x的值是_。（1分）A、2B、26C、27D、3826、变量未赋值时，数值型变量的值为_。（1分）A、OB、空串C、NullD、没任何值27、设有变量声明：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)28、方法Print等级;考试，输出的结果是_。（1分）A、等级考试B、等级;考试C、等级考试D、等级;考试29、如果将布尔常量值True赋给一个整型变量，则整型变量的值为_。（1分）A、OB、-1C、TrueD、False30、程序段a=10.5:b=Int(a+0.5):Printb的功能是_。（1分）A、输出平均值B、将一个实数四舍五入取整并输出C、输出绝对值D、舍去一个实数的小数部分并输出31、Single（单精度）型数据占_个字节。（1分）A、2B、4C、8D、1032、变量未赋值时，字符串变量的值为_。（1分）A、OB、空串C、NullD、没任何值33、下面关系运算中，输出结果为“True”的是_。（1分）A、1+2=12B、1+2=3C、1&2=12D、1&2=334、语句X=X+1的正确含义是_。（1分）A、变量X的值与X+1的值相等B、将变量X的值存到X+1中去C、将变量X的值加1后赋给变量XD、变量X的值为135、用户自定义数据类型时，其成员不能是_。（1分）A、定长字符串和数组B、变长字符串和数组C、货币型和日期型D、变长字符串和货币型36、InStr(VisualBasic程序设计简明教程中关于可视化界面的设计,设计)的函数值为_。（1分）A、15B、17C、30D、4737、下列符号常量的声明中，_是不合法的。（1分）A、ConstaAsSingle=1.1B、ConstaAsInteger=12C、ConstaAsDouble=Sin(1)D、Consta=OK38、PrintFormat(32556,#);Format(32556,#)的输出结果是_。（1分）A、3255632556B、3255632556C、32556-325D、-3255632539、m、n是整数，且nm，在以下4个语句中，能将x赋值为一个mn之间（含m,n）的任意整数，即满足mxn的是_。（1分）A、x=Int(Rnd*n)+mB、x=Int(Rnd*(nm+1)+mC、x=Int(Rnd*m)+nD、x=Int(Rnd*(n-m)+m40、在VB中，以10为底的x的常用对数表达式是_。（1分）A、Log(X)B、Log10(X)C、Log(X)/Log(e)D、Log(X)/Log(10)41、程序段Print-15;:Print-16，输出的结果是_。（1分）A、-15-16B、-31C、-15-16D、出错42、下面表达式中，_的运算结果与其他3个不同。（1分）A、Log(Exp(-3.5)B、Int(-3.5)+0.5C、-Abs(-3.5)D、Sin(30*3.14/180)43、假设变量iVar是一个整型变量，则执行赋值语句iVar=2+3之后，变量iVar的值是_。（1分）A、2B、3C、5D、2344、执行语句：PrintFormat(32548.5,000,000.00)，输出结果是_。（1分）A、32548.5B、32,548.5C、032,548.50D、32,548.5045、下列符号中，属于VisualBasic合法变量名的是_。（1分）A、x23B、8xyC、ENDD、X8B46、执行程序段：m$=ABC:n$=abc:k$=LCase$(m$):j$=UCase$(n$):PrintAsc(k$+j$)，输出的结果是_。（1分）A、abcabcB、ABCABCC、65D、9747、表达式25.28Mod6.99的值是_。（1分）A、1B、4C、5D、出错48、执行x=-62:PrintSgn(x)+Abs(x)+Int(x)的结果是_。（1分）A、-36B、1C、-1D、-3249、InputBox函数返回值的类型为_。（1分）A、数值B、字符串C、变体D、数值或字符串50、下列不合法的常量形式是_。（1分）A、1O0B、100.0C、1OE+0.5D、ConstG=23+12二、填空题（7道小题，共30分）1、*求7!(7!=1*2*3.*6*7)的值。PrivateSubCommand1_Click()DimaAsSinglea=1Fori=1To7a=a*iNextiPrintaEndSub（4分）2、*对10个100以内的整数用冒泡法按递减顺序排序。PrivateSubCommand1_Click()Dima(10)AsInteger,tAsIntegerDimiAsInteger,jAsIntegerFori=1To10a(i)=Int(Rnd*101)Printa(i);Nexti:PrintFori=1To9Forj=1To10-iIfa(j)a(j+1)Thent=a(j):a(j)=a(j+1):a(j+1)=tNextjNextiFori=1To10Printa(i);Nexti:PrintEndSub（4分）3、*删除已知数组a中的某个元素。PrivateSubCommand1_Click()Dima()AsVariant,nAsInteger,KeyAsIntegera=Array(1,6,8,3,5,9,10,2,7,4)n=UBound(a)Key=InputBox(请输入要删除的数)Fori=0TonIfKey=a(i)ThenExitForNextiIfi=n+1ThenMsgBox(找不到此数):ExitSubForj=i+1Tona(j-1)=a(j)Nextjn=n-1ReDimPreservea(n)Fori=0TonPrinta(i);Nexti:PrintEndSub（4分）4、*三个学生的四门课（政治、数学、英语、计算机）成绩（均在70分以上）随即生成存放在二维数组R（3，4）中，计算每个学生的平均成绩（存放在数组S中）和最高平均成绩。PrivateSubForm_Click()DimR(1To3,1To4)AsIntegerDimS(1To3)AsIntegerDimi%,j%,max%,k%k为最高成绩学生序号Fori=1To3S(i)=0Forj=1To4R(i,j)=Int(30*Rnd+70)PrintTab(j-1)*5);R(i,j);S(i)=S(i)+R(i,j)NextjS(i)=S(i)/4PrintNextimax=0Fori=1To3Print学生&i;平均成绩:&S(i)IfmaxS(i)Thenmax=S(i)k=iEndIfNextiPrint最高平均成绩k=;k,max=;maxEndSub（4分）5、*利用判断一个三位数是否为对称数（如：343）的函数过程，求出所有三位对称数之和。*程序代码如下：PrivateSubCommand1_Click()DimsumAsLong,nAsIntegersum=0Forn=100To999Ifduicheng(n)thensum=sum+nNextnEndSubPublicFunctionduicheng(ByVali%)AsBooleana=iMod10c=i100Ifa=cThenduicheng=trueElseduicheng=FalseEndIfEndFunction（4分）6、*用子过程输出Fibonacci（斐波那契）数列（0、1、1、2、3、5、8.）的前20项及前20项的和。*程序代码如下：PrivateSubCommand1_Click()Dims&,a%,b%,c%a=0:b=1c=a+bPrintaPrintbFori=1To18fiba,b,cprintcs=s+cNextiPrintFibonacci（斐波那契）数列的前20项的和为：;sEndSubPrivateSubfib(a,b,c)c=a+ba=bb=cEndSub（4分）7、*编写一个显示随机数的程序，如图所示。*运行过程：*点击训练开始按钮之后，每隔一秒产生一个5位数的随机整数显示到上面的标签中。PrivateSubCommand1_Click()Timer1.Enabled=TrueTimer1.Interval=1000EndSubPrivateSubForm_Load()Label1.ForeColor=vbWhiteLabel1.Back