2013计算机二级vb真考题库操作题（三）

2013计算机二级VB真考题库操作题(三)第68套题解析题目ー:基本操作题(1)【考点分析】本题考点有:菜单编辑器的使用(名称,标题,内缩符号)和文本框的Name属性。【解题思路】用菜单编辑器来设置菜单的名称,标题,内缩符号。另外,淸除文本框中的内容将文本框的Text属性值设为空即可。【操作步骤】步骤1:建立界面，添加一个名称为Textl的文本框,然后用菜单.编辑器建立如下表3.212所示的菜单。表3.212标题操作显示清除名称OpDisClea内缩符号011步骤2:编写程序代码。参考答案PrivateSubDis_Click()Textl.Texf="等级考试"EndSubPrivateSubClea_Click()Textl.Text=""EndSub步骤3:调试并运行程序,关闭程序后按题目要求存盘。(2)【考点分析】本题考点有：文本框的Name、Text属性，列表框的的Name、List、Listindex属性，Additem方法和DHClick事件。(解题思路】在列表框的DHClick事件中，通过Additem方法将文本框中的字符串添加到列表框中。【操作步骤】步骤1:建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.213。表3.213メ控件列表框ハ文本框。属性Name*3LisレNomeバText*3设置值LWAAAAsBBBB.CCCC.DDDDバText1バp步骤2:编写程序代码。参考答案PrivateSubLl_DblClick()LI.AdditemTextl.TextEndSub步骤3:调试并运行程序,关闭程序后按题目要求存盘。题目二:简单应用题(1)【考点分析】本题考点有:标签的Name、Text、Height、Width、Caption属性,框架的Name,Caption属性,命令按钮的Name、Caption属性,单选按钮的Name、Caption,Value属性,Sub()函数过程以及If判断语句。【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。通过If语句判断单选按钮的Value属性是否为True,即某个单选按钮是否被选中来显示标签的内容。一般地，我们认为Value属性是单选按钮的默认属性。【操作步骤】步骤1:打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.214和3.215。表3.214控件框架1和1架2标签属性NameCapionNameCapionNameHe”:htWidth设置值Fl交通工具F2到达目标Labia乃3000表3.215控件単选按钮1単选按钮2单选按钮3里选按钮4属性NameCiptionNameCaptionNameCaptionNameCaption设置值OplK机Op2火车Op3广州Op4昆明步骤2:分析并编写程序代码。程序提供代码PrivateSubFun()，需要考生编写的内容EndSubPrivateSubForm_Unload(CancelAsInteger)OpenApp.Path&”ヽout3.txt"ForOutputAs#1Print#1,Opl.Value,0p2.Value,0p3.Value,0p4.Value,Labl.CaptionClose#1EndSubPrivateSubOpl_Click()FunEndSubPrivateSubOp2_Click()FunEndSubPrivateSubOp3_Click()FunEndSubPrivateSubOp4_Click()FunEndSub程序结束参考答案IfOplAndOp3ThenLabi.Caption="坐飞机去广州”ElselfOplAndOp4ThenLabi.Caption="坐飞机去昆明”ElselfOp2AndOp3ThenLabl.Caption="坐火车去广州”ElselfOp2AndOp4ThenLabl.Caption="坐火车去昆明”EndIf步骤3:调试并运行程序,关闭程序后按题冃要求存盘。(2)【考点分析】本题考点有:文本框的Name、Text属性,命令按钮的Name、Caption属性,单选按钮的Name、Caption,Value属性,"&"连接符以及If判断语句。［解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。选择"交换"单选按钮并单击命令按钮时，通过一个标签Caption属性作为中间变量将文本框1和文本框2的内容交换，并将标签的Caption属性设为"交换成功";选择"连接"单选按钮并单击命令按钮时,用"&"连接符将文本框1和文本框2中的内容顺序连接起来。【操作步骤】步骤1:打开本题工程文件,添加控件并设置控件的属性。程序中用到的控件及属性见表3.216和表3.217。表3.23控件文本框2文本框2。单选按钮单选按钮2。属性Name*Text*3Name*TexMName*-Caption*Name*Captiorv设置值Text2等级考试，Text2バ计算机。OpW交换00p2バ连接。表3.127。控件标签,，命令按钮。属性Name*Height^Width*Name*Caption*设置值Lab*3ア5a200〇デCM确定。步骤2:分析并编写程序代码。程序提供代码PrivateSubCl_Click()’需要考生编写的内容EndSubPrivateSubForm_Unload(CancelAsInteger)Open"out4.txt"ForOutputAs#1Print#1,Opl.Value,OpZ.Value,Textl.Text,Text2.Text,Labi.CaptionClose#1EndSub程序结束参考答案IfOplThenLabi.Caption=Textl.TextTextl.Text=Text2.TextText2.Text=Labi.CaptionLabl.Caption="交换成功”ElselfOp2ThenLabl.Caption=Textl.Text&Text2.TextEndIf步骤3:调试并运行程序,关闭程序后按题目要求存盘。题目三:综合应用题【考点分析】本题考点有:Sub()函数,lnt()函数,文件操作,App.Path相对路径,数组的定义和应用，窗体的Print方法和For循环语・句。【解题思路】在“读入数据"命令按钮中，通过调用Sub过程来实现对"datainl.txt"和“datain2.txt"文件的读数据操作。单击"计算"按钮,利用For循环实现将把一个数组的元素的第n个元素除以10截尾取整,再把第二个数组的第n个元素除以10截尾取整,两者相乘后的结果做为第三个数组的第n个元素,数字取整用lnt()函数来实现;并用窗体的Print方法将结果显示在窗体上。单击"存盘"按钮,将结果存在"Dataout.txビ文件中。【操作步骤】步骤1:打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.218。表3.216。控件命令按钮2命令按钮22命令按钮3。属性Name*Caption*Name^Caption*Name*Caption*设置值Cl-读入数据+C2バ计算「C3レ存盘”步骤2:分析并编写程序代码。程序提供代码OptionBase1DimArrl(20)AsIntegerDimArr2(20)AsIntegerDimSumAsIntegerSubReadDatal()OpenApp.Path&"\H&Hdatainl.txtHForInputAs#1Fori=1To20Input#1,Arrl(i)NextiClose#1EndSubSubReadData2()OpenApp.Path&"ヾ&°datain2.txt"ForInputAs#1Fori=1To20Input#1,Arr2(i)NextiClose#1EndSubSubWriteData(FilenameAsString,NumAsInteger)OpenApp.Path&"ヾ&FilenameForOutputAs#1Print#lzNumClose#1EndSubPrivateSubCl_Click(),要求考生编写的内容EndSubPrivateSubC2__Click(),要求考生编写的内容EndSubPrivateSubC3_Click()•要求考生编号的内容EndSub程序结束参考答案PrivateSubCl__Click()ReadDatalReadData2EndSubPrivateSubC2_Click()DimArr3(20)AsIntegerSum=0Fori=1To20Arr3(i)=lnt(Arrl(i)/10)*lnt(Arr2(i)/10)Sum=Sum+Arr3(i)NextiPrint"Sum=SumEndSubPrivateSubC3_Click()WriteData"DataOut.txt",SumEndSub步骤3:调试并运行程序,关闭程序后按题目要求存盘。第69套题解析题目ー:基本操作题(1)【考点分析】本题考点有:菜单编辑器的使用(名称,标题,内缩符号)和窗体的Print、Cis方法。【解题思路】用菜单编辑器来设置菜单的名称,标题，内缩符号。在窗体上显示"等级考试"用窗体的Print方法,清除内容则窗体的用Cis方法。【操作步骤】步骤1:建立界面,然后用菜单编辑器建立如下表3.219所示的菜单。表3.219标题操作显示清除名称OpDisClea内缩符号011步骤2:编写程序代码。参考答案PrivateSubDis_Click()Print,噂级考试”EndSubPrivateSubClea_Click()CisEndSub步骤3:调试并运行程序,关闭程序后按题目要求存盘。(2)【考点分析】本题考点有:标签的Name、Caption属性,列表框的的Name、List、ListCount属性和DHClick事件。【解题思路】在列表框的DbOick事件中,通过列表框的ListCount属性得出列表框的项目数,并通过标签的Caption属性显示项目数。【操作步骤】步骤1:建立界面,添加控件并设置控件的属性。程序中用到的控件及属性见表3.220。表3.220控件列表椎标签 )属性NameListNameCaption设置值L1abcd>hijk、gfed>smnLabi步骤2:编写程序代码。参考答案PrivateSubLl_DblClick()Labi.Caption=LI.ListCountEndSub步骤3:调试并运行程序,关闭程序后按题目要求存盘。题目二:简单应用题(1)【考点分析】本题考点有:文本框的Name、属性,框架的Name、Caption属性,单选按钮的Name、Caption,Value属性以及If判断语句。【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。通过If语句判断单选按钮的Value属性是否为True,即某个单选按钮是否被选中来显示标签的内容。ー一般地,我们认为Value属性是单选按钮的默认属性。另外，单击文本框将触发文本框的Click事件。【操作步骤】步骤1:打幵本题工程文件,添加控件并设置控件的属性。程序中用到的控件及属性见表3.221和3.222。表3222控件框架1P框架22文本框・属性Name^Caption*Name*Caption*Name*3设置值F2交通工具づF2Q到达目标,Text*3表3.222"H单选按钮ジ单选按钮2。单选按钮3。单选按钮4。属性Name*Caption^Name”Caption*Name*Caption*Name*Caption^设置值〇pl/汽车。Op2~轮船Q〇p3バ青岛バOp4P大连「步骤2:分析并编写程序代码。程序提供代码PrivateSubForm_Unload(CancelAsInteger)OpenApp.Path&"\out3.txt"ForOutputAs#1Print#1,Opl.Value,Op2.Value,Op3.Value,0p4.Value,Textl.TextClose#1EndSubPrivateSubTextl_Click()，需要考生编写的内容EndSub程序结束参考答案IfOplAnd0p3ThenTextl.Text="坐汽车去青岛"ElselfOplAndOp4ThenTextl.Text="坐汽车去大连"ElselfOp2AndOp3ThenTextl.Text="坐轮船去青岛"ElselfOp2AndOp4ThenTextl.Text="坐轮船去大连”EndIf步骤3:调试并运行程序,关闭程序后按题目要求存盘。(2)【考点分析】本题考点有:文本框的Name、Text属性,单选按钮的Name、Caption,Visible属性，标签的Name、Heiht、Width属性，"&"连接符、窗体的Click事件和If判断语句。【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。选择"交换"单选按钮并单击窗体时，通过ー个标签的Caption属性作为变量将文本框1和文本框2的内容交换,然后将标签的Caption属性设为"交换成功":选择"连接"单选按钮并单击窗体时，用"&"连接符将文本框1和文本框2中的内容顺序连接起来。【操作步骤】步骤1：打开本题工程文件,添加控件并设置控件的属性.程序中用到的控件及属性见表3.223和表3.224。表3.223。控件文本框12文本框2。单选按钮3单选按钮22.属性Name*Text*3Name*^Tex忖Name^Caption*Name*Caption^*设置值Text3等级考试「Text2*3计算机。Qp*交換。Op2d连接.表3.224。T.标签ペ属性Name*Height*Width*设置值Labi*3375戸2000バ步骤2:分析并编写程序代码。程序提供代码’需要考生编写的内容EndSubPrivateSubForm_Unload(CancelAsInteger)Open"out4.txt"ForOutputAs#1Print#1,Opl.Value,0p2.Value,Textl.Text,Text2.Text,Labl.CaptionClose#1EndSub程序结束参考答案IfOplThenLabl.Caption=Textl.TextTextl.Text=Text2.TextText2.Text=Labl.CaptionLabl.Caption="交换成功”ElselfOp2ThenLabl.Caption=Textl.Text&Text2.TextEndIf步骤3:调试并运行程序,关闭程序后按题目要求存盘。题目三:综合应用题【考点分析】本题考点有:Sub()函数,lnt()函数,文件操作,App.Path相对路径,数组的定义和应用，窗体的Print方法和For循环语句。【解题思路】在"读入数据"命令按钮中,通过调用Sub过程来实现对"datainl.txt"和“datain2.txt”文件的读数据操作。单击"计算”按钮,利用For循环实现将把一个数组的元素的第n个元素除以第二个数组的第n个元素,结果截尾取整后作为第三个数组的第n个元素,数字的截尾取整用lnt()函数来实现;并用窗体的Print方法将结果显示在窗体匕单击"存盘"按钮,将结果存在"Dataout.txビ文件中〇【操作步骤】步骤1:新建界面,添加控件并设置控件的属性。程序中用到的控件及属性见表3.225。表3.2252控件命令按钮命令按钮2。命令按钮32属性Name*Caption*Name*Caption*Name*Caption*-设置值C2读入数据・C2バ计算」C3.存盘。步骤2:分析并编写程序代码。程序提供代码OptionBase1DimArrl(20)AsIntegerDimArr2(20)AsIntegerDimSumAsIntegerSubReadDatal()OpenApp.Path&"\"&"datainl.txt"ForInputAs#1Fori=1To20Input#1,Arrl(j)NextiClose#1EndSubSubReadData2()OpenApp.Path&"\"&"datain2.txt"ForInputAs#1Fori=1To20Input#1,Arr2(i)NextiClose#1EndSubSubWriteData(FilenameAsString,NumAsInteger)OpenApp.Path&"V&FilenameForOutputAs#1PrintUI,NumCloseUIEndSubPrivateSubCl_Click()•要求考生编号的内容EndSubPrivateSubC2_Click(),要求考生编号的内容EndSubPrivateSubC3_Click()’要求考生编号的内容EndSub程序结束参考答案PrivateSubCl_Click()ReadDatalReadData2EndSubPrivateSubC2_Click()DimArr3(20)AsIntegerSum=0Fori=1To20Arr3(i)=lnt(Arrl(i)/Arr2(i))Sum=Sum+Arr3(i)NextiPrint"Sum=SumEndSubPrivateSubC3_Click()WriteData"DataOut.txt",SumEndSub步骤3:调试并运行程序,关闭程序后按题冃要求存盘。第70套题解析题目ー:基本操作题(1)【考点分析】本题考点有:菜单编辑器的使用(名称,标题,内缩符号)和图片框的Name属性和Print、Cis方法。【解题思路】用菜单编辑器来设置菜单的名称,标题，内缩符号。另外,在图片框中显示“等级考试”的信息通过图片框的Print方法实现，清除图片框信息通过图片框的Cis属性实现。【操作步骤】步骤1:建立界面,添加一个名称为P1的图片框，然后用菜单编辑器建立如下表3.226所示的菜单。步骤2:编写程序代码。参考答案标题操作显示清除名称OpDisClea内缩符号011表3.226PrivateSubClea_Click()Pl.CIsEndSubPrivateSubDis_Click()Pl.Prinビ等级考试”EndSub步骤3:调试并运行程序,关闭程序后按题目要求存盘。(2)【考点分析】本题考点有:列表框的的Name、List、Text属性,Additem方法和DECIick事件。【解题思路】在列表框的DbKIick事件中,通过Additem方法将列表框中选中的文本添加到列表框中。【操作步骤】步骤1:建立界面,添加控件并设置控件的属性。程序中用到的控件及属性见表3.227。表3.227レ噩属性—设置值NomeベList*3AAAA、BBBB、CCCC、DDDD"歩骤2:编写程序代码。参考答案PrivateSubLl_DblClick()Ll.AddltemLI.TextEndSub步骤3:调试并运行程序，关闭程序后按题目要求存盘。题目二:简单应用题(1)【考点分析】本题考点有:文本框的Name属性,框架的Name、Caption属性,单选按钮的Name、Caption、Value属性,窗体的Click事件以及If判断语句。【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。通过If语句判断单选按钮的Value属性是否为True,即某个单选按钮是否被选中来显示标签的内容。一般地,我们认为Value属性是单选按钮的默认属性。【操作步骤】步骤1:打开本题工程文件,添加控件并设置控件的属性。程序中用到的控件及属性见表3.228和3.2290表3.228控件框架1框架2文本框属性NameCaptionNameCapionName［设置值［FlJ交通工具lF2 ］到达II标IJext1表3.229控件单选按钮1单选按钮2单选按生H3单选按钮4属性NameCptionNameCaptionNameCaptionNameCaption世置值Opl飞机0p2火车0p3广州0p4崑明步骤2:分析并编写程序代码。程序提供代码PrivateSubForm_Click()’需要考生编写扁容EndSubPrivateSubForm_Unload(CancelAsInteger)OpenApp.Path&"\out3.txビForOutputAs#1Print#1,Opl.Value,0p2.Value,0p3.Value,Op4.Value,Textl.TextClose#1EndSub程序结束参考答案IfOplAnd0p3ThenTextl.Text="坐飞机去广州＜,ElselfOplAndOp4ThenTextl.Text="坐飞机去昆明"Elself0p2And0p3ThenTextl.Text="坐火车去广州”Elself0p2And0p4ThenTextl.Text="坐火车去昆明"EndIf步骤3:调试并运行程序,关闭程序后按题冃要求存盘。(2)【考点分析】本题考点有:文本框的Name、Text属性,单选按钮的Name、Caption、Value属性，"&"连接符以及If判断语句。【解题思路】在窗体上添加相应的控件并通过属性窗口设置其属性。选择"交换"单选按钮并单击窗体时,通过ー个文本框的Caption属性作为屮间变量将文本框1和文本框2的内容交换,并将文本框的Caption属性设为"交换成功":选择"连接"单选按钮并单击窗体时,用"&"连接符将文本框1和文本框2中的内容顺序连接起来。【操作步骤】步骤1:打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.230o表3.2302控件文本框12文本框22文本框32单选按钮1Q单选按钮2Q属性Name*Tex"Name*Text*3Name*Text*Name*Captior>Name<Caption*设置值Text1バ等级考试，Text2*?计算机ジText3一Opld交換Q〇p2d连接a步骤2:分析并编写程序代码。程序提供代码PrivateSubText3_Click()’需要考生编写鬲内容EndSubPrivateSubForm_Unload(CancelAsInteger)Open"out4.txt"ForOutputAs#1Print#1,Opl.Value,0p2.Value,Textl.Text,Text2.Text,Labi.CaptionClose#1EndSub程序结束参考答案IfOplThenText3.Text=Textl.TextTextl.Text=Text2.TextText2.Text=Text3.TextText3.Text="交换成功"Elself0p2ThenText3.Text=Textl.Text&Text2.TextEndIf步骤3:调试并运行程序，关闭程序后按题目要求存盘。题目三:综合应用题【考点分析】本题考点有:Sub()函数，lnt()函数，文件操作，App.Path相对路径，数组的定义和应用,窗体的Print方法和For循环语句。【解题思路】在“读入数据’’命令按钮中,通过调用Sub过程来实现对"datainl.txt”和"datain2.txt”文件的读数据操作。单击"计算"按钮，利用For"循环实现将把一个数组的元素的第n个元素除以第二个数组的第n个元素，结果截尾取整后作为第三个数组的第n个元素,数字的截尾取整用lnt()函数来实现;并用窗体的Print方法将结果显示在窗体上。单击“存盘”按钮,将结果存在“Dataout.txt"文件中〇【操作步骤】步骤1:打开本题工程文件,添加控件并设置控件的属性。程序中用到的控件及属性见表3.231o表3232控件命令按钮1P命令按钮22命令按钮3。属性Name*Caption*NarnxCaption*Name*Caption*设置值Cl*读入数据,C2バ计算nC3ゼ存盘ア步骤2:分析并编写程序代码。程序提供代码OptionBase1DimArrl(20)AsIntegerDimArr2(2O)AsIntegerDimSumAsIntegerSubReadDatal()OpenApp.Path&"\"&"datainl.txt"ForInputAs#1Fori=1To20Input#1,Arrl(i)NextiClose#1EndSubSubReadData2()OpenApp.Path&"\H&"datain2.txt"ForInputAs#1Fori=1To20Input#1,Arr2(i)NextiClose#1EndSubSubWriteData(FilenameAsString,NumAsInteger)OpenApp.Path&"\"&FilenameForOutputAs#1Print#1,NumClose#1EndSubPrivateSubCl_Click(),要求考生编号的内容EndSubPrivateSubC2_Click(),要求考生编号的内容EndSubPrivateSubC3_Click(),要求考生编写的内容EndSub程序结束参考答案PrivateSubCl_Click()ReadDatalReadData2EndSubPrivateSubC2_Click()DimArr3(20)AsIntegerSum=0Fori=1To20Arr3(i)=lnt(Arrl(i)/Arr2(i))Sum=Sum+Arr3(i)NextiPrint"Sum=SumEndSubPrivateSubC3_Click()WriteData"DataOut.txt",SumEndSub步骤3:调试并运行程序,关闭程序后按题冃要求存盘。第71套题解析题目ー:基本操作题(1)【考点分析】本题考点有:命令按钮的Name、Caption属性,通用对话框的Name、Filter,Filterindex属性和ShowOpen方法。【解题思路】当通用对话框显示为“打开’’或"另存为''类型时,其FileName属性用于返冋或设置所选的文件的路径和文件名。Filter(过滤器)属性用于指定在对话框的文件列表中显示文件的类型。语法为“对象名.Filter="描述|文件扩展名"”。【操作步骤】步骤1:建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.232。表3.232*，控件命令按钮“通用対话框+属性Name*3CaptiorvName*FilterザFilterindexゼ设置值Command!♦打开"CD1バ所有文件| |*.Doc|♦.doc*322步骤2:编写程序代码。参考答案PrivateSubCommandl_Click()CD1.ShowOpenEndSub步骤3:调试并运行程序,关闭程序后按题目要求存盘。(2)【考点分析】本题考点有:命令按钮的的Name、Caption属性,文本框的Name、Text属性,计时器的Name、、Interval属性。【解题思路】根据题意添加控件并通过属性窗口设置相应的属性,将计时器的Interval属性设为1000,并将初始的Enabled属性设为False。单击"开始计数”按钮时,将计时器的Enabled属性设为True,计时器开始工作,文本框中的数每秒自动增加1。【操作步骤】步骤1:建立界面，添加控件并设置控件的属性。程序中用到的控件及属性见表3.233。表3.2332控件文本框，命令按钮2计时器~属性Nome+TextPName*CaptionsName*3IntervahEnabled^设置值Text1バpClバ开始计数QTIP1000バFalser步骤2:编写程序代码。参考答案PrivateSubCl_Click()Tl.Enabled=TrueEndSubPrivateSubTl_Timer()Textl.Text=Textl.Text+1EndSub步骤3:调试并运行程序,关闭程序后按题目要求存盘。题目二:简单应用题(1)【考点分析】本题考点有:命令按钮的Name、Caption属性,窗体的Visible方法。【解题思路】要把Form2设为启动窗体,只需选择"工程"菜单下的"工程1属性"，在通用选项卡中将启动对象选为Form2即可〇【操作步骤】步骤1:打开本题工程文件,选择"二程"菜单卜.的“工程1属性",在通用选项卡中将启动对象选为Form2。程序中用到的控件及属性见表3.234。表3.234イ挖伴命令按Ml，命令按钮,2,属隹Name,CaptionNameゝCaption,陵或馆Cl,结束，C2.,开始•步骤2:分析并编写程序代码。程序提供代码窗体1的代码PrivateSubCl_Click()EndEndSub窗体2的代码PrivateSubC2_Click()LoadFormlForml.Visible=TrueEndSub程序结朿步骤3:调试并运行程序，关闭程序后按题目要求存盘。(2)【考点分析】本题考点有:单选按钮的Name、Value.Caption属性,命令按钮的Name属性,Call语句,Sub()函数的调用，If判断语句，For循环语句，图片框的Print方法和"&"连接符的使用。【解题思路】通过For循环,用If语句判断选择了哪个单选按钮，并用图片框的Print方法将所做的选择显示在图片框内。【操作步骤】步骤1:打开本题工程文件,为控件添加相应的属性,如下表3.235所示。表3.235レ控件命令按钮+单选按钮1单选単钮2单选オ安钮3。属性Name*3IndexバCaption*IndexバCaptior>Index*3Caption*设置值显示J〇バ正方形Q2椭圆形・2~圆形"步骤2:分析并编写程序代码。程序提供代码PrivateSubCl_Click()DimkAsIntegerFork=0To2IfOpl(k).Value=TrueThenCalldraw(k)EndIfNextkEndSubSubdraw(aAsInteger)Pl.Print”选择了“&Opl(a).CaptionEndSub程序结束步骤3:调试并运行程序,关闭程序后按题目要求存盘。题目三片综合应用题【考点分析】本题考点有:文本框的Text属性,Function()函数,数组的定义和应用,Val()函数,If判断语句和For循环语句。【解题思路】单击“査找''按钮,先用Val()函数将文本框中的字符串转化为数值,然后通过For循环,通过调用Function)函数用If语句找岀满足条件的三个素数,最后通过For循环语句将找到的素数放在标签控件数组中。【操作步骤】步骤1:打开本题工程文件。步骤2:分析并编写程序代码。程序提供代码PrivateFunctionlsPrime(ByValxAsInteger)AsBooleanDimiAsIntegerFori=2ToSqr(x)IfxModi=0ThenIsPrime=FalseExitFunctionEndIfNextIsPrime=TrueEndFunctionPrivateSubCommandl_Click()’考生编写程序开始，考生编写程序结束OpenApp.Path&"\out5.dat"ForOutputAs#1Print#l/Textl.Text/Labell(O).Caption,Labell(l).Caption,Labell(2).Caption

Close#1EndSub程序结束参考答案DimiAsIntegerDimnAsIntegerDimcounterAsIntegerDimarr(3)AsIntegern=Val(Textl.Text)counter=0Fori=n-2To3Step-2IfIsPrime(i)Thenarr(counter)=icounter=counter+1Ifcounter=3ThenExitForEndIfEndIfNextFori=0To2Labell(i).Caption=arr(i)Next步骤3:调试并运行程序,关闭程序后按题冃要求存盘。，.二」:「第72套题解析题目ぐ基本操作题(1)【考点分析】本题考点有:计时器的Name、Interval属性利窗体的。【解题思路】将计时器的Interval属性设置为1000就能使程序在运行时每隔・秒种调用计时器的Timer事件一次。【操作步骤】步骤1:建立界面,添加控件并设置控件的属性。程序中用到的控件及属性见表3.236。表3.236"控件计时器”窗体。属性Name*3Interval*NameバCaption^设置值Timer】バ1000バFormic题目22歩:舞2:调试并运行程序,关闭程序后按题冃要求存盘。(2)【考点分析】本题考点有:文本框的Name、Text属性，图片框的Name属性和Print方法。【解题思路】根据题意建立相应控件并通过属性窗口设置属性。在文本框的Change事件中，将文本框的Text内容通过图片框的Print方法显示在图片框内。【操作步骤】步骤1:建立界面,添加控件并设置控件的属性。程序中用到的控件及属性见表3.237。步骤2:编写程序步骤2:编写程序イー可参考答案控件文本框图片框属性NameTextName设置值TextlPl表3.237PrivateSubTextl_Change()Pl.PrintTextl.TextEndSub步骤3:调试并运行程序,关闭程序后按题目要求存盘。题目二:简单应用题(1)【考点分析】本题考点有:控件数组,单选按钮的Caption、Value属性,命令按钮的Caption属性,窗体的Print方法,If判断语句和For循环语句。【解题思路】根据题意通过属性窗口的Caption属性分别设置三个单选按钮和命令按钮的标题,并把"广州"的Value属性设为True。通过窗体的Print方法将选择的结果显示在窗体上。【操作步骤】步骤1:打开本题工程文件，并设置控件的属性。程序中用到的控件及属性见表3.238。表3.238,控件单选按钮1*单选按钮2バ单选按钮3P命令按钮”属性Caption^Value*3Caption*Value*3Caption*Value*3Caption*^设置值北京・Falser上海バFalse*5广州，Trueレ显ホい步骤2:分析并编写程序代码。程序提供代码PrivateSubCl_Click()Fori=0To2IfOpl(i).Value=TrueThenPrim”我一出生地是“+Opl(i).CaptionEndIfNextEndSub程序结束步骤3:调试并运行程序，关闭程序后按题目要求存盘。(2)【考点分析】本题考点有:标签的Name、Caption、Font、Font.Size属性,组合框的Name>List、Text属性。【解题思路】根据题意建立相应控件并通过属性窗口设置属性,并通过List属性分别向组合框1和组合框2中添加项目。标签1即L1中的字体大小由组合框1中选项决定,L1中的字体由组合框2中的选项决定。【操作步骤】步骤1:打开本题工程文件，添加控件并设置控件的属性。程序中用到的控件及属性见表3.239 和 3.240 <表3.239,控件。标签标签2バ属性。NamsCaptionバHeightバWidthバName-Caption-设置值「L1戸计算机等级考试バ500バ3000バ字ラバ表3.240，控件。组合框1バ组合框2。标签3。属性。Name+LisレName^List/Name*3Captions设置值。Cb310s15、20aCb2^黑体、隶书、宋体。B2バ字体・步骤2:分析并编写程序代码。程序提供代码PrivateSubCbl_Click()要求考生编写而内容EndSubPrivateSubCb2__Click()凜求考生编写画内容EndSubPrivateSubForm_Unload(CancelAsInteger)OpenApp.Path&"\out4.txゼ'ForOutputAs#1Print#1,Cbl.Text,Cb2.Text,Clnt(Ll.Font.Size)zLI.FontClose#1EndSub程序结束参考答案PrivateSubCbl_Click()Ll.Font.Size=Cbl.TextEndSubPrivateSubCb2_Click()LI.Font=Cb2.TextEndSub步骤3:调试