vb上机考试试题.pdf

《vb上机考试试题.pdf》由会员分享，可在线阅读，更多相关《vb上机考试试题.pdf（59页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第 1套上机考试试题一、基本操作题图 1 T4图 1一2二、简单应用题下面出现的“考生文件夹”均为c：wexam2006000l,1.在考生文件夹中有工程文件kt3.vbp及其窗体文件kt3.frm,该程序是不完整的，请在有，？，号的地方填入正确内容，然后删除“?”及所有注释符（即“号），但不能修改其他部分。保存时不得改变文件名和文件夹。本题描述如下：在窗体上有一个列表框，名称为Listl；一个文本框，名称为Textl；一个命令按钮，名称为C L 标题为“复制”。要求程序运行后，在列表框中自动建立4 个列表项，分别为Iteml、Item2、Item3和 Item4如果选择列表框中的一项，单击“

2、复制”按钮，就可以把该项复制到文本框中，如 图 1 3 所示。-I S J，图 1-32.在考生文件夹中有工程文件kt4.vbp及其窗体文件kt4.frm,该程序是不完整的，请在有“？号的地方填入正确内容，然后删除“?”及所有注释符（即 号），但不能修改其他部分。保存时不得改变文件名和文件夹。在窗体上有三个复选框，名称分别为Chi、Ch2和 Ch3,标题分别为“体育”、“音乐”和“美术”，还有一个命令按钮，名称为c l,标题为“显示”。要求程序运行后，如果选中某个复选框，当单击“显示”命令按钮时，则显示相应的信息。例如，如果选中“体育”和“美术”复选框,单击“显示”命令按钮后，在窗体上显示“我

3、的爱好是体育美术”，如 图 14 所示。L M J .图 1-4三、综合应用题下面出现的“考生文件夹”均为c：wexamk20060001在考生文件夹中有工程文件kt5.vbp及其窗体文件kt5.frm,该程序是不完整的，请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符（即 号），但不能修改其他部分。本题描述如下：在名称为Form l的窗体上有两个单选按钮，名称分别为O ptl和 opt2,标题分别为“100200之间素数”和“200400之间素数”；一个文本框，名称为Textl；两个命令按钮,其名称分别为Cm dl和 C m d2,标题分别为“计算”和“存盘”,如 图 15 所示

4、。程序运行后，如果选中一个单选按钮并单击“计算”按钮，则计算出该单选按钮标题所指明的所有素数之和，并在文本框中显示出来。如果单击“存盘”按钮，则把计算结果存入。ut.txt文件中，该文件必须放在考生文件夹中(在考生文件夹中有标准模块mode.b a s,其中的putdata过程可以把结果存入指定的文件，而 isprime函数可以判断整数X 是否为索数，如果是素数，则函数返回T ru e,否则返回F alse,考生可以将该模块文件添加到自己的工程中)。图 15注意：必须把素数之和存入考生文件夹下的。ut.txt文件中，否则没有成绩。保存程序时必须存放在考生文件夹下，窗体文件名为kt5.frm,工

5、程文件名为kt5.vbp。第 I 套参考答案与解析一、基本操作题标题名称内缩符号文件vbFile0打开vbOpen1关闭vbClose1退出vbExit1帮助vbHelp0(3)按要求设计含有“文件”和“帮助”的菜单栏。(4)为“文件”菜单设计“打开”、“关闭”和“退出”三个子菜单项。(5)设计完成之后，按规定方式存盘。2.【解析】单击命令按钮触发Click事件，命令按钮的标题由其Caption属性设置；在窗体上打印信息通过Print方法来实现。【解题步骤】建立界面和控件并设置控件属性。程序中用到的控件及其属性见表1 2。表 12按钮属性NameCaption设置值Cmd1喜欢控件按钮属性Na

6、meCaption设置值Cmd2不喜欢控件(2)编写程序代码。参考代码：Private Sub Cmdl_Click()Print“数理化”End Sub调试并运行程序。按题目要求存盘。Private Sub Cmd2_Click()Print“政史地”End SUb二、简单应用题1.【解析】本题考查的是列表框控件List的使用。向列表框中添加项目可以用Additem方法，也可以在属性窗口中进行。但题目中要求是程序运行后自动添加，所以利用代码实现。(1)首先按要求打开给定工程文件kt3.vbp及其窗体文件kt3.frmo(2)在窗体上建立控件并设置控件属性。程序中用到的控件及属性设置见表1-3

7、。表 1一3控件属性设置值控件属性设置值列表框NameListlNameC1文本框NameTextl命令按钮Caption豆制(3)进入代码窗口，得到如下程序代码：Option ExplicitPrivate Sub C l-C lick(a x As IntegerFor 1?To Listl.LlatCount-1If L istl.Selecced(i):True Then?=L istl.L ist(iEnd IfNext iEnd SubPrivate Sab FomLoad I)Listi.Additem”tem rLiscl.Addlten*Icn2Listl.Addltem,i

8、cemSL istl.Addltent-iLem”End Sub(4)For语句循环变量的起始值为0。(5)列表框的Text属性为最后一次选中的表项的文本(6)修改这两处的代码。参考代码如下：Option ExplicitPrivate Sub Cl_Click(lDim i As IntegerFor 1-0 To L18tl.LifltCntjn:-1t r List L .S elected(l)I r?ThenText 1.Text L:at1.List t11Knd IfNexc 1End SubFrivace Sub Fonn_LoadI)Liat1.AddItem-Item l-

9、Llstl.Addicem ItemiListl.AtMIternLiscl.Addltem:End Sub(7)调试并运行。(8)按题目要求存盘。2.【解析】本题主要考查复选框的使用。单击命令按钮触发Click事件，程序中需要检测复选按钮的状态，可以通过Value属性来实现。如果复选按钮被选中，则 Value值 为 1,否则Value值为0。(1)在窗体上先按要求建立控件，设置控件属性，程序中用到的控件及属性见表1-4。表 1-4属性设置值对 象NameCh1复选按钮Caption体育NameCh2夏选按钮Caption音乐NameCh2复选按钮Caption美术标签Caption爱好Nam

10、eC1按钮Caption显示(2)打开代码窗口，程序提供的代码如下：Option E xplicitPr ivate sub Cl_ClickO,Din s As?s 我 的 食 好 足 If Chi.Value-1 Thens s*Chi.Capt innEnd ItIf Ch2.VdiJt-1 Thun。：s Co2.CaptionEna IfIt Ch3.Value=1 Then6-fa Ch3.C?apt i onEnd If,Print?End(3)读懂程序，分析代码。通过语句S=我的爱好是 可知S 为字符串，所以应改为：Dim s As String由语句：s=s+Chx.Capt

11、ion可知输出的变量为S,所以应改为：Print S(4)编写程序代码，整理后可得如下参考代码：Option ExplicitPrivate Sub Cl.ClickODun 8 As String8 城 的食好是It Chi.Value=1 Thens-s Chi.CaptionEnd IfIf Ch2.Value 1 Thena 7 Ch2.Capt i onEnd IfIf Ch3.Value 1 Thena s Ch3.CaprIonEnd IfP iint sEnd Sub(5)调试并运行三、综合应用题【解析】本题主要考查的知识点有文本框及选项按钮的使用，在程序代码设计中用到了循环结

12、构设计的思想。素数的判断准则为看该数除了 1和其本身之外，还有无其他约数，若有，表示该数不是素数，否则该数为素数。文本框用Text属性来显示计算结果；命令按钮的标题通过Caption属性来设置，单击命令按钮触发Click事件；为了检测单选按钮是否被选中，可以通过检测Value属性来实现，当Value的属性为True时，表示单选按钮被选中，否则未被选中。(1)建立界面并设置控件属性。题目提供了程序用到的控件及其属性，见表1-5.表1-5属性设置值控件NameOp1单选按钮Caption100200之间素数NameOp2单选按钮Caption200 400之间素数续表属性设置值控件文本框NameT

13、extlNameCmd1命令按钮Caption计算NameCmd2命令按钮Caption存盘(2)打开代码窗口，得到程序提供的代码如F：,标泡模块代码Option E x p licitSub put data(t-F i leNa:nc As S trin g,T_Str AsVariant)Dim sF ile As S tringsF ile -*&t-FileNam eOpen App.Path&sF ile For Output As.P rin t 11,T_StrClose flEnd SubFunction isp rim e(t_ I As In teg er)As Bool

14、eanDim J As In teg erisprim e=FalseFor J-2 To J I /2If t_ I Mod J =0 ThenExit ForNext JIf J t_ I/2 Thenisprim e TrueEnd Function,亩体代婚P rivate Sub Cmdl_Click()Dim i As In teg erDim temp As Long,comp=?If Opt2.Value ThenFor 1=200 To 400,If iap rim e(?)Thentemp=temp iEnd IfNextElseFor i=100 To 200If isp

15、 rim efi)Thenlemp:ternp iEnd IfNextEnd If Text1.?=tempEnd SubP riv ate Sub Cmd2_ClickOputdata o u t.t x t,T extl.T extEnd Sub(3)分析代码,找出答案。tem p用来存放累加和，所以必须初始化，即：temp=0Textl显示temp的值,所以使用Textl的 Text属性，即：Textl.Text=temp(4)整理代码，标准模块代码内没有错误，得到窗体参考代码如下:Private Sub CMdl.ClickODin i As IntegerDin temp As Lo

16、ngtemp 0It OpL2.Value ThenFor 1 200 To 400It isprim et11 Thentemp twp 1End IfNextElseFor 1-100 To 200f isprim eii Thantemp temp 1find ItNextEnd XtText 1.Text=centpEnd SubPrivate Sub Ctnd2_ClickIf Opl ThenText 1.Font-Opl.CaptionEnd XfIf 0p2 ThenText 1.FortNnme-情体_GB2312End IfEnd Sub(4)调试并运行程序。(5)按题目要

17、求存盘。2.【解析】在窗体上建好控件后，先设置控件属性，再编写事件过程和调试程序，并使其符合题目要求。当运行程序后，所弹出的对话框是通过调用函数InputBox来实现(通过Visual Basic系统本身提供的)。本题主要是考查循环语句的应用。计算一个数值的阶乘时使用了 for循环，最后调用了所给模块中的过程将结果进行保存。(1)画1个文本框和1个命令按钮，建立程序界面。(2)将命令按钮的Caption属性设置为“计算”，Name属性设置成Cmdlo(3)文本框属性为默认设置。(4)声明存储运算结果的Lon9型变量。在编写程序代码时要注意变量范围的设定，题目要求将计算结果存入Long变量中，所

18、以把最后放入文本框内的变量设置为长整型。例如：Dim temp As Long(5)研读过程putdata的代码，掌握其调用格式。标准模块代码：Option ExplicitSub putdata(t.FileName As S：i ng,T_Str AsVariant)Din sFilc As StringsFi le&t.FileNarOpn App.Path&sFile For Output M tlPrint T-StrClose ilEnd Sub(6)过程putdata有两个参数，编写的参考代码如下：P rivate S ub C mdl_ C lick()D im a A s I

19、 nregerD im temp A s L ongD im:A s I ntegera-V a】(I nputB ox请街入，*1 2*)1temp 1F or i 1 T o V ai fa)temp=temp*iN extT extl.T ext=tempputdata Bout.txt*,T extl.T eE nd S ub(7)调试并运行程序。(8)按题目要求存盘三、综合应用题【解析】文本框显示的内容通过Text属性设置；按钮的标题通过Caption属性设置，单击命令按钮触发Click事件。本题涉及到文件的操作，读入顺序文件以顺序的方式打开，用“Input#语句读取数据。另外，需要

20、注意的是，对文件操作结束后，一定要关闭文件。(1)建立界面并设置控件属性。程序中用到的控件及其属性见表2-1 0表21控件属性设置值NameTextl文本框Scrollbfirs2MultilineTrueNameCmd1命令按钮Caption读入数据续表控件属性设置值NameCrod2命令按钮Caption计算保存(2)打开代码窗I I,研读程序提供的代码:”窗体代码Dial i(l To 100)IntegerPrivate Sub CadljClickODi j As Integerj-0Qpon App.Path 6 in.tx t For Input AoFor j-1 To 100

21、Input 11.it?)NextClose#1For j I To 100Text 1.Text=Text 1.Text&1(jl&Spd”NextRnd SubPrivate Sub Cad2.ClickODim temp As bongDxn j As Inceyer,For?-I To 100If 1(j)”400 And i(j),800 Then=temp 1(jIEnd IfNext,T extl.?tempputdata tempLnd Sub书:。娥处代战Sub putdata(ByVai n As IntegerDim BFile As String F i l e，*r

22、e su lt.tx t,Open App.Path l 8File For Output As tPrint-1.a;Close 1End Sub(3)修改代码。语句Input#。i(?)是读入数据，它与语句Forj=1T0100配 合,所以为：lnput#1,i(j)语句Textl.?=temp是将结果temp显示在文本框Textl中，叩：Textl.Text=tempDin i(1 To 100)Aa IntegerPrivate Sub Cmdl-CXick()Dim j As Integerj 0Open App.Path fr,in.tx t*For Input.2#1For j

23、1 To 100Input 1 i(j)NextC lose 11For j 1 To 100Tfxr 1 .Text=Text 1.Text&i(j)6 Space”)NextEnd SubPrivain Sub Cmd2_Click()Dim towp As LongDim i AA TntinaerFor j-1 To 100Tf 2 To t_I/2If t-l Nod J x CDdt ForNCXfJJ t_I/2 Tlwnisprime=TrueEnd Function 可 以使用isprime函数判断整数X 是否为素数。如果是，则将该素数计入。If isprime(i)Then

24、 temp=temp+i(4)temp应声明为Long型。(5)使用如下调用形式把结果存入文件out.txt中：putdataout.txf,.tempCmd1_Click()事件的参考代码如下：Private Sub Cindi-CHckHDis*i As IntegerDim teop As Longt t*mp，0FOl 1 100 To 200Tf isprined)Thentcnp tocp 1Bid IfNextTexcl.Text tecpputdata out.txt,rorrpBnd Sub(7)调试并运行程序。(8)按题目要求存盘。三、综合应用题【解析】除了考查基本操作外，

25、本题主要考查的是数组的使用。(1)文本框显示的内容通过Text属性设置，Multiline属性决定文本框是否可多行显示。若需要多行显示，必须将Multiline属性设置为T ru e,同时将Scrollbars属性设置为2。(2)建立界面并设置控件属性。按钮的标题通过Caption属性设置，单击命令按钮触发Click事件。程序中用到的控件及属性设置见表3-4。表 3-4属性设置值控件NameTextl文本框Scrollbars2MultilineTmeNalileCmd1命令按钮Caption读入数据NameCmd2命令按钮Caption保存数据(3)打开代码窗口，程序提供的代码如下：,p r

26、o g.b as的代码Sub putdata(a()As Integer,n As Integer)Dim sF ile As S tringaF ile e re su lt.tx t*Open App.Path&sF ile For Output AA*1For i=1 To nP rint#1,a(i);NextClose 11End Sub，窗侬gDim i(1 To 100 As IntegerP rivate Sub CtadluClickODim j As Integerj=0Open App.Path&*in.tx t*For Input As#1For j-1 To 100,

27、Input#1,i(?)Next,7 31For j 1 To 100T extl.Text=Textl.Text&i(j)&Space(5)NextEnd SubP riv a te Sub Cnvd2-ClickODim temp As LongDim j As In teq er,T e x tl.T e x t?For j x 1 To 50T e x tl.Text T e x tl.Text&i(j)&S pace(5)Nextp u td a ta k,50End Sub(4)研读代码，完成程序。语句Input#1，i(?)用与语句Forj=l TO 100相配合读入数据，所以应

28、为：Input#l,i(j)语句?#1是在打开文件之后。涉及到文件的操作，读入顺序文件以顺序的方式打开，用“Input#语句读取数据，另外需要注意的是对文件操作完成后，一定要关闭文件。即：Close#1语句Textl.Text=?用来初始化文本框T e x tl,使其开始时为空。即：Text 1 .Text=”（5）完整的参考代码如下：4一、基本操作题下面出现的“考生文件夹“均为c：wexam20060001请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。1.在名称为Form l的窗体上建立一个名称为T extl的文本框，一个名称为C m d l,标题为“输出”的

29、命令按钮，如图4-1所示。要求程序运行后，在文本框输入几个字符，单击“输出”按钮，则在窗体上显示文本框中输入的字符。注意：在程序中不能使用任何变量。保存时必须存放在考生文件夹下，窗体文件名为ktl.frm.工程文件名为ktl.vbpo2.在名称为Forml的窗体上建立两个名称分别为Cmdl和 Cmd2、标题分别为“按钮一”和“按钮二”的命令按钮，如图4-2所示。要求程序运行后，如果单击“按钮一”，则把“按钮二”移到“按钮一 上，使两个按钮重合,如图4-3所示。F图4-1图4-2图4-3注意：在程序中不得使用任何变量（必须通过属性设置来移动控件）。保存时必须存放在考生文件夹下，窗体文件名为kt2

30、.frm,工程文件名为kt2.vbp。二、简单应用题下面出现的“考生文件夹”均为c：w exam 2006000 K1.在考生文件夹下有一个工程文件kt3.Vbp,窗体上已经有一个标签L 1,请画一个单选按钮数组，名称为O p l,含三个单选按钮，它们的Index属性分别为0、1和 2,标题依次为“飞机”、火车”和“汽车”，再画一个名称为Textl的文本框。窗体文件中已经给出了。p l 的 click事件过程，但不完整，要求去摔程序中的注释符（即号），把程序中的“?”改为正确的内容，使得在运行时单击“飞机”或“火车”单选按钮时，在Textl中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选

31、按钮时，在 T extl中显示“我开汽车去”。程序运行界面如图4-4所示。图4-4-1图4-5注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名保存。2.在窗体上建立一个名称为Textl的文本框，建立一个名称为Cmdl、标题为“计算”的命令按钮，如图4-5所示。要求程序运行后，如果单击“计算”按钮；则求出100-200之间所有能被3 整除的数的总和，在文本框中显示出来，并把结果存入考生文件夹下的out.txt文件中（在考生的文件夹下有一个mode.bas标准模块，该模块中提供了保存文件的进程putdata,考生可以直接调用）。注意：保存时必须存放在考生文件夹下，窗体文件名为kt4.f

32、rm,工程文件名为kt4.vbp,结果存入out.txt文件。三、综合应用题下面出现的“考生文件夹“均为c：wexam20060001.在考生文件夹中有工程文件kt5.vbp及其窗体文件kt5.frm,该程序是不完整的，请在有，？，号的地方填入正确内容然能修改其他部分。本题描述如下：在名称为Forml的窗体上有一个文本框,名称为Textl.MultiLine属性为True,ScrollBars属性为2；两个命令按钮，名称分别为C m dl和 C m d2,标题分别为“读入数据”和“排序并保存”，如图46 所示。程序运行后，如果单击“读入数据”按钮，则读入in.txt文件中的100个整数，放入一

33、个数组中（数组下界为1）；如果单击“排序并保存”按钮，则 对 这 100个整数按从小到大进行排序，并把排序后的全部数据在文本框Textl中显示出来，然后存入考生文件夹中的文件result.txt中（在程序中的标准模块prog.bas过程可以把指定个数的数组元素存入 result.txt文件中）。图4-6注意：文件必须存放在考生文件夹下，窗体文件名为kt5.frm,工程文件名称为kt5.vbp,排序结果存入result.txt文件，否则没有成绩。一、基 本 操 属 性 设 置 值作题I.【解析】本题主要考查文本框的基本操作。（1）先建立界面并设置控件属性。程序中用到的控件及其属性见表伞1。捽件文

34、本框NameTextlNameCmd1按钮Caption输出(2)通过命令按钮的Caption属性来设置其标题。文本框显示内容是用Text属性。(3)单击命令按钮触发Cmdl_Click事件。(4)在命令按钮的Click事件中使用Cis命令清空窗体原来内容。(5)文本框显示内容是用Text属性。文本框中的内容通过其Text属性得到，在命令按钮的 Click事件中利用Print方法将文本框中的内容输出，完成题目要求。(6)参考程序如下：Private Sub ick()CisPrint Texcl.Text.End Sub(7)调试并运行程序。(8)按题目要求存盘。2.【解析】在窗体上建立好控件

35、后，先设置控件的属性，再编写事件过程。(1)建立界面并设置控件属性。程序中用到的控件及其属性见表4-2。表 4-2属性设置值控件NameCmd1按钮Caption按钮一NameCmd2按钮Caption按钮二(2)命令按钮的Caption属性用来设置其标题，单击命令按钮触发Click事件。(3)本题考查的是如何设置按钮的摆放位置，涉及到对象的Left和 Top属性。Left表示控件与所在窗体的左边之间的距离，Top表示控件与所在窗体的顶边之间的距离。让两个按钮位置重合只需将两个按钮的Left和 Top设置相同即可。参考代码如下：P riv ate Sub Cndl_ClickOCmd2.Lef

36、t Crodl.LeftCmd2.Top=Cmdl.TopEnd Sub(4)调试并运行程序。(5)按题目要求存盘。二、简单应用题1 【解析】标签和单选按钮的标题均由各自的Caption属性设置。程序中需要检测的单选按钮的状态，这可以通过Value属性来实现，如果单选按钮被选中，则 Value值 为 1,否则 Value值为0。当建立控件数组时，系统给每个元素赋个唯一的索引号(Index),通过属性窗口的Index属性，可以知道该控件的下标是多少。在文本框中显示内容通过Text属性设置，其形式为：文本框名.Text=显示的内容,程序中用到了 SelectCase语句，格式如下：Select C

37、 ase变堵或&达式 对】本题来说就是数妣元乘的 标)C ase衣达式列&I熊甸块ICUNC 衣这式列在2房句块2|Cac Eke块 n+l|End Select【解题步骤】(1)建立界面并设置控件属性。程序用到的控件及其属性见表4.3。表4-3属性 设置值对象TextNameNameTextlOp1(0)单选按钮Caption飞机NalrleOp 10)单选按钮Caption火车NatneOp1(2)单选按钮Caption汽车NameLable!标签框Caption请选择(2)编写程序代码。程序提供的代码：Private Sub O plClickI Index As Integer)Dim

38、 a As S trin g,b As S tring,c As String2 我金*B=我开Select Case?Cese 0Text 1.Text，aMe.Opl(0).Caption 士参考代科，Private Sub O pl.C lickIIndex As Integer)Dim a As S trin g，b As S tring,c As Stringa=我士b*我#，Select Case IndexCase 0Text 1.Text-a*Me.0pl(0).Capcion *Case ICase 1Text 1.Text=?*Me.Opl(1.C i(k 1)Thente

39、mp 1(k)i(k)x(k I)i(k 1)cenpflag=TrueEnd IfNextIf Not flag ThenExit ForEnd IfNextT extl.?*For j=1 To 100Text1.Text=Text1.Text&i(j)&Space(5)Nextpvtdata i 100End Sub(4)分析代码。语句?#1,i(j)是与For语句配合，读入数据到数组I 中，即：Foij=lTo 100Input#l,i(j)语句的名=?设置初始标记，即：flag=False语句Textl.?=”是要先清理T extl中的内容，即：Text 1.Text=(5)完整的参

40、考代码如下：标 注 横 跳 代 prog.basSub putdata(a()A slnteger.n As Integer)Dim sF ile As StringsF ile=r esu lt.c x f -Open App.Path&sF ile For Output As flFor i=1 To nPrint t l,a d);NextClose#1End Sub，方体代码Option E xp licitDim i d To 100)As IntegerPrivate Sub Cmdl_Click()Dim j As IntegerOpen*in.txt*For Input As#

41、1For j 1 To 100Input 11,i ik*l)Thentemp=1(k)i tempflag-TrueEnd IfNextIf Not flag ThenExit ForEnd IfNextTextl.Text=For j=1 To 100Textl.Text=Texcl.Textil(j)&Space(5)Nextputdata 1,10CEnd sub(6)调试并运行程序。按题F l要求存盘。5一、基本操作题1.在 名 称 为F o r m l的窗体上建立一个水平滚动条，并在属窗口中将其名称设置为H S I M a x属性设置为100,M i n属性设置为0,Va l u

42、e属性设置为100。程序运行后，滚动框位于滚动条最右端，如果单击滚动条之外的窗体部分，则滚动框跳到最左端，如图51所示。注意：只能直接为相应的属性赋值，不得使用任何变量。保存时必须存放在考生文件夹下，窗体文件名为k t l.f r m,工程文件名为k t l.v b p。2.在名称为F o r m l的窗体中建立个标签，名称为L 1,在标签上显示“选课”，其字体大小为小叫 再建立3个复选框，名称分别为C hk l、C hk 2和C hk 3,标题分别为“操作系统”、“数据 库原理”和“概率论”，字体大小均为小四，其中“概率论”被禁用，如图5-2所示。图5-1图5-2注意：保存时必须存放在考生文

43、件夹下，窗体文件名为k t 2.f r m,工程文件名为k t 2.v b p。二、简单应用题下面出现的“考生文件夹”均为c：w e x a m 2006 000l o1.在考生文件夹中有工程文件k t 3.v b p及其窗体文件k t 3.f r m,该程序是不完整的，请在有，?，号的地方填入正确内容，然后删除“?”及所有注释符（即“号），但不能修改其他部分。保存时不得改变文件名和文件夹。本题描述如下：在 窗体上有 一 个 名 称 为Textl的文本框，一 个 名 称 为c l、标题为“校验”的命令按钮，如图5。3所 示。其中文本框用来输入口令，要求在文本框中输入的内容都必须以“*”显示（请

44、考生通过属性窗口设置）。要求程序运行后，输入口令，单击命令按钮后，对口令进行校验。如果输入的内容是“ABC”这3个大写字母，则 用MsgBox信息框输出“正确”，否则输出“错误”，如 图54所 示。2.在 考 生 文 件 夹 中 有 工 程 文 件kt4.vbp及 其 窗 体 文 件kt4.frm,该程序是不完整的，请在有，？，号的地方填入 正 确 内容，然后删除“?”及所有注释符（即 号），但不能修改其他部分。保存时不得改变文件名和文件夹。本题描述如下：在窗体上有三个 名 称 分 别 为Chi、Ch2和Ch3的复选框，标题分别为“程序设计”、“数据库原理”和“计算机网络”，还 有 一 个名称

45、为C1、标题为“选课”的命令按钮，如 图5-5所 示。要求程序运行后，如果选择某个复选框，当单击“选课”命令按钮时在窗体上显示相应的信息。例 如：如果选择“程序设计”和“计算机网络”复选框，单击“选课”命令按钮后，将在窗体上显示“我选的课程是程序设计计算机网络”图5 3图54M二图5-5三、综合应用题下面出现的“考生文件夹“均 为c：w exam 2006000lo在考生文件夹 中 有 工 程 文 件kt5.vbp及 其 窗 体 文 件kt5.frm,该程序是不完整的，请在有，？，号的地方填入正确内容，然后删除“?”及所有注释符（即 号），但不能修改其他部分。保存时不得改变文件名和文件夹。本题

46、描述如下：在 名称 为Forml的窗体上有一个文本框，名 称 为Textl.MultiLine属 性 为True,ScrollBars属 性 为2；两个命令按钮，名 称 分 别 为Cmdl和C m d2,标题分别为“读入数据”和“排序并保存”，如 图5-6所示。程序运行后，如果单击“读入数据”按 钮，则 读 入in.tx t文 件 中 的100个整数，放入一个数组中（数 组 下 界 为1）；如果单击“排序并保存”按钮，则 对 这100个整数按从大到小进行排序，并把排序后的全部数据在文本框Textl中显示出来，然后存入考生文件夹 的out.txt文件中（考 生文件夹下的标准模块model.bas

47、中 的putdata过程可以把指定个数的数组元素存入ouLtxt文件）。图 5-6第 5 套参考答案与解析一、基本操作题1 【解析】本题主要考查窗体上控件的基本操作。(1)先在窗体上建立控件，再设置控件属性。表 5-1程序中用到的控件及其属性见表5-1。控件滚动条属性设置值NameHS1Min0Max100Value100(2)滚动条的最大刻度用Max属性来表示，最小刻度用M in属性来表示，滚动条上的位置通过Value属性来表示。(3)单击窗体触发Form_Click事件，滚动框跳到最左端，即使其Value属性为0。(4)参考代码如下：Private Sub Form_Click()HSl.

48、Value=0End Sub(5)调试并运行程序。(6)按题日要求存盘。2.【解析】本题主要考查复选框的使用。先在窗体上建立控件，然后设置控件属性。(1)标签上显示内容通过标签的Caption属性设置。(2)复选框标题也是通过其Caption属性来设置的，控件的禁用与否是通过Enabled属性来设置的。若 Enabled的属性设置为T ru e,则控件可用；若设置为F alse,则控件被禁用。程序中用到的控件及其属性见表5-2o表 5-2属性设置值控件属性设置值控件NameL1NaerieChk2标签Caption选课复选框Caption数据库原理FontSize小四FontSize小四Nam

49、eChk1NameChk3Caption操作系统Caption概率论复选框FontSize小四复选框FontSize小四EnabledFalse(3)调试并运行程序，以验证设计的正确性(4)按题目要求存盘。二、简单应用题1 【解析】本题主要考查文本框、按钮控件和信息对话框盼使用。(1)在窗体上建立控件，设置控件属性。程序中用到的控件及其属性见表5-3。表 5-3属性设置值控件NameTextl文本框PasswordCharNameC1按钮Caption校验(2)按钮的标题通过O ption属性设置；要使文本框的内容在输入时显示为“*”，则应该将 PasswordChar属性设置为“*”。(3)

50、单击命令按钮或窗体触发的是Click事件，因此程序中应该编写命令按钮的Click事件过程。(4)打开代码窗口，程序提供的代码如下：opt ion E xplicirP r:v ate Sub C1_C1ickI)If T extl.Text=?Then.MsgBox?-ElseMsg Box 储磷，End Sub(5)修改代码。在语句IfTextl.第 1个“?”号处应该是If语句的条件表达式，填内置口令“ABC”，第 2 个“?”号处应该是输出“正确”信息。(6)参考代码如下：Ojjt ion E x p licit?riv a re Sub C1_CJ ic k()ir -rexc 1.T