文档从网络中收集，已重新整理排版.word版本可编辑.欢迎下载支持.
全国计算机等级考试二级VB上机题库(一)
图1 图2
T1.width=T1.width+1400 T1.Height=T1.Height+400 T1.fontsize=T1.fontsize*3
最后单击保存按钮，工程命名为sjt1.vbp,窗体命名为sjt1.frm。 Text1.text=LCase(Text1.text) Text2.text=UCase(Text1.text)
一、 简单应用题（2小题，每小题20分，共计40分）
1.在考生目录下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。包含所有控件和部分程序，如图所示。 要求：
1)利用属性窗口向列表框添加四个项目：Visual Basic,Turbo C,C++,Java; 2)请编写适当的程序完成以下功能：当选择列表框中的一项和单选按钮Option1,然后单击“确定”命令按钮，则文本框中显示“XXX笔试”；当选择列表框中的一项和单选按钮Option2，然后单击“确定”命令按钮，则文本框中的一项和单选按钮Option2，然后单击“确定”命令按钮，则文本框中显示“XXX上机”。其中“XXX”是在列表框中所选择的项目。 If Option1.Value=True then
Text1.Text=List1.List(List1.ListIndex)+Option1.Caption End If
If Option2.Value=True then
Text1.Text=List1.List(List1.ListIndex)+Option2.Caption End If
1word版本可编辑.欢迎下载支持.
文档从网络中收集，已重新整理排版.word版本可编辑.欢迎下载支持.
最后单击保存按钮。
2．在考生目录下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。在窗体上已经有一个命令按钮。其名称为Command1,标题为“计算并输出”；程序运行后，如果单击命令按钮，程序将计算500以内两个数之间（包括开头和结尾的数）所有连续数的和为1250的正整数，并在窗体上显示出来，这样的数有多组，程序输出每组开头和结尾的正整数，并用“～”连接起来,如图所示，这个程序不完整，请把它补充完整。 要求：
去掉程序中的注释符，把程序中的？该为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改的文件按原文件存盘。 Private Sub Command1_Click()
Dim i As Integer, j As Integer, iSum As Integer Print \连续和为1250的正整数是：\ For i = 1 To 500
' isum = 0 赋初值 For j = i To 500
' iSum = j+iSum 进行累加 If iSum >= 1250 Then Exit For Next
' If iSum = 1250 Then 和是否为1250 Print i; \～ \ End If
2word版本可编辑.欢迎下载支持.
文档从网络中收集，已重新整理排版.word版本可编辑.欢迎下载支持.
Next End Sub 答案为：
1）2)j+iSum 3)1250
二、 综合应用题（1小题，计40分）
在窗体上画一个文本框，名称为Text1,初始内容为空白，并设置多行显示格式；然后再画两个命令按钮，其名称分别为Command1和Command2,标题分别为“显示”和“保存”，如图所示，编写适当的事件过程。程序运行后，如果单击“显示”命令按钮，则读取考生 目录下的in5.txt文件，并在文本框中显示出来，该文件是一种用随机存取方式建立的文件，共有5个记录，要求按记录号顺序显示全部记录，每个记录一行；如果单击“保存”命令按钮，则把所有记录保存到考生目录下的顺序文件 out5.txt中。随机文件in5.txt中的每个记录包括3个字段，分别为姓名、性别和年龄，其名称和长度分别为： Name 字符串 8 Sex 字符串 4 Age Integer 其类型定义为： Private Type StudInfo Name As String*8 Sex As String*4 Age As Integer End Type
3word版本可编辑.欢迎下载支持.
文档从网络中收集，已重新整理排版.word版本可编辑.欢迎下载支持.
要求：
1) 文件out5.txt以顺序存取方式建立和保存。
2) 存盘时必须放在考生目录下，工程为sjt5.vbp，窗体文件名为sjt5.frm。 Private StudInfo
Name as string*8 Sex as string*4 Age as integer End Type
Dim pers as studinfo Dim recmum as integer 显示按钮脚本：
Private sub command1_click()
Open app.path+”\\in5.txt” for random as #1 Len=len(pers) recnum=lof(1)/len(pers) Cls
For i=1 to recnum Get #1,,pers
Text1.text=text1.text+pers.name+pers.sex+str(pers.age)+vbcrlf
4word版本可编辑.欢迎下载支持.
Type
文档从网络中收集，已重新整理排版.word版本可编辑.欢迎下载支持.
Next i Close 1 End sub 保存按钮脚本：
Private sub command2_click()
Open app.path+”\\out5.txt” for output as #1 Print #1,text1.text Close #1 End sub
（1）在考生文件夹下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。 在名称为Form1的窗体上有一个名称为Text1的文本框和名称为Command1、标题为\确定\的命令按钮，一个名称为List1的列表框和两个名称分别为Option1和Option2、标题分别为\添加\和\删除\的单选按钮，如图1所示。程序运行后，如果选择单选按钮Option1并在文本框中输入一个字符串，然后单击\确定\命令按钮，则把文本框中的字符串添加到列表框中，并清除文本框，如图2所示；如果选择列表框中的一项和单选按钮Option2，并单击\确定\命令按钮，则删除列表框中所选择的项目，如图3所示；如果不选择列表框中的项目，或者没有在文本框中输入字符串，则单击\确定\命令按钮后，将显示一个信息框\未输入或未选择项目\，如图4所示。该程序不完整，请把它补充完整。 要求：
去掉程序中的注释符，把程序中的 ？ 改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。 **********************************************************************
（2）在考生文件夹下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。在窗体上有一个命令按钮，其名称为Command1，标题为\计算\。程序运行后，如果单击命令按钮，程序将根据下面的公式计算π的值：
π/4 = 1 - 1/3 + 1/5 - 1/7 + ......所提供的窗体文件已给出了命令按钮的事件过程，程序运行结果如图所示。 该程序不完整，请把它补充完整。 要求：
去掉程序中的注释符，把程序中的 ？ 改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。
第一小题：
该题考查考生对ListBox控件的使用。
5word版本可编辑.欢迎下载支持.
全国计算机等级考试二级VB上机题库以及解析
