VB期末习题.docx
- 文档编号:7743165
- 上传时间:2023-01-26
- 格式:DOCX
- 页数:20
- 大小:56.08KB
VB期末习题.docx
《VB期末习题.docx》由会员分享,可在线阅读,更多相关《VB期末习题.docx(20页珍藏版)》请在冰豆网上搜索。
VB期末习题
一、选择题(每题1分共20分)
1、VisualBasic是一种面向对象的程序设计语言,构成对象的三要素是
(1)。
A.属性、事件、方法B.控件、属性、事件
C.窗体、控件、过程D.窗体、控件、模块
2、用下面语句定义的数组的元素个数是
(2)。
DimA(-3To5)AsInteger
A.6B.7C.8D.9
3、以下合法的VisualBasic标识符是(3)。
A.a#xB.ConstC.9abcD.ForLoop
4、如果在设计时在属性窗口将命令按钮的___(4)___属性设置为False,则运行时按钮从窗体上消失。
A.VisibleB.EnabledC.DisabledPictureD.Default
5、执行如下语句:
a=InputBox("Today","Tomorrow","Yesterday")
将显示一个输入对话框,在对话框的输入区中显示的信息是:
(5)。
A.TodayB.TomorrowC.YesterdayD.Daybeforeyesterday
6、代数表达式
对应的VisualBasic表达式是__(6)___。
A.Sqr((x+log(x))/(a+b))+exp(-2*t)+cos((x+y)/2)
B.Sqr(x+log(x))/(a+b)+exp(-2*t)+cos((x+y)/2)
C.Sqr((x+ln(x))/(a+b))+exp(-2t)+cos((x+y)/2)
D.Sqr((x+log(x))/(a+b))+exp(-2*t)+cos(x+y/2)
7、下列语句代码中,(7)不可以正常执行。
A.Print“14”+32B.Print256/128
C.Print5+7=14D.Print188*321+1.1
8、骰子是一个正六面体,用1~6这六个数分别代表这六面,掷一次骰子出现的数可表示为:
(8)。
A.Int(Rnd(6)+1)B.Int(Rnd*6+1)
C.Int(Rnd*6)D.Int(Rnd*7)
9、下列程序中a、b、c、d为string型,此程序执行结果为(9)。
PrivateSubCommand1_Click()
a="abcde":
b="cdefg"
c=Right(a,3):
d=Mid(b,2,3)
Ifc y=c+d Else y=d+c EndIf Printy EndSub A.abcdefB.cdebcdC.cdeefgD.cdedef 10、在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() Forn=1To20 IfnMod3<>0Thenm=m+n\3 Nextn Printn EndSub 程序运行后,如果单击命令按钮,则窗体上显示的内容是(10)。 A.15B.18C.21D.24 11、设a=6,则执行x=IIf(a>5,-1,0)后,x的值为(11)。 A.5B.6C.0D.-1 12、以下能判断是否到达文件尾的函数是(12)。 A.BOFB.LOCC.LOFD.EOF 13、可以同时删除字符串前导和尾部空白的函数是(13)。 A.LtrimB.RtrimC.TrimD.Mid 14、有如下程序,运行后输出的结果是(14)。 PrivateSubForm_Click() a$="12" b$="34" c$=a+b d=Val(c) Printd\10 EndSub A.12B.123C.46D.34 15、在过程中定义的变量,如果希望在离开该过程后,还能保存过程中局部变量的值,则应该使用__(15)___关键字在过程中定义局部变量. A.DimB.PrivateC.PublicD.Static 16、在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() x=InputBox(“Input”) SelectCasex Case1,3 Print“分支1” CaseIs>4 Print“分支2” CaseElse Print“Else分支” EndSelect EndSub 程序运行后,如果在输入对话框中输入2,则窗体上显示的是(16)。 A.分支1B.分支2C.程序出错D.Else分支 17、在窗体上画一个文本框(其中Name属性为Text1),然后编写如下事件过程: PrivateSubForm_click() Ttext1.Text="" Text1.SetFocus Fori=1To10 Sum=Sum+i Nexti Text1.Text=Sum EndSub 上述程序的运行结果是(17)。 A.在文本框Text1中输出55 B.在文本框Text1中输出0 C.出错 D.在文本框Text1中输出不定值 18、针对语句IfI=1ThenJ=1,下列说法正确的是(18)。 A.I=1和J=1均为赋值语句 B.I=1和J=1均为关系表达式 C.I=1为关系表达式,J=1为赋值语句 D.I=1为赋值语句,J=1为关系表达 19、执行以下程序段后,变量c$的值为(19) a$=“VisualBasicPrograming” b$=“Quick” c$=b$&UCase(Mid$(a$,7,6))&Right$(a$,11) A.VisualBASICProgramingB.QuickBasicPrograming C.QUICKBasicProgramingD.QuickBASICPrograming 20、阅读下面的程序段: Fori=1To3 Forj=1Toi Fork=jTo3 a=a+1 Nextk Nextj Nexti 执行上面的三重循环后,a的值为(20)。 A.3B.9C.14D.21 二、填空题(每空1分共25分) 1、在VB中标签和文本框控件有不同用途。 一般情况下,如果仅需要让应用程序在窗体中显示文本信息,可使用 (1)控件; 2、下面程序的功能是当窗体装入弹出消息框显示“欢迎你”3个字。 请将下列程序补充完整。 PrivateSub (2)() (3)"欢迎你" EndSub 3、在文本框Text1中输入数字35,Text2中输入数字48,执行以下赋值语句后,可使文本框Text3中显示____(4)____。 Text3.Text=Val(Text1.Text)+Text2.Text 4、运行下面的程序,单击窗体后在窗体上显示的结果是____(5)____。 PrivateSubForm_Click() DimiAsInteger Fori=1To10Step2 Printi; Nexti EndSub 5、有如下程序 PrivateSubForm_Click() Forj=1To15 A=A+jMod3 Nextj PrintA EndSub 运行后输出的结果是(6)。 6、运行下面程序,单击窗体时,窗体上显示的内容第一行是(7),第二行是(8)。 OptionBase1 Dima()AsInteger PrivateSubForm_Click() DimiAsInteger,jAsInteger ReDima(3,3) Fori=1To3 Forj=1To3 a(j,i)=i*10+j Nextj Nexti Printa(3,1);a(3,3) ReDimPreservea(3,4) Printa(2,2);a(3,4) EndSub 7、设有如下程序 PrivateSubForm_Click() DimaAsInteger,bAsInteger a=20: b=50 Callp1(a,b) Print"a=";a,"b=";b EndSub Subp1(xAsInteger,byvalyAsInteger) x=x*10 y=y+20 EndSub 该程序运行后,单击窗体,则在窗体上显示的内容是: a=(9)和 b=(10)。 8、以下程序的功能是: 判断输入数据是否是自守数。 自守数是指这个数平方运算后尾数等于该数自身的自然数。 例如,25*25=625,76*76=5776。 要求: 如果是自守数,请把自守数放到列表框中,否则弹出对话框,提示其不是自守数。 PrivateSubCommand1_Click() Dimnum&,sfAsBoolean num=Val(Text1.Text) sf=judge(num) IfsfThen (11) Else MsgBoxnum&"不是自守数" EndIf EndSub PrivateFunctionjudge(numAsLong)AsBoolean Dimm&,n% m=num*num n=(12) IfRight(CStr(m),n)=CStr(num)Then judge=True Else judge=False EndIf EndFunction 9、设有如下程序,其功能是_____(13)_______。 程序运行后,单击窗体,输出结果为_____(14)_______。 PrivateSubForm_Click() DimnAsInteger,sAsInteger n=8 s=0 Do s=s+n n=n–1 LoopWhilen>0 Prints EndSub 10、单击窗体运行下面的程序,第2行显示结果是(15)。 PrivateSubForm_Click() DimChAsString,iAsInteger Ch="CDE" Fori=1ToLen(Ch) Ch=Mid(Ch,2*i-1,1)&Left(Ch,Len(Ch)) PrintCh Nexti EndSub 11、数组a(4,5)已经生成,以下程序功能是求数组元素的列和,完整此程序。 OptionBase1 Dima(4,5)AsInteger PrivateSubCommand2_Click() DimrowAsInteger,colAsInteger,sumAsInteger,sAsString Forcol=1To5 ____(16)____ Forrow=1To4 sum=sum+a(row,col) Nextrow ____(17)____ Nextcol Text2.Text=s EndSub 12、下面程序的功能是: 求2--100之间的全部素数 PrivateSubForm_Click() DimxAsInteger,iAsInteger Forx=2To100 Fori=2To(18) IfxModi=0ThenExitfor Nexti If(19)ThenPrintx Nextx EndSub 13、以下是实现二分查找算法的程序,完整此程序。 OptionBase1 PrivateSubCommand2_Click() DimLowAsInteger,HightAsInteger,MidAsInteger,flgAsBoolean DimFindAsInteger,IAsInteger,searchAsVariant search=Array(12,17,23,28,30,39,41,46,57,61,78,83,85,89,93) ForI=1ToUBound(search) Text1=Text1&Str(search(I)) NextI Find=InputBox("输入要查找的数") Low=1 Hight=UBound(search) flg=False DoWhile(20) Mid=(Low+Hight)/2 If(21)Then flg=True ExitDo ElseIfFind>search(Mid)Then Low=Mid+1 Else Hight=(22) EndIf Loop IfflgThen Text2="要查找的数"&Str(Find)&"在search("&Str(Mid)&")中" Else Text2=Str(Find)&"不在数组中" EndIf EndSub 14、下列程序的功能是: 求出1000之内的所有完数。 所谓完数是指一个数恰好等于它的因子之和,如: 6的因子为1、2、3,而6=1+2+3,因而6就是完数。 OptionExplicit PrivateSubCommand1_Click() DimNAsInteger,IAsInteger,SAsString,SumAsInteger N=2 DoWhileN<1000 ____(23)____ S=Str(N)+"=" ForI=1ToN\2 IfNModI=0Then Sum=Sum+I S=___(24)_____ EndIf NextI IfN=SumThen S=Left(S,Len(S)-1) Picture1.PrintS EndIf ____(25)____ Loop EndSub PrivateSubCommand2_Click() End EndSub 1、可被一个对象所识别的动作称为 (1) A.方法B.事件C.属性D.过程 2、在VB中,在用Dim语句说明一个逻辑型变量后,VB会自动将赋予一个初始值为 (2)。 A.NULLB.TrueC.FalseD.0 3、设窗体上有一个文本框,Text1,要求只能显示信息,不能输入,需要使用以下 (3)语句。 A.Text1.MaxLength=0B.Text1.Visible=False C.Text1.Enabled=FalseD.Text1.Width=0 4、为了把焦点移到某个指定的控件,所使用的方法是(4)。 A.SetFocusB.VisibleC.RefreshD.GetFocus 5、设执行以下程序段时依次输入1,3,5,执行结果为(5)。 PrivateSubCommand1_Click() Dima(4)AsInteger,b(4)AsInteger ForK=0To2 a(K+1)=Val(InputBox("请输入数据: ")) b(3-K)=a(K+1) NextK Printb(K) EndSub A.1B.3C.5D.0 6、可以产生30~50(含30和50)之间的随机整数的表达式是(6)。 A.Int(rnd*21+30)B.Int(rnd*20+30) C.Int(rnd*50-rnd*30)D.Int(rnd*30+50) 7、对动态数组B(),若原数组为B(6),要改变数组为B(10)时,为保证其数组内的数据不丢失,应使用(7)语句进行定义。 A.DimStaticB(10)B.ReDimB(10) C.DimB(6to10)D.ReDimPreserveB(10) 8、数学表达式ln(exy)+|arctant(z)|+cos3x)对应的VisualBasic算术表达式是(8)。 A.Ln(E^(xy)+Abs(Tan(z))+Cosx^3) B.Log(Exp(xy)+Abs(Tan(z))+Cos(x)^3) C.Ln(Exp(x*y)+Abs(Atn(z))+Cosx^3) D.Log(Exp(x*y)+Abs(Atn(z))+Cos(x)^3) 9、第一次显示某窗体时,将引发一系列事件,正确的事件系列是(9)。 A.Load、Initialize、ActivateB.Initialize、Load、Activate C.Load、Activate、InitializeD.Initialize、Activate、Load 10、下列说法不正确的是(10)。 A.事件是VisualBasic预先定义的对象能识别的动作。 B.属性是值对象的名字、大小、位置和颜色等特性 C.方法是VisualBasic提供的用来完成操作的特殊子程序。 D.最简单的VisualBasic程序只有一个工程,且工程中只含有一个窗体和一个标准模块。 11、如果在被调过程中改变了形参值,只影响副本,而不会影响实参变量本身。 这种参数传递方式为(11)传递。 A.按值B.按地址C.ByRefD.按形参 12、在文本框Text1中输入数字12,Text2中输入数字34,执行以下语句,只有(12)可使文本框Text3中显示46。 A.Text3.Text=Text1.Text&Text2.Text B.Text3.Text=Text1.Text+Text2.Text C.Text3.Text=Val(Text1.Text)+Text2.Text D.Text3.Text=Val(Text1.Text)&Val(Text2.Text) 13、在窗体上画一个命令按钮(其中Name属性为Command1),然后编写如下代码: OptionBase1 PrivateSubCommand1_Click() DimaAsVariant s=0 a=Array(1,2,3,4) j=1 Fori=4To1Step-1 s=s+a(i)*j j=j*10 Nexti Prints EndSub 运行上面的程序,单击命令按钮,其输出结果是(13)。 A.4321B.1234C.34D.12 14、某过程中已说明变量a为Integer类型,变量s为String类型,过程中的以下四组语句中,不能正常执行的是(14)。 A.S=2+3*aB.s=”118”&“.22”: a=s C.s=3*a>5D.a=2: s=16385*a 15、关于下面for......next,循环描述正确的是(15)。 Fori=0To10Step0 Print"*" Nexti A.循环结束条件不合法B.循环体执行11次 C.循环是一个无限循环D.循环体执行1次 16、在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序: PrivateSubCommand1_Click() StaticXAsInteger StaticYAsInteger Cls Y=1 Y=Y+5 X=5+X PrintX,Y EndSub 程序运行时,三次单击命令按钮Commandl后,窗体上显示的结果为(16)。 A.1516B.156C.1515D.56 17、以下定义数组或给数组元素赋值的语句中,正确的是(17)。 A.DimaAsVariantB.Dima(10)AsInteger a=Array(1,2,3,4,5)a=Array(1,2,3,4,5) C.Dima%(10)D.Dima(3),b(3)AsInteger a (1)=“ABCDE”a(0)=0 a (1)=1 a (2)=2 b=a 18、有如下程序,运行后输出的结果是(18)。 PrivateSubForm_Click() A=21.5 b=-215 m=Len(Str(A)+Str(b)) Printm EndSub A.8B.5C.7D.9 19、单击一次窗体,输出结果为(19)。 PrivateSubForm_Click() DimiAsInteger,iSumAsInteger Fori=1To4 iSum=sum(i) PrintiSum; Nexti EndSub PrivateFunctionsum(nAsInteger) StaticjAsInteger j=j+n sum=j EndFunction A.1234B.13610 C.1357D.24810 20、有如下程序 PrivateSubForm_Click() A=3 b=4 PrintA=b EndSub 运行后输出的结果是(20)。 A.TrueB.FalseC.A=bD.显示出错信息 二、填空题(每空1分共25分) 1、设A=2,B=-2,则表达式A/2+1>B+5orB*(-2)=6的值是 (1)。 2、为了使计时器控件Timer1每隔0.5秒触发一次Timer事件,应将Timer1控件的 (2) 属性设置为(3)。 3、变量作用域包括全局、(4)、过程三个等级。 4、要使驱
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 期末 习题