发布时间 : 星期一 文章全国计算机等级考试VB二级上机题库,有答案(供参考)更新完毕开始阅读f278e4247d1cfad6195f312b3169a4517623e532
文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.
End sub
保存按钮脚本：
Private sub command2_click()
Open app.path+”\\out5.txt” for output as #1 Print #1,text1.text Close #1 End sub
最后，单击保存按钮，工程保存为sjt5.vbp,窗体保存为sjt5.frm。
全国计算机等级考试二级VB上机题库(第二套)
1. 基本操作（2小题，每小题15分，共计30分）
注意：下面出现的\考生文件夹\均为C:\\WEXAM\\00000000\\
********************************************************************** 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1，标题为\窗体\的窗体上画一个标签，其名称为Label1，标题为\等级考试\，BorderStyle属性为1，且可以自动调整大小，再画一个框架，名称为Frame1，标题为\科目\，如图所示。 注意：
存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 **********************************************************************
（2）在名称为Form1的窗体上画两个图像框，其名称分别为Image1和Image2，Stretch属性分别为True和False，然后通过属性窗口在Image1中装入一个图形文件pic.jpg（位于考生文件夹下）,编写适当的事件过程。程序运行后，如果单击窗体，则可清除Image1中的图形，并把该图形复制到Image2中，如图所示。 注意：
要求程序中不得使用变量。
存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
第一题主要考查了Frame控件属性的使用及Label控件的使用。在Label与Frame控件中可通过使用Caption属性来指定其要显示的内容，同时可通过Font属性来设定要显示文字的字体。
第二题主要考查了Image控件的Stretch属性的使用方法，通过指定Stretch可以指定图片是否被拉伸，同时也考查了Image控件中图片的清除方法，可用Set控件名.Picture=Nothing来清除Image控件中的图片。
2. 简单应用（2小题，每题20分，计40分） 注意：下面出现的\考生文件夹\均为%USER%
***********************************************************************
（1）在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。 在名称为Form1的窗体上有一个名称为Text1的文本框和名称为Command1、标题为\确定\的命令按钮，一个名称为List1的列表框和两个名称分别为Option1和Option2、标题分别为\添加\和\删除\的单选按钮，如图1所示。程序运行后，如果选择单选按钮Option1并在文本框中输入一个字符串，然后单击\确定\命令按钮，则把文本框中的字符串添加到列表框中，并清除文本框，如图2所示；如果选择列表框中的一项和单选按钮Option2，并单击\确定\命令按钮，则删除列表框中所选择的项目，如图3所示；如果不选择列表框中的项目，或者没有在文本框中输入字符串，则单击\确定\命令按钮后，将显示一个信息框\未输入或未选
文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.
择项目\，如图4所示。该程序不完整，请把它补充完整。 要求：
去掉程序中的注释符，把程序中的 ？ 改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。 **********************************************************************
（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。在窗体上有一个命令按钮，其名称为Command1，标题为\计算\。程序运行后，如果单击命令按钮，程序将根据下面的公式计算π的值：
π/4 = 1 - 1/3 + 1/5 - 1/7 + ......所提供的窗体文件已给出了命令按钮的事件过程，程序运行结果如图所示。 该程序不完整，请把它补充完整。 要求：
去掉程序中的注释符，把程序中的 ？ 改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。
第一小题：
该题考查考生对ListBox控件的使用。 列表框的AddItem方法
用来在列表框中插入一行文本，其语法为： 列表框名.AddItem 字符串 [,索引值]
如果省略\索引值\，则字符串被添加到列表框的尾部；使用\索引值\可以将字符串插入列表框中的指定位置。\索引值\从0开始，到列表项总数-1止。 列表框的RemoveItem方法
用来删除列表框中的指定项目，其语法为： 列表框名.RemoveItem 索引值 列表框的ListIndex属性
用来设置或返回列表框中当前选中的列表项。 第二小题：
该题考查了Do-Loop循环结构语句和公式计算的算法实现，相关程序如下： Private Sub Command1_Click() Dim Result As Double Dim Sign As Integer Dim i As Integer Result = 0 Sign = 1 i = 1 Do
Result = Result + Sign / i i = i + 2 Sign = -Sign
Loop While 1 / i >= 0.0001 Text1.Text = Result * 4 End Sub
3. 综合应用（1小题，计30分）
文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.
注意：下面出现的\考生文件夹\均为%USER% 在考生文件夹下有一个工程文件sjt5.vbp，相应的窗体文件为sjt5.frm。窗体外观如图1所示。三个命令按钮的名称分别为Command1、Command2和Command3，标题分别为\读取数据\、\首字母大写\和\存盘\。程序运行后，如果单击\读取数据\命令按钮，则读取考生文件夹下in5.txt中的全部文本（文本中的单词与单词之间或标点符号与单词之间均用一个空格分开），并在文本框中显示出来，如图2所示； 如果单击\首字母大写\命令按钮，则将文本框中每个单词的第一个字母变为大写字母（如果原来已是大写字母则不改变），并在文本框中显示出来，如图3所示；如果单击\存盘\命令按钮，则把文本框中的内容（首字母大写后）保存到考生文件夹下的文件out5.txt中。窗体文件中已给出了部分程序，请把它补充完整，使其实现上述功能。 要求：
1）编写\读取数据\命令按钮的Click事件过程。
2）去掉\首字母大写\命令按钮和\存盘\命令按钮事件过程中的注释符，把程序中的 ？改为正确的内容，使其能正确运行。 3）用原来的文件名保存工程文件和窗体文件。
本题主要考查了文件的操作，文件中字符串的处理方法。主要代码如下：
Dim s As String
Private Sub Command1_Click() Open \ s = Input$(LOF(1), 1) Close #1 Text1.Text = s End Sub
Private Sub Command2_Click() Dim oldSen As String Dim newSen As String Dim ch As String Dim lastCh As String oldSen = Text1.Text strlen = Len(oldSen) lastCh = Left(oldSen, 1) For i = 1 To strlen
ch = Mid(Text1.Text, i, 1) If lastCh = \ ch = UCase(ch) End If
newSen = newSen & ch lastCh = ch Next i
Text1.Text = newSen End Sub
Private Sub Command3_Click()
Open \
文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.
Write #1, Text1.Text Close #1 End Sub
答案：
Dim a(10) As Integer Dim b(10) As Integer Dim c(10) As Integer Private Sub Command1_Click()
Open App.Path & \For Input As #1 Open App.Path & \For Input As #2
For i = 0 To 9 Input #1, a(i) Input #2, b(i)
Next Close #1, #2
End Sub
Private Sub find(x() As Integer, t As Control)
Dim i As Integer, max As Integer
max = x(1) For i = 2 To 10
If max < x(i) Then max = x(i)
Next i t.Text = max End Sub
Private Sub Command2_Click()
Dim i As Integer For i = 1 To 10 c(i) = a(i) + b(i)
Next i
Open App.Path & \For Output As #1
For i = 0 To 9 Print #1, c(i)
Next Close #1 End Sub
Private Sub Command3_Click()
Call find(a, Text1) Call find(c, Text2)
Open App.Path & \For Output As #1