全国计算机二级VB上机题库(题+答案)

一、基本操作题下面出现的“考生文件夹”均为c:\wexam\20060001。请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。1．在窗体上建立一个二级菜单，该菜单含有“文件”和“帮助”两个主菜单项（名称分别为vbFile和vbHelp），其中“文件”菜单包括“打开”、“关闭”和“退出”三个子菜单项（名称分别为vbOpen、vbClose和vbExit）。只建立菜单，不必定义其事件过程。注意：保存时必须存放在考生文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。2．在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2、标题分别为“喜欢”和“不喜欢”的命令按钮。编写适当的事件过程，要求程序运行后，如果单击“喜欢”命令按钮，则在窗体上显示“数理化”；如果单击“不喜欢”命令按钮，则在窗体上显示“政史地”。程序中不能使用任何变量，直接显示字符串。注意：保存时必须存放在考生文件夹下，窗体文件名为kt2.frm，工程文件名为kt2.vbp。一、基本操作题答案1．【解题步骤】（1）打开“菜单编辑器”。（2）菜单设计见表4-1。表4-1标题名称内缩符号文件vbFile0打开vbOpen1关闭vbClose1退出vbExit1帮助vbHelp0（3）按要求设计含有“文件”和“帮助”的菜单栏。（4）为“文件”菜单设计“打开”、“关闭”和“退出”三个子菜单项。（5）设计完成之后，按规定方式存盘。2．【解题步骤】（1）建立界面和控件并设置控件属性。程序中用到的控件及其属性见表4-2。表4-2控件属性设置值按钮NameCmd1Caption喜欢按钮NameCmd2Caption不喜欢（2）编写程序代码。参考代码：PrivateSubCmd1_Click()Print数理化EndSubPrivateSubCmd2_Click()Print政史地EndSub（3）调试并运行程序。（4）按题目要求存盘。二、简单应用题下面出现的“考生文件夹”均为c:\wexam\20060001。1．在考生文件夹中有工程文件kt3.vbp及其窗体文件kt3.frm，该程序是不完整的，请在有“？”号的地方填入正确内容，然后删除“？”及所有注释符（即“'”号），但不能修改其他部分。保存时不得改变文件名和文件夹。本题描述如下：在窗体上有一个列表框，名称为List1；一个文本框，名称为Text1；一个命令按钮，名称为C1，标题为“复制”。要求程序运行后，在列表框中自动建立4个列表项，分别为Item1、Item2、Item3和Item4。如果选择列表框中的一项，单击“复制”按钮，就可以把该项复制到文本框中。2．在考生文件夹中有工程文件kt4.vbp及其窗体文件kt4.frm，该程序是不完整的，请在有“？”号的地方填入正确内容，然后删除“？”及所有注释符（即“'”号），但不能修改其他部分。保存时不得改变文件名和文件夹。在窗体上有3个复选框，名称分别为Ch1、Ch2和Ch3，标题分别为“体育”、“音乐”和“美术”，还有一个命令按钮，名称为C1，标题为“显示”。要求程序运行后，如果选中某个复选框，当单击“显示”命令按钮时，则显示相应的信息。例如，如果选中“体育”和“美术”复选框，单击“显示”命令按钮后，在窗体上显示“我的爱好是体育美术”。二、简单应用题答案1．【解析步骤】（1）首先按要求打开给定工程文件kt3.vbp及其窗体文件kt3.frm。（2）在窗体上建立控件并设置控件属性。程序中用到的控件及属性设置见表4-3。表4-3控件属性设置值列表框NameList1文本框NameText1命令按钮NameC1Caption复制（3）进入代码窗口，得到如下程序代码：OptionExplicitPrivateSubC1_Click()miAsInteger'Fori=?ToList1.ListCount-1IfList1.Selected(i)=TrueThen'?=List1.List(i)EndIfNextiEndSubPrivateSubForm_Load()List1.AddItemItem1List1.AddItemItem2List1.AddItemItem3List1.AddItemItem4EndSub（4）For语句循环变量的起始值为0。（5）列表框的Text属性为最后一次选中的表项的文本。（6）修改这两处的代码。参考代码如下：OptionExplicitPrivateSubC1_Click()DimiAsIntegerFori=0ToList1.ListCount-1IfList1.Selected(i)=TrueThenText1.Text=List1.List(i)EndIfNextiEndSubPrivateSubForm_Load()List1.AddItemItem1List1.AddItemItem2List1.AddItemItem3List1.AddItemItem4EndSub（7）调试并运行。（8）按题目要求存盘。2．【解析步骤】（1）在窗体上先按要求建立控件，设置控件属性，程序中用到的控件及属性见表4-4。表4-4对象属性设置值复选按钮NameCh1Caption体育复选按钮NameCh2Caption音乐复选按钮NameCh2Caption美术标签Caption爱好按钮NameC1Caption显示（2）打开代码窗口，程序提供的代码如下：OptionExplicitPrivateSubC1_Click()'DimsAs?s=我的爱好是IfCh1.Value=1Thens=s+Ch1.CaptionEndIfIfCh2.Value=1Thens=s+Ch2.CaptionEndIfIfCh3.Value=1Thens=s+Ch3.CaptionEndIf'Print?EndSub（3）读懂程序，分析代码。①通过语句s=我的爱好是可知s为字符串，所以应改为：DimsAsString②由语句：s=s+Chx.Caption可知输出的变量为s，所以应改为：Prints（4）编写程序代码，整理后可得如下参考代码：OptionExplicitPrivateSubC1_Click()DimsAsStrings=我的爱好是IfCh1.Value=1Thens=s+Ch1.CaptionEndIfIfCh2.Value=1Thens=s+Ch2.CaptionEndIfIfCh3.Value=1Thens=s+Ch3.CaptionEndIfPrintsEndSub（5）调试并运行程序。（6）按题目要求存盘。三、综合应用题在考生文件夹中有工程文件kt5.vbp及其窗体文件kt5.frm，该程序是不完整的，请在有“？”号的地方填入正确内容，然后删除“？”及所有注释符（即“'”号），但不能修改其他部分。本题描述如下：在名称为Form1的窗体上有两个单选按钮，名称分别为Opt1和Opt2，标题分别为“100～200之间素数”和“200～400之间素数”；一个文本框，名称为Text1；两个命令按钮，其名称分别为Cmd1和Cmd2，标题分别为“计算”和“存盘”。程序运行后，如果选中一个单选按钮并单击“计算”按钮，则计算出该单选按钮标题所指明的所有素数之和，并在文本框中显示出来。如果单击“存盘”按钮，则把计算结果存入out.txt文件中，该文件必须放在考生文件夹中（在考生文件夹中有标准模块mode.bas，其中的putdata过程可以把结果存入指定的文件，而isprime函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False，考生可以将该模块文件添加到自己的工程中）。注意：必须把素数之和存入考生文件夹下的out.txt文件中，否则没有成绩。保存程序时必须存放在考生文件夹下，窗体文件名为kt5.frm，工程文件名为kt5.vbp。三、综合应用题答案【解析步骤】（1）建立界面并设置控件属性。题目提供了程序用到的控件及其属性，见表4-5。表4-5控件属性设置值单选按钮NameOp1Caption100～200之间素数单选按钮NameOp2Caption200～400之间素数文本框NameText1命令按钮NameCmd1Caption计算命令按钮NameCmd2Caption存盘（2）打开代码窗口，得到程序提供的代码如下：'标准模块代码OptionExplicitSubputdata(t_FileNameAsString,T_StrAsVariant)DimsFileAsStringsFile=＼&t_FileNameOpenApp.Path&sFileForOutputAs#1Print#1,T_StrClose#1EndSubFunctionisprime(t_IAsInteger)AsBooleanDimJAsIntegerisprime=FalseForJ=2Tot_I/2Ift_IModJ=0ThenExitForNextJIfJt_I/2Thenisprime=TrueEndFunction'窗体代码PrivateSubCmd1_Click()DimiAsIntegerDimtempAsLong'temp=?IfOpt2.ValueThenFori=200To400'Ifisprime(?)Thentemp=temp+iEndIfNextElseFori=100To200Ifisprime(i)Thentemp=temp+iEndIfNextEndIf'Text1.?=tempEndSubPrivateSubCmd2_Click()putdata＼out.txt,Text1.TextEndSub（3）分析代码，找出答案。①temp用来存放累加和，所以必须初始化，即：temp=0②Text1显示temp的值，所以使用Text1的Text属性，即：Text1.Text=temp（4）整理代码，标准模块代码内没有错误，得到窗体参考代码如下：PrivateSubCmd1_Click()DimiAsIntegerDimtempAsLongtemp=0IfOpt2.ValueThenFori=200To400Ifisprime(i)Thentemp=temp+iEndIf一、基本操作题下面出现的“考生文件夹”均为c:\wexam\20060001。请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。1．在名称为Form1的窗体中，建立一个名称为Cmd1、标题为“显示”的命令按钮。要求程序运行后，如果单击“显示”按钮，则执行语句Form1.Print显示；如果单击窗体，则执行语句Form1.Cls。注意：保存时必须存放在考生文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。2．在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小值为0。要求程序运行后，每次移动滚动框时，都执行语句Form1.PrintHS1.Value（程序中不能使用任何变量）。注意：保存时必须存放在考生文件夹下，窗体文件名为kt2.frm，工程文件名为kt2.vbp。1．【解析步骤】（1）本题只用到了1个命令按钮，在窗体上建立这个控件。（2）将其Caption属性设置为“显示”，将Name属性设置为Cmd1。（3）在窗体上打印信息用Print方法。参考代码如下：PrivateSubCmd1_Click()Form1.Print显示EndSub（4）清除窗体上的打印信息使用Cls方法。参考代码如下：PrivateSubForm_Click()Form1.ClsEndSub（5）调试并运行程序。（6）按题目要求存盘。2．【解析步骤】（1）建立界面并设置控件属性。本程序中用到1个滚动框，按题意将其命名为HS1，即将其Name属性设置为HS1。（2）HS1的Min和Max属性分别设置为0和100。（3）清除窗体上原来的显示值可以用Cls方法来实现。当滚动框的位置改变