VB程序设计试题及答案(一).pdf

该【VB程序设计试题及答案(一) 】是由【秋江孤影】上传分享，文档一共【6】页，该文档可以免费在线阅读，需要了解更多关于【VB程序设计试题及答案(一) 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。VB程序设计试题及答案(一)
一、单选题
。
(A)机器(B)对象
(C)过程(D)应用
"欢迎使用VB",以下D语句是正确的。
(A)=“欢迎使用VB”
(B)='欢迎使用VB'
(C)=欢迎使用VB
(D)="欢迎使用VB"
,要对A属性进行设置。
(A)EnabIed(B)Visible
(C)Backcolor(D)Caption
,可以通过C事件获得输入键值的ASCII码。
(A)Change(B)LostFocus
(C)KeyPress(D)GotFocus
。
(A)X_yz(B)123ab。(C)integer(D)X-Y
,其值为False的是A。
(A)"ABC">"AbC"(B)"女">"男"
(C)"BASIC"=UCase("basic)(D)"123"<"23"
、y、z三个变量赋初值1,下面正确的赋值语句是A。
(A)x=1:y=1:z=1(B)x=1,y=1,z=1
(C)x=y=z=1(D)xyz=1
,三种基本结构是D。
(A)递归结构、选择结构、循环结构
(B)选择结构、过程结构、顺序结构
(C)过程结构、输入输出结构、转向结构
(D)选择结构、循环结构、顺序结构
、职称为副教授以上、年龄小于40岁条件的人数,不正确的语
句是D。
(A)Ifsex="男"Andage=4OAndInStr(duty,"教授")>OThenn=n+l
(B)Ifsex="男"Andage=4OAnd(duty="教授"Orduty="副教授")Thenn=n+l
(C)Ifsex="男"Andage=4OAndRight(duty,2)="教授"Thenn=n+l
(D)Ifsex="男"Andage=4OAndduty="教授"Andduty="副教授"Thenn=n+l
…Loop循环结构执行循环次数的描述正确的是D。
(A)DoWhile…Loop循环和Do…LoopUntil循环至少都执行一次
(B)DoWhile…Loop循环和Do…LoopUntil循环可能都不执行
(C)DoWhile…Loop循环至少执行一次和Do…LoopUntil循环可能不执行
(D)DoWhile…Loop循环可能不执行和Do…LoopUntil循环至少执行一次
…Next结构。
(A)Forx=1ToStep10(B)Forx=3To-3Step-3
……
NextxNextx
(C)Forx=1To10(D)Forx=3to10step3
re:……
NextxNexty
Ifi=10ThenGoTOre
,B是正确的。
(A)Dima[3,4]AsInteger
(B)Dima(3,4)AsInteger
(C)Dima(n,n)AsInteger
(D)Dima(34)AsInteger
(假定变量n有值),能正确声明可变长数组的是A。
(A)Dima()AsInteger(B)Dima()AsInteger
ReDima(n)ReDima(n)AsString
(C)Dima()AsInteger(D)Dima(10)AsInteger
ReDima(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
…
EndSub
PrivateSubCommand1_Click()
Dimn%,m%
n=3
m=4
…
‘调用F1语句
…
EndSub
则在Command1_Click事件中有效的调用语句是B。
(A)CallF1(n+m)(B)CallF1(m)(C)CallF1(5)(D)CallF1(m+5)
。
(A)FontItalic(B)FontName(C)FontBold(D)FontSize
,Enabled属性为True,调用下面的事件过程,程序运行结
束后变量x的值为D。
DimxAsInteger
SubTimer1_Timer()
Fori=1to10
x=x+1
Nexti
EndSub
(A)1000(B)10000(C)10(D)以上都不对
,错误的是B。
(A)显示“字体”对话框
(B)在“打开”或“另存为”对话框中,用户选择的文件名可以经FileTitle属性返回
(C)在“打开”或“另存为”对话框中,用户选择的文件名机器路径可以经FileName属性返回
(D)
、KeyUp和KeyDown事件,这三个事件发生的
顺序是C。
(A)KeyPress、KeyDown、KeyUp
(B)KeyDown、KeyUp、KeyPress
(C)KeyDown、KeyPress、KeyUp
(D)没有规律
,正确的是C。
(A)顺序文件中每行的长度都是相同的。
(B)可以通过编程对文件中的某行方便地进行修改
(C)数据以ASCII码的形式存放在文件中,所以可通过记事本打开
(D)文件的组织结构复杂
。
(A)文件中的内容是通过随机数产生的
(B)文件中的记录号通过随机数产生的
(C)可对文件中的记录根据记录号随机地读/写
(D)文件的每条记录的长度是随机的
“c:\”顺序文件,如下A正确。
(A)F=“c:\”
OpenFForInputAs#1
(B)F=“c:\”
Open“F”ForInputAs#2
(C)Open“c:\”ForInputAs#1
(D)Openc:\ForInputAs#2
。
(A)Drawstyle属性(B)DrawWidth属性
(C)Scale方法(D)ScaleMode属性
“Circle(1000,1000),500,8,-6,-3”将绘制A。
(A)画圆(B)椭圆(C)圆弧(D)扇形
,设置操作过程按A顺序进行。
①选择数据源连接方式;②选择数据库类型;③指定数据库文件名;④指定记录源
(A)①②③④(B)②③④①
(C)③①②④(D)①③②④
二、填空题
。
、Label1、Command1,若要程序一运行时焦点就定位在
Command1控件上,应对Command1控件设置TabIndex属性的值为0。
,1234、123456&、+5、+5这4个常数分别表示整形、长整形、单精度、双
精度类型。
=0orxmod9=0。
,利用OpationBase1语句可以使下标为1。
,形参和实参共享存储单元。
,它作用于该窗体的全局范围。
,滑块移动的增量值由LargeChange属性决定。
“&”符号,那么该字母就成了热键字母;如果建立菜单时
在标题文本框中输入一个“-(减号)”符号,那么显示时形成一个分隔符。
。
,不许在指令中使用关键字B。
,这CommandType属性需要设置成
1(adCmdText)或者(adCmdUnknown)。
,所使用的方法为show;而为了隐藏一个窗体,所使用的方法为
__Hide_____。
,则可将___Visible________属性设置为False
。
三、编程应用题
,写出下列程序的运行结果。
(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=i
Nexti
t=a(0):a(0)=a(imin):a(imin)=t
Printsum;a(0)
EndSub
输出结果:
51019
(2)
PrivateSubCommand1_Click()
DimchasString*1
ch="8"
IfUCase(ch)>="A"AndUCase<="Z"Then
ch;"是字母字符"
ElseIfch>="0"Andch<="9"Then
ch;"是数字字符"
Else
ch;"是其他字符"
EndIf
EndSub
输出结果:
是数字字符
(3)
PublicSubProc(a%())
Statici%
Do
a(i)=a(i)+a(i+1)
i=i+1
LoopWhilei<2
EndSub
PrivateSubCommand1_Click()
Dimm%,n%,x%(10)
Fori=0to4:x(i)=i+1:Nexti
Fori=1to2:CallProc(x):Nexti
Fori=0to4:Printx(i);:Nexti
EndSub
输出结果:
35745

(1)如下是账号和密码输入的检验程序,运行界面如下图1所示。输入帐号和密码后,单击“检验
密码”按钮,如果密码正确则程序结束,假定密码为“s001”;如果密码不正确,则弹出如下图2所
示对话框,单击“取消”则程序结束,单击“重试”则返回图1窗体,且密码文本框Text2内容被清空,
等待再次输入。补充完整如下程序。
图1图2
PrivateSubCommand1_Click()
DimiAsInteger
If<>s001Then
i=MsgBox("密码错误",5+vbExclamation,"警告")
Ifi<>4Then
End
Else
End
EndIf
EndIf
EndSub
(2)以下是求最大公约数和最小公倍数的程序,使用的是辗转相除法,将程序补充完整。
PrivateSubForm_Click()
Dimm%,n%,t%
n=InputBox("输入n")
m=InputBox("输入m")
Ifm<nThen
t=m:m=n:n=t
EndIf
r=mmodn
DoWhiler<>0
m=n
n=r
r=mModn
Loop
Printm1;",";n1;"的最大公约数为";n
Print"最小公倍数=",m1*n1/n
EndSub