还剩19页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
《程序设计语言VB》课程习题集
一、单选题
1.VisualBasic是一种面向(D)的程序设计语言A.用户B.事件C.程序D.对象
2.在VisualBasic
6.0中规定工程文件的扩展名是(A)A.vbpB.forC.frmD.bas
3.VisualBasic
6.0中规定窗体文件的扩展名是(B)A.forB.frmC.vbpD.bas
4.如何使一个标签或按钮控件在运行时不可用(C)A.把它的Visible属性设置成FalseB.把它的Visible属性设置成TrueC.把它的Enabled属性设置成FalseD.把它的Enabled属性设置成True
5.控件的字体可在属性窗口的(A)属性中调整?A.FontB.ColorC.TextD.Caption
6.若要将某命令按钮设置为默认命令按钮则应设置为True的属性是(C)A.ValueB.CancelC.DefaultD.Enabled
7.在VB中,记录对象数据的是(C)A.方法B.事件C.属性D.语句
8.在文本框上显示文本的属性是(B)A.ValueB.TextC.PrintD.Enabled
9.InputBox函数返回值的类型为(A)A.字符串B.数值C.变体D.数值或字符串(视输入的数据而定)
10.设有语句a=InputBox请输入数值:输入示例100程序执行后若从键盘上输入数值20并按回车键则变量a的值是(A)A.字符串20B.字符串120C.默认值100D.数值
12011.下列控件中可用于接受用户输入文本,又可用于显示文本的是(B)A.Label控件B.TextBox控件C.Timer控件D.CommandButton控件
12.语句PRINT25*4的输出结果是(A)A.25*4B.100C.100D.出现错误信息
13.只能用来显示字符信息的控件是(B)A.文本框B.标签框C.图片框D.图像框
14.下列可作为VisualBasic变量名的是(D)A.A%AB.4AC.xyD.Stemp
15.下列哪个符号不能作为VB中的变量名(D)A.timeflyB.pass4C.min4maxD.R
[8]
16.在窗体内声明的变量是(B)A.局部变量B.模块变量C.公共变量D.任意变量
17.语句DimxAsInteger作用是:将x定义为(B)变量A.单精度型B.整型C.布尔型D.字符型
18.在VB中用Boolean来表示的数据类型是(C)A.长整型B.字符型C.布尔型D.单精度型
19.定义常量需要用到的关键字是(A)A.ConstB.DimC.PrivateD.Public
20.如果要处理
3.1415类数据,使用的变量类型应该是(A)A.SingleB.LongC.IntegerD.String
21.表达式2*3^2+2*8/2+3^2的值为(C)A.27B.31C.35D.
4222.数学表达式X^2+3XY对应的VB算术表达式是(C)A.X*2+3X*YB.X*X+3XYC.X*X+3*X*YD.X*X+3*XY
23.在VB语言中,求余运算符是(B)A.%B.MODC.*D./
24.判断两个逻辑关系任一满足的逻辑运算是(A)A.OrB.AndC.NotD.Ok
25.表达式4+5\6*7/8Mod9的值是(B)A.4B.5C.6D.
726.选拔身高T超过
1.7米且体重W小于60公斤的人,表示该条件的布尔表达式为(C)A.T=
1.7AndW=60B.T=
1.7OrW=60C.T
1.7AndW60D.T=
1.7OrW
6027.VB中下列逻辑表达式书写正确的是(A)A.abandacB.abcC.a≤bD.a≠
12228.设x=4y=8z=7,表达式xyAndNotyzOrzx的值是(D )A.1B.-1C.TRUED.FALSE
29.Sqr81+Fix
3.6的值是(A)A.12B.7C.8D.
930.把字符串“123”转换为数值123 时应该使用的函数是(B)A.StrB.ValC.LenD.Log
31.表达式Abs(-3)+int
3.14的值为(B)A.5B.6C.
0.14D.
6.
1432.IntRnd*100表示的是(C)范围内的一个整数A.
[0100]B.
[199]C.
[099]D.
[1100]
33.Len“Friend”的值是(A)A.6B.7C.8D.
934.Int-
3.14的值是(C)A.-3B.-
3.14C.-4D.
3.
1435.Right(“banana”4)的值是(C)A.baB.bananaC.nanaD.ban
36.表达式Mid“Hello”23的值是(C)A.“ll”B.“llo”C.“ell”D.“ello”
37.语句if 3*4=10 then a=1 else a=2 执行后,a的值为(C )A.12B.10C.1D.
238.语句Ifx=1Theny=1下列说法正确的是( C)A.x=1和y=1均为赋值语句B.x=1和y=1均为关系表达式C.x=1为关系表达式,y=1为赋值语句D.x=1为赋值语句,y=1为关系表达
39.下面程序段中,(D)不是把两个数中的大值赋给变量MaxA.Max=IIfxyxyB.IfxyThenMax=xElseMax=yC.Max=x Ify=xThenMax=yD.Ify=xThenMax=yMax=x
40.在Select判断结构中,下面的表述中不正确的是(B)A.Case1B.Casea5C.Case3To6D.Caseis
1041.由Fori=1To16Step3决定的循环结构被执行( C)次A.4B.5C.6D.
742.Dima55AsLong定义的数组元素的个数是( D)A.10B.11C.25D.
3643.用于清空数组数据的关键字是(A)A.EraseB.LboundC.UboundD.Redim
44.下列关于dowhile…loop和do…loopwhile循环执行循环体次数的描述正确的是(B)A.dowhile…loop循环和do…loopwhile循环至少都执行一次B.dowhile…loop循环可能不执行,do…loopwhile循环至少执行一次C.dowhile…loop循环至少执行一次,do…loopwhile循环可能不执行D.dowhile…loop循环和do…loopwhile循环可能都不执行
45.For-Next语句属于程序基本结构中的( B)A.顺序结构B.循环结构C.分支结构D.选择结构
46.下列关于ExitFor的说法,正确的是(D)A.它可以退出任何类型的循环B.一个循环只能有一个ExitForC.每个循环必须有ExitForD.ExitFor本身是无条件退出循环
47.在VisualBasic代码窗口中将某一条语句加以注释和说明时应在语句前加(C)A.B.:C.D.
48.为了将一个语句写在多行上所使用的行续接符是(B)A.B._C.D.
49.在一个语句内写多条语句时每个语句之间分隔符号是(C)A.B.;C.:D.
50.Function过程的定义,不必须有的是(B )A.过程的名称B.虚参C.EndFunctionD.给过程赋值
51.下列过程调用语句中,被调用的过程一定是Sub子过程的语句是( D)A.Pro1xB.PrintPro2xC.x=Pro3xD.CallPro4x
52.Sub过程与Function过程最根本的区别是(C)A.Sub过程可以用Call语句直接使用过程名调用,而Function过程不可以B.Function过程可以有形参,Sub过程不可以C.Sub过程不能返回值,而Function过程能返回值D.两种过程参数的传递方式不同
53.当拖动滚动条中的滚动块时,将触发滚动条的事件是(D)A.MoveB.SetFocusC.ScrollD.Change
54.列表项选择后得到的选中索引是指(D)A.ValueB.ListValueC.IndexD.ListIndex
55.定时器定时工作所触发的事件是(C)A.ClickB.ChangeC.TimerD.Load
56.在图片框中加载图形c:\
666.jpg的方法是(A)A.Loadpicturec:\
666.jpgB.LoadpictureC.printc:\
666.jpgD.cls
57.以下关于VB列表框的叙述中(A)是错误的A.可通过属性“Item”,返回列表框中的项目B.可通过属性“Text”,得到当前列表项中的内容C.可通过属性“ListIndex”返回当前选中的列表项的索引D.可通过属性“ListCount”返回列表框中项目的数目
58.为了把焦点移到某个指定控件,所使用的方法是(D)A.GetFocusB.VisibleC.RefreshD.SetFocus
59.为了隐藏一个窗体,所使用的方法为(C)A.LoadB.ShowC.HideD.UnLoad
60.如果窗体被遮挡,通过调用(B)方法,可以将其显示A.HideB.ShowC.UnloadD.load
61.VB窗体设计器的主要功能是(A)A.建立用户界面B.画图C.编辑文字D.编写程序代码
62.窗体的(B)方法可以清除窗体上的图形与文本A.printB.clsC.loadD.circle
63.窗体没有(B)属性A.CaptionB.TextC.PictureD.Top
64.当一个工程有多个窗体时,其中的启动窗体是(D )A.第一个添加的窗体B.最后一个添加的窗体C.启动VB时建立的窗体D.在工程属性对话框中指定的窗体
65.在设计阶段,当双击窗体上的某个控件时,所打开的窗口是(C)A.工程资源管理器窗口B.工具箱窗口C.代码窗口D.属性窗口
66.以下哪种属性或者方法可以重新定义VB坐标系?(B)A.ScaleMode属性B.Scale方法C.DrawWidth和DrawStyle属性D.BorderWidth和BorderStyle属性
67.指令Circle(2000,3000),2000,QBColor,-
3.14/2,-
3.14将绘制以下哪种图形?(C)A.圆B.椭圆C.扇形D.圆弧
68.使用Line方法时,参数B和F可以组合使用,下列组合中(D)是不允许的A.不使用B和FB.BC.B和FD.F
69.执行命令Line(200,200)-step(500,500)后,CurrentX=(C)A.200B.500C.700D.
30070.在VisualBasic中以下选项中表示单击事件的是(B)A.KeyUpB.ClickC.ActivateD.Load
71.下面不属于键盘事件的是(D)A.KeyUpB.KeyDownC.KeyPressD.Click
72.每当窗体失去焦点时会触发的事件是(D)A.ActiveB.DeactiveC.LostFocusD.Initialize
73.设在窗体上有一通用对话框控件Commonialog1,通过调用(C)语句可以建立“颜色”对话框A.Commonialog
1.ShowOpenB.Commonialog
1.Action=2C.Commonialog
1.ShowColorD.Commonialog
1.Action=
574.用语句Commonialog
1.ShowOpen建立了“打开”对话框以后,要得到用户所选择文件的路径及文件名,应使用Commonialog1的(C )A.DialogTitle属性B.FileTitles属性C.FileName属性D.InitDir属性
75.用于显示弹出式菜单的方法名是D A.ShowOpenB.ShowMenuC.ShowPopupD.PopupMenu
76.打开菜单编辑器的快捷键是(C)A.CTRL+FB.Alt+FC.CTRL+ED.Alt+E
77.下列叙述中,错误的是( A)A.顺序文件打开后,既可以读又可以写B.随机文件打开后,既可以读又可以写C.顺序文件打开后,只能读或者只能写D.顺序文件和随机文件的打开都使用Open语句
78.VB编程中顺序文件的处理将用到关键字是(C)A.FileB.SaveC.OpenD.Disk
二、填空题
179.PrivateSubCommand1_Clicka=3b=1Fori=1To3f=a+ba=bb=fNextiPrintfEndSub以上程序段运行后,f的结果为
980.设有如下通用过程PublicSubfunaAsIntegerxAsInteger Fori=1To5 x=x+ai Next EndSub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮然后编写如下事件过程:PrivateSubCommand1_Click Dimarr5AsIntegernAsInteger Fori=1To5 arri=2*i Next funarrn Text
1.Text=Strn EndSub程序运行后单击命令按钮则在文本框中显示的内容是
3081.阅读下列程序段OptionExplicitPrivateSubCommand1_ClickDimstr1AsStringDimstr2AsStringstr1=ABCDEFGMySubstr1str2Printstr2EndSubPrivateSubMySubByValaAsStringbAsStringDimcAsStringDimiAsIntegerFori=LenaTo1Step-1c=c+Midai1Nextb=cEndSub程序运行后,“print”语句的输出结果是__GFEDCBA__
82.在窗体上画一个命令按钮,然后编写如下事件过程PrivateSubCommand1_Clickx=IntRnd+6Ifx^225Theny=x^2+5x=IntRnd+4Ifx^225Theny=x^2x=IntRnd+5Ifx^2=25Theny=x^2-5PrintyEndSub程序运行后,单击命令按钮,其输出结果为_20__
83.阅读下列程序段PrivateSubCommand3_ClickPrintpl36EndSubPublicFunctionplxAsSinglenAsIntegerAsSingleIfn=0Thenpl=1ElseIfnMod2=1Thenpl=x*x+nElsepl=x*x-nEndIfEndIfEndFunction程序运行后,单击该命令按钮,屏幕上显示的结果是___3___
84.阅读下列程序段PrivateSubCommand2_ClickFori=1To3x=1Forj=1To3x=3+jFork=1To3x=x+3NextkNextjNextiPrintxEndSub运行程序后,单击命令按钮,输出结果是
1585.阅读下列程序段PrivateSubCommand1_ClickDimiAsIntegerDimkAsIntegerk=0Fori=0To10k=k+1i=i+kNextPrintk;iEndSub请问其循环体共执行了4次,i的值是
1486.PrivateSubCommand1_ClickDimiAsIntegerDimxAsIntegeri=1x=2Doi=i+1x=x+iLoopUntili=7PrintixEndSub单击命令按钮后,i和x的值分别是
7、
2987.下面程序运行后,a、b、c、d的结果分别
3、
1、
5、12 PrivateSubCommand1_ClickDimabcdAsIntegerDoFora=1To2b=b+1Ifa=1Thenb=0c=5d=d+2NextaLoopUntild10PrintabcdEndSub
88.假定有如下的Sub过程SubSxAsSingleyAsSinglet=xx=t+xy=t-yEndSubPrivateSubCommand2_ClickDimaAsSinglebAsSinglea=6b=4CallSabPrintabEndSub程序运行后,单击命令按钮输出结果为
12、
289.阅读下列程序段Dima33AsIntegerForm=1To3Forn=1To3amn=m-1*3+nNextnNextmForm=2To3Forn=1To2Printamn;NextnNextm程序运行后,显示结果为
4、
5、
7、8
三、综合设计题
90.编制程序实现在窗体上,单击按钮1,在文本框中动态显示当前时间;单击按钮2,则停止动态显示;单击按钮3,清除文本框内容提示可用定时器控制时间,用系统函数Now显示时间(如Text
1.Text=Now)
91.编制程序求出100-200之间所有可以被3整除的数的总和,将结果用消息框显示输出
92.编制程序利用输入框输入10个不同的整数,将它们从小到大排序,并打印输出
93.编制程序实现设计在一框架中包含三个复选框,只有当其13选中而2未选中时,才在Text1中显示Hello字符
94.编一程序能实现在窗体上打印出如下图所示的图形AAAAAAAAAAAAAAAABBBBBBBBBBBBBBBB
95.编一程序用于判断一正整数是否为素数(提示只能被1和本身整除的正整数称为素数为了判断一个数n是不是素数,可以将n被2到sqrn之间的所有整数除,如果都除不尽,则n就是素数,否则n是非素数)
96.选用If和Select判断结构中任意一种编写满足下列条件的计税要求的程序少于1600元,免税;1601-5000元,征2%的税;多于5000元,超过部分征5%的税
97.有a、b、c三个数,编一程序实现通过文本框给a、b赋值;再调用能完成a、b比较大小的子过程,用c将大数回传要求按值传送a、b
98.编一程序用于求所有的水仙花数所谓水仙花数是指一个3位数,其各位数字立方和等于该数本身例如153就是一水仙花数,因为153=13+53+
3399.设计一弹出式菜单,用于设置窗体的背景色,背景色包含白色、黄色、红色三种颜色
100.编写程序实现输入三角形的三条边abc的值,根据其数值判断能否构成三角形如果能,则判断三角形是否是直角三角形,若是则计算该直角三角形的面积提示判断能否构成三角形的方法是,求最长的一边,判断它的边长是否小于另外两边边长之和;或求最短的一边,判断它的边长是否大于另外两边之差
101.编写程序通过四个命令按钮Command1-Command4,在图片框Picture1内分别实现画点、画线、画圆、擦除等功能
102.编写程序实现在窗体上单击按钮1,可通过输入对话框输入两个字符串;单击按钮2,将输入的两个字符串连接为一个字符串,并计算该字符串长度,然后在消息框中显示出来
103.编一程序用三个文本框分别输入a、b、c,求一元二次方程ax2+bx+c=0的解x1和x2,只包括实根
104.编一程序利用输入对话框输入两个正整数,求最大公约数
四、简答题(略)……答案
三、综合设计题
90.PrivateSubCommand1_ClickTimer
1.Interval=5Timer
1.Enabled=TrueEndSubPrivateSubCommand2_ClickTimer
1.Enabled=FalseEndSubPrivateSubCommand3_ClickTimer
1.Enabled=FalseText
1.Text=EndSubPrivateSubTimer1_TimerText
1.Text=NowEndSub
91.PrivateSubCommand1_ClickDimisAsIntegerFori=100To200IfiMod3=0Thens=s+iNextiMsgBox100-200之间所有可以被3整除的数的总和为StrsEndSub
92.PrivateSubCommand1_ClickDima9ijmAsIntegerFori=0To9ai=ValInputBox第i+1个数NextiFori=0To9Forj=i+1To9IfaiajThenm=aiai=ajaj=mEndIfNextjNextiFori=0To9Printai;NextiEndSub
93.PrivateSubCommand1_ClickIfCheck
1.Value=1AndCheck
2.Value=1AndCheck
3.Value=0ThenText
1.Text=HelloEndIfEndSub
94.PrivateSubCommand1_ClickDimijAsIntegerFori=1To4Forj=1To2*i-1PrintA;NextjPrintNextiFori=4To1Step-1Forj=2*i-1To1Step-1PrintB;NextjPrintNextiEndSub
95.PrivateSubCommand4_ClickDimnkitempAsIntegern=InputBox请输入一个正整数k=IntSqrni=2temp=0DoWhilei=kAndtemp=0IfnModi=0Thentemp=1Elsei=i+1EndIfLoopIftemp=0ThenPrintn;是一个素数ElsePrintn;不是素数EndIfEndSub
96.PrivateSubCommand1_ClickDimnpAsSinglen=ValText
1.TextSelectCasenCaseIs=1600p=0Case1600To5000p=n-1600*
0.02CaseElsep=5000*
0.02+n-5000*
0.05EndSelectEndSub
97.PrivateSubc1ByValaAsSingleByValbAsSinglecIfabThenc=aElsec=bEndSubPrivateSubCommand1_ClickDimabcAsSinglea=ValText
1.Textb=ValText
2.TextCallc1abcPrintcEndSub
98.PrivateSubCommand1_ClickDimabcnAsIntegerForn=100To999a=Intn/100b=Intn-a*100/10c=n-a*100+b*10Ifn=a^3+b^3+c^3ThenPrintn;NextEndSub
99.PrivateSubForm_MouseDownButtonAsIntegerShiftAsIntegerXAsSingleYAsSingleIfButton=2ThenPopupMenuMenuAEndIfEndSubPrivateSubB_ClickIndexAsIntegerSelectCaseIndexCase1Form
1.BackColor=vbWhiteCase2Form
1.BackColor=vbYellowCaseElseForm
1.BackColor=vbRedEndSelectEndSub
100.PrivateSubCommand1_ClickDima2ijmAsIntegerFori=0To2ai=ValInputBox第i+1条边为NextiFori=0To2Forj=i+1To2IfaiajThenm=aiai=ajaj=mEndIfNextjNextiIfa0+a1a2ThenIfa0^2+a1^2=a2^2ThenPrint能构成直角三角形面积为a0*a1/2ElsePrint能构成三角形,但不是直角三角形EndIfElsePrint不能构成三角形EndIfEndSub
101.PrivateSubCommand1_ClickPicture
1.PSetPicture
1.Width/2Picture
1.Height/2EndSubPrivateSubCommand2_ClickPicture
1.Line00-Picture
1.WidthPicture
1.HeightEndSubPrivateSubCommand3_ClickPicture
1.CirclePicture
1.Width/2Picture
1.Height/2800EndSubPrivateSubCommand4_ClickPicture
1.ClsEndSub
102.DimabcAsStringPrivateSubCommand1_Clicka=InputBox请输入第一个字符串b=InputBox请输入第二个字符串EndSubPrivateSubCommand2_Clickc=a+bMsgBox连接后的字符串为c长度为LencEndSub
103.PrivateSubCommand4_Clicka=ValText
1.Textb=ValText
2.Textc=ValText
3.TextIfa=0Thenx=-c/bPrintxElset=b*b-4*a*cIft0ThenPrint无解ElseX1=-b+Sqrt/2/aX2=-b-Sqrt/2/aPrintX1X2EndIfEndIfEndSub
104.PrivateSubCommand1_Clickm=ValInputBox第一个数:n=ValInputBox第二个数IfnmThent=m:m=n:n=tEndIfr=m-nDoWhiler0IfnrThent=n:n=r:r=tEndIfm=n:n=r:r=m-nLoopPrintnEndSub
四、简答题(略)……。