VB程序设计练习题及参考答案

1VisualBasic程序设计练习题1．VisualBasic是一种面向对象的可视化程序设计语言，采取了A的编程机制。A．事件驱动B．按过程顺序执行C．从主程序开始执行D．按模块顺序执行2．在VisualBasic中最基本的对象是C，它是应用程序的基石，是其他控件的容器。A．文本框B．命令按钮C．窗体D．标签3．多窗体程序是由多个窗体组成。在缺省情况下，VB在应用程序执行时，总是把B指定为启动窗体。A．不包含任何控件的窗体B．设计时的第一个窗体C．包含控件最多的D．命名为Frm1的窗体4．若有程序代码如下：text1.text=VisualBasic则：text1，text和VisualBasic分别代表C。A．对象，值，属性B．对象，方法，属性C．对象，属性，值D．属性，对象，值5．VisualBasic是一种面向对象的程序设计语言，A不是面向对象系统所包含的三要素。A．变量B．事件C．属性D．方法6．在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是C。A．窗体布局窗口B．立即窗口C．代码窗口D．监视窗口7．保存新建的工程时，默认存放的位置是B。A．MyDocumentsB．VB98C．\D．Windows8．若要使标签控件显示时不覆盖其背景内容，要对D属性进行设置。A．BackColorB．BorderStyleC．ForeColorD．BackStyle9．若要使命令按钮不可操作，要对A属性设置。A．EnabledB．VisibleC．BackColorD．Caption10．文本框没有D属性。A．EnabledB．VisibleC．BackColorD．Caption11．不论何控件，共同具有的是B属性。A．TextB．NameC．ForeColorD．Caption12．要使Form1窗体的标题栏显示“欢迎使用VB”，以下D语句是正确的。A．Form1.Caption=“欢迎使用VB”B．Form1.Caption='欢迎使用VB'C．Form1.Caption=欢迎使用VBD．Form1.Caption=欢迎使用VB13．要使某控件在运行时不可显示，应对B属性进行设置。A．EnabledB．VisibleC．BackColorD．Caption14．当运行程序时，系统自动执行启动窗体的A事件过程。A．LoadB．ClickC．UnloadD．GotFocus215．当文本框的ScrollBars属性设置了非零值，却没有效果，原因是B。A．文本框中没有内容B．文本框的MultiLine属性为FalseC．文本框的MultiLine属性为TrueD．文本框的Locked属性为True16．要判断在文本框是否按了Enter键，应在文本框的D事件中判断。A．ChangeB．KeyDownC．ClickD．KeyPress17．窗体Form1的Name属性是Frm1，它的单击事件过程名是C。A．Form1_ClickB．Form_ClickC．Frm1_ClickD．Me_Click18．在一行内写多条语句时，每个语句之间用符号B分隔。A．,B．:C．、D．；19．一句语句要在下一行继续写，用C符号作为续行符。A．+B．－C．_D．…20．下面A是合法的变量名。A．X_yzB．123abcC．integerD．X－Y21．下面D是不合法的整常数。A．100B．＆O100C．＆H100D．%10022．下面B是合法的字符常数。A．ABC$B．ABCC．'ABC'D．ABC23．下面A是合法的单精度型变量。A．num!B．sum%C．xinte$D．mm#24．下面D是不合法的单精度常数。A．100！B．100.0C．1E+2D．100.0D+225．表达式16/4-2^5*8/4mod5\2的值为B。A．14B．4C．20D．226．数学关系3≤x＜10表示成正确的VB表达式为B。A．3=x10B．3=xANDx10C．x=3ORx10D．3=xAND1027．\、/、MOD、*四个算术运算符中，优先级别最低的是C。A．\B．/C．MODD．*28．Rnd函数不可能为下列B值。A．0B．1C．0.1234D．0.000529．Int(198.555*100+0.5)/100的值为C。A．198B．199.6C．198.56D．20030．已知A$=12345678，则表达式Val(Left$(A$,4)+Mid$(A$,4,2))的值为B。A．123456B．123445C．8D．631．表达式的Len(123程序设计ABC)的值是A。A．10B．14C．20D．1732．表达式的LenB(123程序设计ABC)的值是C。A．10B．14C．20D．1733．下面正确的赋值语句是C。A．x+y=30B．y=π*r*rC．y=x+30D．3y=x34．为了给x，y，z三个变量赋初值1，下面正确的赋值语句是A。A．x=1:y=1:z=1B．x=1,y=1,z=1C．x=y=z=1D．xyz=135．赋值语句：a=123+MID(123456,3,2)执行后，a变量中的值是D。A．12334B．123C．12334D．157336．赋值语句：a=123&MID(123456,3,2)执行后，a变量中的值是A。A．12334B．123C．12334D．15737．把字符串“123”转换为数值123时应该使用的函数是B。A．StrB．ValC．LenD．Log38．下列各表达式能产生[1，3]随机整数的是D。A．rnd()*3+1B．rnd()*2)+1C．int(rnd()*２)+1D．int(rnd()*3)+139．代数式yx)lnxSin(302xe0x对应的VB表达式是C。A．E^X*Sin(30*3.14/180)*2*x/x+y*log(x)B．Exp(x)*Sin(30)*2*x/(x+y)*ln(x)C．Exp(X)*Sin(30*3.14/180)*2*x/(x+y)*log(x)D．Exp(X)*Sin(30*3.14/180)*2*x/(x+y)*ln(x)40．VB提供了结构化程序设计的三种基本结构，三种基本结构是D。A．递归结构、选择结构、循环结构B．选择结构、过程结构、顺序结构C．过程结构、输入、输出结构、转向结构D．选择结构、循环结构、顺序结构41．下面程序段运行后，显示的结果是A。DimxIfxThenPrintxElsePrintx+1A．1B．0C．显示出错信息D．242．语句Ifx=1Theny=1，下列说法正确的是C。A．x=1和y=1均为赋值语句B．x=1和y=1均为关系表达式C．x=1为关系表达式，y=1为赋值语句D．x=1为赋值语句，y=1为关系表达式43．用If语句表示分段函数√x+1,x=1f(x)=x2+3,x1下列不正确的程序段是A。A．Ifx=1Thenf=sqr(x+1)B．Ifx=1Thenf=sqr(x+1)f=x*x+3Ifx1Thenf=x*x+3C．Ifx=1Thenf=sqr(x+1)Elsef=x*x+3D．Ifx1Thenf=x*x+3Elsef=sqr(x+1)44．计算分段函数的值。0x010≤x1y=21≤x23x≥2下面程序段中正确的是D。A．Ifx0Theny=0B．Ifx=2Theny=3Ifx1Theny=1Ifx=1Theny=2Ifx2Theny=2Ifx0Theny=1Ifx=2Theny=3Ifx0Theny=0C．Ifx0ThenD．Ifx=2Theny=0y=3ElseIfx0ThenElseIfx=1Theny=1y=24ElseIfx1ThenElseIfx=0Theny=2y=1ElseElsey=3y=0EndIfEndIf45．下面程序段，显示的结果是A。Dimxx=Int(Rnd)+5SelectCasexCase5Print优秀Case4Print良好Case3Print通过CaseElsePrint不通过EndSelectA．优秀B．良好C．通过D．不通过46．下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是D。A．Ifsex=男Andage40AndInStr(duty,教授)0Thenn=n+1B．Ifsex=男Andage40And(duty=教授Orduty=副教授)Thenn=n+1C．Ifsex=男Andage40AndRight(duty,2)=教授Thenn=n+1D．Ifsex=男Andage40Andduty=教授Andduty=副教授Thenn=n+147．下面程序段求两个数中的大数，D不正确。A．Max=IIf(xy,x,y)B．IfxyThenMax=xElseMax=yC．Max=xD．Ify=xThenMax=yIfyxThenMax=yMax=x48．以下B是正确的For…Next结构。A．Forx=1ToStep10B．Forx=3To–3Step-3……NextxNextxC．Forx=1To10D．Forx=3To10Step3Re:……NextxNextyIfI=10ThenGotoRe49．下列循环语句能正常结束循环的是C。A．i=5B．i=1DoDoi=i+1i=i+2LoopUntili0LoopUntili=10C．i=10D．i=6DoDoi=i–1i=i-2LoopUntili0LoopUntili=1550．下面程序段的运行结果为B。Fori=3To1Step-1PrintSpc(5-i);Forj=1To2*i-1Print*;NextjPrintNextiA．*B．*****C．*****D．*************************51．哪个程序段不能分别正确显示1!、2！、3！、4！的值。A．Fori=1To4B．Fori=1To4n=1Forj=1toiForj=1Toin=1n=n*jn=n*jNextjNextjPrintnPrintnNextiNextiC．n=1D．n=1Forj=1To4j=1n=n*jDowhilej=4Printnn=n*jNextjPrintnj=j+1Loop52．如下静态数组声明语句，B正确。A．Dima[3,4]AsIntegerB．Dima(3,4)AsIntegerC．Dima(n,n)AsIntegerD．ReDima(3,4)AsInteger53．要分配存放如下方阵的数据，可使用数组声明语句C来实现（不能浪费空间）。1.12.23.34.45.56.67.78.89.9A．Dima(9)AsSingleB.Dima(3,3)AsSingleC.Dima(-1to1,-5to–3)AsSingleD.Dima(-3to–1,5to7)AsInteger54．如下数组声明语句中，数组a包含元素的个数为A。Dima(3,-2to2)A．20B．75C．60D．1355．以下程序输出的结果是。Dimaa=Array(1,2,3,4,5,6,7)Fori=LBound(a)ToUBound(a)a(i)=a(i)*a(i)Nexti6Printa(i)A．49B．0C．不确定D．程序出错56．以下程序输出的结果是D。OptionBase1PrivateSubCommand1_Click()Dima,b(3,3)a=Array(1,2,3,4,5,6,7,8,9)Fori=1To3Forj=1To3b(i,j)=a(i*j)If(j=i)ThenPrintTab(j*3);Format(b(i,j),###);NextjPrintNextiEndSubA．123B．1C.147D.1232564524646789789369957．在过程定义中用C表示形参的传值。A．VarB．ByDefC．ByValD．Value58．若