全国计算机VB上机题库及答案(全)_甜梦文库
全国计算机VB上机题库及答案(全)
全国计算机等级考试二级 VB 上机考试新版题库及解析【2013 年 3 月考试专用】考前复习必看资料：PiaoMo 整理―1―全国计算机等级考试二级 VB 上机考试新版题库及解析【2013 年 3 月考试专用】 参考代码： 第一套上机题题干166 Private Sub Shape1_Click() 一、基本操作题 Me.Sha1.Shape = 1 请根据以下各小题的要求设计Visual Basic应用程序 End Sub (包括界面和代码)。 Private Sub Shape2_Click() (1) 在 名 称 为 Form1 的 窗 体 上 建 立 一 个 名 称 为 Form1.Sha1 = 3 Command1的命令按钮数组， 含三个命令按钮， 它们的Index End Sub 属性分别为0、1、2，标题依次为&是&、&否&、&取消&，每 二、简单应用题 个按钮的高、宽均为300、800。窗体的标题为&按钮窗口&。 (1)在考生文件夹下有一个工程文件sjt3.vbp，窗体上 运行后的窗体如图1所示。 已经有两个文本框，名称分别为Text1、Text2；一个命令按 注意： 存盘时必须存放在考生文件夹下， 工程文件名 钮，名称为C1，标题为&确定&；请画两个单选按钮，名称 为sjt1.vbp，窗体文件名为sjt1.frm。 分别为Op1、Op2，标题分别为&男生&、&女生&；再画两个 复选框，名称分别为Ch1、Ch2，标题分别为&体育&、&音乐 &。请编写适当的事件过程，使得在运行时，单击&确定&按 钮后实现下面的操作： ①根据选中的单选按钮，在Text1中显示&我是男生& 图1 或&我是女生&。 【操作步骤】 ②根据选中的复选框， 在Text2中显示&我的爱好是体 步骤1：新建一个&标准EXE&工程，如表1在窗体中用& 育&、&我的爱好是音乐&或&我的爱好是体育音乐&，如图3 复制&和&粘贴&画出控件数组并设置属性。 所示。 表1 注意：不得修改已经给出的程序和已有控件的属性。 在结束程序运行之前，必须选中一个单选按钮和至少一个 复选框，并单击&确定&按钮。必须使用窗体右上角的关闭 按钮结束程序，否则无成绩。图3 步骤1：打开考生文件夹下的本题工程文件sjt3.vbp。 步骤2： 在窗体Form1中加入两个单选按钮和两个复选 框，分别设置它们的相关属性，属性及其值如表3所示。 表3(2)在名称为Form1的窗体上画一个名称为Sha1的形 状控件， 然后建立一个菜单， 标题为&形状&， 名称为shape0， 该菜单有两个子菜单， 其标题分别为&正方形&和&圆形&， 其 名称分别为shape1和shape2，如图2所示，然后编写适当的 程序。程序运行后，如果选择&正方形&菜单项，则形状控 件显示为正方形；如果选择&圆形&菜单项，则窗体上的形 状控件显示为圆形。 注意： 程序中不能使用变量， 每个事件过程中只能写 一条语句。保存时必须存放在考生文件夹下，工程文件名 为sjt2.vbp，窗体文件名为sjt2.frm。图2 【操作步骤】 步骤1：新建一个&标准EXE&工程，在窗体Form1中画 一个名为Sha1的形状控件。 步骤2：选择【工具】→【菜单编辑器】命令，打开 菜单设计器，如表2中的设置建立菜单项。 表2步骤3：打开代码编辑窗口输入如下代码： 参考代码： Private Sub C1_Click() Dim a As String a = &我是& If Op1.Value Then Text1.Text = a & Op1.Caption Else Text1.Text = a & Op2.Caption End If a = &我的爱好是& If Ch1.Value = 1 Then Text2.Text = a & Ch1.Caption a = Text2.Text End If If Ch2.Value = 1 Then Text2.Text = a & Ch2.Caption End If End Sub 步骤4：按&F5&键运行程序，先选中选中一个单选按钮 和至少一个复选框，并单击&确定&按钮，然后单击窗体右上 角的关闭按钮结束程序。 (2)在考生文件夹下有一个工程文件sjt4.vbp。窗体上 有一个名称为List1的列表框，名称为Timer1的计时器，名 ―2―步骤3：打开代码编辑窗口，编写菜单命令的单击事 件过程。 考前复习必看资料：PiaoMo 整理全国计算机等级考试二级 VB 上机考试新版题库及解析【2013 年 3 月考试专用】 Text1.Text = Input(LOF(1), #1) 称为Label1的标签，如图4所示。请通过属性窗口向列表框 Close #1 添加四个项目，分别是&第一项&、&第二项&、&第三项&、& End Sub 第四项&。程序运行后，将计时器的时间间隔设置为1秒钟， Private Sub Command2_Click() 每一秒钟从列表框中取出一个项目显示在Label1的标签 For i = 1 To 6 中，首先显示&第一项&，然后，依次显示&第二项&、&第三 sum(i) = 0 项&、&第四项&，如此循环。 Next i 在给出的窗体文件中已经有了全部控件和程序， 但不 If Len(Text1.Text) = 0 Then 完整，请添加List1中的项目，去掉程序中的注释符，把程 MsgBox &请先使用&读数&功能！& 序中的？改为正确的内容。 Else For i = 1 To Len(Text1.Text) 注意： 考生不得修改工程中已经存在的内容和控件属 c = LCase(Mid(Text1.Text, i, 1)) 性，最后把修改后的文件按原文件名存盘。 Select Case c Case &i& sum(1) = sum(1) + 1 Case &j& sum(2) = sum(2) + 1 图4 Case &k& 【操作步骤】 sum(3) = sum(3) + 1 步骤1：打开考生文件中的本题工程文件sjt4.vbp，通 Case &l& 过属性窗口向列表框添加四个项目，分别是：&第一项&、& sum(4) = sum(4) + 1 第二项&、&第三项&、&第四项&。 Case &m& 步骤2：在代码编辑窗口，去掉程序中的注释符&'&， sum(5) = sum(5) + 1 将问号&?&改为正确的内容。 Case &n& sum(6) = sum(6) + 1 参考代码： End Select i=0 Next i Timer1.Interval = 1000 End If Label1.Caption = List1.List(i) End Sub Private Sub Command3_Click() 三、综合应用题 Open App.Path & &\out5.txt& For Output As #1 在窗体上画一个文本框，名称为Text1(可显示多行)， For i = 1 To 6 然 后 再 画 三 个 命 令 按 钮 ， 名 称 分 别 为 Command1 、 Print #1, sum(i) Command2和Command3，标题分别为&读数&、&统计&和& Next i 存盘&，如图5所示。程序的其功能是：单击&读数&按钮， Close #1 则 把 考 生 目 录 下 的 in5.txt 文 件 中 的 所 有 英 文 字 符 放 入 End Sub Text1(可多行显示)；单击&统计&按钮，找出并统计英文字 母i、j、k、l、m、n(不区分大小写)各自出现的次数；单击 第二套题干167 &存盘&按钮， 将字母i～n出现次数的统计结果依次存到考生 一、基本操作题 目录下的顺序文件out5.txt中。 请根据以下各小题的要求设计Visual Basic应用程序 注意： 存盘时必须存放在考生文件夹下， 工程文件名 (包括界面和代码)。 为sjt5.vbp，窗体文件名为sjt5.frm。 (1)在名称为Form1、标题为&测试&的窗体上画一个名 称为Frame1、标题为&字体&的框架。在框架内画两个单选 按钮，其名称分别为Opt1和Opt2，标题分别为&隶书&和&宋 体&。程序运行后的窗体如图1所示。 注意： 存盘时必须存放在考生文件夹下， 工程文件名 为sjt1.vbp，窗体文件名为sjt1.frm。 图5 【操作步骤】 步骤1：新建一个&标准EXE&工程，如表4在窗体中画 出控件并设置其相关属性。 表4 图1 图2 【操作步骤】 步骤1：新建一个&标准EXE&工程，如表1在窗体上绘 制控件并设置属性。 表1 控件属性设置步骤2：打开代码编辑窗口，编写相应事件过程。 参考代码： Option Base 1 Dim sum(6) As Integer Private Sub Command1_Click() Open App.Path & &\in5.txt& For Input As #1 考前复习必看资料：PiaoMo 整理 ―3―(2)在名称为Form1的窗体上用名称为shape1的形状 控件画一个圆，其直径为1000(高、宽均为1000)；再画两个 命令按钮，标题分别是&垂直线&和&水平线&，名称分别为全国计算机等级考试二级 VB 上机考试新版题库及解析【2013 年 3 月考试专用】 Command1、Command2，如图2所示。然后编写两个命令 修改后的文件按原文件名存盘。 按钮的Click事件过程。程序运行后，如果单击&垂直线&命 【操作步骤】 令按钮，则圆的内部用垂直线填充；如果单击&水平线&命 步骤1：打开考生文件中的本题工程文件sjt4.vbp，在 令按钮，则圆的内部用水平线填充。 代码编辑窗口，去掉程序中的注释符&'&，将问号&?&改为正 注意： 程序中不得使用变量， 每个事件过程中只能写 确的内容。 一条语句。 参考代码： If num & a(i) Then Exit For 存盘时必须存放在考生文件夹下，工程文件名为 For j = 60 To i Step -1 sjt2.vbp，窗体文件名为sjt2.frm。 a(j + 1) = a(j) 【操作步骤】 a(i) = num 步骤1：新建一个&标准EXE&工程，如表2在窗体中画 For k = 1 To 61 出控件并设置其相关属性。 表2 三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp，其窗体上 有两个标题分别为&读数据&和&统计&的命令按钮。 请画两个 标签，其名称分别是Label1和Label2，标题分别为&单词的 平均长度为&和&最长单词的长度为&；再画两个名称分别为 Text1和Text2、初始内容为空的文本框，如图5所示。程序 功能如下： ①如果单击&读数据&命令按钮，则将考生文件夹下 in5.dat文件的内容读到变量s中(此过程已给出)； ②如果单击&统计&按钮， 则自动统计变量s(s中仅含有 字母和空格，而空格是用来分隔不同单词的)中每个单词的 长度，并将所有单词的平均长度(四舍五入取整)显示在 Text1文本框内，将最长单词的长度显示在Text2文本框内。 &读数据&命令按钮的Click事件过程已经给出，请为& 统计&命令按钮编写适当的事件过程，实现上述功能。 注意： 考生不得修改窗体文件中已经存在的控件和程 序，在结束程序之前，必须进行统计，且必须通过单击窗 体右上角的&关闭&按钮结束程序，否则无成绩。最后，程 序按原文件名存盘。步骤2：在代码编辑窗口编写两个命令按钮的单击事 件过程。 参考代码： Private Sub Command1_Click() Shape1.FillStyle = 3 End Sub Private Sub Command2_Click() Form1.Shape1.FillStyle = 2 End Sub 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，请在名 称为Form1的窗体上画一个名称为Text1的文本框和一个名 称为C1、标题为&转换&的命令按钮，如图3所示。在程序运 行时，单击&转换&按钮，可以把Text1中的大写字母转换为 小写，把小写字母转换为大写。 窗体文件中已经给出了&转换&按钮的Click事件过 程，但不完整，请去掉程序中的注释符，把程序中的？改 为正确的内容。 注意：不能修改程序中的其他部分，最后把修改后 的文件按原文件名存盘。图5 【操作步骤】 步骤1：打开考生文件夹下的本题工程文件sjt5.vbp， 如表3所列在窗体上画出控件并设置它们的相关属性。 表3图3 图4 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt3.vbp，在 代码编辑窗口，去掉程序中的注释符&'&，将问号&?&改为正 确的内容。 参考代码： n% = Asc(&a&) - Asc(&A&) B$ = String(1, Asc(B$) + 32) Text1.Text = A (2)在考生文件夹下有一个工程文件 sjt4.vbp，其功能是： ①单击&读数据&命令按钮，把考生文件夹下in4.dat文 件中已按升序方式排列的60个数读入数组A，并显示在 Text1中； ②单击&输入&按钮，弹出一个输入对话框，接收用户 输入的任意一个整数；单击&插入&按钮，将输入的数插入A 数组中合适的位置，使其仍保持A数组的升序排列，最后 将A数组的内容重新显示在Text1中。在窗体文件中已经给 出了全部控件(如图4所示)和程序，但程序不完整，要求去 掉程序中的注释符，把程序中的？改为正确的内容。本程 序只考虑插入一个整数的情况。 注意： 不得修改已经存在的内容和控件属性， 最后将 考前复习必看资料：PiaoMo 整理 ―4―步骤2： 打开代码编辑窗口，在指定位置编写&统计& 按钮的单击事件过程。 参考代码： Private Sub Command2_Click() '需考生编写 n = Len(s): t = && Dim word_max As Integer, word_num As Integer, word_len As Integer For i = 1 To n c = Mid(s, i, 1) If c && & & Then t=t+c Else word_len = word_len + Len(t) word_num = word_num + 1 If Len(t) & word_max Then word_max = Len(t) End If全国计算机等级考试二级 VB 上机考试新版题库及解析【2013 年 3 月考试专用】 t = && End If Next i Text1.Text = CInt((word_len + Len(t)) / (word_num + 1)) If Len(t) & word_max Then word_max = Len(t) End If Text2.Text = word_max 步骤2： 打开代码编辑窗口， 编写水平滚动条的Change End Sub 事件过程。 参考代码： Private Sub HScroll1_Change() 第三套题干168 Text1.Text = HScroll1.Value 一、基本操作题 End Sub 请根据以下各小题的要求设计Visual Basic应用程序(包括界 步骤3：按要求将文件保存至考生文件夹中。 面和代码)。 (1)在名称为Form1、标题为&标签&的窗体上画一个名称为 二、简单应用题 Label1的标签，并设置适当属性以满足以下要求： (1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上 ①标签的内容为&计算机等级考试&； 有名称为Timer1的定时器， 以及名称为Line1和Line2的两条 ②标签可根据显示内容自动调整其大小； 水平直线。请用名称为Shape1的形状控件，在两条直线之 ③标签带有边框，且标签内容显示为三号字。 间画一个宽和高都相等的形状，其显示形式为圆，并设置 运行后的窗体如图1所示。 适当属性使其满足以下要求： 注意： 存盘时必须存放在考生文件夹下， 工程文件名 ①圆的顶端距窗体Form1顶端的距离为360； 为sjt1.vbp，窗体文件名为sjt1.frm。 ②圆的颜色为红色(红色对应的值为&H000000FF& 或&HFF&)，如图3所示。 程序运行时，Shape1将在Line1和Line2之间运动。当 Shape1的顶端到达Line1时，会自动改变方向而向下运动； 当Shape1的底部到达Line2时，会改变方向而向上运动。 图1 文件中给出的程序不完整，请去掉程序中的注释符， 把程序中的？改为正确内容，使其实现上述功能。 【操作步骤】 注意：不能修改程序的其他部分和已给出控件的属 步骤1：新建一个&标准EXE&工程，在窗体Form1中画一 性。最后将修改后的文件按原文件名存盘。 个标签，并设置它的相关属性，其属性和值如表1所示。 表1步骤2：按要求将文件保存至考生文件夹中。 (2)在名称为Form1的窗体上画一个名称为Hscroll1的 水平滚动条，其刻度范围为1～100；再画一个名称为Text1 的文本框，初始内容为1。程序开始运行时，焦点在滚动条 上。请编写适当的事件过程，使得程序运行时，文本框中 实时显示滚动框的当前位置。运行情况如图2所示。 注意： 要求程序中不得使用变量， 每个事件过程中只 能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为sjt2.frm。图3 【操作步骤】 步骤1：打开考生文件下的本题工程文件sjt3.vbp，在 窗体上两条水平直线间画一个形状控件， 并如表3设置其属 性。 表3图2 【操作步骤】 步骤1：新建一个&标准EXE&工程，在窗体Form1中画 一个命令按钮和一个水平滚动条，在属性设置窗口中设置 其相关属性，其属性及值如表2所示。 表2步骤2：在代码编辑窗口，去掉程序中的注释符&'&， 将问号&?&改为正确的内容。 参考代码： Timer1.Enabled = True If Shape1.Top &= Lin1.Y1 Then If Shape1.Top + Shape1.Height &= Lin2.Y1 Then 步骤3：按要求将文件保存至考生文件夹中。 (2)在考生文件夹下有一个工程文件sjt4.vbp，包含了 所有控件和部分程序，如图4所示。程序功能如下： ①单击&读数据&按钮，可将考生文件夹下in4.dat文件 中的100个整数读到数组a中； ②单击&计算&按钮，则根据从名称为Combo1的组合 框中选中的项目，对数组a中的数据计算平均值，并将计算 结果四舍五入取整后显示在文本框Text1中。&读数据&按钮 的Click事件过程已经给出，请为&计算&按钮编写适当的事 件过程实现上述功能。 ―5―考前复习必看资料：PiaoMo 整理全国计算机等级考试二级 VB 上机考试新版题库及解析【2013 年 3 月考试专用】 注意： 不得修改已经存在的控件和程序， 在结束程序 中的其他部分。最后把修改后的文件按原文件名存盘。 运行之前，必须进行一次计算，且必须用窗体右上角的关 闭按钮结束程序，否则无成绩。最后，程序按原文件名存 盘。图4 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt4.vbp，在 代码编辑窗口，编写&计算&按钮的单击事件过程以及三个 自定义过程。 参考代码： Private Sub Command2_Click() Select Case Combo1.ListIndex Case 0 Text1 = even() Case 1 Text1 = odd() Case 2 Text1 = all() End Select End Sub Function even() Dim s As Single, n As Integer s=0 For k = 1 To 100 If a(k) / 2 = Fix(a(k) / 2) Then s = s + a(k) n=n+1 End If Next s=s/n even = CInt(s) End Function Function odd() Dim s As Single, n As Integer s=0 For k = 1 To 100 If a(k) / 2 && Fix(a(k) / 2) Then s = s + a(k) n=n+1 End If Next s=s/n odd = CInt(s) End Function Function all() Dim s As Single, n As Integer s=0 For k = 1 To 100 s = s + a(k) Next s = s / 100 all = CInt(s) End Function 步骤2：按要求将文件保存至考生文件夹中。 三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp，相应的窗 体文件为sjt5.frm， 此外还有一个名为datain.txt的文本文件， 其内容如下： 465
。 程 序 运 行 后 单 击 窗 体 ， 将 把 文 件 datain.txt中的数据输入到二维数组Mat中，在窗体上按5行、 5列的矩阵形式显示出来， 然后交换矩阵第二列和第四列的 数据，并在窗体上输出交换后的矩阵，如图5所示。在窗体 的代码窗口中，已给出了部分程序，这个程序不完整，请 把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的?改为正确 的内容(可以是多行)， 使其实现上述功能， 但不能修改程序 考前复习必看资料：PiaoMo 整理 ―6―图5 【操作步骤】 步骤1：打开本题对应工程文件sjt5.vbp。 步骤2：打开代码编辑窗口，去掉程序中的注释符&'&， 将问号&?&改为正确的内容。 参考代码： Dim Mat (M, N) As Integer Open App.Path & &\& & &datain.txt& For _ Input As #1 Input #1, Mat (i, j) Mat (i, 4) = t 步骤3：按要求将文件保存在考生文件夹中。第四套题干169一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序 (包括界面和代码)。 (1)在标题为&列表框&、名称为Form1的窗体上画一个 名称为List1列表框，通过属性窗口输入四个列表项：&数学 &、&语文&、&历史&、&地理&，列表项采用&复选框形式&， 如图1所示。列表框的宽为1100，高不限。 注意： 存盘时必须存放在考生文件夹下， 工程文件名 为sjt1.vbp，窗体文件名为sjt1.frm。图1 【操作步骤】 步骤1：新建一个&标准EXE&工程，如表1在窗体中画 出控件并设置其相关属性。 表1 控件属性设置步骤2：按要求将文件保存至考生文件夹中。 (2) 在 名 称 为 Form1 的 窗 体 上 建 立 一 个 名 称 为 &menu1&、标题为&文件&的弹出式菜单，含有三个菜单项， 它们的标题分别为&打开&、&关闭&、&保存&，名称分别为 &m1& 、 &m2& 、 &m3& 。 再 画 一 个 命 令 按 钮 ， 名 称 为 &Command1&、标题为&弹出菜单&。要求：编写命令按钮的 Click事件过程，使程序运行时，单击&弹出菜单&按钮即可 弹出&文件&菜单(如图2所示)。 注意： 程序中不得使用变量， 事件过程中只能写一条 语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为sjt2.frm。图2 【操作步骤】全国计算机等级考试二级 VB 上机考试新版题库及解析【2013 年 3 月考试专用】 步骤1： 新建一个&标准EXE&工程， 【工具】 【菜 选择 → 【审题分析】本题在计时器的Timer事件过程中，若 单编辑器】命令，打开菜单设计器，如表2中的设置建立菜 Shape1填充色为蓝色则需要进行放大， 若放大后其Left属性 单项。 值小于或等于0则Shape的填充色改为红色，并开始缩小。 若缩小后其Left属性值大于等于原来的大小时再将其填充 表2 色改为蓝色，并开始放大。形状的放大缩小通过改变Left、 Top、Width、Height属性来实现。 单击&开始&，计时器启动，Shape1开始进行放大缩小 活动。 【操作步骤】 步骤1：打开考生文件下的本题工程文件sjt4.vbp，在 代码编辑窗口，去掉程序中的注释符&'&，将问号&?&改为正 步骤2：在窗体上画一个名为Command1，标题为&弹 确的内容。 出菜单&的命令按钮，打开代码编辑窗口，编写&弹出菜单& 参考代码： 按钮的单击事件过程。 Timer1.Enabled = True 参考代码： Shape1.FillColor = red_color Private Sub Command1_Click() Shape1.Left = Shape1.Left + 50 Form1.PopupMenu menu1 Shape1.Top = Shape1.Top + 50 End Sub Shape1.FillColor = blue_color 步骤3：按要求将文件保存至考生文件夹中。 步骤2：按要求将文件保存至考生文件夹中。 二、简单应用题 (1)在考生目录下有一个工程文件sjt3.vbp，包含了所 有控件和部分程序。程序运行时，在文本框中每输入一个 字符，则立即判断：若是小写字母，则把它的大写形式显 示在标签Label1中；若是大写字母，则把它的小写形式显 示在Label1中；若是其他字符，则把该字符直接显示在 Label1中。输入的字母总数则显示在标签Label2中，如图3 所示。 要求： 去掉程序中的注释符， 把程序中的？改为正确 的内容。 注意： 不得修改已经存在的程序， 最后把修改后的文 件按原文件名存盘。 三、综合操作题 在考生目录下有一个工程文件sjt5.vbp，包含了所有 控件和部分程序。程序运行时，单击&打开文件&按钮，则 弹出&打开&对话框， 默认文件类型为&文本文件&， 默认目录 为考生目录。选中in5.txt文件，如图5(a)所示，单击&打开& 按钮，则把文件中的内容读入并显示在文本框(Text1)中； 单击&修改内容&按钮，则可把Text1中的大写字母&E&、&N&、 &T&改为小写，把小写字母&e&、&n&、&t&改为大写；单击& 保存文件&按钮，则弹出&另存为&对话框，默认文件类型为 &文本文件&，默认目录为考生目录，默认文件为&out5.txt&， 如图5(b)所示，单击&保存&按钮，则把Text1中修改后的内 容存到out5.txt文件中。 窗体中已经给出了所有控件和程序，但程序不完整， 去掉程序中的注释符，把程序中的？改为正确的内容，并 编写&修改内容&按钮的Click事件过程。 注意：考生不得修改已经存在的程序。必须把Text1 中修改后的内容用&保存文件&按钮存储结果，否则无成绩。 最后，按原文件名把程序存盘。图3 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt3.vbp，在 代码编辑窗口，去掉程序中的注释符&'&，将问号&?&改为正 确的内容。 参考代码： ch = Right$(Text1.Text, 1) Label1.Caption = ch Label2.Caption = n 步骤2：按要求将文件保存至考生文件夹中。 【主要考点】字符串函数。 (2)在考生文件夹下有一个工程文件sjt4.vbp。窗体中 有一个图片框，图片框中有一个名称为Shape1的蓝色圆， 如图4所示。程序运行时，单击&开始&按钮，圆逐渐变大(圆 心位置不变)，当圆充满图片框时则变为红色，并开始逐渐 缩小，当缩小到初始大小时又变为蓝色，并再次逐渐变大， 如此往复。单击&停止&按钮，则停止变化。文件中已经给 出了所有控件和程序，但程序不完整，请去掉程序中的注 释符，把程序中的？改为正确的内容。 提示：程序中的符号常量bule_color表示蓝色的值， red_color表示红色的值。 注意： 不能修改程序的其他部分和各控件的属性。 最 后把修改后的文件按原文件名存盘。(a)图4 考前复习必看资料：PiaoMo 整理 ―7―(b)图5 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt5.vbp，在 代码编辑窗口，去掉程序中的注释符&'&，将问号&?&改为正 确的内容。 参考代码：全国计算机等级考试二级 VB 上机考试新版题库及解析【2013 年 3 月考试专用】 CommonDialog1.FilterIndex = 2 Open CommonDialog1.FileName For Input As #1 Text1.Text = s CommonDialog1.Action = 2 步骤2：按指定位置编写&修改文件&的单击事件过程。 图2 参考代码： 【操作步骤】 Private Sub Command2_Click() 步骤1：新建一个&标准EXE&工程，在窗体Form1中画 ' 考生需要编写的程序 一个名称为Command1， Caption属性为&命令按钮&的命令按 s = && 钮。 str_len = Len(Text1) 步骤2：选择【工具】→【菜单编辑器】命令，打开 For k = 1 To str_len ch = Mid$(Text1, k, 1) 菜单设计器，如表1中的设置建立菜单项。 If ch = &E& Or ch = &N& Or ch = &T& Then 表1 s = s & LCase(ch) ElseIf ch = &e& Or ch = &n& Or ch = &t& Then s = s & UCase(ch) Else s = s & ch End If 步骤3：打开代码编辑窗口，编写菜单命令的单击事 Next k Text1 = s 件过程。 End Sub 参考代码： 步骤3：按要求将文件保存至考生文件夹中。 Private Sub subMenu1_Click() 步骤4：按&F5&键运行程序，先单击&打开文件&按钮， Command1.Visible = True End Sub 接着单击&修改内容&按钮，然后单击&保存文件&按钮。 Private Sub subMenu2_Click() Command1.Visible = False 第五套题干170 End Sub 一、基本操作题 步骤4：按要求将文件保存至考生文件夹中。 请根据以下各小题的要求设计Visual Basic应用程序 (包括界面和代码)。 二、简单应用题 (1)在名称为Form1的窗体上画一个名称为Pic的图片 (1)在考生文件夹下有一个工程文件sjt3.vbp，运行情 框，通过属性窗口将考生文件夹下的文件Tu1-1.jpg添加到 况 如 图 59-3 所 示 。 程 序 的 功 能 是 计 算 表 达 式 的 值 ： 图片框，然后编写适当的事件过程。运行程序时，单击窗 z=(x-2)!+(x-3)!+(x-4)!+…+(x-N)! 体，在图片框中显示&VB等级考试&，如图1所示。 其中的N和x值通过键盘分别输入到两个文本框 注意： 要求程序中不得使用变量， 事件过程中只能写 Text1、Text2中。单击名称为Command1、标题为&计算&的 一条语句。存盘时必须存放在考生文件夹下，工程文件名 命令按钮，则计算表达式的值，并将计算结果显示在名称 为sjt1.vbp，窗体文件名为sjt1.frm。 为Label1的标签中。 在窗体文件中已经给出了全部控件和程序， 但程序不 完整，请去掉程序中的注释符，把程序中的？改为正确内 容。 要求：程序调试通过后，必须按照如图3所示输入 N=5，x=12，然后计算z的值，并将计算结果显示在标签 Label1中，否则没有成绩。 注意： 不能修改程序的其他部分和控件属性。 最后把 修改后的文件按原文件名存盘。图1 【操作步骤】 步骤1：新建一个&标准EXE&工程，在窗体Form1中画 一个名称为Pic的图片框， 并设置其Picture属性为Tu1-1.jpg。 步骤2：双击窗体打开代码编辑窗口，在窗体的Click 事件过程中输入代码。 参考代码： Private Sub Form_Click() Pic.Print &VB等级考试& End Sub 步骤3：按要求将文件保存至考生文件夹中。 (2)在名称为Form1的窗体上画一个名称为Command1 的命令按钮，标题为&命令按钮&。然后建立一个菜单，标 题为&控件&，名称为menu，包含两个子菜单项，一个是& 显示命令按钮&，名称为subMenu1；另一个是&隐藏命令按 钮&，名称为subMenu2，如图2所示。编写适当的事件过程， 使得程序运行时，如果选择&显示命令按钮&菜单命令，则 显示命令按钮控件；而如果选择&隐藏命令按钮&菜单命令， 则隐藏命令按钮控件。 注意： 程序中不得使用变量， 每个事件过程中只能写 一条语句。存盘时必须存放在考生文件夹下，工程文件名 为sjt2.vbp，窗体文件名为sjt2.frm。图3 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt3.vbp，在 代码编辑窗口，去掉程序中的注释符&'&，将问号&?&改为正 确的内容。 参考代码： tmp = 1 tmp = temp * i xn = tmp z = z + xn(t) 步骤2：按&F5&键键运行程序，在第一个文本框中输 入5，第两个文本框中输入12，然后单击&计算&按钮。 步骤3：按要求将文件保存至考生文件夹中。 (2)在考生文件夹下有一个工程文件sjt4.vbp。窗体上 有名称为Label1的标签和名称为Timer1的计时器控件。该 程序的功能是在名称为Label1的标签中循环显示不同的字 符串。程序开始运行，在标签中显示&第一项&(如图4所示)， 且每隔1秒钟依次显示&第二项&、&第三项&、&第四项&，如 此循环。在给出的窗体文件中已经有了全部控件和程序， 但程序不完整，要求去掉程序中的注释符，把程序中的？ ―8―考前复习必看资料：PiaoMo 整理全国计算机等级考试二级 VB 上机考试新版题库及解析【2013 年 3 月考试专用】 改为正确的内容。 注意： 不能修改程序的其他部分和控件属性。 最后把 修改后的文件按原文件名存盘。 图1 【操作步骤】 步骤1：新建一个&标准EXE&工程，如表1在窗体中画 出控件并设置其相关属性。 表-1图4 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt4.vbp，在 代码编辑窗口，去掉程序中的注释符&'&，将问号&?&改为正 确的内容。 参考代码： arr = Array(&第一项&, &第二项&, &第三项&, &第四项&) Static i As Integer Label1.Caption = arr(i) i=0 步骤2：按要求将文件保存至考生文件夹中。 三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp。其窗体中 有一个名称为Text1的文本框数组，下标从0开始。程序运 行时，单击&产生随机数&按钮，就会产生10个3位数的随机 数，并放入Text1数组中，如图5(a)所示；单击&重排数据& 按钮，将把Text1中的奇数移到前面，偶数移到后面，如图 5(b)所示。文件中已经给出了所有控件和部分程序。 要求： 请去掉程序中的注释符， 把程序中的？改为正 确的内容，使其能正确运行，不能修改程序的其他部分和 控件属性。最后把修改后的文件按原文件名存盘。 提示： 在&重排数据&按钮的事件过程中有对其算法的 文字描述，请仔细阅读。步骤2：按要求将文件保存至考生文件夹中。 (2) 在 名 称 为 Form1 的 窗 体 上 画 一 个 名 称 为 Command1、标题为&保存文件&的命令按钮，再画一个名称 为CommonDialog1的通用对话框。 要求： ①通过属性窗口设置适当的属性，使得运行时对话框的标 题为&保存文件&，且默认文件名为out2； ②运行时单击&保存文件&按钮， 则以&保存对话框&方式打开 该通用对话框。如图2所示。 注意： 要求程序中不能使用变量， 每个事件过程中只 能写一条语句。保存时必须存放在考生文件夹下，工程文 件名为sjt2.vbp，窗体文件名为sjt2.frm。(a)(b)图5 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt5.vbp，在 代码编辑窗口，去掉程序中的注释符&'&，将问号&?&改为正 确的内容。 参考代码： j=9 temp = Text1 (j) While (i & j) If Text1 (j) Mod 2 = 1 Then 步骤2：按要求将文件保存至考生文件夹中。图2 【操作步骤】 步骤1：新建一个&标准EXE&工程， 选择 【工程】 【部 → 件】命令，在弹出的&部件&对话框的列表中选中&MicroSoft Common Dialog Control6.0&项目，单击&确定&按钮。 步骤2： 在窗体Form1上画一个通用对话框和一个命 令按钮，其相关属性设置如表2所示。 步骤3：打开的代码编辑窗口中，编写命令按钮的单 击事件过程。 Private Sub Command1_Click() CommonDialog1.Action = 2 '或 CommonDialog1.ShowSave End Sub 表2第六套题干171一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序 (包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为Picture1的 图片框(PictureBox)，高、宽均为1000。在图片框内再画一 个有边框的名称为Image1的图像框(Image)。并通过属性窗 口把考生目录下的图标文件POINTl1(香蕉图标)装入图像 框Image1中，如图1所示。 注意： 存盘时必须存放在考生文件夹下， 工程文件名 为sjt1.vbp，窗体文件名为sjt1.frm。步骤4：按要求将文件保存至考生文件夹中。 二、简单应用题 (1)在考生目录下有一个工程文件sjt3.vbp。窗体上有 个钟表图案，其中代表指针的直线的名称是Line1，还有一 个名称为Label1的标签，和其他一些控件，如图3(a)所示。 ―9―考前复习必看资料：PiaoMo 整理全国计算机等级考试二级 VB 上机考试新版题库及解析【2013 年 3 月考试专用】 在运行时，若用鼠标左键单击圆的边线，则指针指向鼠标 步骤4：按要求将文件保存至考生文件夹中。 单击的位置，如图3(b)所示；若用鼠标右键单击圆的边线， 三、综合操作题 则指针恢复到起始位置， 如图3(a)所示； 若鼠标左键或右键 在考生文件夹下有一个工程文件sjt5.vbp，含三个窗 单击其他位置，则在标签上显示&鼠标位置不对&。文件中 体，标题分别为&启动&、&注册&、&登录&，运行时显示&启 已经给出了所有控件和程序，但程序不完整，请去掉程序 动&窗体，单击其上按钮时弹出对应窗体进行注册或登录。 中的注释符，把程序中的？改为正确的内容。程序中的 注册信息放在全局数组users中，注册用户数(最多10个)放 oncircle函数的作用是判断鼠标单击的位置是否在圆的边 在全局变量n中(均已在标准模块中定义)。 线上(判断结果略有误差)，是则返回True，否则返回False。 注册时用户名不能重复，且&口令&与&验证口令&须相 符号常量x0、y0是圆心距窗体左上角的距离；符号常量 同， 注册成功则在&启动&窗体的标签中显示&注册成功&， 否 radius是圆的半径。 则显示相应错误信息。登录时，检验用户名和口令，若正 注意：不能修改程序中的其他部分和各控件的属性。 确， 则在&启动&窗体的标签上显示&登录成功&， 否则显示相 最后把修改后的文件按原文件名存盘。 应错误信息。标准模块中函数finduser的功能是：在users数 组中搜索用户名(即参数ch)，找到则返回该用户名在users 中的位置，否则返回0。已经给出了所有控件和程序，但程 序不完整，请去掉程序中的注释符，把Form2、Form3窗体 文件中的？改为正确的内容。 注意： 不得修改已经存在的程序和控件的属性， 最后 程序按原文件名存盘。 (a) (b) 【操作步骤】 图3 步骤1：打开考生文件中的本题工程文件sjt5.vbp，在 【操作步骤】 代码编辑窗口，去掉程序中的注释符&'&，将问号&?&改为正 步骤1：打开本题工程文件sjt3.vbp，在代码编辑窗口， 确的内容。 去掉程序中的注释符&'&，将问号&?&改为正确的内容。 参考代码： 参考代码： '---注册窗体Form2Line1.Y2 = Y n=n+1 Line1.X2 = Line1.X1 ElseIf finduser(Trim$(Text1)) & 0 Then Line1.Y2 = y0 C 750 Form1.Label1.Caption = &注册成功！& Label1.Caption = &鼠标位置不对& '---登录窗体Form3步骤2：按要求将文件保存至考生文件夹中。 If k = 0 Then ElseIf Trim$(Text2) && users(k, 2) Then (2)在考生目录下有一个工程文件sjt4.vbp， 窗体如图4 步骤2：按要求将文件保存至考生文件夹中。 所示。其功能是单击&输入数据&按钮，则可输入一个整数 n(要求：8≤n≤12)；单击&计算&按钮，则计算1!+2!+3!+… 第七套题干172 +n!，并将计算结果显示在文本框中；单击&存盘&按钮，则 一、基本操作题 把文本框中的结果保存到考生目录下的out4.dat文件中。文 请根据以下各小题的要求设计Visual Basic应用程序 件中已经给出了所有控件和程序，但程序不完整，请去掉 (包括界面和代码)。 程序中的注释符，把程序中的？改为正确的内容，并编写& (1)在名称为Form1的窗体上画出包含三个命令按钮 计算&按钮的Click事件过程。 的控件数组，名称为cmd1，下标分别为0、1、2，Caption 注意： 不得修改已经存在的内容和控件属性， 在结束 分别为&开始&、&停止&和&退出&，如图1(a)所示。通过属性 程序运行之前，必须用&存盘&按钮存储计算结果，否则无 窗口设置各命令按钮的属性，使得程序开始运行时，&停止 成绩。最后把修改后的文件按原文件名存盘。 &按钮不可见，&退出&按钮不可用，如图1(b)所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体 文件名为sjt1.frm，工程文件名为sjt1.vbp。图4 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt4.vbp，在 代码编辑窗口，去掉程序中的注释符&'&，将问号&?&改为正 确的内容。 参考代码： s=1 f=s 步骤2：双击&计算&按钮，编写该按钮的单击事件过程。 参考代码： Private Sub Command2_Click() Dim s As Long, k As Integer '考生应编写的程序 s=0 For k = 1 To n s = s + f(k) Next Text1 = s End Sub 步骤3：按&F5&键键运行程序，单击&输入数据&按钮， 通过输入框输入一个8~12之间的整数，然后单击&计算&按 钮计算结果，最后单击&存盘&按钮保存结果。 考前复习必看资料：PiaoMo 整理 ―10―(a) 图1(b)【操作步骤】 步骤1：新建一个&标准EXE&工程，如表1在窗体中用& 复制&和&粘贴&画出控件数组并设置属性。 表1步骤2：按要求将文件保存至考生文件夹中。全国计算机等级考试二级 VB 上机考试新版题库及解析【2013 年 3 月考试专用】 将问号&?&改为正确的内容。 (2) 在 名 称 为 Form1 的 窗 体 上 画 两 个 名 称 分 别 为 参考代码： Command1和Command2、标题分别为&打开&和&保存&的命 Select Case Combo1.ListIndex MsgBox Str(x) & f1(x) 令按钮，和一个名称为CD1的通用对话框，如图8-2所示。 MsgBox Str(x) & f2(x) 请在属性窗口中设置CD1的属性， 使得打开通用对话框时， Private Function f2(ByVal x As Integer) As String 其初始路径是&C:\&。再编写适当的事件过程，使得运行程 If x Mod 7 = 0 Then 序，分别单击&打开&或&保存&按钮时，相应地出现&打开& 步骤3：按要求将文件保存至考生文件夹中。 或&保存&对话框。要求程序中不得使用变量，每个事件过 程中只能写一条语句。 (2)在考生目录下有一个工程文件sjt4.vbp。窗体上有 注意：存盘时，将文件保存至考生文件夹下，且窗体 一大一小两个名称分别为Shape2、Shape1的Shape控件。请 文件名为sjt2.frm，工程文件名为sjt2.vbp。 在属性窗口中将Shape1控件设置为圆形，并将其颜色设置 为红色(颜色值为&H000000FF&)，如图4所示。 要求：当单击窗体时，Shape1移动到矩形(即Shape2) 左上角，再次单击窗体，则Shape1移动到矩形的右下角。 在给出的窗体文件中已经有了全部控件，但程序不完整。 图2 要求：在属性窗口中设置有关的属性值，去掉程序中的注 【操作步骤】 释符，把程序中的？改为正确的内容。 步骤1： 新建一个&标准EXE&工程， 【工程】 【部 选择 → 注意： 不能修改程序的其他部分和控件属性。 最后把 件】命令，在弹出的&部件&对话框的列表中选中&MicroSoft 修改后的文件按原文件名存盘。 Common Dialog Control6.0&项目，单击&确定&按钮。 步骤2： 在窗体Form1上画一个通用对话框，其相关 属性设置如表2所示。 表2步骤3：编写两个命令按钮的Click事件，加入下面的 代码： 参考代码： Private Sub Command1_Click() CD1.ShowOpen '或 CD1.Action = 1 End Sub Private Sub Command2_Click() CD1.ShowSave '或 CD1.Action = 2 End Sub 步骤4：按要求将文件保存至考生文件夹中。 二、简单应用题 (1)考生文件夹中有工程文件sjt3.vbp。在窗体上有名 称为Combo1的组合框，请设置该组合框的属性，使该组合 框只能用于选择操作，不能输入文本。窗体上还有两个标 题分别为&输入正整数&、 &判断&的命令按钮。 程序运行时在 组合框中选中一项， 如图3(a)所示， 单击&输入正整数&按钮， 通过输入对话框输入一个正整数，再单击&判断&按钮，则 按照选定的选项内容，将判断结果显示在信息框中。如图 3(b)所示的是输入56且选中的组合框选项为&判奇偶数&时 显示的信息框。 在给出的窗体文件中已经有了全部控件， 但程序不完 整，要求：按照题目要求设置组合框的有关属性，去掉程 序中的注释符，把程序中的？改为正确的内容。 注意： 考生不得修改窗体文件中已经存在的程序。 最 后程序按原文件名存盘。图4 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt4.vbp，将 Shape1控件的Shape属性设置为3，BackColor属性设置为 &H000000FF&。 步骤2：在代码编辑窗口，去掉程序中的注释符&'&， 将问号&?&改为正确的内容。 参考代码： Private Flag As Boolean Shape1.Top = Shape2.Top + Shape2.Height - Shape1.Height Shape1.Left = Shape2.Left + Shape2.Width - Shape1.Width 步骤3：按要求将文件保存至考生文件夹中。 三、综合操作题 在考生目录下已有一个工程文件sjt5.vbp。运行程序 后，分别从两个文件中读出数据，放入两个一维数组a、b 中。请编写程序，当单击&合并数组&按钮时，将a、b数组 中相同下标的数组元素的值求和，并将结果存入数组c。单 击&找最大值&按钮时，调用find过程分别找出a、c数组中元 素的最大值，并将所找到的结果分别显示在Text1、Text2 中。在给出的窗体文件中已经有了全部控件，但程序不完 整。 要求： 去掉程序中的注释符， 把程序中的？改为正确 的内容，并编写相应程序，实现程序的功能。 注意：不能修改程序的其他部分和控件属性。最后把修改后的 文件按原文件名存盘。程序调试通过后，各命令按钮的事件过 程必须至少各执行一次。 【操作步骤】 步骤1：打开考生文件夹下的本题工程文件sjt5.vbp， 打开代码编辑窗口，在指定位置编写代码。 参考代码： Private Sub find(x() As Integer, t As TextBox) '======以下为考生编写的程序========= Max = x(1) For i = 2 To UBound(x) If x(i) & Max Then Max = x(i) End If Next t.Text = Max =======考生编写的程序结束======== End Sub Private Sub Command2_Click() =========以下为考生编写的程序===========(a) 图3 【操作步骤】(b)步骤1：打开考生文件中的本题工程文件sjt3.vbp，将 组合框的Style属性设置为2。 步骤2：在代码编辑窗口，去掉程序中的注释符&'&， 考前复习必看资料：PiaoMo 整理 ―11―全国计算机等级考试二级 VB 上机考试新版题库及解析【2013 年 3 月考试专用】 For i = 1 To UBound(a) c(i) = a(i) + b(i) Next =========考生编写的程序结束============== Open App.Path & &\out51.txt& For Output As #1 For i = 0 To 9 Print #1, c(i) 步骤2：打开代码编辑窗口，编写以下事件过程： Next 参考代码： Close #1 Private Sub Command1_Click() End Sub Text2.Text = Form1.Text1.SelLength 步骤2：按要求将文件保存至考生文件夹中。 End Sub 步骤3：按&F5&键运行程序，先单击&读数据&按钮， 步骤3：按要求将文件保存至考生文件夹中。 再单击&合并数组&按钮，最后单击&找最大值&按钮。第八套题干173一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序 (包括界面和代码)。 (1) 在 名 称 为 Form1 的 窗 体 上 画 两 个 名 称 分 别 为 Frame1、Frame2的框架，标题分别为&字号&、&修饰&；在 Frame1中画两个单选按钮，名称分别为Option1、Option2， 标题分别为&10号字&、 &20号字&， 且标题显示在单选按钮的 左边；在Frame2中画一个名称为Check1的复选框，标题为& 下划线&。运行后的窗体如图1所示。 注意： 存盘时必须存放在考生文件夹下， 工程文件名 为sjt1.vbp，窗体文件名为sjt1.frm。二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp。程序运 行后，单击&读入数据&按钮，可把考生文件夹下in3.txt文件 中的所有英文单词读入，并显示在Text1文本框中；单击& 插入列表框&按钮，则按顺序把每个单词作为一项添加到 List1列表框中(如图3所示)。在in3.txt文件中每个单词之间 用一个空格字符隔开，最后一个单词的后面没有空格。已 经给出了所有控件和程序，但程序不完整。 要求： 请去掉程序中的注释符， 把程序中的？改为正 确的内容，使其能正确运行，但不能修改程序中的其他部 分和控件属性。最后用原来的文件名保存工程文件和窗体 文件。图1 图2 【操作步骤】 步骤1：新建一个&标准EXE&工程，如表1在窗体中画 出控件并设置其相关属性。 步骤2：按要求将文件保存至考生文件夹中。 表1图3 【操作步骤】 步骤1：打开考生文件夹下的本题工程文件sjt3.vbp， 打开代码编辑窗口，去掉程序中的注释符&'&，将问号&?&改 为正确的内容。 参考代码： st = st & ch c = Mid(st, k, 1) word = && 步骤2：按要求将文件保存至考生文件夹中。 (2)在考生文件夹下有一个工程文件sjt4.vbp， 窗体上已 经画出所有控件，如图4所示。在运行时，如果单击&开始& 按钮，则窗体上的汽车图标每0.1秒向右移动一次(初始状态 下不移动)；如果单击&停止&按钮，则停止移动。 请完成以下工作： ①设置适当控件的适当属性，使得汽车图标每0.1秒 向右移动一次，而初始状态下不移动； ②请去掉程序中的注释符， 把程序中的？改为正确的 内容； ③为两个命令按钮编写适当的事件过程。 最后以原文 件名存盘。 注意： 不得修改已经给出的程序。 编写的事件过程中 不能使用变量，每个事件过程中只能有一条语句。(2)在名称为Form1的窗体上从上到下画两个文本框， 名称分别为Text1、Text2；再画一个命令按钮，名称为 Command1，标题为&选中字符数是&。程序运行时，在Text1 中输入若干字符，选中部分内容后，单击&选中字符数是& 按钮，则在Text2中显示选中的字符个数(如图2所示)。请编 写按钮的Click事件过程。 要求： 程序中不得使用变量， 事件过程中只能写一条 语句。注意：存盘时必须存放在考生文件夹下，工程文件 名为sjt2.vbp，窗体文件名为sjt2.frm。 【操作步骤】 步骤1：新建一个&标准EXE&工程，如表2所列在窗体 Form1中画出控件并设置它们的属性。 表2图4 【操作步骤】 步骤1：打开考生文件夹中的本题工程文件sjt4.vbp， 将计时器Timer1的Enabled属性设置为False， Interval属性设 置为100。 步骤2：打开代码编辑窗口，去掉程序中的注释符&'&， 将问号&?&改为正确的内容并编写两个命令按钮的单击事 件过程。 参考代码： ―12―考前复习必看资料：PiaoMo 整理全国计算机等级考试二级 VB 上机考试新版题库及解析【2013 年 3 月考试专用】 Private Sub C1_Click() Timer1.Enabled = True End Sub Private Sub C2_Click() Timer1.Enabled = False End Sub 图1 Private Sub Timer1_Timer() 【操作步骤】 P1.Move P1.Left + 20 步骤1：新建一个&标准EXE&工程。 End Sub 步骤2：在窗体Form1中加入一个列表框和一个标签， 步骤3：按要求将文件保存至考生文件夹中。 并分别如表1设置它们的相关属性。 三、综合操作题 表1 在考生文件夹下有一个工程文件sjt5.vbp。在窗体文 件中已经给出了全部控件及部分程序。程序运行时，在文 本框Text1中输入一个大于2的偶数，并单击&分解为&按钮， 则可以将该偶数分解为两个素数之和，且要求其中一个素 数是所能够分解出的最小的素数(一个偶数有时可以分解 为多种素数的组合，例如24可以分解为5和19，也可以分解 为11和13，要求取含有最小素数的组合，如图5所示)。要 步骤3：按要求将文件保存至考生文件夹中。 求编写&分解为&按钮事件过程中&考生编写程序开始&和&考 生编写程序结束&之间的代码，以实现上述功能。过程 (2)在名称为Form1的窗体上画一个名称为Image1的 IsPrime用来判断一个数是否为素数，如果是，返回值为 图像框，其高、宽分别为，且不随图片大小而 True，否则返回值为False。 变化；再画两个命令按钮，标题分别是&显示图片&和&隐藏 注意： 不得修改原有程序和控件的属性。 至少正确运 图片&，名称分别为Cmd1、Cmd2，如图2所示。需编写两 行一次程序，且运行时在文本框中输入23456，单击&分解 个命令按钮的Click事件过程，使得当单击&显示图片&按钮 为&按钮，将结果显示在标签中，否则无成绩。最后把修改 时，将当前文件夹下的图片文件&图片.jpg&显示在图像框 后的文件按原文件名存盘。 中；而如果单击&隐藏图片&按钮，则清除图像框中的图片。 要求： 程序中不得使用变量， 每个事件过程中只能写 一条语句。存盘时必须存放在考生文件夹下，工程文件名 为sjt2.vbp，窗体文件名为sjt2.frm。 图5 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt5.vbp，在 代码编辑窗口的指定位置编写以下代码： 参考代码： Dim i As Integer Dim n As Integer n = Val(Text1.Text) If n Mod 2 && 0 Then MsgBox &请输入偶数！& Exit Sub End If For i = 3 To n / 2 If IsPrime(i) And IsPrime(n - i) Then Label1.Caption = i Label2.Caption = n - i Exit For End If Next 步骤2：按要求将文件保存至考生文件夹中。 步骤3：按&F5&键运行程序，在文本框中输入23456， 单击&分解为&按钮。图2 【操作步骤】 步骤1：新建一个&标准EXE&工程，如表2在窗体中画 出控件并设置其相关属性。 步骤2：打开代码编辑窗口，编写两个命令按钮的单 击事件过程。 参考代码： Private Sub Cmd1_Click() Image1.Picture = LoadPicture(&图片.jpg&) End Sub Private Sub Cmd2_Click() Image1.Picture = LoadPicture() End Sub 表2第九套题干174一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序 (包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为Label1、标 题为&列表框的使用&的标签。再画一个名称为List1的列表 框，列表中含有5个表项，表项内容分别为&北京&、&山西&、 &辽宁&、&浙江&和&广东&，并且可以在列表中同时选择多个 表项。运行后的窗体如图1所示。 要求： 存盘时必须存放在考生文件夹下， 工程文件名 为sjt1.vbp，窗体文件名为sjt1.frm。步骤3：按要求将文件保存至考生文件夹中。 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp， 其功能是： ①单击&读数据&按钮，则把考生文件夹下in3.dat文件 中的100个正整数读入数组a中； ②单击&统计&按钮，则找出这100个正整数中的所有 完全平方数(一个整数若是另外一个整数的平方，那么它就 ―13―考前复习必看资料：PiaoMo 整理全国计算机等级考试二级 VB 上机考试新版题库及解析【2013 年 3 月考试专用】 是完全平方数。例如，36＝62，所以36就是一个完全平方 数)，并将这些完全平方数的最大值与个数分别显示在文本 框Text1、Text2中。 在给出的窗体文件中有了全部控件(如图3所示)，但 程序不完整，请将程序中的注释符去掉，把？号改为正确 步骤2：在代码编辑窗口，去掉程序中的注释符&'&，将 的内容，实现上述功能。 问号&?&改为正确的内容。 注意：考生不得修改窗体文件已存在的控件和程序， 参考代码： 最后将程序原文件名存盘。 List1.AddItem &a0001& For i = 0 To List1.ListCount-1 List1.ListIndex = i List1.AddItem Text1.Text End 步骤3：按要求将文件保存至考生文件夹中。 图3 【操作步骤】 步骤1：新建一个&标准EXE&工程，如表2在窗体中画 出控件并设置其相关属性。 步骤2：打开代码编辑窗口，编写两个命令按钮的单 击事件过程。 参考代码： Private Sub Cmd1_Click() Image1.Picture = LoadPicture(&图片.jpg&) End Sub Private Sub Cmd2_Click() Image1.Picture = LoadPicture() End Sub 表2 三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp，其窗体上 画有两个名称分别为Text1、Text2的文本框，其中Text1可 多行显示。请画两个名称为Command1、Command2，标题 为&产生数组&、&查找&的命令按钮。如图5所示。程序功能 如下： ①单击&产生数组&按钮，则用随机函数生成10个0～ 100之间(不含0和100)互不相同的数值， 并将它们保存到一维 数组a中，同时也将这10个数值显示在Text1文本框内； ②单击&查找&按钮将弹出输入对话框， 接收用户输入 的任意一个数，并在一维数组a中查找该数，若查找失败， 则在Text2文本框内显示该数&不存在于数组中&；否则显示 该数在数组中的位置。 要求： 请去掉程序中的注释符， 把程序中的？改为正 确的内容，使其实现上述功能，但不能修改窗体文件中已 经存在的控件和程序。最后把修改后的文件按原文件名存 盘。步骤3：按要求将文件保存至考生文件夹中。 (2)在考生文件夹下有一个工程文件sjt4.vbp，其窗体 上有两个标题分别为&添加&和&退出&的命令按钮， 一个内容 为空的列表框List1。请画一个标签，其名称为Label1，标 题为&请输入编号&；再画一个名称为Text1，初始值为空的 文本框，如图4所示。程序功能如下： ①系统启动时，自动向列表框添加一个编号信息 &a0001&。 ②系统运行时，在文本框Text1中输入一个编号，并 单击&添加&按钮时，如果该编号与已存在于列表框中的其 他编号不重复，则将其添加到列表框List1已有项目之后； 否则，将弹出&不允许重复输入，请重新输入！&对话框， 单击该对话框中的&确定&按钮，可以重新输入。 ③单击&退出&按钮，则结束程序运行。 要求： 请去掉程序中的注释符， 把程序中的？改为正 确的内容，使其实现上述功能，但不能修改窗体文件中已 经存在的控件和程序。最后把修改后的文件按原文件名存 盘。 图5 【操作步骤】 步骤1：打开考生文件夹中的本题工程文件sjt5.vbp， 在窗体上画两个命令按钮，属性及其值如表3所示。 表3步骤2：在代码编辑窗口，去掉程序中的注释符&'&， 将问号&?&改为正确的内容。 参考代码： a(i) = Fix(Rnd * 99 + 1) For j = 1 To i C 1 i=iC1 If a(i) = num Then If i & 10 Then 步骤3：按要求将文件保存至考生文件夹中。第十套题干175图4 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt4.vbp，如 表2在窗体中画出控件并设置其相关属性。 表2 考前复习必看资料：PiaoMo 整理 二、简单应用题 (1)在考生文件夹中有工程文件xsjt3.vbp， 其中的窗体 如图3所示。程序刚运行时，会生成一个有10个元素的整型 数组。若选中&查找最大值&(或&查找最小值&)单选按钮，再 单击&查找&按钮，则找出数组中的最大值(或最小值)，并显 示在标签Label2中。 请去掉程序中的注释符，把程序中的？改为正确的内 ―14―全国计算机等级考试二级 VB 上机考试新版题库及解析【2013 年 3 月考试专用】 If a(k, k) / 3 = Int(a(k, k) / 3) Then Counter = Counter + 1 注意： 考生不得修改窗体文件中已经存在的程序。 最 End If 后把修改后的文件按原文件名存盘。 If k && N - k + 1 Then If a(k, N - k + 1) / 3 = Int(a(k, N - k + 1) / 3) Then Counter = Counter + 1 End If End If 图3 Next 【操作步骤】 lblSecond.Caption = Sum 步骤1：打开考生文件夹下的本题工程文件sjt3.vbp， lblFirst.Caption = Counter 在代码编辑窗口，去掉程序中的注释符&'&，将问号&?&改为 步骤2：按&F5&键运行程序，然后单击&计算&按钮。 正确的内容。 步骤3：按要求将文件保存至考生文件夹中。 参考代码： If Option1.Value = True Then 第十一套题干176 If a(i) &= x Then 一、基本操作题 x = a(i) End If 请根据以下各小题的要求设计Visual Basic应用程序 ElseIf a(i) & y Then (包括界面和代码)。 y = a(i) (1)在标题为&文本框&、名称为Form1的窗体上画一个 End If 名称为Text1的文本框， 无初始内容， 其高、 宽分别为2000、 步骤2：按要求将文件保存至考生文件夹中。 1800，可显示多行，有水平滚动条，并通过属性窗口把文 本框的字体样式设置为&斜体&(如图1所示)。 (2)在考生文件夹中有一个工程文件sjt4.vbp。窗体上 注意： 存盘时必须存放在考生文件夹下， 工程文件名 已有控件，如图4所示。 请在属性窗口中将List1设置为可以 为sjt1.vbp，窗体文件名为sjt1.frm。 多项选择(允许使用Shift键或Ctrl键进行选择)列表项。 要求： 双击List1中的某一项时，该项目被添加到List2中，同时在 List1中清除该项目。若单击&&&&按钮，List1中所有的项目 显示在List2中(List2中已有项目不变)，List1中的内容不变。 要求： 按照题目要求设置控件属性， 去掉程序中的注 释符，把程序中的？改为正确的内容。 注意： 不得修改程序的其他部分和控件属性。 最后把 修改后的文件按原文件名存盘。 图1 容。 【操作步骤】 步骤1：新建一个&标准EXE&工程，如表53-1在窗体中 画出控件并设置其相关属性。 表 53-1 图4 【操作步骤】 步骤1：打开考生文件夹中的本题工程文件sjt4.vbp， 代码编辑窗口，去掉程序中的注释符&'&，将问号&?&改为正 确的内容。 参考代码： L2.AddItem L1.List(L1.ListIndex) L1.RemoveItem L1.ListIndex For i = 0 To List1.ListCount - 1 Call MoveItem(List1, List2) 步骤2：按要求将文件保存至考生文件夹中。 三、综合操作题 在考生文件夹中有一个工程文件sjt5.vbp，如图5所 示。运行程序时，从文件中读入矩阵数据并放入二维数组a 中。单击&计算&按钮时，将统计矩阵两个对角线的元素中 能被3整除的个数，统计结果显示在标签lblFirst中；同时计 算矩阵主对角线的元素之和，计算结果显示在标签 lblSecond中。 已给出了部分程序， 请编写&计算&命令按钮事件过程 中的部分程序代码，以便完成上述功能。 注意： 不能修改程序的其他部分和控件属性。 最后把 修改后的文件按原文件名存盘。程序调试通过后，必须执 行程序，并用&计算&按钮进行计算，否则无成绩。步骤2：按要求将文件保存至考生文件夹中。 (2)在名称为Form1的窗体上画一个名称为List1的列 表框，通过属性窗口输入4个列表项：&数学&、&物理&、& 化学&、&语文&，如图2所示。请编写适当的事件过程，使 得在装入窗体时，把最后一个列表项自动改为&英语&；单 击窗体时，则删除最后一个列表项。 注意： 要求程序中不得使用变量， 每个事件过程中只 能写一条语句。存盘时必须存放在考生文件夹下，工程文 件名为sjt2.vbp，窗体文件名为sjt2.frm。图5 【操作步骤】 步骤1：打开考生文件夹下的本题工程文件sjt5.vbp， 在代码编辑窗口的指定位置编写以下代码： 参考代码： For k = 1 To N Sum = Sum + a(k, k) 考前复习必看资料：PiaoMo 整理 ―15―图2 【操作步骤】 步骤1：新建一个&标准EXE&工程，在窗体Form1中加 入一个列表框，在属性设置窗口中将其Name属性设置为 List1，在其List属性中添加四个项目，依次为&数学&、&物 理&、 &化学&和&语文&。 注意： 每输入完一项后按&Ctrl+Enter& 键换行再输入下一项。 步骤2：打开代码编辑窗口，编写相应的事件过程： 参考代码： Private Sub Form_Click()全国计算机等级考试二级 VB 上机考试新版题库及解析【2013 年 3 月考试专用】 List1.RemoveItem List1.ListCount - 1 Activate事件过程在圆上产生1两个刻度点，并完成其他初 End Sub 始化工作；另有长、短2条(红色、蓝色)直线，名称分别为 Private Sub Form_Load() Line1和Line2，表示两个指针。程序运行时，单击&开始& List1.List(List1.ListCount -1)= &英语& 按钮，则每隔0.5秒Line1(长指针)顺时针转动一个刻度， End Sub Line2(短指针)顺时针转动1/1两个刻度(即长指针转动一圈， 步骤3：按要求将文件保存至考生文件夹中。 短指针转动一个刻度)，单击&停止&按钮，两个指针停止转 动，如图4所示。 二、简单应用题 在窗体文件中已经给出了全部控件，但程序不完整， (1)在名称为Form1的窗体上画一个名称为Text1的文 要求去掉程序中的注释符， 把程序中的？改为正确的内容。 本框；画两个标题分别为&对齐方式&、&字体&，名称分别为 提示： 程序中的符号常量x0、 y0是圆心到窗体左上角 Frame1、 Frame2的框架； 在Frame1框架中画三个单选按钮， 的距离，radius是圆的半径。 标题分别为&左对齐&、&居中&、&右对齐&，名称分别为 注意： 不能修改程序中的其他部分和控件的属性。 最 Option1、Option2、Option3；在Frame2框架中画两个单选 后把修改后的文件按原文件名存盘。 按钮，标题分别为&宋体&、&黑体&，名称分别为Option4、 Option5。 要求：编写五个单选按钮的Click事件过程，使程序 运行时，单击这些单选按钮，可以对文本框中的文字实现 相应的操作(如图3所示)。 注意： 要求程序中不得使用变量， 每个事件过程中只 能写一条语句。存盘时必须存放在考生文件夹下，工程文 图4 件名为sjt3.vbp，窗体文件名为sjt3.frm。 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt4.vbp，在 代码编辑窗口，去掉程序中的注释符&'&，将问号&?&改为正 确的内容。 参考代码： Timer1.Enabled = False For k = 0 To 359 Step 30 x = radius * Cos(k * 3.) + x0 图3 Line1.Y2 = y0 - len1 * Sin(a * _ 【操作步骤】 3.) 步骤1：新建一个&标准EXE&工程，如表2在窗体中画 b = b - 30/12 出控件并设置其相关属性。 步骤2：按要求将文件保存至考生文件夹中。 步骤2：在代码编辑窗口，分别编写5个按钮的单击事 件过程。 三、综合操作题 参考代码： 在考生目录下有一个工程文件sjt5.vbp， 其窗体如图5 Private Sub Option1_Click() 所示。考生目录下有一个in5.dat文件，文件中有5个运动员 Text1.Alignment = 0 的姓名、7个裁判的打分和动作的难度系数。每人的数据占 End Sub 一行，顺序是：姓名、7个分数、难度系数。程序运行时， Private Sub Option2_Click() 单击&输入&按钮，可把in5.dat文件中的5个姓名读入数组 Text1.Alignment = 2 End Sub athlete中，把5组得分(每组7个)和难度系数读入二维数组a Private Sub Option3_Click() 中(每行的最后一个元素是难度系数)， 并把这些数据显示在 Text1.Alignment = 1 Text1文本框中；单击&选出冠军&按钮，则把冠军的姓名和 End Sub 成绩分别显示在文本框Text2、 Text3中。 成绩的计算方法是： Private Sub Option4_Click() 去掉一个最高分和一个最低分，求剩下得分的平均分，乘 Text1.Font = &宋体& 以3再乘以难度系数；单击&存盘&按钮，则把冠军姓名和成 End Sub 绩存入考生目录下的out5.dat文件中。 Private Sub Option5_Click() 要求： 去掉程序中的注释符， 把程序中的？改为正确的 Text1.Font = &黑体& 内容(程序中getmark函数的功能是计算并返回第n个运动员的 End Sub 最后得分)，并编写&选出冠军&按钮的Click事件过程。 步骤3：按要求将文件保存至考生文件夹中。 注意： 不得修改已经存在的程序和控件的属性， 在结 表2 束程序运行前，必须用&存盘&按钮存储计算结果，否则无 成绩。最后，程序按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4.vbp。其窗体 上有一个圆，相当于一个时钟，当程序运行时通过窗体的 考前复习必看资料：PiaoMo 整理 ―16―图5 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt5.vbp，在 代码编辑窗口，去掉程序中的注释符&'&，将问号&?&改为正 确的内容。 参考代码： s = a(n, 1) For k = 2 To 7 getmark = s * 3 * a(n, 8) Private Sub Command2_Click()全国计算机等级考试二级 VB 上机考试新版题库及解析【2013 年 3 月考试专用】 ' 要求考生编写的程序 步骤1：打开考生文件中的本题工程文件sjt3.vbp，在 Dim k As Integer 代码编辑窗口，去掉程序中的注释符&'&，将问号&?&改为正 maxmark = getmark(1) 确的内容。 m=1 参考代码： For k = 2 To 5 n = Len(Text1.Text) If maxmark & getmark(k) Then b = Asc(Mid(s, i, 1)) maxmark = getmark(k) Select Case b m=k For i = 0 To 2 End If x(i) = a(i) Next k 步骤2：按要求将文件保存至考生文件夹中。 Text2 = athlete(m) Text3 = maxmark (2)考生文件夹下的工程文件sjt4.vbp中有两个名称分 End Sub 别 为 List1 、 List2 的 列 表 框 控 件 ， 两 个 名 称 分 别 为 步骤2：按要求将文件保存至考生文件夹中。 Command1、Command2，标题分别为&&&&、&&&&的命令按 步骤3：按&F5&键键运行程序，先单击&读入&按钮， 钮。请在List1中添加&文本框&、&标签&、&列表框&、&单选 然后单击&选出冠军&按钮，最后单击&存盘&按钮。 钮&等表项，如图4所示。 程序的功能是： 单击&&&&按钮， 将List1中的表项添加 第十二套题干177 到List2中，同时将List1清空；单击&&&&按钮，将List2中的 一、基本操作题 表项添加到List1中，同时将List2清空。程序已给出，但是 请根据以下各小题的要求设计Visual Basic应用程序 不完整。请将程序中的注释符去掉，把？改为正确的内容， (包括界面和代码)。 实现上述功能。 (1)在名称为Form1的窗体上画一个名称为List1的列 注意： 不能修改程序的其他部分和控件属性。 最后把 表框，在属性窗口中为列表框添加三个选项：北京、上海、 修改后的文件按原文件名存盘。 天津。再建立一个下拉菜单，菜单标题为&文件&，名称为 File，此菜单下含有一个子菜单项，标题为&显示列表框&， 名称为Show，初始状态为选中，运行时的效果如图1所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体 文件名为sjt1.frm，工程文件名为sjt1.vbp。 图4 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt4.vbp，通 过List1列表框的List属性添加四个项目：文本框、标签、命 令按钮、单选按钮。 步骤2：在代码编辑窗口，去掉程序中的注释符&'&， 将问号&?&改为正确的内容。 参考代码： For i = 0 To La.ListCount - 1 Lb.AddItem La.List(i) Next La.Clear 步骤3：按要求将文件保存至考生文件夹中。 三、综合操作题 在考生文件夹中有一个工程文件sjt5.vbp。窗体外观 如图5所示。运行程序，单击&读数据&按钮，文件中的数据 被读入字符串变量中并显示在Label2标签中。单击&排序& 按钮时，对读入的数据从小到大排序，并将排序结果显示 在窗体的Label4控件中。要求：工程文件中已给出部分程 序，&读数据&命令按钮的事件过程不完整，请去掉程序中 的注释符，把程序中的？改为正确的内容。请编写&排序& 命令按钮的事件过程中的部分程序代码。 注意： 不能修改程序的其他部分和控件属性。 最后把 修改后的文件按原文件名存盘。程序调试通过后，两个命 令按钮的事件过程必须至少各执行一次。【操作步骤】 步骤1：新建一个&标准EXE&工程，在窗体Form1中画 一个名为List1的列表框， 在其List属性中添加三个项目， 依 次为&北京&、&上海&和&天津&，注意每输入完一项后按 &Ctrl+Enter&键换行再输入下一项。 步骤2： 新建一个&标准EXE&工程， 【工具】 【菜 选择 → 单编辑器】命令，打开菜单设计器，如表1中的设置建立菜 单项。 表1步骤3：按要求将文件保存至考生文件夹中。 图1 【主要考点】InputBox()函数和语句。 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp。程序的 功能是通过键盘向文本框中输入大、小写字母及数字。单 击 &统计&按钮，分别统计输入字符串中大写字母、小写字 母及数字字符的个数，并将统计结果分别显示在标签控件 数组x中，如图3所示。在给出的窗体文件中已经添加了全 部控件，但程序不完整。 要求： 去掉程序中的注释符， 把程序中的？改为正确 的内容。 注意： 不能修改程序的其他部分和控件属性。 最后把 修改后的文件按原文件名存盘。图3 【操作步骤】 考前复习必看资料：PiaoMo 整理 ―17―图5 【操作步骤】 步骤1：打开考生文件夹中的本题工程文件sjt5.vbp， 在代码编辑窗口，去掉程序中的注释符&'&，将问号&?&改为 正确的内容。 参考代码： Do While Not EOF(1) s = s & Str(a(i)) 步骤2：在代码编辑窗口指定位置编写以下代码： 参考代码：全国计算机等级考试二级 VB 上机考试新版题库及解析【2013 年 3 月考试专用】 num = UBound(a) 步骤1：新建一个&标准EXE&工程，如表2在窗体中画 For i = 1 To num - 1 出控件并设置其相关属性。 For j = i To num 表2 If a(i) & a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next Next 步骤3：按&F5&键运行程序，先单击&读数据&按钮， 再单击&排序&按钮，最后单击窗体右上角的关闭按钮结束 程序。 步骤4：按要求将文件保存至考生文件夹中。 步骤2：在代码编辑窗口，分别编写三个按钮的单击第十三套题干178一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序 (包括界面和代码)。 (1)在名称为Form1、标题为&图片&的窗体上画一个名 称为Image1的图像框，其高为2500、宽为2000。请通过属 性窗口设置适当属性，装入考生目录下的图片文件 pic1.jpg，并使图片适应图像框的大小(如图1所示)。 注意： 存盘时必须存放在考生文件夹下， 工程文件名 为sjt1.vbp，窗体文件名为sjt1.frm。事件过程。 参考代码： Private Sub Command1_Click() Text1.PasswordChar = && End Sub Private Sub Command2_Click() Text1.PasswordChar = &*& End Sub Private Sub Command3_Click() Text1 = && Text1.SetFocus End Sub 步骤3：按要求将文件保存至考生文件夹中。 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，在程序 运行时，单击&输入整数&按钮，可以从键盘输入一个整数， 并在窗体上显示此整数的所有不同因子和因子个数。如图 3(a)是输入53后的结果，如图3(b)是输入100的结果。已经 给出了全部控件和程序，但程序不完整。 要求： 请去掉程序中的注释符， 把程序中的？改为正 确的内容。不能修改程序中的其他部分，也不能修改控件 的属性。最后用原来的文件名保存工程文件和窗体文件。图1 【操作步骤】 步骤1：新建一个&标准EXE&工程，如表1在窗体中画 出控件并设置其相关属性。 表1(a) 图3(b)步骤2：按要求将文件保存至考生文件夹中。 (2)在名称为Form1的窗体上画一个名称为Label1、标 题为&口令&的标签；画一个名称为Text1的文本框；再画三 个 命 令 按 钮 ， 名 称 分 别 为 Command1 、 Command2 、 Command3，标题分别为&显示口令&、&隐藏口令&、&重新 输入&。 程序运行时，在Text1中输入若干字符，单击&隐藏口 令&按钮，则只显示同样数量的&*&，如图2(b)所示；单击& 显示口令&按钮，则显示输入的字符，如图2(a)所示，单击& 重新输入&按钮，则清除Text1中的内容，并把光标定位到 Text1中。 要求：请画出所有控件，编写命令按钮的Click事件过 程，程序中不得使用变量，在&显示口令&按钮、&隐藏口令& 按钮的事件过程中只能写一条语句。 存盘时必须存放在考生 文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt3.vbp，在 代码编辑窗口，去掉程序中的注释符&'&，将问号&?&改为正 确的内容。 参考代码： n = InputBox(&请输入一个整数&) If m Mod k = 0 Then fun = s 步骤2：按要求将文件保存至考生文件夹中。(a) 图2【操作步骤】 考前复习必看资料：PiaoMo 整理(b)三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp，其窗体中 有一个实心圆。程序运行时，当用鼠标左键单击窗体任何 位置时，实心圆则向单击位置直线移动；若用鼠标右键单 击窗体，则实心圆停止移动。窗体文件中已经给出了全部 控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的？改为正确的内容， 使其能正确运行，不能修改程序的其他部分和控件属性。最后 把修改后的文件按原文件名存盘。 【操作步骤】 步骤1：打开考生文件下的本题工程文件sjt5.vbp，在代码 编辑窗口，去掉程序中的注释符&'&，将问号&?&改为正确的 内容。 参考代码： ―18―全国计算机等级考试二级 VB 上机考试新版题库及解析【2013 年 3 月考试专用】 stepx = 0 stepy = a * stepx Timer1.Enabled = True Timer1.Enabled = False Shape1.Move Shape1.Left + stepx, Shape1.Top +stepy 步骤2：按要求将文件保存至考生文件夹中。第十四套题干179一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序 (包括界面和代码)。 (1)在名称为Form1、标题为&鼠标光标形状&的窗体上 画一个名称为Text1的文本框。请通过属性窗口设置适当属 性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭 头(Arrow)形状；在窗体中其他位置处，鼠标光标为十字 (Cross)形状。 注意： 存盘时必须存放在考生文件夹下， 工程文件名 为sjt1.vbp，窗体文件名为sjt1.frm。 【操作步骤】 步骤1：新建&标准EXE&工程，在窗体Form1中画一个 文本框，如表2设置文本框及窗体属性。 表2步骤2： 在代码编辑窗口， 编写命令按钮的单击事件 过程。 参考代码： Private Sub Command1_Click() Text2 = Text1.SelStart + 1 Text3 = Text1.SelLength End Sub 步骤3：按要求将文件保存至考生文件夹中。 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，窗体上有 一个矩形和一个圆，还有垂直和水平滚动条各一个。程序运 行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。 滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平 滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上， 如图2(a)所示；滚动块在最右边时，圆靠在矩形的右边线上， 如图2(b)所示。垂直滚动条的情况与此类似。步骤2：按要求将文件保存至考生文件夹中。 (2)在名称为Form1的窗体上画两个标签， 名称分别为 Label1、Label2，标题分别为&开始位置&、&选中的字符数&； 画三个文本框，名称分别为Text1、Text2、Text3，再画一 个名称为Command1，标题为&显示选中信息&的命令按钮。 程序运行时，在Text1中输入若干字符，并用鼠标选中一些 字符后，单击&显示选中信息&按钮，则把选中的第一个字 符的顺序号显示在Text2中，选中的字符个数显示在Text3 中，如图1所示。 要求：画出所有控件，编写命令按钮的Click事件过 程。 注意： 要求程序中不得使用变量， 事件过程中只能写 两条语句，分别用于显示第一个字符的顺序号和显示选中 的字符个数。存盘时必须存放在考生文件夹下，工程文件 名为sjt2.vbp，窗体文件名为sjt2.frm。图1 步骤1：新建一个&标准EXE&工程，如表43-3在窗体中 画出控件并设置其相关属性。 表43-3(b) 图2 文件中已经给出了全部控件和程序，但程序不完整， 请去掉程序中的注释符，把程序中的？改为正确的内容。 注意： 不能修改程序的其他部分和控件属性。 最后把 修改后的文件按原文件名存盘。 【操作步骤】 步骤1：打开考生文件下的本题工程文件sjt3.vbp，在 代码编辑窗口，去掉程序中的注释符&'&，将问号&?&改为正 确的内容。 参考代码： HScroll1.Max = Shape2.Width + Shape2.Left - Shape1.Width VScroll1.Max = Shape2.Height + Shape2.Top Shape1.Height Shape1.Left = HScroll1.Value Shape1.Top = VScroll1 步骤2：按要求将文件保存至考生文件夹中。 三、综合操作题 在考生文件夹下有一个工程文件sjt5.vbp，其窗体上 有三个标签、三个文本框和两个命令按钮，均使用默认名 称。程序的功能是： ①如果单击&读数据&命令按钮，则把考生文件夹下 in5.dat文件中两组已按升序方式排列的数(每组30个数)分别 读入数组A和B，并分别将它们显示在Text1、Text2中； ②如果单击&合并&命令按钮，则将A、B两个数组合 并为另一个按升序方式排列的数组C，并将合并后数组C中 的数据依升序方式显示在Text3中。 窗体中给出了所有控件(如图4所示)以及&读数据&命(a)考前复习必看资料：PiaoMo 整理―19―全国计算机等级考试二级 VB 上机考试新版题库及解析【2013 年 3 月考试专用】 表1 令按钮的Click事件过程，请完善&合并&命令按钮的Click事 件过程，使其实现上述功能。 注意：不得修改已经存在的控件和程序，在结束程序 运行之前，必须进行合并操作，且必须通过窗体右上角的&关 闭&按钮结束程序， 否则无成绩。 最后， 程序按原文件名存盘。图4 【操作步骤】 步骤1：打开考生文件夹下的本题工程文件sjt5.vbp。 步骤2：编写&合并&按钮的单击事件过程。 参考代码： Private Sub Command2_Click() '考生编写程序开始 ia = 1: ib = 1: ic = 1 Do While ia &= 30 And ib &= 30 If a(ia) & b(ib) Then c(ic) = a(ia): ia = ia + 1 Else c(ic) = b(ib): ib = ib + 1 End If ic = ic + 1 Loop Do While ia &= 30 c(ic)=a(ia) : ia=ia+1 : ic=ic+1 Loop Do While ib &= 30 c(ic) = b(ib) : ib=ib+1 : ic=ic+1 Loop '考生编写程序结束 '以下程序将合并后的数组C显示在Text3中 For k = 1 To 60 Text3= Text3 +Str(c(k))+ Space(2) Next k End Sub 步骤3：运行程序，单击&读数据&按钮，然后单击&合步骤2：按要求将文件保存至考生文件夹中。 (2)在名称为Form1的窗体上画一个命令按钮和一个 垂直滚动条，其名称分别为Command1和VScroll1，编写适 当的事件过程。程序运行后，如果单击命令按钮，则按如 下要求设置垂直滚动条的属性：Max=窗体高度，Min=0， LargeChange=50，SmallChange=10 如果移动垂直滚动条的滚动框， 则在窗体上显示滚动 框的位置值。程序的运行情况如图2所示。 要求：不得使用任何变量。 注意： 存盘时必须存放在考生文件夹下， 工程文件名 为sjt2.vbp，窗体文件名为sjt2.frm。图2 【操作步骤】 步骤1：新建一个&标准EXE&工程，在窗体Form1中画 一个命令按钮和一个垂直滚动条，在属性设置窗口中设置 其相关属性，其属性及值如表2所示。 表2第十五套题干180一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序 (包括界面和代码)。 (1)在名称为Form1的窗体上画三个单选按钮， 其名称 分别为Option1、Option2和Option3，如图1(a)所示，然后通 过属性窗口设置窗体和单选按钮的属性，实现如下功能： ①窗体标题为&设置单选按钮属性&； ②三个单选按钮的标题分别为&按钮1&、&按钮2&和& 按钮3&； ③初始状态时，第一个单选按钮为&选中&； ④程序运行后，第二个单选按钮&禁用&； ⑤程序运行后，第三个单选按钮不可见。 程序的运行情况如图1(b)所示。 要求：不编写任何代码。 注意： 存盘时必须存放在考生文件夹下， 工程文件名 为sjt1.vbp，窗体文件名为sjt1.frm。步骤2： 打开代码编辑窗口， 分别编写命令按钮的Click 事件过程和垂直滚动条的Change事件过程。 参考代码： Private Sub Command1_Click() VScroll1.Max = Form1.Height VScroll1.Min = 0 VScroll1.LargeChange = 50 VScroll1.SmallChange = 10 End Sub Private Sub VScroll1_Change() Print Form1.VScroll1.Value End Sub 步骤3：按要求将文件保存至考生文件夹中。 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，相应的 窗体文件为sjt3.frm。其功能是产生20个0～1000的随机整 数，放入一个数组中，然后输出这20个整数中小于500的所 有整数之和。程序运行后，单击命令按钮(名称为 Command1，标题为&输出小于500的整数之和&)，即可求出 这些整数的和，并在窗体上显示出来(如图3所示)。这个程 序不完整，请把它补充完整，并能正确运行。 要求： 去掉程序中的注释符， 把程序中的？改为正确 的内容，使其实现上述功能，但不能修改程序中的其他部 分。最后把修改后的文件按原文件名存盘。 ―20―(a) 图1(b)【操作步骤】 步骤1：新建一个&标准EXE&工程，在窗体Form1中画 三个单选按钮，并设置它的相关属性，其属性及值如表1 所示。 考前复习必看资料：PiaoMo 整理全国计算机等级考试二级 VB 上机考试新版题库及解析【2013 年 3 月考试专用】图3 【审题分析】生成0~1000范围内随机整数的表达式 为：Int(Rnd * 1000)。为求出20个随机整数中小于500的整 数之和，可首先预设累加和变量Sum=0，然后通过For循环 语句逐一判断数组中的各元素是否小于500， 若小于则累加 到Sum中，循环结束后输出Sum的值。 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt3.vbp，在 代码编辑窗口，去掉程序中的注释符&'&，将问号&?&改为正 确的内容。 参考代码： arrN(i) = Int(Rnd * 1000) Sum = 0 If arrN(i) & 500 Then Sum = Sum + arrN(i) 步骤2：按要求将文件保存至考生文件夹中。 (2)在考生文件夹下有一个工程文件sjt4.vbp，相应的 窗体文件为sjt4.frm，在窗体上有一个命令按钮和一个文本 框。程序运行后，单击命令按钮，即可计算出0～100范围 内所有偶数的平方和，并在文本框中显示出来。在窗体的 代码窗口中，已给出了部分程序，其中计算偶数平方和的 操作在通用过程Fun中实现，请编写该过程的代码。 要求：请勿改动程序中的任何内容，只在Function Fun()和End Function之间填入编写的若干语句。 最后把修改 后的文件按原文件名存盘。 【操作步骤】 步骤1：打开考生文件下的本题工程文件sjt4.vbp，在 代码编辑窗口，编辑Fun函数的内容。 参考代码： Sum = 0 For i = 0 To 100 Step 2 Sum = Sum + i * i Next i Fun = Sum 步骤2：按要求将文件保存至考生文件夹中。 【考试误区】数据的矩阵显示常与二维数组、多重循 环一起使用。步骤2：按要求将文件保存至考生文件夹中。 (2)在名称为Form1、标题为&标签&的窗体上，画一个 名称为Label1并可自动调整大小的标签，其标题为&计算机 等级考试&，字体大小为三号字；再画两个命令按钮，标题 分 别 是 & 宋 体 & 和 & 黑 体 & ， 名 称 分 别 为 Command1 、 Command2。如图2所示。 要求：编写两个命令按钮的Click事件过程。程序运 行后，如果单击&宋体&命令按钮，则标签内容显示为宋体 字体；如果单击&黑体&按钮，则标签内容显示为黑体字体。 注意： 程序中不得使用变量， 事件过程中只能写一条 语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为sjt2.frm。 【操作步骤】 步骤1：新建一个&标准EXE&工程，如表2在窗体中画 出控件并设置其相关属性。 表2 对象属性设置第十六套题干181一、基本操作题 请根据以下各小题的要求设计Visual Basic应用程序 (包括界面和代码)。 (1)在名称为Form1的窗体上用名称为Shape1的形状 控件画一个长、宽均为1200的正方形。请设置适当的属性 满足以下要求： ①窗体的标题为&正方形&，窗体最小化按钮不可用； ②正方形的边框为虚线(线型不限)。运行后的窗体如 图1所示。 注意： 存盘时必须存放在考生文件夹下， 工程文件名 为sjt1.vbp，窗体文件名为sjt1.frm。步骤2：打开代码编辑窗口，编写两个命令按钮的单 击事件过程。 参考代码： Private Sub Command1_Click() Label1.FontName = &宋体& End Sub Private Sub Command2_Click() Label1.FontName = &黑体& End Sub 步骤3：按要求将文件保存至考生文件夹中。 二、简单应用题 (1)在考生文件夹下有一个工程文件sjt3.vbp，其窗体 上有一个名称为Label1的控件数组，含三个标签，标题分 别是&开始时间&、&结束时间&和&通话费用&；有一个名称为 Text1的控件数组，含三个初始值为空的文本框；此外还有 两个名称分别为Cmd1和Cmd2的命令按钮，标题分别是&通 话开始&和&通话结束&。其中通过属性窗口对&通话结束&命 令按钮的初始状态设置为禁用，如图3所示。该程序的功能 是计算公用电话计时收费。计时收费标准为：通话时间在3 分钟以内时，收费0.5元；3分钟以上时，每超过1分钟加收 0.15元，不足1分钟按1分钟计算。程序执行的操作如下： ①如果单击&通话开始&按钮，则在&开始时间&右侧的 文本框中显示开始时间，且&通话结束&命令按钮变为可用 状态，&通话开始&命令按钮不可用； ②如果单击&通话结束&按钮，则&结束时间&右侧的文 本框中显示结束时间，同时计算通话费用，并将其显示在& 通话费用&右