全国计算机二级考试VB上机题库

全国计算机二级考试VB上机题库(一)一、基本操作题(1)在名称为Form1的窗体上绘制一个文本框，名称为Txt1，字体为“宋体”，文本框中的初始内容为“二级Visual Basic”;再绘制一个命令按钮，名称为Cmd1，标题为“改 变字体为楷体”。请编写适当事件过程，使得在运行时，单击命令按钮，则把文本框中文 字的字体改为楷体，如图50-1所示。注意：程序中不得使用任何变量;文件必须存放在考生文件夹中，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。(2)在名称为Form1的窗体上绘制一个名称为Cmd1的命令按钮，其标题为“移动”，位于窗体的左上部。编写适当的事件过程，使程序运行后，每单击一次窗体，都使得命令按钮同时向右、向下移动100。程序的运行情况如图50-2所示。注意：不得使用任何变量;文件必须存放在考生文件夹中，工程文件名为vbsj2.vbp， 窗体文件名为vbsj2.frm。二、简单应用题(1)在名称为 Form1 的窗体中绘制一个名称为 Lab1 的标签，其标题为“0”，BorderStyle 属性为 1;再添加一个名称为 Tmr1 的计时器。请设置适当的控件属性，并编写适当的事 件过程，使得在运行时，每隔 1 秒钟标签中的数字加 1。程序运行时效果如图 50-3 所示。注意：程序中不得使用任何变量;文件必须存放在考生文件夹中，工程文件名为vbsj3.vbp，窗体文件名为 vbsj3.frm。(2)在考生文件夹中有一个工程文件 vbsj4.vbp 及窗体文件 vbsj4.frm。在名称为 Form1 的窗体上有一个名称为 Cmd1 的命令按钮，其标题为“下一个”。要求在窗体上建立一个单选按钮数组 Opt1，含 4 个单选按钮，标题分别为“A”、“B”、“C”和“D”，初始状态 下，“A”为选中状态。程序运行效果如图 50-4 所示。要求程序运行时，使得每单击命令按钮一次，就选中下一个单选按钮，如果已经选中最后一个单选按钮，再单击命令按钮，则选中第 1 个单选按钮。 窗体文件中已经给出了命令按钮的 Click 事件过程，但不完整，请去掉程序中的注释 符“”，把程序中的问号“?”改为正确的内容。 注意：不能修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。三、综合应用题编写一个程序，输入货物的数量及单价，求总价并输出。 窗体标题设置为“模拟售货机”，窗体上的两个标签(分别命名为 Lab1 和 Lab2，标 题为“货物的数量(个)：”和“货物的单价(元)：”)两个名称分别为 Txt1 和 Txt2 的文 本框;一个名称为 Cmd1 的命令按钮，其标题为“总价”。结果显示在名称为 Pic1 的图片 框中。当用户输入货物的数量与单价后，单击“总价”按钮，输出正确的结果，程序运行 效果如图 50-5 所示。注意：在存盘时，工程文件名为 vbsj5.vbp，窗体文件名为 vbsj5.frm。试题答案及详解一、基本操作题第 1 小题【审题分析】本题需在命令按钮的单击事件过程中，通过修改文本框的 FontName 属性值为楷体_GB2312来改变文本框中文本的字体。【操作步骤】步骤 1：新建一个标准 EXE工程，按表 50-1 在窗体中画出控件并设置其相关属性。表 50-1步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。参考代码：Private Sub Cmd1_Click()Txt1.FontName = 楷体_GB2312End Sub步骤 3：按要求将文件保存至考生文件夹中。第 2 小题【审题分析】要使命令按钮位于窗体左上角需将其 Top 属性值和 Left 属性值设置为 0; 要在单击一次窗体后，命令按钮同时向右、向下移动 100，需在窗体的单击事件过程中， 设置命令按钮的 Top 属性值和 Left 属性值各增加 100。【操作步骤】步骤 1：新建一个标准 EXE工程，按表 50-2 在窗体中画出控件并设置其相关属性。表 50-2步骤 2：打开代码编辑窗口，编写命令按钮的 Click 事件过程。参考代码：PrivateSub Cmd1_Click()Cmd1.Left=Cmd1.left+100Cmd1.Top=Cmd1.Top+100End Sub步骤 3：按要求将文件保存至考生文件夹中。二、简单应用题第 1 小题【审题分析】根据题目要求，要在程序运行时能每隔 1 秒，标签中的数字加 1，需将计时器的 Interval 属性值设置为 1000 毫秒，Enabled 属性值设置为 True，在计时器的 Timer 事件过程中将标签中的数值加 1。105?3? /forum-49-1.html ? 属性。【操作步骤】步骤 1：新建一个标准 EXE工程，按表 50-3 在窗体中画出控件并设置其相关属表 50-3步骤 2：双击窗体上的计时器控件，在其 Timer 事件过程中加入以下代码：参考代码：Private Sub Tmr1_Timer()Lab1.Caption = Lab1.Caption + 1End Sub步骤 3：按要求将文件保存至考生文件夹中。第 2 小题【审题分析】本题源程序在命令按钮的单击事件过程中，首先利用 For 循环语句(循 环变 k 的初值为 0，终值为 3)逐一检查单选按钮数组中的每个元素是否被选中，若选 中则用变 n 记录下选中单选按钮的索引号，即 n=k。循环结束后，取消对当前选中单选按钮的选择，且变 n 增 1;接着判断 n 的值是否为 4，若是则将 n 的值置为 0，重新从 单选按钮数组的第 1 个元素开始;最后设置索引号为 n 的单选按钮被选中。【操作步骤】步骤 1：打开考生文件中的本题工程文件 vbsj4.vbp，按表 50-4 在窗体中用复制 和粘贴命令画出包含 4 个元素的单选数组和 1 个命令按钮并设置属性。表 50-4步骤 2：打开代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：Private Sub Cmd1_Click()For k = 0 To 3If Opt1(k).Value Then106n= kEnd IfNext kOpt1(n).Value = Falsen = n + 1If n = 4 Thenn = 0End IfOpt1(n).Value = TrueEnd Sub步骤 3：按要求将文件保存至考生文件夹中。三、综合应用题【审题分析】本题其实就是设计一个简单的乘法运算，为避免不必要的错误，可在执行运算前用 Val 函数将文本框中数字字符串转换为数值数据。【操作步骤】步骤 1：新建一个标准 EXE工程，按表 50-5 在窗体中画出控件并设置其相关属性。表 50-5步骤 2：打开代码编辑窗口，编写总价命令按钮的单击事件过程。参考代码：Private Sub Cmd1_Click()Dim num As IntegerDim rmb As Currencynum = Val(Txt1.Text)rmb = Val(Txt2.Text)Pic1.ClsPic1.Print num * rmbEnd Sub步骤 3：按要求将文件保存至考生文件夹中。全国计算机二级考试VB上机题库(二)一、基本操作题(1)在名为 Form1 的窗体上建立一个名为 Hsb1 的水平滚动条，其最大值为 300，最 小值为 0。要求程序运行后，每次移动滚动框时，都执行语句 Form1.Print Hsb1.Value，运 行效果如图 51-1 所示。注意：程序中不能使用任何其他变量;文件必须存放在考生文件夹中，窗体文件名为vbsj1.frm，工程文件名为 vbsj1.vbp。(2)在窗体绘制一个名为 Pic1 的图片框和一个名为 Cmd1 且其标题为“显示”的命 令按钮。编写适当的事件过程，使程序运行后，若单击“显示”命令按钮，则在图片框中 显示“这是一个图片框”，运行效果如图 51-2 所示。注意：不要使用任何变量，直接显示字符串;文件必须存放在考生文件夹中，窗体文 件名为 vbsj2.frm，工程文件名为 vbsj2.vbp。二、简单应用题(1)在考生文件夹中有工程文件 vbsj3.vbp 及其窗体文件 vbsj3.frm。在名为 Form1的窗体上有 3 个名称分别为 Txt1、Txt2 和 Txt3 的文本框;1 个名称为 Cmd1 的命令按钮， 其标题为“计算”。要求程序运行后，在 Txt1 和 Txt2 中分别输入两个整数，单击“计算”按钮后，可把 两个整数之间的所有整数(含两个整数)累加起来并在 Txt3 中显示出来，如图 51-3 所示。要求：在有问号“?”的地方填入正确内容，然后删除“?”及所有注释符“”，但 不得修改其他部分。保存时不得改变文件名和文件夹。(2)在考生文件夹中有一个工程文件 vbsj4.vbp，相应的窗体文件为 vbsj4.frm。在名 为 Form1 的窗体上有两个名称分别为 Cmd1 和 Cmd2 的命令按钮;一个名称为 Lab1 的标 签控件;一个名称为 Tmr1 计时器控件。程序运行后，在命令按钮 Cmd1 中显示为“开始”;在命令按钮 Cmd2 中显示为“停 止”;标签中字号大小为 18 号、字体为粗体、显示为“欢迎光临”(标签的 AutoSize 属性 为 True);计时器的 Interval 属性设置为 100，Enabled 属性设置为 False。此时如果单击“开始”命令按钮，则该按钮变为禁用，标题变为“继续”，同时标签 自左至右移动(每个时间间隔移动 50)，如图 51-4 所示。当标签移动出窗体右边界后，自 动从左边界开始向右移动;如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命 令按钮变为有效，同时标签停止移动;再次单击“继续”命令按钮后，标签继续移动。本 程序不完整，请补充完整，并能正确运行。要求：去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。三、综合应用题在考生文件夹下有一个工程文件vbsj5.vbp，相应的窗体文件为vbsj5.frm。在窗体Form1 上有两个名称分别为Cmd1和Cmd2的命令按钮，它们的标题分别为“写入文件”和“读出 文件”，如图51-5所示。其中“文件写入”命令按钮事件过程用来建立一个通讯录，以随机存取方式保存到文 件dw1.dat中;而“文件读出”命令按钮事件过程用来读出文件dw1.dat中的每个记录，并 在窗体上显示出来。通讯录中的每个记录由3个字段组成：姓名(Name)、电话(Tel)和邮政编码(Pos)。各字段的类型和长度为： 姓名(Name)：字符串 15 电话(Tel)：字符串 15 邮政编码(Pos)：长整型(Long)程序运行后，如果单击“文件写入”命令按钮，则可以随机存取方式打开文件dw1.dat， 并根据提示向文件中添加记录，每写入一个记录后，都要询问是否再输入新记录，回答“Y”(或“y”)则输入新记录，回答“N”(或“n”)则停止输入;如果单击“文件读出”命 令按钮，则可以随机存取方式打开文件dw1.dat，读出文件中的全部记录，并在窗体上显 示出来。该程序不完整，请把它补充完整。要求：去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。文件dw1.dat中已有3个记录，请运行程序，单击“文件写入”命令按钮，向文件dw1.dat 中添加以下2个记录(全部采用西文方式)，如下所示。Tom (010)12345678 100000Jim (010)87654321 100001运行程序，单击“文件读出”命令按钮，在窗体上显示全部记录。用原来的文件名保存工程文件和窗体文件。试题答案及详解一、基本操作题第 1 小题【审题分析】本题只需按要求在窗体上画出滚动条并设置其属性，并在滚动条的 107 ?3? /forum-49-1.html ? Change 事件过程中执行语句：Form1.Print Hsb1.Value。【操作步骤】步骤 1：新建一个标准 EXE工程，在窗体 Form1 中画一个水平滚动条，其属性及 其值见表 51-1。表 51-1步骤 2：在代码编辑窗口中，编写水平滚动条的 Change 事件过程。参考代码：Private Sub Hsb1_Change()Form1.Print Hsb1.ValueEnd Sub步骤 3：按要求将文件保存至考生文件夹中。第 2 小题【审题分析】本题只需按要求在窗体上画出控件并设置其属性，并在按钮的 Click 事件过程中用图片框的 Print 语句输出这是一个图片框。【操作步骤】步骤 1：新建一个标准 EXE工程，在窗体 Form1 中画一个图片框和一个命令按钮， 其属性及其值见表 51-2。表 51-2步骤 2：在代码编辑窗口中，编写水平滚动条的 Change 事件过程。参考代码：Private Sub Cmd1_Click()Pic1.Print 这是一个图片框End Sub步骤 3：按要求将文件保存至考生文件夹中。二、简单应用题第 1 小题【审题分析】本题计算按钮单击事件过程源代码的设计思路：先用两变 a 和 b 分别记录在两个文本框输入的数据，并通过比较大小，使变 b 的值始终大于变 a 的值，t 为交换变 a 和 b 值的中间变 。然后利用 For 循环(循环变 i 的初值为 a，终值为 b)， 将 i 的值逐个累加到变 s，循环结束时将变 s 的值显示在文本框中。【操作步骤】步骤 1：打开考生文件下的本题工程文件 vbsj3.vbp，在代码编辑窗口，编写计算 按钮的 Click 事件过程。参考代码：bs= i= s + i步骤 2：按要求将文件保存至考生文件夹中。108第 2 小题【审题分析】本题全部控件已画出，相关属性设置也在程序源码的窗体加载事件中设置，只需按题目要求完善其他相关事件过程。由于标签在窗体上的移动是在计时器的 Timer 事件过程中完成的，单击开始按钮时就应启动计时器，因此 Cmd1_Click 事件过程中的第 1 个?处应为 True;要禁用开始按钮就应设置其 Enabled 属性值为 False，第 2 个?处应为 False。单击停止按钮时要停止标签移动，就是要停止计时器，故 Cmd2_Click 事件过程中的第 3 个?处应为 False。在 Tmr1_Timer 事件过程中，要让标签每次自左至右移动 50， 可在每个时间间隔使标签的 Left 属性值在原有基础上加 50 来实现，故该事件过程中第 4 个?处应改为：Lab1.Left + 50;为防止标签移出窗体，在执行移动语句前先用 If?Then?Else 对其位置进行判断。【操作步骤】步骤 1：打开考生文件下的本题工程文件 vbsj4.vbp，在代码编辑窗口，去掉程序中的 注释符，将问号?改为正确的内容。参考代码：Tmr1.Enabled = TrueCmd1.Enabled = FalseTmr1.Enabled = FalseLab1.Left = Lab1.Left + 50步骤 2：按要求将文件保存至考生文件夹中。三、综合应用题【知识点播】LOF 函数可返回一个用 Open 语句打开的文件的大小，该大小以字节为单位，返回值为 Long 数据类型。【审题分析】本题源程序设计思路：在文件写入命令按钮的单击事件过程中，先用 Open 语句打开考生文件夹下的随机文件 dw1.dat，并通过计算得到随机文件现有记录数，存入变 RecNum;然后在 Do 循环中，为自定义数据类型变 Pers 的各元素赋值， 用 Put 语句将该变 的值写入打开的随机文件中(记录号为 RecNum+1)，并通过输入对 话框询问是否要再输入新记录，Do 循环以输入对话框中返回值为Y(或y)作为循环条件。在 文件读出命令按钮的单击事件过程中，先用 Open 语句打开考生文件夹下的随机 文件 dw1.dat，并通过计算得到随机文件现有记录数，存入变 RecNum;然后利用 For 循环语句(初值为 1，终值为 RecNum 的值)，用 Get 语句读入随机文件中相应记录号的记录，赋值给变 Pers，并将变 Pers 各元素的值用 Print 方法显示在窗体上。【操作步骤】步骤 1：打开考生文件中的本题工程文件 vbsj5.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。步骤 2：按要求将文件保存至考生文件夹中。全国计算机二级考试VB上机题库(三)一、基本操作题(1)在名为 Form1 的窗体上建立级联菜单，该菜单含“文件”、“帮助”两项名称分 别为 mnuFile 和 mnuHelp 的主菜单项。其中“文件”菜单包括 3 个名称分别为 mnuFileOpen、 mnuFileClose、mnuFileExit的子菜单项，它们的标题分别为“打开”、“关闭”、“退出”， 如图 52-1 所示。注意：只建立菜单，不必定义其事件过程;文件必须存放在考生文件夹中，窗体文件 名为 vbsj1.frm，工程文件名为 vbsj1.vbp。(2)在 Form1 窗体上绘制一个名为 Txt1 的文本框，然后建立一个名为 mnuOp 的主 菜单，其标题为“操作”，该菜单有两个名称分别为 mnuOpDis 和 mnuOpCls 的子菜单项， 其标题分别为“显示”和“清除”。编写适当的事件过程，使程序运行后，若单击“操作” 菜单中的“显示”命令，在文本框显示 VisualBasic;如果单击“清除”命令，则清除文 本框中显示的内容。程序的运行效果如图 52-2 所示。注意：文件必须存放在考生文件夹中，工程文件名为vbsj2.vbp ，窗体文件名为vbsj2.frm。二、简单应用题(1)在考生文件夹中有一个工程文件vbsj3.vbp及窗体文件vbsj3.frm。在名为Form1 的窗体中有两个图片框，名称分别为Pic1和Pic2，其中的图片分别是火箭和云层;有一个 计时器，名为Tmr1，有一个命令按钮，名为Cmd1，标题为“发射”。并给出了两个事件 过程，但并不完整，请补充完整。要求：设置计时器的属性，使其在初始状态下不计时。设置计时器的属性，使其 每隔0.1秒调用Timer事件过程一次。去掉程序中的注释符“”，把程序中的问号“?” 改为正确的内容，使得在运行时单击“发射”按钮，则火箭每隔0.1秒向上移动一次，当 到达云层的下方时停止移动，如图52-3所示。注意：不能修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。(2)在考生文件夹中有一个工程文件vbsj4.vbp和窗体文件vbsj4.frm。在名为Form1的窗体上，有一个名为Cmd1的命令按钮，其标题为“移动”;一个名为Vsb1的垂直滚动条;一个名为Txt1的文本框，它的初始内容为空。程序的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向下移动与该数相符的刻度，如图52-4所示;但如果超过了滚动条的最大刻度，则不移动，并且显示“输入的数值太大”; 如果输入的是负数，滚动条中的滚动框向上移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“输入的数值太小”。要求：去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也不得修改控件的属性。最后把修改过的程序按原名保存。三、综合应用题在名为 Form1 的窗体上建立一个名称为 Txt1 的文本框，其 MultiLine 属性为 True， ScrollBars 属性为 2;3 个名称分别为 Cmd1、Cmd2 和 Cmd3 的命令按钮，它们的标题分 别为“读数”、“计算”和“保存”。要求程序运行后，如果单击“读数”按钮，则读入 dr2.dat 文件中的 100 个整数，放 入一个数组中(数组下界为 1)，同时在文件框中显示出来;如果单击“计算”按钮，则 计算小于或等于 300 的所有数之和，并把结果在文本框 Txt1 中显示出来，如果单击“保 存”按钮，把该结果存入考生文件夹中的文件 dw1.dat 中(在考生文件夹下有标准模块 model.bas，其中的 writedata 过程可以把结果存入指定的文件，考生可以把该模块文件添 加到自己的工程中，直接调用此过程)，如图 52-5 所示。注意：文件必须放在考生文件夹中，窗体文件名为 vbsj5.frm，工程文件名为 vbsj5.vbp， 计算结果存入 dw1.dat 文件，否则没有成绩。试题答案及详解一、基本操作题第 1 小题【审题分析】本题只需按题目要求利用 VB 菜单设计器建立一个二级菜单即可。【操作步骤】步骤 1：新建一个标准 EXE工程，选择【工具】?【菜单编辑器】命令，打开菜单设计器。步骤 2：在标题栏中输入文件，在名称栏中输入 mnuFile;单击下一个 按钮，在标题栏中输入帮助，在名称栏中输入 mnuHelp;单击下一个按钮，再单击编辑区的右箭头按钮，在标题栏中输入打开，在名称栏中输入 mnuFileOpen;单击下一个按钮，在标题栏中输入关闭，在名称栏中输入 mnuFileClose;单击下一个按钮，在标题栏中输入退出，在名称栏中输入 mnuFileExit，;选定帮助项，单击编辑区的下箭头按钮，将其移至所有菜单项的下面。步骤 3：按要求将文件保存至考生文件夹中。【考试误区】分清标题和名称及菜单项间的层次关系。第 2 小题【知识点播】菜单中所包含的每一个菜单项都可看成是一个命令按钮，程序运行时，选择某菜单项将触发其 Click 事件。【审题分析】要实现本题中的功能，应在显示菜单项的 Click 事件过程中，将字符串 Visual Basic 赋值给文本框的 Text 属性，在清除菜单项的 Click 事件过程中，设置文本框的 Text 属性值为空白。【操作步骤】步骤 1：新建一个标准 EXE工程，在窗体 Form1 中加入一个文本框，在属性设置窗口中将其 Name 属性值设置为 Txt1，Text 属性设置为空白。步骤 2：选择【工具】?【菜单编辑器】命令，打开菜单设计器。步骤 3：在标题栏中输入操作，在名称栏中输入 mnuOp;单击下一个 按钮，再单击编辑区的右箭头按钮，在标题栏中输入显示，在名称栏中输入 mnuOpDis;单击下一个按钮，在标题栏中输入清除，在名称栏中输入 mnuOpCls。步骤 4：单击窗体 Form1 的操作菜单下的显示项，在打开的代码编辑窗口中输入代码。步骤 5：单击代码编辑窗口中的对象下拉列表框，从中选择 mnuOpCls，在其 Click 事件过程中输入代码：Txt1.Text = 。步骤 6：按要求将文件保存至考生文件夹中。【考试误区】清除文本框中所显示的信息是通过设置 Text 属性来实现的，文本框没有 Cls 方法。二、简单应用题第 1 小题【审题分析】本题通过计时器来控制火箭移动。单击发射按钮时启动计时器，在计时器的 Timer 事件过程中，如果火箭尚未抵达云层(即 Pic1.Top Pic2.Top + Pic2.Height)，则通过 Move 方法，使火箭(图片框 Pic1)每次加速上移，否则通过停止计时器来停止火箭上移。【操作步骤】步骤 1：打开考生文件中的本题工程文件 vbsj3.vbp，设置计时器的 Enabled 属性值为False，Interval 属性值为 100。步骤 2：在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：Tmr1.Enabled = TrueIf Pic1.Top Pic2.Top + Pic2.Height ThenTmr1.Enabled = False步骤 3：按要求将文件保存至考生文件夹中。第 2 小题【审题分析】本题程序设计思路：在移动按钮的单击事件过程中，首先判断滚动条在当前位置基础上移动与文本框中输入数值相等的刻度时，是否超过滚动条 Max 属性值的限制，若是则弹出消息框显示输入的数值太大;否则接着判断滚动条在当前位置基础上移动与文本框中输入数值相等的刻度时，是否超过滚动条 Min 属性值的限制，若是则弹出消息框显示输入的数值太小，否则设置滚动条的 Value 属性值为原有 Value 属性值加上文本框中的输入值。【操作步骤】步骤 1：打开考生文件中的本题工程文件 vbsj4.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。步骤 2：按要求将文件保存至考生文件夹中。三、综合应用题【审题分析】本题源程序已提供 Writedate 自定义过程，需编写读数、计算和保存命令的单击事件过程。程序设计思路：在读数按钮的单击事件过程中，用 Open 语句以 Input 方式打开数据文件 dr1.dat，通过 For 循环语句(初值为 1，终值为 100)将数据文件中的数据用 Input 语句依次读出并赋值给数组元素 arr(i)，同时显示在文本框中，为使数据间保持一定间隔，每个数据后用 Space(5)加入 5 个空格;在计算按钮的 Click 事件过程中，利用 For 循环语句(循环变 i 的初值为 1，终值为 100)依次将数组 arr 中小于或等于 300 的元素的值显示在文本框中(条件表达式为：arr(i)=300)，并将其值累加到变Sum，循环结束后将结果显示在窗体上。在保存按钮的 Click 事件过程中，通过调用WriteData 过程将文本框中的值写入数据文件 dw1.dat。【操作步骤】步骤 1：新建一个标准 EXE工程，按下表在窗体中画出控件并设置其相关属性。步骤 2：选择【工程】?【添加模块】命令，打开添加模块对话框，将考生文件夹下的model.bas 添加到当前工程中。步骤 3：在代码编辑窗口编写以下事件过程。参考代码：Dim arr(1 To 100) As IntegerPrivate Sub Cmd1_Click()Txt1.Text = Open App.Path & dr1.dat For Input As #1?3? /forum-49-1.html ?For i = 1 To 100Input #1, arr(i)Txt1.Text = Txt1.Text & arr(i) & Space(5)NextClose #1End SubPrivate Sub Cmd2_Click()Dim sum As IntegerFor i = 1 To 100If arr(i) = 300 Thensum = sum + arr(i)End IfNextTxt1.Text = sumEnd SubPrivate Sub Cmd3_Click()writedata dw1.dat, Txt1.TextEnd Sub步骤 4：按要求将文件保存至考生文件夹中。全国计算机二级考试VB上机题库(四)一、基本操作题(1)在名为Form1的窗体上绘制一个名为Cmd1的命令按钮，其标题为“移动按钮”。编写适当的事件过程，使得程序运行时，每单击命令按钮一次，该按钮向右移动50，如图53-1所示。 注意：程序中不得使用变量，事件过程中只能写一条语句;文件必须存放在考生文件夹中，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。(2)在 Form1 的窗体上绘制一个名为 Lab1 的标签框，设置相关属性，使标签有框 架。然后建立一个名为 mnuOp 的主菜单，其标题为“操作”，该菜单有两个名称分为 mnuOpDis 和 mnuOpHide 的菜单项，其标题分别为“显示”和“隐藏”。编写适当的事件 过程，程序运行后，若单击“操作”菜单中的“显示”命令，则在标签框中显示“二级 Visual Basic”;如果单击“隐藏”命令，则隐藏标签框。程序的运行情况如图 53-2 所示。 注意：程序中不得使用任何变量;文件必须存放在考生文件夹中，工程文件名为vbsj2.vbp，窗体文件名为 vbsj2.frm。二、简单应用题(1)在名称为 Form1、KeyPreview 属性为 True 的窗体上绘制一个名称为 Lst1 的列表 框;一个名称为 Txt1 的文本框。编写窗体的 KeyDown 事件过程。程序运行后，如果按 键，则从键盘上输入要添加到列表框中的项目(内容任意，不少于 3 个);如果按键， 则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行效果如图 53-3 所示。在考生文件夹中有一个工程文件 vbsj3.vbp(相应的窗体文件名为 vbsj3.frm)，可以实 现上述功能。但本程序不完整，请补充完整。要求：去掉程序中的注释符“”，把程序中的问号“?”改为适当的内容，使其正确运行，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。(2)在考生文件夹中有一个工程文件 vbsj4.vbp 及窗体文件 vbsj4.frm。在名为 Form1 的窗体上已经绘制出所有控件。要求程序运行后，在 Txt1 文本框中输入一个任意的字符串(要求串的长度10)，然后选择组合框中的 3 个截取运算选项之一。单击“确定”按钮，将截取运算后的结果显示在 Txt2 中，如图 53-4 所示。窗体文件中已经给出了程序，但不完整，请补充完整。要求：请去掉程序中的注释符“”，把程序中的问号“?”改为正确的内容。注意： 不得修改已经给出的程序。最后，按原文件名并在原文件夹中保存修改后的文件。三、综合应用题在名为Form1的窗体上建立两个名称分别为Opt1和Opt2、标题分别为“1-500之间素数 和”和“500-700之间素数和”的单选按钮，一个名为Txt1文本框和两个名称分别为Cmd1 和Cmd2，标题分别为“计算”和“保存”命令按钮。程序运行后，如果选中一个单选按钮并单击计算”按钮，则计算出该单选按钮标题 所指明的所有素数之和，并在文本框中显示出来，如图53-5所示。如果单击“保存”按钮， 则把计算结果存入dw2.dat文件中，该文件必须放在考生文件夹中(在考生文件夹中有标 准模块model.bas，其中writedata过程可以把结果存入指定的文件，而isprime函数可以判断 整数x是否为素数，如果是素数，则函数返回True，否则返回False，考生可以将该模块文 件添加到自己的工程中)。注意：必须把500700之间的素数之和存入考生文件夹下的dw2.dat文件中，否则没有 成绩。保存程序时必须存放在考生文件夹中，窗体文件名为vbsj5.frm，工程文件名为 vbsj5.vbp。试题答案及详解一、基本操作题第 1 小题【审题分析】要实现本题要求的功能，只需在命令按钮的单击事件过程中，设置命令按钮的 Left 属性值增加 50。【操作步骤】步骤 1：新建一个标准 EXE工程，在窗体中画一个名 Cmd1 命令按钮，并设置其Caption 属性值为移动按钮。步骤 2：打开代码编辑窗口，编写命令按钮的 Click 事件过程。参考代码：Private Sub Cmd1_Click()Cmd1.Left = Cmd1.Left + 50End Sub步骤 3：按要求将文件保存至考生文件夹中。第 2 小题【审题分析】本题需用菜单设计器建立菜单，并编写显示和隐藏菜单项的单击事件过程。【操作步骤】步骤 1：新建一个标准 EXE工程，在窗体 Form1 中画一个标签，在属性设置窗口中将其 Name 属性值设置为 Lab1，Caption 属性设置为空白，BorderStyle 属性设置为 1-Fixed Single。步骤 2：选择【工具】?【菜单编辑器】命令，打开菜单设计器，按表 53-1 中的设置建立菜单项。表 53-1步骤 3：打开代码编辑窗口，编写以下事件过程：参考代码：Private Sub mnuOpDis_Click()Lab1.Visible = TrueLab1.Caption = 二级 Visual BasicEnd SubPrivate Sub mnuOpHide_Click()Lab1.Visible = FalseEnd Sub步骤 4：按要求将文件保存至考生文件夹中。二、简单应用题第 1 小题【知识点播】KeyPreview 属性用于设置是否在控件的键盘事件之前激活窗体的键盘事件，键盘事件有 KeyDown、KeyUp 和 KeyPress。KeyDown(KeyCode As Integer,Shift as Integer)事件是在对象具有焦点时，按下键盘上的键时触发该对象的事件，其中 KeyCode 参数是表示所按键的位置信息的代码，Shift 参数代表按键时 Shift、Ctrl、Alt 键的状态。【审题分析】本题程序设计思路：在窗体的 KeyDown 事件过程中，先后用两个 If 语句判断当前键盘上按下的是否是键或键，若是键则通过输入框输入内容，显示在文本框中，并添加到列表框中;若是键则通过输入框输入内容，显示在文本框中， 利用 For 循环语句逐一判断列表框中的各项是否与文本框中的内容一致，若一致则删除该项目。ListCount 属性可返回列表框中当前的列表项总数，由于循环的初值为 0，故终值就应为 Lst1.ListCount-1。【操作步骤】步骤 1：打开考生文件中的本题工程文件 vbsj3.vbp，按表 53-2 在窗体中画出控件并设置其相关属性。表 53-2步骤 2：在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：Lst1.AddItem Txt1.TextFor i = 0 To Lst1.ListCount - 1If Lst1.List(i) = Txt1.Text ThenLt1.RemoveItem i步骤 3：按要求将文件保存至考生文件夹中。第 2 小题【知识点播】Trim 函数用于删除字符串左右两边的空格;Right()函数用于取出已有字符串最右边指定个数的字符串;Left()函数用于取出已有字符串最左边指定个数的字符串;Mid(字符串,起始位置,个数)函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串。【审题分析】本题源程序的中心设计思想是：将文本框 Txt1 中的字符串按组合框中所选要求进行截取并放入文本框 Txt2 中。源程序以组合框列表项的索引号(即 ListIndex 属性值)作为 Select Case 语句的判断表达式，故第 1 个?处应为 Cbo1.ListIndex;组合框中第三项要求截取第 36 个字符，其实就是从字符串的第 3 个字符开始，截取 4 个字符， 故 Mid 函数的第 2、3 个参数应为 3 和 4;最后的?处是将截取结果显示在文本框中，故应为 tmpStr。【操作步骤】步骤 1：打开考生文件中的本题工程文件 vbsj4.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。参考代码：Select Case Cbo1.ListIndextmpStr = Mid(Trim(Txt1.Text), 3, 4)Txt2.Text = tmpStr步骤 2：按要求将文件保存至考生文件夹中。三、综合应用题【审题分析】本题源程序中已包含一个能判断一个数是否为素数的函数 isprime。因此本题在利用 If 语句判断单选按钮选中情况的基础上，可以通过循环调用 isprime 函数来判断指定范围内素数的和。【操作步骤】步骤 1：打开考生文件中的本题工程文件 vbsj5.vbp，在代码编辑窗口，去掉程序中的注释符，将问号?改为正确的内容。步骤 2：按要求将文件保存至考生文件夹中。全国计算机二级考试VB上机题库(五)一、基本操作题(1)在窗体上绘制一个名为 Txt1 的文本框，其 Text 属性为空白;再绘制一个名为Lst1 的列表框，通过属性窗口向列表框中添加 4 个项目，分别为“项目 1”、“项目 2”、“项 目 3”和“项目 4”。编写适当的事件过程，使程序运行后，在文本框中输入一个字符串， 若双击列表框中的任何一项，则把文本框的中的字符串添加到列表框中。程序的运行效果 如图 54-1 所示。注意：文件必须存放在考生文件夹中，工程文件名为 vbsj1.vbp，窗体文件名为vbsj1.frm。(2)在名为 Form1 的窗体上建立一个名为 Txt1 的文本框;一个名为 Cmd1 的命令按 钮，其标题为“输出”。要求程序运行后，在文本框中任意输入一个字符串，然后单击“输出”按钮，则将文本框中的文字显示在窗体上，如图 54-2 所示。注意：在程序中不能使用任何变量;文件必须存放在考生文件夹中，窗体文件名为vbsj2.frm，工程文件名为 vbsj2.vbp。二、简单应用题(1)在考生文件夹中有一个工程文件 vbsj3.vbp 及其窗体文件 vbsj3.frm，含有 Form1和 Form2 两个窗体，Form1 为启动窗体。两个窗体上的控件如图 54-3 和图 54-4 所示。程序运行后，在 Form1 窗体的文本框中输入有关信息(“密码”框中显示“*”字符)， 然后单击“提交”按钮则弹出“确认”对话框(即 Form2 窗体)，并在对话框中显示输入 的信息。单击“确认”按钮则程序结束;单击“返回”按钮，则对话框消失，回到 Form1 窗体。在给出的窗体文件中已经给出程序，但不完整。要求：把 Form1 的标题改为“注册”，把 Form2 的标题改为“确认”。设置适当 的属性，使 Form2 标题栏上的所有按钮消失。删除程序中语句前面的注释符“”，把程 序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分，也 不得修改控件的其他属性。最后，将修改后的文件按原文件名保存在原文件夹中。(2)在考生文件夹中有一个工程文件vbsj4.vbp及窗体文件vbsj4.frm。在名为Form1的窗体上有一个圆和一条直线(直线的名称为Lin1)构成一个钟表的图标;有两个名称分别为Cmd1和Cmd2的命令按钮，标题分别为“开始”和“停止”;还有一个名为Tmr1的计时器。程序运行时，钟表指针不动，单击“开始”按钮，则钟表上的指针(即Lin1)开始顺时针旋转(每秒转6，一分钟转一圈);单击“停止”按钮，则指针暂停旋转。运行时的 窗体如图54-5所示。请设置计时器的适当属性，使得每秒激活计时器的Timer事件一次; 编写两个按钮的Click事件过程。文件中已给出了所有控件和部分程序，不得修改已有程 序和其他控件的属性;编写的事件过程中不得使用变量，且只能写一条语句。最后，按原文件名并在原文件夹中保存修改后的文件。三、综合应用题在窗体上 Form1 上建立 3 个名称分别为 mnuRead、mnuCalc 和 mnuSave 的菜单，它 们的标题分别为“读数”、“计算”和“保存”;绘制一个名称为 Txt1