《vb程序设计》期末复习题及答案

1、«vb程序设计期末复习题及答案一、填空题1 .创建一个VB应用程序三个主要的步骤是、和O2 .当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的窗口中，把此文本框的属性设置成空白。3 .Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用控件；若允许用户输入文本，则应使用控件。4 .窗体的常用方法有、和。5 .要想在代码中给名为txtshow的文本框赋予文本：GOODWORK应当编写的语句是O6 .若命令按钮的名称为Cmdopen程序要求单击该命令按钮时，打开一个窗口frm1,请对以下事件过程填空。PrivateSub

2、CmdopenEndSub7 .VisualBasic6种类型的表达式是、。VisualBasic根据表达式的来确定表达式的类型。8 .表达式937Mod2A2的值是。9 .已知a=3,b=4,c=5,表达式a>bandNotc>aOrc>bAndc<a+b的值是。表达式c>aAndNotb<c的值是010 .日期表达式#2/24/02#-#2/12/02#的值为。11 .数学表达式sin2x+写成等价的VisualBasic表达式为。12 .设某个程序中要用到一个二维数组，要求数组名为A,类型为字符串类型，第一维下标从1到5,第二维下标从-2到6,则相应的

3、数组声明语句为。13 .事件就是在对象上所发生的事情，VisualBasic中的事件如、等。一个对象响应的事件可以有个，用户不能建立新的事件。事件过程是指。假设某一事件过程如下：PrivateSubcmd1_Click（）?Form1.Caption="VB示例"EndSub则响应该过程的对象名是,事件名是。14 .对象的方法用于。当方法不需要任何参数并且也没有返回值时，调用对象的方法的格式为,例如，对窗体Form1使用Show方法，应写成。15 .PictureBox控件可通过设置其属性为True使之可自动调整大小；而Image控件可通过设置其属性为True,使其加载的图

4、片能自动调整大小以适应Imageo16 .在VisualBasic程序中实现复制文件"c:”到d:盘根目录下的语句为二、单项选择题1 .下列控件中没有Caption属性的是（？?？）A、标签?B、文本框?C、框架？?？D、命令按纽2 .除框架外，能对单选按纽分组的控件是（？?？）。A、窗体？?？B、标签？?？C、图片框？?？D、图像?A、ABCDEFG?BP00000?C、89YWDDF?Dxyz4 .下列不属于VisualBasic数据文件的是（？?？）。A、顺序文件?B、随机文件？?？C、二进制文件？?？D、数据库文件5 .若要求从文本框中输入密码时在文本框中只显示*号，则应用在

5、此文本框的属性窗口中设置（？?？）。A、Text属性值为*?B、Caption属性值为*C、Password属性值为空？?？D、PasswordChar属性值为*6 .表达式2*3A2+2*8/4+3人2的值为（?）。?A、64?B、31?C、49?D、427 .表达式mid（"abcdefg”,3,2）的值是（？?？）A、abc?B、cd?C、bcd?D、abcde8 .数学表达式Sin25°写成VB表达式是（？?？）。A、Sin25?B、Sin（25）C、Sin（25°）?D、Sin（25*3.14/180）9 .Sub过程与Function过程最根本的区别是

6、（？）。A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以。B、Function过程可以有参数，Sub过程不可以。C、两种过程参数的传递方式不同。D、Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。10 .选拔身高T超过1.7米且体重W、于62.5公斤的人，表示该条件的布尔表达式为（？?？）A、T>=1.7AndW<=62.5?B、T<=1.7OrW>=62.5C、T>1.7AndW<62.5?D、T>=1.7OrW<62.5?A、列表框？?？B、图片框？?？C、窗体？?？D、计时器12

7、 .在VisualBasic中，按文件的访问方式不同，可以将文件分为（？?？）A、顺序文件、随机文件和二进制文件?B、文本文件和数据文件C、数据文件和可执行文件?D、ASCH文件和二进制文件13 .将通用对话框CommonDialog的类型设置成“颜色”对话框，可调用该对话框的（？?？）方法。A、ShowOpen?BShowSave?C、ShowColor?D、ShowFont三、指出下列句中的错误，修改或者说明原因。1 .sum和int.sum都可以作为VB的变量名。2 .变量名的长度最长可达1024个字符。3 .下列程序运行结果：3,3OptionExplicitPrivateSubCom

8、mand1_Click（）Dima,bAsIntegera=3.6b=3.6Text1.Text=aText2.Text=bEndSub4 .程序可以改变定长字符串的内容和长度。5 .Variant是一种特殊的数据类型，可以包含任何种类型的数据。6 .下列程序运行结果为True?PrivateSubCommand1_Click()a=1b=2c=3Textl.Text=c>a+bOrb-1>c-1Andc+a>aXorb<c-2EndSub7 .#12/31/1999#-#12/20/1999#的运算结果是#12/11/1999#8 .可以在窗体的通用部分声明静态变量。

9、9 .使用声明语句建立一个变量后，VisualBasic会自动对数值类型的变量赋初值0,变长的字符串被初始化为一个零长度的字符串""，定长字符串用空格填充，Variant变量被初始化为Empty,布尔型的变量被初始化为False。10 .事件过程通常由事件驱动执行，而Sub过程通过过程调用执行。11 .将焦点主动设置到指定的控件或窗体上应采用SetFocus方法。12 .当图像控件(Image)的Stretch属性为True时，Image控件能自动调整自己的尺寸与显示的图片匹配。四、读程序题，写出程序运行结果。1. PrivateSubForm_Click()?ForI=1

10、To9?Forj=1To30-3*I?Print""?Nextj?Fork=1ToI?Printk;?Nextk?Fork=I-1To1Step-1?Printk;?Nextk?Print?NextIEndSub2.OptionExplicitPrivateSubCommand1_Click()?StaticSAsInteger?DimiAsInteger?S=1?Fori=1To5?S=S*i?NextiEndSub3.?ForX=5To1Step-1?For丫=1To6-X?PrintTab(Y+5);"*"?NextY?PrintNextX4.?P

11、rivateSubForm_Activate()Print"aa"&"bb",-5*6,Not2<=3Print"aa"&"bb"-5*6;Not2<=3PrintPrint"30+60",Print30+60?"30+60"30+60EndSub5.X=1DoWhileX<=10IfXMod7=0ThenY=X+6ElseZ=XEndIfX=X+2LoopPrintX,Y,Z五、编程题1 .设计一个计算程序。该程序用户界面如图所示，由四个文

12、本框：文本框1(text1)、文本框2(text2)、文本框3(text3)、文本框4(text4),和三个按钮：命令按钮1(command)、命令按钮2(command2、命令按钮3(command4组成。程序运行后，用户单击清除按钮，则清除文本框中显示的内容。单击计算按钮，如果成绩填写不完全，则给出提示信息，否则计算三科平均成绩。单击退出按钮则退出。2 .设计程序。要求：从文本框Text1中接收输入的数据，当单击确定按钮(command)时，如果该数据满足条件：除以3余2,除以5余3,除以7余4,则输出；否则将焦点定位在文本框Text1中，选中其中的文本。3 .设计一个欢迎程序。该程序用户

13、界面如图所示。要求程序运行后，用户选中粗体复选框时，标签(Labell)中的文字(欢迎您！)的字体变成粗体，用户选中斜体复选框时，标签的字体变成斜体。若取消选中，则恢复原字体。单击结束，则退出。4 .任意输入3个数，求大小排第二的那个数，写出程序代码。?VB»期末复习参考答案一、填空题1. .创建应用程序界面？?？设置属性？?？编写代码2. 属性、text3. Label?TextBox4. Load方法？Show方法？?？Hide方法？?？Unload方法5. txtshow.text="GOODWORK"6. Click()、frm1.show7.算术表达式字

14、符串表达式关系表达式布尔表达式?日期表达式？?？对象表达式?运算符8. 19. TrueFalse10. 1211. Sin(x)A2+Sqr(xA2-yA2)/(2*x)12. DimA(1To5,-2To6)AsString13 .单击？双击？装载？多？?？响应某个事件后所执行的程序代码?cmd1?Click14 .完成某种特定的功能？?？对象名.方法名？?？Form1.Show15. AutoSize?Stretch16. FileCopy"c:","d:"二、单项选择题1.B?2.C?3.C?4.D?5.D?6.B?7.B8.D?9.D?10.C

15、?11.D?12.A?13.C三、指出下列句中的错误，修改或者说明原因。1.int.sum不正确。变量名中不能包括小数点。2.变量名的长度最长可达255个字符。3 .3.6,4因为a不是整型变量。4 .不正确。程序不可以改变字符的长度，这是VB规定。5.不完全正确。Variant是一种特殊的数据类型，除了定长字符串数据及用户定义类型外，可以包含任何种类型的数据，这是VB规定。6 .False。逻辑表达式计算结果。7 .不正确。两个日期型数据相减，其结果是一个数值型数据。8 .不正确。静态变量为局部变量，只能在过程中声明。9 .正确。10 .正确。11 .正确。12.不正确。该属性设为Ture时

16、，Image控件不能自动调整自己的尺寸与显示的图片匹配，而可以使图片自动扩展以适应控件的尺寸。四、读程序题，写出程序运行结果。1.程序运行后，单击窗体，输出结果为:11 21123211234321123454321123456543211234567654321123456787654321123456789876543212 .程序运行后，单击按钮Command1输出结果为：120。3.?*?*?*?*?*4.aabb?-30?Falseaabb-30False30+60?9030+60905.?11?13?9五、编程题1. .PrivateSubCommand1_Click()?Text

17、1.Text=""?Text2.Text=""?Text3.Text=""?Text4.Text=""EndSubPrivateSubCommand2_Click()?a=Trim(Text1.Text)?b=Trim(Text2.Text)?c=Trim(Text3.Text)?Ifa=""Orb=""Orc=""Then?MsgBox"成绩填写不完全！",vbCritical?Else?Text4.Text=(Val(a)+Val(

18、b)+Val(c)/3?EndIfEndSubPrivateSubCommand3_Click()?UnloadMeEndSub2.PrivateSubCommand1_Click()?x=Val(Text1.Text)?IfxMod3=2AndxMod5=3AndxMod7=4Then?Printx?Else?Text1.SetFocus?Text1.SelStart=0?Text1.SelLength=Len(Text1.Text)?EndIfEndSub3.PrivateSubCheck1_Click()?IfCheck1.Value=1Then?Else?EndIfEndSubPriv

19、ateSubCheck2_Click()?IfCheck2.Value=1Then?Else?EndIfEndSubPrivateSubCommand1_Click()?UnloadMeEndSub4.a=Val(InputBox("输入第一个数：")b=Val(InputBox("输入第二个数：")c=Val(InputBox("输入第三个数：")Ifa<bThent=a:a=b:b=tIfa<cThent=a:a=c:c=tIfb<cThent=b:b=c:c=tMsgBox("求大小排第二的数是：&q

20、uot;&b)?VB期末考试试题A卷一、填空题1、VB程序设计的主要特点是(1)和(2)。2、在VB中，最主要的两种对豪度(3)知(4)。3、工程是构成应用程序文件的(5)。4、方法是VB提供的一种(6),用来完成一定的操作。5、浮点类型数据包括单精度型和(7)数据。6、事件是窗体或控件对象识别的一(8)。7、可用窗体的(9)_方法在窗体中显示文字。8、复选框控件Value属性指示复选框处于(10)或禁止状态(暗淡的)中的某一种。9、在VB中，修改窗体的(11)和(12)属性值,可改变窗体的大小。10、双击工具箱中的控件图标，可在窗体的(13)出现一个尺寸为缺省值的控件。11、在Msg

21、Box函数中，如果缺省title参数，则使用(14)作为消息框的标题。12、设x=34.58,语句PrintFormat(x,“000.0”)的输出结果是(15)。13、在VB中，数值型变量的初值为(16),Varant型变量的初值为(17),布尔型变量的初值为(18)。14、设置窗体的(19)属性,可在窗体上显示图片。15、程序运行工程中，清除一MP图片框中的图片应使用语句(20)。、选择题1、菜单控件只包括一个事件，即(1),当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。A、GotFocusB、LoadC、ClickD、KeyDown2、滚动条

22、控件(如图所示)的Max属性所设置的是(2)。A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量H滚动条控件无该属性3、SQL 语句 Select * Form studentA、所有记录B 、所有字段4、以下选项中，不属于标签的属性是A、Enabled B 、Caption中的*表示(3)C 、所有表 D、都不对(4)。C 、Default D 、Font5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是(5)A、CaptionB、NameC、Text

23、D、Label6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是(6)A、CaptionB、NameC、TextD、Value7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？(7)。A、在标题项中输入&,然后打勾B、在索引项中打勾C、在有效项中打勾D、在复选项中打勾8、当执行以下过程时，在窗体上将显示(8)PrivateSubCommand1_Click()Print"VB"Print"Hello!"Print"VB"EndSubAVBHello!VBB、VBHello

24、!VBCVBD、VBHello!VBHello!VB9、语句Print"Theansweris:"20/4-2的结果为(9)。ATheansweris20/4-2B、Theansweris3CTheansweris"20/4-2"D、非法语句10、下列哪个控件是容器控件(10)。A、ImageB、PictureC、ComboBoxD、FileListBox11、若要将窗体从内存中卸载出去，其实现的方法是(11)。A.ShowB.HideC.LoadD.UnLoad12、以下选项中，不是VisualBasic控件的是(12)。A.窗体B.定时器C.单选框D

25、.命令按钮13、双击窗体中的对象后，VisualBasic将显示的窗口是(13)。A.代码窗口B.工具箱C.项目(工程)窗口D.属性窗口14、可决定窗体的左上角是否有控制菜单的属性是(14)。A.ControlBoxB.MinButtonC.MaxButtonD.BorderStyle15、设有如下语句：Strl=InputBox("输人"，""，"练习")从键盘上输人字符“示例”后，Strl的值是(15)。A.“输入"B.""C.DT.“示例”16、窗体Form1的Name属性是Frm1,它的单击事件过

26、程名是(16)?A.Form1_ClickB.Form_ClickC.Frm1_ClickD.Me_Click17、窗体向hide属性的弓义是(17)。?a.隐藏b.展现"C-D.卸载18、若要设置定时器控件的定时时间，需设置的属性是(18)。A.EnabledB.ValueC.IntervalD.Text19、能够改变复选框中背景颜色的属性是(19)。A.ValueB.FontColorC.BackColorD.Font20、窗体能响应的事件是(20)。A.ActiveFormB.LoadC.DriveD.Change、判断题(判断下列正确与否，正确的打，错误的打X。)1、三种方式

27、的组合框都允许用户输入哪些不在列表框中的选项。2、图象框中的Stretch属性为true时，其作用是图形自动调整大小以适应图象控件。3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。4、通过改变属性窗口中的Name属性，来改变窗体的标题。5、创建VB应用程序的三个主要步骤是：(1)创建应用程序界面(2)设置控件(3)编写代码。6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。7、已知P=MsgBox("Howareyou?",VbYesNo+VbQuestion,"Hello!"),变量P是Integer数据类型。

28、8、工程文件的扩展名是.vbg。9、VB允许设计和使用用户自己设计的控件。10、OptionButton控件没有DblCliek事件。11、同一条记录中的各数据具有相同的类型。12、使用Data控件可以直接显示数据库中的数据。13、ImageList是一个图像容器控件，可用作工具栏的图像库。14、当用户单击工具栏按钮时，将触发工具栏按钮的ButtonClick事件。15、在VB的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理删除(真正删除)。16、如果列表框的ListConut的属性为10,则列表框最后一项的ListIndex值为10。17、要是某个命令按钮不起作用，应将

29、该按钮的Enabeld属性设置为False。18、使用数组定义语句：DimD$(10),则数组D中各元素的值为空。19、如果在一行中输入多条语句，各语句之间用使用；分隔。20、在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法错误。四、读程序题，写出程序运行结果1、PrivateSubForm_Click()StaticSUMAsIntegerI=1DoWhileI<=10SUM=SUM+II=I+1LoopPrintSUMEndSub运行程序，第一次单击窗体：第二次单击窗体：2、PrivateSubForm_Click()Print"*"T

30、ab(6);2,Tab(15);5PrintForI=15To16PrintI;Forj=2To6Step3PrintTab(3*j);j*I;NextjPrintNextIEndSub程序运行结果：五、编程题(一)窗体中有图片框(Picture1)和计时器(Timeh)两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下脚移动，每次向左、向右移动100twip(20分之一像素)。请填空：PrivateSubForm_load()(1)=loadPicture("cball.ico”)2.Interval=200EndSubPrivateSubTim

31、er1_Timer()Staticx,yAsIntegerx=x+100y=y+100Picture1.Move(3)EndSub(二)有一个单击按钮过程，其作用是产生50个60100的随机数，统计其中被6整除余2的个数，并将这些数输出。请填空：PrivateSubCommand1_Click()DimxAsInteger,N%DimCounterAsInteger(1)TimerForN=1To50X=Rnd()*(2)If(3)=2ThenPrintxCounter=(4)(5)NextNPrintCounterEndSub«VB程序设计与应用参考答案一、填空题12345答案可视

32、化设计事件驱动编程窗体（form）控件集合题号678910答案特殊子程序双精度动作Print选中题号1112131415答案高度（Height）宽度（Width）中央工程134.6题号1617181920答案0空FalsePictureCis二、选择题1P2P345答案CABCA题号678910答案DDABB题号1112131415答案DAAAD题号1617181920答案CACCB三、判断题12345678910答案XXXVXVVVVX11121314151617181920答案VXVVXXVXXV四、程序阅读题:（一）（10分）1 、552 、110（二）、（10分）*2515307516

33、3280五、编程题（20分）1、Picture1.Picture2、 Timeh3、 x,y（二）1、Randomize2 、Rnd（）*41+603 、xMod64 、Counter+15 EndIf一、单项选择题（共10分）1 .在代码中引用一个控件时，应使用控件的（B）属性。A.CaptionB.NameC.TextD.Index2 .设变量x=4,y=-1,a=7,b=-8,下面表达式（A）的值为假”。A.x+a<=b-yB.x>0ANDy<0C.a=bORx>yD.x+y>a+bANDNOT（y<b）3 .表达式Int（Rnd*71）+10产生的随

34、机整数范围是（C）。A.（10,80）B.（10,81）C.10,80D.10,814 .函数Sgn（3.1416）的返回值是（C）。A.-1B.0C.1D.以上都不对5 .67890属于（D）类型数据。A.整型B.单精度浮点数C,货币型D.长整型6 .下列变量名中正确的是（D）。A.3sB.PrintC.SelectMyNameD.Select_17 .下列赋值语句(A)是有效的。A.sum=sum-sumB.x+2=x+2C.x+y=sumD.last=y/08 .以下的控件或方法具有输入和输出双重功能的为(B)。A.PrintB.TextboxC.OptionbuttonD.Checkb

35、ox9 .若要获得列表框中被选中的列表项的内容，可以通过访问(D)属性来实现。A.NameB.ListIndexC.ListCountD.Text10 .下列代码的运行结果为(B)。PrivateSubcommand1_click()Dimm(10)Fork=1To10m(k)=11-kNextkx=5Printm(2+m(x)EndSubA.2B.3C.4D.5二、填空题(10分)1 .写出整数n能同时被13和17整除的Basic表达nMod13=0AndnMod17=0式2 .代码窗口中有两个下拉列表框：左侧是(对象)列表框，右侧是过程列表框。,6)3 .写出在字符串"Visua

36、lBasic6.0中截取"Visual的Basic表达式LEFT("VisualBasic6.04 .函数Len("abcdef返返回值是(6)。5 .设a=2,b=5,c=-2,d=100,则a>b>=cANDa<b>=d的值为False三、将下列数学表达式转换为VB表达式。(6分)1,a2+2ab+b2:aA2+2*a*b+bA22.8exln10:8*exp(x)*log(10)3.2sin(450)cos(450):2*sin(3.1416/4)*cos(3.1416/4)6.在VB中，用户定义常量使用Const语句，声明变量使用D

37、im语句。1 .在VB6.0中，扩展名为.vbp的文件称为A。A）工程文件B）窗体文件C）类模块文件D）标准模块文件2 .在VB6.0集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口是AA）代码窗口B）窗体设计窗口C）属性窗口D）工程资源管理器窗口3 .设有变量定义语句Dima%,则变量a的数据类型是A。A）整型B）单精度类型C）双精度类型D）字符串类型4,下列表达式中，值为False的是D。A）"AB"<"abc"B）"ABC"=UCase（"abc"）C) "ABCD"

38、;<"abc"D)Mid("ABCD",3,1)=Left("ABCD",3)5 .函数InStr("ABCDEF","CD")的值是B。D) CDEFA)2B)3C)True6 .下列程序运行后，单击窗体，输出结果是C。PrivateSubForm_Click()DimaAsInteger,bAsIntegera=3b=5Printa+b;a&bEndSubA)88B)3535C)8357 .下列程序运行后，单击窗体，输出结果是B。PrivateSubForm_Click()a=

39、3:b=7a=a+b:b=a-b:a=a-bPrinta;bEndSubA)43B)73C)37D) 35 8D) 10 78 .下面程序段所表示的数学关系式是CIf(a<b)ThenIfd=cThenx=1ElseA) xC) x =1(a < bHc =d)：2(a > b)B) x =1(a < b且c = d)=D) x =2(a<b且 c#d) 1(a < b且c = d) 2(c*d)9.下列程序运行后，单击窗体，输出结果是Private Sub Form_Click()s = 0: k = 1Dos = s + k: k = k + 1Loop

40、 Until k <= 5Print sEnd SubA) 15B) 10C)1D)010 .下列程序段的输出结果是BFor k = 4 To 2 Step -2 m = kNext kPrint m; k;A) 2 2B) 2 0C) 2 1D) 0 011 .用下面的语句定义数组，则数组中的元素个数是D 个。Option Base 1Dim A(-1 To 2 , 5) As IntegerA) 5B) 10C) 15D) 2012 .下面程序段的输出结果是C。Dim a(4) As Integer, s As IntegerFor k = 1 To 4a(k) = 2 * kNex

41、t kFor k = 1 To 4 Step 2 s = s + a(k) Print s;Next kA) 8B) 20C)2 8D) 2 6 12 2013 .设有如下的用户自定义类型EndIfPrivateTypeStunameAsString*10ageAsIntegerB。B) Dim s As Stu = "zhang"D) Dim s As Type = "zhang"EndType则以下正确引用该类型成员的代码是A)S="zhang"C)DimsAsTypeS=

42、"zhang"14 .用“B”关键字声明的变量称为全局变量。D) StaticA)PrivateB)PublicC)Dim15 .在窗体上放置一个文本框，程序运行后，在文本框中输入abc,但显示的却是*,可能的原因是该文本框的D属性值已经被设置为"*"。D) PasswordCharD)名称D。D) Value中，能够删除最后A)FontB)TextC)Name16 .在VB6.0中，Print是对象的B。A)属性B)方法C)事件17 .在VB6.0中，要判断复选框是否为选中状态，使用的属性是A)CaptionB)CheckedC)Selected18

43、.设列表框List1中共有3个列表项，如右图所示。则下列语句个列表项的是A。A) List1.RemoveItem2B) List1.RemoveItem"项目C"C) List1.RemoveItemList1.ListcountD) List1.RemoveItemList1.Listindex“属性”窗口中这三D) BorderStyleValue属性所增加或减少的值，是由 DD) LargeChange19 .组合框分为下拉式组合框、简单组合框和下拉式列表框，在种类型是由A属性设置的。A)StyleB)FillStyleC)BackStyle20 .用户单击滚动条的

44、空白处(滑块与两端滚动箭头之间的区域)时，属性决定的。A)MinB)MaxC)SmallChange21 .将图片文件“b.jpg”作为背景图片，装入当前窗体，正确的语句是DA) Me.Picture=b.jpgC) Me.Picture="b.jpgB)Me.Picture=LoadPicture(b.jpg)D)Me.Picture=LoadPicture("b.jpg")22 .要将两个单选按钮放置在同一个框架内，使它们成为一组，正确的操作是A_。A)先放置一个框架，然后在框架中放置两个单选按钮B)先放置两个单选按钮，再放置一个框架，放置框架时覆盖在单选按钮

45、上C)先放置两个单选按钮，再放置一个框架，然后将两个单选按钮拖动到框架内D)以上三种方法都正确23 .计时器控件能够响应的事件是D。A)LoadB)ClickC)ChangeD)Timer24 .要使命令按钮处于无效状态，可以设置按钮的B属性值为False。A)CaptionB)EnabledC)StyleD)Visible25 .如果在一个工程中有多个窗体和模块，则VB默认的启动对象是C。A)第一个标准模块B)最后一个被添加的窗体C)设计时的第一个窗体D)最后一个被添加的标准模块26 .在窗体上放置一个图像框，名称为Image1。程序运行时，要保持图像框大小不变，使框中的图片能够自动适应图像

46、框的大小，可以执行语句B。A)Image1.AutoSize=TrueB)Image1.Stretch=TrueC)Image1.AutoSize=FalseD)Image1.Stretch=False27 .使用“菜单编辑器”建立菜单项之间的分隔线时，在菜单项的“标题”中输入的符号是2AA)减号-B)下划线_C)&D)#28 .要将窗体Forml从内存中卸载，正确的语句是D。A)Forml.ShowB)LoadFormlC)Forml.HideD)UnLoadForml29 .在窗体上单击时，会触发鼠标事件MouseDown其事件过程的一般格式如下：PrivateSubForm_Mo

47、useDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)EndSub此时，如果单击的是鼠标右键，则Button参数的值是BD) 4D) LOG()答案 sqr(3*y)/(x+y)。答案：字符串类型或 StringA)1B)2C)330 .获取文件的长度(字节数)，可以使用的函数是B。A)LEN()B)LOF()C)EOF()1 .数学表达式曲y改写为VB表达式，形式是1】。xy2 .在VB6.0中，InputBox函数返回值的数据类型是【2】3 .语句PrintTab(5);"ABC"的功能是。答案：从第5列开

48、始输出字符串“ABC4 .下面程序段的功能是：在文本框Textl中输入一个数值x,如果满足5Vx<10,那么输出“Yes”，否则输出“N。”。请填空。x=Val(Text1.Text)答案5<xAndx<10If【4】ThenPrint"Yes"ElsePrint"No"5 .设a=1,b=2,c=3,语句Printa<bOrb<cAndc<a的输出结果是【5】。答案：True6 .在窗体上放置一个标签，名称为Label1,使用语句【6】可以把标签的前景色设置为蓝色。Label1.ForeColor=vbBlue或RG

49、B(0,0,255)或QBColor(9)7 .在窗体上放置一个图像框，名称为Image1,要使该图像框向下移动10个默认单位(twip),正确的语句是Image1.Top=7答案：Image1.Top+108 .使用“菜单编辑器”建立了一个主菜单，名称为menul要把它作为窗体Form1的快捷菜单(也称为弹出式菜单)弹出，使用的语句是：答案：PopupmenuForm1.【8】menu19 .在窗体上放置一个通用对话框控件，名称为CommonDialogK使用该控件建立“打开”文件对话框时，要求只能显示文本文件(即扩展名为“.txt”的文件)，则正确的设置语句是CommonDialog1.【

50、9="文本文件(*.txt)|*.txt"。答案：Filter10 .设磁盘上已存在顺序文件“a.txt”，为了从文件中顺序读取数据而打开该文件，正确的语句是Open"a.txt"For【10】As#1。答案：Input1.下列面程序运行后，单击窗体，输出结果是1。答案：139PrivateSubForm_Click()s=0Forn=1To3p=1Fork=1Tonp=p*kNextks=s+pPrints;NextnEndSub2.下列程序运行后，单击窗体，输出结果是PrivateSubForm_Click()m=0Fork=1To4SelectCa

51、sekCase1,2m=m+1CaseIs>3m=m+2Case1To4m=m+3EndSelectNextkPrintmEndSub3. ?在窗体上放置一个文本框，名称为【3】。答案：adePrivateSubForm_Click()Text1.Text=""s="aBd12Re”Fork=1ToLen(s)ch=Mid(s,k,1)Ifch>="a"Andch<="z"ThenText1.Text=Text1.Text+chEndIfNextkEndSub4. ?下列程序运行后，单击窗体，输出结果是Op

52、tionBase1PrivateSubForm_Click()x=Array(3,5,4,8,2,6,11,9,7,4)p=x(1):s=0Fork=2ToUBound(x)Ifx(k)>pThenP=x(k)s=s+pEndIfNextkPrintp;sEndSub5. ?下列程序运行后，单击窗体，输出结果是。答案：7Text1。下列程序运行后，单击窗体，Text1【4】。答案：1124【5】。答案：151中显示的内容是PrivateSubForm_Click()Dima(1To3,1To3)Fori=1To3Fork=1To3Ifk=1Ori=kThena(i,k)=1Elsea(i

53、,k)=i+kEndIfNextkNextiPrinta(1,1);a(2,3);a(3,3)EndSub6 .在窗体上放置一个命令按钮，名称为Command2并编写如下代码。PrivateSubCommand2_Click()DimmAsInteger,nAsInteger,gAsIntegerm=18:n=12:g=0Callsub1(m,n,g)Printm;n;gEndSubPublicSubsub1(ByValaAsInteger,ByValbAsInteger,cAsInteger)Ifa<bThent=a:a=b:b=tDoWhileb<>0r=aModba=b

54、b=rLoopc=aEndSub程序运行后，单击命令按钮，则输出结果是6。答案：181267 .在窗体上放置一个命令按钮，名称为Command?并编写如下代码。PrivateSubCommand3_Click()DimkAsIntegerk=1Printfun1(k);Printfun1(k);Printfun1(k);EndSubFunctionfun1(aAsInteger)AsIntegerStaticcAsIntegerDimbAsIntegera=a+2:b=b+2:c=c+2fun1=a+b+cEndFunction程序运行后，单击命令按钮，则输出结果是7。答案：711158 .在窗体上放置一个文本框，其名称为Text1,并编写如下代码。DimsAsStringPrivateSubText1_KeyPress(KeyAsciiAsInteger)s=s+Chr(KeyAscii)Prints;EndSub程序运行后，在文本框中输入abc,则窗体上输出的内容是8】。答案：aababc1 .在窗体上放置一个计时器和一个标签，计时器名称为Timer1,标签名称为Label1。下