【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。
网学会员整理了VB开源代码-【精品】全国计算机 二级 VB上机操作题 题目答案及解析 - 其它资料的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！
85 （1）【考点分析】本题考点有：文本框的Name、Height、Width、Font、FontSize属性，窗体的Caption、MaxButton、MinButton属性。
【解题思路】根据题意添加控件并设置相应属性。
不显示窗体的最大化和最小化按钮只需将其MaxButton和MinButton属性设为False即可。
【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。
程序中用到的控件及属性见表3.275。
步骤2：调试并运行程序，关闭程序后按题目要求存盘。
（2）【考点分析】本题考点有：图像框的Name、Picture、Stretch属性，命令按钮的Name、Caption属性。
【解题思路】图像框（Image）的Picture属性用于在
设计阶段设置在图像框中显示的图片，它的Stretch（自动伸缩）属性用来设定载入其中的图片是否需要自动调整大小，以适应图像框的大小。
本题要在单击按钮时实现quot向右移动quot或quot向下移动quot的功能，应在程序中动态设置图像框的Left和Top属性。
【操作步骤】 步骤1：建立界面，添加并设置控件的属性。
程序中用到的控件及属性见表3.276。
4 步骤2：编写程序
代码。
参考答案 PrivateSubCommand1_Click Image1.LeftImage1.Left100 EndSub PrivateSubCommand2_Click Image1.TopImage1.Top100 EndSub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
（1） 【考点分析】本题考点有：命令按钮的Caption属性和Click事件，直线控件的X1、X2、Y1、Y2属性，形状控件的Shape属性，Sin函数，Cos函数以及计时器的Enabled属性和Timer事件。
【解题思路】 Sin函数和Cos函数分别返回变量的正弦和余弦值；通过X1、X2、Y1、Y2属性来设置直线的端点。
将计时器的Enabled属性设为True和False来控制直线开始和停止旋转。
【操作步骤】 步骤1：打开本题工程文件。
步骤2：分析并编写程序
代码。
程序提供
代码 DimlenthAsIntegerqAsInteger ConstPI3.14159 PrivateSubForm_Load lenthLine1.Y2‐Line1.Y1 q90 EndSub PrivateSubTimer1_Timer qq‐6 Line1.Y1Line1.Y2‐lenthSinqPI/180 Line1.X1Line1.X2lenthCosqPI/180 EndSub PrivateSubCommand1_Click 考生要编写的内容 EndSub PrivateSubCommand2_Click 考生要编写的内容 EndSub 程序结束 参考答案 PrivateSubCommand1_Click Timer1.EnabledTrue EndSub PrivateSubCommand2_Click Timer1.EnabledFalse EndSub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
（2） 【考点分析】本题考点有：命令按钮的Caption属性和Click事件，单选按钮的命令按钮的Caption、Value属性，Mid 函数，Len 函数，UCase 函数，LCase 函数，Chr函数，Asc函数，If判断语句和For循环语句。
【解题思路】Mid函数的语法为：Mid 字符串pn，表示从位置p开始取字符串的n个字符；Len函数是测试字符串的长度；UCase函数是把小写字母转化为大写字母；LCase函数是把大写字母转换为小写字母；Chr函数的作用是把数字或字符串的值转换为对应的ASCII码值； Asc函数的作用是返回字符串中第一个字符的ASCII码。
【操作步骤】 步骤1：打开本题工程文件 步骤2：分析并编写程序
代码。
程序提供
代码 PrivateSubCommand1_Click DimnAsIntegerkAsIntegerchAsStringaAsString nLenText1.Text chquotquot Fork1Ton aMidText1.Textk1 IfOption1.ValueTrueThen IfagtquotaquotAndaltquotzquotThen chchUCasea ElseIfagtquotAquotAndaltquotZquotThen chchLCasea Else chcha EndIf EndIf IfOption2.ValueTrueThen chUCaseText1 EndIf IfOption3.ValueTrueThen chLCaseText1 EndIf Text2ch Nextk EndSub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【考点分析】本题考点有：文件操作，Function 过程函数，CInt 函数，Int 函数， App.Path 相对路径，If判断语句，Do……Loop循环语句和While循环语句。
【解题思路】根据题意，单击quot读数quot按钮，将考生文件夹下in5.txt文件中的一个整数放入Text1中。
isprime函数是用于判断参数是否为素数的； CInt函数作用是把自变量的小数部分四舍五入，转换为整数；Int函数用于求不大于自变量的最大整数。
【操作步骤】 步骤1：打开本题工程文件。
步骤2：分析并编写程序
代码。
程序提供
代码 PrivateSubCommand1_Click OpenApp.Pathampquotin5.txtquotForInputAs1 Input1a Text1.Texta Close1 EndSub PrivateSubCommand2_Click 需要考生编写的内容 EndSub FunctionisprimeaAsInteger 需要考生编写的内容 EndFunction PrivateSubCommand3_Click OpenApp.Pathampquotout5.txtquotForOutputAs1 Print1Text2.Text Close1 EndSub 程序结束 参考答案 PrivateSubCommand2_Click aCIntText1.Text Do aa1 LoopUntilisprimea Text2.Texta EndSub FunctionisprimeaAsInteger DimflagAsBoolean k2 flagTrue WhilekltInta/2Andflag Ifa/kInta/kThen flagFalse EndIf kk1 Wend isprimeflag EndFunction 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【考点分析】 84 （1） 本题考点有：文本框的Name、Text属性，水平滚动条的Name、SmallChange、LargeChange、Min、Max、Value属性和Val函数。
【解题思路】通过属性窗口Name、Min和Max属性设置水平滚动条的名称、最小值和最大值。
SmallChange是单击滚动条两端的箭头时，Value属性增加或减少的增量值。
LargeChange是单击滚动条中滚动看前面或后面的部位时， Value属性增加或减少的增量值。
【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。
程序中用到的控件及属性见表3.271。
步骤2：编写程序
代码。
参考答案 PrivateSubForm_Click HScroll1.ValueValText1.Text EndSub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
（2）【考点分析】本题考点有：标签的Name、Caption、AutoSize、FontSize属性，列表框的List、Text属性和Click事件。
【解题思路】根据题意建立控件并设置相应的属性。
要实现标题自动调整大小只需将标签的AutoSize属性设为True就好。
【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。
程序中用到的控件及属性见表3.272。
步骤2：编写程序
代码。
参考答案 PrivateSubList1_Click Label1.FontSizeList1.Text EndSub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
（1）【考点分析】本题考点有：文本框的Text属性，列表框的ListCount、List属性和AddItem方法及Clear方法，vbCrLf符号常量，quotampquot连接符以及For循环语句。
【解题思路】通过For循环，将列表框中的内容（包括空格和回车）通过quotampquot连接符连接起来并放入变量s中，然后用列表框的Clear方法清空列表框，并将变量s的值在文本框中显示出来。
【操作步骤】 步骤1：打开本题工程文件。
步骤2：分析并编写程序
代码。
程序提供
代码 PrivateSubCommand1_Click Fori0ToList1.ListCount‐1 ssampList1.ListiampvbCrLf Nexti List1.Clear Text1.Texts EndSub PrivateSubForm_Load List1.quot枯藤老树昏鸦，quot List1.AddItemquot小桥流水人家，quot List1.AddItemquot古道西风瘦马。
quot List1.AddItemquot夕阳西下，quot List1.AddItemquot断肠人在天涯。
quot EndSub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
（2） 【考点分析】本题考点有：计时器的Enabled、Interval属性，标签的Caption、Visible属性，命令按钮的Caption属性。
【解题思路】在Form_Load事件中，将计时器的Enabled 属性设为False，并将其Interval属性设为200，使得标签可以每隔0.2秒闪烁一次。
单击quot开始quot按钮，将计时器的Enabled 属性设为True；单击quot停止quot按钮，将计时器的Enabled 属性设为False。
在Timer1_Timer事件中用语句Label1.VisibleNotLabel1.Visible实现标签的闪烁。
【操作步骤】 步骤1：打开本题工程文件 步骤2：分析并编写程序
代码。
程序提供
代码 PrivateSubForm_Load Timer1.EnabledFalse Timer1.Interval200 Label1.Captionquot注意！quot Command1.Captionquot开始quot Command2.Captionquot停止quot EndSub PrivateSubCommand1_Click Timer1.EnabledTrue EndSub PrivateSubCommand2_Click Timer1.EnabledFalse EndSub PrivateSubTimer1_Timer Label1.VisibleNotLabel1.Visible EndSub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【考点分析】本题考点有：命令按钮的Name、Caption属性，文本框的Name、MultiLine、ScrollBars、Text属性，Asc函数，Mid函数，Len函数，文件操作，If判断语句和For循环语句。
【解题思路】单击quot显示quot命令按钮，通过文件操作将in5.txt文件中的内容读入变量s中，并将s在文本框中显示出来；单击quot统计quot命令按钮，在For循环中，利用Mid函数获取字符串中的单个字符，用Asc 函数将其转化为ASCII码值并存入变量c中，通过If语句对c值进行判断，若c值大于等于70并且小于等于100，则n值加1，然后将n值显示在文本框中；单击quot保存quot命令按钮，通过文件操作将统计结果存入文件out5.txt中。
【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。
程序中用到的控件及属性见表3.273和表3.274。
步骤2：编写程序
代码。
参考答案 PrivateSubCommand1_Click Openquotin5.txtquotForInputAs1 LineInput1s Close1 Text1s EndSub PrivateSubCommand2_Click n0 Fori1ToLenText1 cAscMidText1i1 Ifcgt70Andclt100Thennn1 Nexti Text1n EndSub PrivateSubCommand3_Click Openquotout5.txtquotForOutputAs1 Print1Text1 Close1 EndSub 步骤3：调试并运行程序，关闭
程序后按题目要求存盘。
【考点分析】本题考点有：命令按钮Name、Caption属性，文本框的Name、 83 1）Text、FontSize属性。
【解题思路】根据题意添加控件并设置相应属性。
文本框中文本字体的扩大或缩小由其FontSize属性决定。
【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。
程序中用到的控件及属性见表3.268。
步骤2：编写程序
代码。
参考答案 PrivateSubCommand1_Click Text1.FontSizeText1.FontSize1.2 EndSub PrivateSubCommand2_Click Text1.FontSizeText1.FontSize/1.2 EndSub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
（2）【考点分析】本题考点有：
列表框的Name、List、Text属性，文本框的Name、Text属性，水平滚动条的Name、Max、Min、Value属性。
【解题思路】根据题意添加控件并通过属性窗口设置相应属性。
并在List1_Click事件中将List1.Text分别赋给文本框和滚动条的Value属性 【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。
程序中用到的控件及属性见表3.269和3.270。
步骤2：编写程序
代码。
参考答案 PrivateSubList1_Click Text1List1.Text HScroll1.ValueList1.Text EndSub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
（1）【考点分析】本题考点有：列表框的List、ListCount属性，MsgBox语句，列表框的AddItem方法和RemoveItem方法，If判断语句。
【解题思路】 向列表框添加项目使用AddItem方法，删除列表项使用RemoveItem方法。
【操作步骤】 步骤1：打开本题工程文件。
步骤2：分析并编写程序
代码。
程序提供
代码 PrivateSubCommand1_Click IfOption1.ValueTrueAndText1.TextltgtquotquotThen List1.AddItemText1.Text Text1.Textquotquot Else IfOption2.ValueTrueAndList1.ListIndexgt0Then List1.RemoveItemList1.ListIndex Else MsgBoxquot未输入或未选定项目quot EndIf EndIf EndSub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
（2） 【考点分析】本题考点有：文本框的Text属性，数据类型，Do……Loop循环语句。
【解题思路】用Do……Loop循环实现对π值的计算，其中用Sign变量来控制正负号，用Result实现公式的迭代。
【操作步骤】 步骤1：打开本题工程文件 步骤2：分析并编写程序
代码。
程序提供
代码 PrivateSubCommand1_Click DimResultAsDouble DimSignAsInteger DimiAsInteger Result0 Sign1 i1 Do ResultResult1/iSign ii2 Sign‐Sign LoopWhile1/igt0.0001 Text1.TextResult4 EndSub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【考点分析】本题考点有：文本框的Text属性，文件操作，Len函数，Left函数，Mid函数，UCase函数，quotquot连接符，If判断语句和For循环语句。
【解题思路】本题中，首先通过文件的读取操作将文件in5.txt中的全部文本放入文本框中；利用Mid函数取出字符串中的字符，UCase函数和Left函数将文本框中的每个单词的首字母变为大写字母；最后将文本框的内容保存到out5.txt文件中。
【操作步骤】 步骤1：打开本题工程文件。
步骤2：分析并编写程序
代码。
程序提供
代码 PrivateSubCommand1_Click 需考生编写的内容 EndSub PrivateSubCommand2_Click DimoldSenAsString DimnewSenAsString DimchAsString DimlastChAsString oldSenText1.Text strlenLenoldSen lastChLeftoldSen1 Fori1Tostrlen chMidoldSeni1 IflastChquotquotThen chUCasech EndIf newSennewSench lastChch Nexti Text1.TextnewSen EndSub PrivateSubCommand3_Click Openquotout5.txtquotForOutputAs1 Write1Text1.Text Close1 EndSub 程序结束 参考答案 Openquotin5.txtquotForInputAs1 LineInput1s Close1 Text1.Texts 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【考点分析】 82 （1） 本题考点有： 标签的Name、Caption、BorderStyle、AutoSize、Visible属性，窗体的Caption属性和Click事件。
【解题思路】根据题意建立控件并设置相应的属性。
要实现标题自动调整大小只需将标签的AutoSize属性设为True就好。
【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。
程序中用到的控件及属性见表3.266。
步骤2：编写程序
代码。
参考答案 PrivateSubForm_Click Label1.VisibleFalse Form1.CaptionLabel1.Caption EndSub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【考点分析】 （2） 本题考点有：单选按钮的Name、Caption属性，文本框的Name、Text属性。
【解题思路】根据题意建立控件并设置相应的属性。
在文本框中显示对应选择单选按钮的数字。
【操作步骤】 步骤1：建立界面，添加控件并设置控件的属性。
程序中用到的控件及属性见表3.267。
步骤2：编写程序
代码。
参考答案 PrivateSubOp1_Click Text11 EndSub PrivateSubOp2_Click Text12 EndSub PrivateSubOp3_Click Text13 EndSub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
（1）【考点分析】本题考点有：Int函数，Rnd函数，窗体的Click事件，quotampquot连接符，vbCrLf常量，If判断语句和For循环语句。
【解题思路】符号常量vbCrLf代表Chr13 amp Chr10即回车符与换行符。
利用随机函数Rnd随机产生16个整数。
【操作步骤】 步骤1：打开本题工程文件。
步骤2：分析并编写程序
代码。
程序提供
代码 OptionBase1 PrivateSubForm_Click DimMat44AsInteger DimNAsIntegerMAsInteger DimSAsStringTAsString N4 M4 Randomize Squot初始矩阵为：quot Fori1ToN SSampvbCrLf Forj1ToM MatijIntRnd100 SSampStrMatijampquot quot Nextj Nexti SSampvbCrLfampquot矩阵对角线上的数为：quotampvbCrLf Print Tquotquot Fori1ToN Forj1ToM IfijThen TTampStrMatijampquot quot EndIf Nextj Nexti Text1.TextST EndSub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【 （2）考点分析】 本题考点有：水平滚动条的Value属性，计时器的Interval、Enabled属性，If判断语句。
【解题思路】单击quot开始quot按钮时，将计时器的Enabled属性设为True。
在计时器的Timer事件中，用n1变量控制HScroll1的Value值，用n2变量控制HScroll2的Value值。
当n1101超出HScroll1的Max值时，将n1值设为0，让HScroll1的滚动框从最右端自动回到最左端；当n2‐1超出HScroll2的Min值时，将n2值设为100，让HScroll1的滚动框从最左端自动回到最右端。
【操作步骤】 步骤1：打开本题工程文件 步骤2：分析并编写程序
代码。
程序提供
代码 Dimn1AsIntegern2AsInteger PrivateSubForm_Load Timer1.Interval50 Timer1.EnabledFalse HScroll1.Value0 HScroll2.Value100 n10 n2100 EndSub PrivateSubCommand1_Click Timer1.EnabledTrue EndSub PrivateSubCommand2_Click Timer1.EnabledFalse EndSub PrivateSubTimer1_Timer n1n11 Ifn1101Thenn10 HScroll1.Valuen1 n2n2‐1 Ifn2‐1Thenn2100 HScroll2.Valuen2 EndSub 程序结束 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【考点分析】本题考点有：文本框的Text属性，Len函数，Mid函数，UCase函数，Asc函数，quotquot连接符，If判断语句和For循环语句。
【解题思路】单击quot计算/保存quot按钮，先用Len函数测试文本框中内容的长度，通过For循环，计算当前文本框中显示的所有字符的ASCII码之和，然后将结果保存到文件out5.txt中。
其中Asc函数是求出字符对应的ASCII码值。
【操作步骤】 步骤1：打开本题工程文件。
步骤2：分析并编写程序
代码。
程序提供
代码 PrivatetmpStrAsString PrivateSubCommand1_Click OpenApp.Pathampquotin5.txtquotForInputAs1 DoWhileNotEOF1 Input1a SSampa Loop Close1 Text1.TextS EndSub PrivateSubCommand2_Click strlenLenText1.Text tmpStrquotquot Fori1Tostrlen chMidT.
相关文章
2013-9-15
