1、二级 VISUAL+BASIC 机试-111 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)请根据以下个小题的要求设计 Visual Basic 应用程序(包括界面和代码)（分数：30.00）(1).在窗体上建立一个二级菜单，该菜单含有“文件”和“帮助”(名称分别为 vbFile 和 vbHelp)两个主菜单项，其中“文件”菜单包括“打开”、“关闭”和“退出”3 个子菜单项(名称分别为vbOpen、vbClose 和 vbExit)，如图 11-8 所示。只建立菜单，不必定义其事件过程。注意：窗体文件名为 sjt1.frm，工程文件名为
2、为 sjt1.vbp。（分数：15.00）_(2).在名为 Form1 的窗体上画一个框架，名称为 Frm1，标题为“框架”，高度为 2500，宽度为 4000，框架内建立一文本框，距左边框 600，距框架的上边框 1200，文本框中的初始内容设置为“文本框”，程序运行界面如图 11-9 所示。注意：窗体文件名为 sjt2.frm，工程文件名为 sjt2.vbp。*（分数：15.00）_二、2 简单应用题(总题数：2，分数：40.00)1.在考生文件夹中有工程文件 Sjt3.vbp 及其窗体文件 sjt3.frm，该程序是不完整的，请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(
3、即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下。在窗体上有一个列表框，名称为 Ljst1，一个文本框，名称为 Text1，和一个命令按钮，名称为 C1，标题为“复制”。要求程序运行后，在列表框中自动建立 4 个列表项，分别为“Item1”、“Item2”、“Item3”、“Item4”如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中，如图 11-10 所示。（分数：20.00）_2.在考生文件夹中有工程文件 sjt4.vbp 及其窗体文件 sjt4.frm，该程序是不完整的，请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“”号
4、)但不能修改其他部分。存盘时不得改变文件名和文件夹。在窗体有 3 个复选框，名称分别为 Ch1、ch2 和 ch3，标题分别为“体育”、“音乐”、“美术”，还有一个命令按钮，名称为 C1，标题为“显示”。要求程序运行后，如果选中某个复选框，当单击“显示”命令按钮时，则显示相应的信息。例如，如果选中“体育”和“美术”复选框，单击“显示”命令按钮后，在窗体上显示“我的爱好是体育美术”，如图 11-11 所示。（分数：20.00）_三、3 综合应用题(总题数：1，分数：30.00)3.在考生文件夹中有工程文件 sjt5.vbp 及其窗体文件 sjt5.frm，陔程序是不完整的，请在有“?”号的地方填
5、入正确内容，然后删除“?”及所有注释符(即“”号)但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下。在名称为 Form1 的窗体上有两个单选按钮，名称分别为 Opt1 和 Opt2，标题分别为“100200 之间素数”和“200400 之间素数”，一个文本框，名称为 Text1，两个命令按钮，其名称分别为 Cmd1 和 Cmd2，标题分别为“计算”和 1，如图 11-12 所示。程序运行后，如果选中一个单选按钮并单击“计算”按钮，则计算该单选按钮标题所指明的所有素数之和。并在文本框中显示出来。如果单击“存盘”按钮，则把汁算结果存入“out.txt”文件中，该文件必须放在考生文件夹
6、中。(在考生文件夹中有标准模块mode.bas，其中的 putdata 过程可以把结果存入指定的文件，而 isprime 函数可以判断整数 x 是否为素数，如果是素数，则函数返回 True，否则返回 False，考生可以将该模块文件添加到自己的工程中。)注意：窗体文件名为 sjt5.frm，工程文件名为 sit5.vbp。（分数：30.00）_二级 VISUAL+BASIC 机试-111 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)请根据以下个小题的要求设计 Visual Basic 应用程序(包括界面和代码)（分数：30.00）(1)
7、.在窗体上建立一个二级菜单，该菜单含有“文件”和“帮助”(名称分别为 vbFile 和 vbHelp)两个主菜单项，其中“文件”菜单包括“打开”、“关闭”和“退出”3 个子菜单项(名称分别为vbOpen、vbClose 和 vbExit)，如图 11-8 所示。只建立菜单，不必定义其事件过程。注意：窗体文件名为 sjt1.frm，工程文件名为为 sjt1.vbp。（分数：15.00）_正确答案：(打开“菜单编辑器”窗口，建立菜单项。用到的菜单项及其属性如表 11-1 所示。表 11-1标题 名称 内缩符号文件 vbFile 0打开 vbOpen 1关闭 vbClose 1退出 vbExit 1
8、帮助 vbHelp 0(2)调试并运行程序。(3)按题目要求存盘。)解析：解析 在 Visual Basic 中，菜单项通过菜单编辑器来建立。(2).在名为 Form1 的窗体上画一个框架，名称为 Frm1，标题为“框架”，高度为 2500，宽度为 4000，框架内建立一文本框，距左边框 600，距框架的上边框 1200，文本框中的初始内容设置为“文本框”，程序运行界面如图 11-9 所示。注意：窗体文件名为 sjt2.frm，工程文件名为 sjt2.vbp。*（分数：15.00）_正确答案：(解题步骤如下。(1)设置框架的 Height、Width 属性分别为 2500、4000；文本框的
9、Left、Top 属性值分别为600、1200。(以上均可在属性栏里设置。)(2)调试并运行程序。(3)按题目要求存盘。)解析：解析 在窗体上建立好控件后，再按题目要求设置各自的属性即可。需要指出的是，在框架里的控件需要画出框架后，单击工具箱里的控件，然后在框架里拖动画出所需控件，不可以用双击的方法，否则所需的控件放不到框架里。窗体中的控件的具体位置由控件的 Top、Left 属性设置，大小由属性Height、Width 设置。二、2 简单应用题(总题数：2，分数：40.00)1.在考生文件夹中有工程文件 Sjt3.vbp 及其窗体文件 sjt3.frm，该程序是不完整的，请在有“?”号的地方
10、填入正确内容，然后删除“?”及所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下。在窗体上有一个列表框，名称为 Ljst1，一个文本框，名称为 Text1，和一个命令按钮，名称为 C1，标题为“复制”。要求程序运行后，在列表框中自动建立 4 个列表项，分别为“Item1”、“Item2”、“Item3”、“Item4”如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中，如图 11-10 所示。（分数：20.00）_正确答案：(向列表框中添加项目可以用 AddItem 方法，也可以在属性窗口中进行。但题目中要求是程序运行后自动添加，所以利用
11、代码实现。列表框的 Text 属性为最后一次选中的表项的文本。解题步骤如下。(1)建立界面并设置控件属性。程序中用到的控件及属性设置如表 11-2 所示。表 11-2控 件 属 性 设置值 列表框 Name List1 文本框 Name Text1 命令按钮 Name Caption C1 复制(2)编写程序代码。程序提供的代码：Option ExplicitPrivate Sub C1_Click()Dim i As IntegerFor i=? TO List1.ListCount-1If List1.Selected(i)=True Then? =List1.List(i)End IfN
12、ext iEnd SubPrivate Sub Form_Load()List1.AddItem“Item1“List1.AddItem“Item2“List1.AddItem“Item3“List1.AddItem“Item4“End Sub参考代码：Option ExplicitPrivate Sub C1_Click()Dim i As IntegerFor i=0 To List1.ListCount-1If List1.Selected(i)=True ThenText1.Text=List1.List(i)End IfNext iEnd SubPrivate Sub Form_Lo
13、ad()List1.Addltem“Item1“List1.AddItem“Item2“List1.Addltem“Item3“List1.Addlitem“Item4“End Sub(3)调试并运行。(4)按题目要求存盘。)解析：解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。2.在考生文件夹中有工程文件 sjt4.vbp 及其窗体文件 sjt4.frm，该程序是不完整的，请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“”号)但不能修改其他部分。存盘时不得改变文件名和文件夹。在窗体有 3 个复选框，名称分别为 Ch1、ch2 和 ch3，标题分别为“体育”、“音
14、乐”、“美术”，还有一个命令按钮，名称为 C1，标题为“显示”。要求程序运行后，如果选中某个复选框，当单击“显示”命令按钮时，则显示相应的信息。例如，如果选中“体育”和“美术”复选框，单击“显示”命令按钮后，在窗体上显示“我的爱好是体育美术”，如图 11-11 所示。（分数：20.00）_正确答案：(单击命令按钮触发 Click 事件，程序中需要检测复选框的状态，可以通过 Value 属性来实现。如果复选框被选中，则 Value 值为 1，否则 Value 值为 0。解题步骤如下。(1)建立界面并设置控件属性。程序中用到的控件及属性如表 11-3 所示。表 11-3对 象 属 性 设置值 复选
15、按钮 Name Caption Ch1 体育复选按钮 Name Caption Ch2 音乐复选按钮 Name Caption Ch2 美术标签 Caption 爱好按钮 Name Caption C1 显示(2)编写程序代码。程序提供的代码：Option ExplicitPrivate Sub C1_Crick()Dim S As?S=“我的爱好是“If Ch1.Value=1 ThenS=S+Ch1.CaptionEnd IfIf Ch2.Value=1 Thens=s+Ch2.CaptionEnd IfIf Ch3.Value=1 Thens=s+Ch3.CaptionEnd ffPri
16、nt ?End Sub参考代码：Option ExplicitPrivate Sub C1_Click()Dim S As StringS=“我的爱好是“If Ch1.Value=1 Thens=s+Ch1.CaptionEnd IfTf Ch2.Value=1 Thens=s+Ch2.CaptionEnd IfIf Ch3.Value=1 Thens=s+Ch3.CaptionEnd IfPrint sEnd Sub(3)调试并运行程序。(4)按题目要求存盘。)解析：解析 在窗体上建立好控件后，先设置控件属性，再编写事件过程。三、3 综合应用题(总题数：1，分数：30.00)3.在考生文件夹
17、中有工程文件 sjt5.vbp 及其窗体文件 sjt5.frm，陔程序是不完整的，请在有“?”号的地方填入正确内容，然后删除“?”及所有注释符(即“”号)但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下。在名称为 Form1 的窗体上有两个单选按钮，名称分别为 Opt1 和 Opt2，标题分别为“100200 之间素数”和“200400 之间素数”，一个文本框，名称为 Text1，两个命令按钮，其名称分别为 Cmd1 和 Cmd2，标题分别为“计算”和 1，如图 11-12 所示。程序运行后，如果选中一个单选按钮并单击“计算”按钮，则计算该单选按钮标题所指明的所有素数之和。并在文
18、本框中显示出来。如果单击“存盘”按钮，则把汁算结果存入“out.txt”文件中，该文件必须放在考生文件夹中。(在考生文件夹中有标准模块mode.bas，其中的 putdata 过程可以把结果存入指定的文件，而 isprime 函数可以判断整数 x 是否为素数，如果是素数，则函数返回 True，否则返回 False，考生可以将该模块文件添加到自己的工程中。)注意：窗体文件名为 sjt5.frm，工程文件名为 sit5.vbp。（分数：30.00）_正确答案：(文本框用 Text 属性来显示计算结果；命令按钮的标题由 Caption 属性来设置，单击命令按钮触发 Click 事件；为了检测单选按钮
19、是否选中，可以通过检测 Value 属性来实现，当 Value 为 True 时，表示单选按钮被选中，否则未被选中。解题步骤如下。(1)建立界面并设置控件属性。题目提供了程序用到的控件及其属性，如表 11-4 所示。表 11-4控 件 属 性 设置值 单选按钮 Name Caption Op1 100200 之间素数 单选按钮 Name Caption Op2 200400 之间素数 文本框 Name Text1 命令按钮 Name Caption Cmd1 计算命令按钮 Name Caption Cmd2 存盘(2)编写程序代码。程序提供的代码：标准模块代码Option ExplicitSu
20、b putdata(t_FileName As String，T_Str As Variant)Dim sFile As StringsFile=“/“&t_FileNameOpen App.Path & sFile For Output As #1Print #1，T_StrClose #1End SubFunction isprime(t_I As Integer)As BooleanDim J As Integerisprime=FalseFor J=2 To t_I/2If t_I Mod J=0 Then Exit ForNext JIf Jt_I/2 Then isprime=Tr
21、ueEnd Function窗体代码Private Sub Cmd1_Click()Dim i As IntegerDim temp As Longtemp=?If Opt2.Value ThenFor i=200 To 400If isprime(?)Thentemp=temp+1End IfNextElseFor i=100 To 200If isprime(i)Thentemp=temp+iEnd IfNextEnd IfText1.?=tempEnd SubPrivate Sub Cmd2_Click()putdata“/out.txt“，Text1.TextEnd Sub参考代码：P
22、rivate Sub Cmd1_Click()Dim i As IntegerDim temp As Longtemp=0If Opt2.Value ThenFor i=200 To 400If isprime(i)Thentemp=temp+iEnd IfNextElseFor i=100 To 200If isprime(i)Thentemp=temp+iEnd IfNextEnd IfText1.Text=tempEnd SubPrivate Sub Cmd2_Click()putdata“/out.txt“，Text1.TextEnd Sub(3)调试并运行程序。(4)按题目要求存盘。)解析：解析 素数的判断准则就是看该数除了 1 和其本身外是否无其他约数。
