VB程序设计试题及答案一

VB程序设计试题及答案(一)一、单选题VB6.0是一种面向B的编程环境。(A)机器(B)对象(C)过程(D)应用要使FormI窗体的标题栏显示"欢迎使用VB"，以下D语句是正确的。Forml.Caption="欢迎使用VB”Forml.Caption='欢迎使用VB'Forml.Caption=欢迎使用VBForml.Caption="欢迎使用VB"若要使命令按钮不可操作，要对A属性进行设置。EnabIed(B)Visible(C)Backcolor(D)Caption如果在窗体上已经创建了一个文本框对象TextI，可以通过C事件获得输入键值的ASCII码。Change(B)LostFocus(C)KeyPress(D)GotFocus下面A是合法的变量名。X_yz(B)123ab。(C)integer(D)X-Y以下关系表达式中，其值为False的是A。"ABC">"AbC"(B)"女">"男"(C)"BASIC"=UCase("basic)(D)"123"<"23"为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A。x=1:y=1:z=1(B)x=1,y=1,z=1x=y=z=1(D)xyz=1VB提供了结构化程序设计的三种基本结构，三种基本结构是D。递归结构、选择结构、循环结构选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构选择结构、循环结构、顺序结构下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是D。Ifsex="男"Andage=4OAndInStr(duty，"教授")>OThenn=n+lIfsex="男"Andage=4OAnd(duty="教授"Orduty="副教授")Thenn=n+lIfsex="男"Andage=4OAndRight(duty，2)="教授"Thenn=n+lIfsex="男"Andage=4OAndduty="教授"Andduty="副教授"Thenn=n+l下列关于Do-Loop循环结构执行循环次数的描述正确的是D。(A)DoWhile-Loop循环和Do-LoopUntil循环至少都执行一次DoWhile—Loop循环和Do-LoopUntil循环可能都不执行DoWhile—Loop循环至少执行一次和Do—LoopUntil循环可能不执行DoWhile—Loop循环可能不执行和Do—LoopUntil循环至少执行一次以下B是正确的For—Next结构。Forx=1ToStep10(B)Forx=3To-3Step-3NextxNextxForx=1To10(D)Forx=3to10step3re: NextxNextyIfi=10ThenGoTOre如下数组声明语句，B是正确的。Dima[3,4]AsIntegerDima(3,4)AsIntegerDima(n,n)AsIntegerDima(34)AsInteger下列语句中(假定变量n有值)，能正确声明可变长数组的是A。(A)Dima()AsInteger(B)Dima()AsIntegerReDima(n)ReDima(n)AsStringDima()AsInteger(D)Dima(10)AsIntegerReDima(3,4)ReDima(n+10)ReDimPreservea(4,4)要想从子过程调用后返回两个结果，下面子过程语句说明合法的是C。(A)Subf2(ByValn%,ByValm%)(B)Subf1(n%,ByValm%)(C)Subf1(n%,m%)(D)Subf1(ByValn%,m%)设有如下程序段：PublicSubF1(n%)…n=3*n+4…EndSubPrivateSubCommand1_Click()Dimn%,m%n=3m=4…‘调用F1语句…EndSub则在Command1_Click事件中有效的调用语句是B。(A)CallF1(n+m)(B)CallF1(m)(C)CallF1(5)(D)CallF1(m+5)用来设置粗体字的属性是C。(A)FontItalic(B)FontName(C)FontBold(D)FontSize假定定时器的Interval属性为1000，Enabled属性为True，调用下面的事件过程，程序运行结束后变量x的值为D。DimxAsIntegerSubTimer1_Timer()Fori=1to10x=x+1NextiEndSub(A)1000(B)10000(C)10(D)以上都不对在下列关于通用对话框的叙述中，错误的是B。CommonDialog1.ShowFont显示“字体”对话框在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回在“打开”或“另存为”对话框中，用户选择的文件名机器路径可以经FileName属性返回(D)当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown事件，这三个事件发生的顺序是C。KeyPress、KeyDown、KeyUpKeyDown、KeyUp、KeyPressKeyDown、KeyPress、KeyUp没有规律在下面关于顺序文件的描述中，正确的是C。顺序文件中每行的长度都是相同的。可以通过编程对文件中的某行方便地进行修改数据以ASCII码的形式存放在文件中，所以可通过记事本打开文件的组织结构复杂随机文件是因为C。文件中的内容是通过随机数产生的文件中的记录号通过随机数产生的可对文件中的记录根据记录号随机地读/写文件的每条记录的长度是随机的从磁盘上读入一个文件名为“c:\t1.txt”顺序文件，如下A正确。F="c:\t1.txt”OpenFForInputAs#1F="c:\t1.txt”Open“F”ForInputAs#2Open“c:\t1.txt”ForInputAs#1Openc:\t1.txtForInputAs#2坐标度量单位可由通过来D改变。(A)Drawstyle属性(B)DrawWidth属性(C)Scale方法(D)ScaleMode属性指令“Circle(1000,1000),500,8,-6,-3”将绘制A。(A)画圆(B)椭圆(C)圆弧(D)扇形用ADO数据控件建立与数据源的链接，设置操作过程按A顺序进行。①选择数据源连接方式；②选择数据库类型；③指定数据库文件名；④指定记录源(A)①②③④(B)②③④①(C)③①②④(D)①③②④二、填空题VB是建立在BASIC语言基础上的可见化编程语言或编程环境。在窗体上已建立多个控件如Text1、Label1、Command1，若要程序一运行时焦点就定位在Command1控件上，应对Command1控件设置TabIndex属性的值为0。在VB中，1234、123456&、1.2346E+5、1.2346D+5这4个常数分别表示整形、长整形、单精度、双精度类型。表示x是5的倍数或是9的倍数的逻辑表达式为xmod5=0orxmod9=0。数组声明时下标下界默认为0,利用OpationBase1语句可以使下标为1。传地址方式是当过程被调用时，形参和实参共享存储单元。窗体中的模块级变量应在窗口模块段声明，它作用于该窗体的全局范围。当用户单击滚动条的空白处时，滑块移动的增量值由LargeChange属性决定。如果菜单标题的某个字母前输入一个“&”符号，那么该字母就成了热键字母；如果建立菜单时在标题文本框中输入一个“-(减号)”符号，那么显示时形成一个分隔符。使用Scale方法可以自定义坐标系。使用Line方法画矩形，不许在指令中使用关键字B。使用SQL语句设置ADO控件的RecordSource属性，这CommandType属性需要设置成1(adCmdText)或者(adCmdUnknown)。13.为了显示一个窗体，所使用的方法为 show；而为了隐藏一个窗体，所使用的方法为__Hide。如果要将某个命令按钮不显示，则可将Visible属性设置为False在VB中窗体文件的扩展名为.FRM。三、编程应用题1.程序阅读，写出下列程序的运行结果。(1)PrivateSubCommand1_Click()Dima,i%,min%,imin%,sum%,t%a=Array(26,43,61,87,33,19,37,59,76,69)min=a(0):imin=0:sum=a(0)Fori=1toUBound(a)sum=sum+a(i)Ifa(i)<minThenmin=a(i):imin=iNextit=a(0):a(0)=a(imin):a(imin)=tPrintsum;a(0)EndSub输出结果：51019(2)PrivateSubCommand1_Click()DimchasString*1ch="8"IfUCase(ch)>="A"AndUCase<="Z"Thenform1.Printch;”是字母字符”Elselfch>="0"Andch<="9"Thenform1.Printch;”是数字字符”Elseform1.Printch;”是其他字符”EndIfEndSub输出结果：是数字字符⑶PublicSubProc(a%())Statici%Doa(i)=a(i)+a(i+1)i=i+1LoopWhilei<2EndSubPrivateSubCommand1_Click()Dimm%,n%,x%(10)Fori=0to4:x(i)=i+1:NextiFori=1to2:CallProc(x):NextiFori=0to4:Printx(i);:NextiEndSub输出结果：35745补充程序⑴如下是账号和密码输入的检验程序，运行界面如下图1所示。输入帐号和密码后，单击“检验密码”按钮，如果密码正确则程序结束，假定密码为“S001”；如果密码不正确，则弹出如下图2所示对话框，单击“取消”则程序结束，单击“重试”则返回图1窗体，且密码文本框Text2内容被清空，等待再次输入。补充完整如下程序。图1图2PrivateSubCommand1_Click()DimiAsIntegerIftext2.text<>s001Theni=MsgBox("密码错误",5+vbExclamation,"警告")Ifi<>4ThenEndElseEndText2.SetFocusEndIfEndIfEndSub(2)以下是求最大公