1、国家二级 VB机试（上机操作）模拟试卷 254及答案与解析 一、基本操作题 1 请根据以下各小题的要求设汁 Visual Basic应用程序 (包括界而和代码 )。 (1)存名称为 Forml的窗体上画一个名称为 CmdChange、标题为 “改变颜色 ”的命令按钮，窗体标题为 “设置窗体背景色 ”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色 (&HFF&)。运行程序后的窗体如图 2 53所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须在放存考生文件夹下，工程文件名为 vbsj 1 vbp，窗 体文件名为 vbsIl_frm。 (2)在名称为 Forml的
2、窝体上画一个命令按钮和一个垂直滚动条，其名称分别为 Cmdl(标题为 “设置 ”)和 Vsbl，编写适当的事件过程。程序运行后，如果单击命令按钮，则按如下要求设置垂直滚动条的属性： Max=窗体高度 Min=0 LargeChange=50 SmallChange=10 如果移动垂直滚动条的滚动框，则在窗体上显示滚动框的位置值。程序的运行情况如图 2 54所示。 要求：不得使用任何变犀。 注意：存盘时必须存放在考生文件夹下，工程文件名为 vbsj2 vbp，窗体 文件名为 vbsj2.frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，其功能是： 单击 “读数据
3、”按钮，则把考生文件夹下 in3 dat文件中的 100个正整数读入数组 a中； 单击 “统计 ”按钮，则找出这 100个正整数中的所有完全平方数 (一个整数若是另外一个整数的平方，那么它就是完令平方数。例如， 36=62，所以 36就是一个完全平方数 )，并将这些完全平方数的最大值与个数分别显示在文本框 Text1、 Text2中。 在给出的窗体文件中有了全部控件 (如图 2 214所示 )，但程序不 完整，请将程序中的注释符去掉，把 ?号改为正确的内容，实现上述功能。 注意：考生不得修改窗体文件已存在的控件和程序，最后将程序原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vb
4、p，其窗体上有两个标题分别为 “添加 ”和 “退出 ”的命令按钮，一个内容为空的列表框 List1。请画一个标签，其名称为Label1，标题为 “请输入编号 ”；再画一个名称为 Text1，初始值为空的文本框，如图 2 215所示。程序功能如下： 系统启动时，自动向列表框添加一个编号信息“a0001”。 系统运行时，在文奉框 Tcxt1中输入一个编号，并单击 “添加 ”按钮时，如果该编号与已存在于列表框中的其他编号不重复，则将其添加到列表框List1已有项目之后；否则，将弹出 “不允许重复输入，请重新输入 !”对话框，单击该对话框中的 “确定 ”按钮，可以重新输入。 单击 “退出 ”按钮，则结
5、束程序运行。 要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生目录下有一个工程文件 sjt5 vbp，包含了所有控件和部分程序。程 序运行时，单击 “打开文件 ”按钮，则弹出 “打开 ”对话框，默认文件类型为 “文本文件 ”，默认目录为考生目录。选中 in5 txt文件，如图 2 207(a)所示，单击 “打开 ”按钮，则把文件中的内容读入并显示在文本框 (Text1)中；单击 “修改内容 ”按钮，则可把Text1中的大写字母 “E”、 “N”、 “T”改为小写，
6、把小写字母 “e”、 “n”、 “t”改为大写；单击 “保存文件 ”按钮，则弹出 “另存为 ”对话框，默认文件类型为 “文本文件 ”，默认目录为考生目录，默认文件为 “out5 txt”，如图 2 207(b)所示，单击 “保存 ”按 钮，则把 Text1中修改后的内容存到 out5 txt文件中。窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写 “修改内容 ”按钮的 Click事件过程。 注意：考生不得修改已经存在的程序。必须把 Text1中修改后的内容用 “保存文件 ”按钮存储结果，否则无成绩。最后，按原文件名把程序存盘。 国家二级 V
7、B机试（上机操作）模拟试卷 254答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中画一个命令按钮，设置相关属性，其属件及值如表 3 32所示。步骤 2：打开代码编辑窗口，编写按钮的 Click事件过程中。 参考代码： Private Sub cmdChangeClick() BackColot= HFF& End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按表 3-33在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗 口
8、，编写水平滚动条的 Change事件过程。 参考代码： Private Sub Cmdl C1ick() Vsbl Max=Forml Height： Vsbl MiI“1=0 Vsbl LarqeChanqe=50 Vsbl $mallChange=10 E13 d Sub Privat e Sub VsblChange() Prilnt Vsbl ValLle End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹 下的本题工程文件 sit3 vbp，去掉程序中的注释符 “”，将问号 “?”改为正确的
9、内容。 参考代码： If x=m2 Then issquare=flag If a(k)max Then Text1 Text=max Text2 Text=num 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，如表 3 113在窗体中画出控件并设置其相关属性。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码 ： Llstl AddItern“a0001” For i=0 To Listl ListCount一 1 Listl LiStIndex=i Listl Ad
10、dItem Textl Text End 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sit5 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： CommonDialogl FilterIndex=2 Open CommonDialogl FileName For InputAs#1 Textl Text=S CommonDialogl Action=2 步骤 2：按指定位置编写 “修改文件 ”的单击事件过程。 参考代码： Private Sub Command2
11、一 Click() 考生需要编写的程序 S=“” strlen=Len(Textl) For k=1 To strlen ch=Mid$(Textl， k， 1) If ch=“E”Or ch=”N”Or ch =”T”Then s=s&LCaSe(ch) E1SeIf ch=”e”Or ch=”n”Or ch=”t”Then S=S UCase(ch) Else s=s Ch End If Next k Textl=s End Sub 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按 键运行程序，先单击 “打开文件 ”按钮，接着单击 “修改内容 ”按钮， 然后单击 “保存文件 ”按钮。
