《全国计算机等级考试二级VB上机题库1》由会员分享，可在线阅读，更多相关《全国计算机等级考试二级VB上机题库1（5页珍藏版）》请在金锄头文库上搜索。
1、晨曦制作第 1 页 共 5 页全国计算机等级考试二级VB上机题库 (第一套 ) 一、基本操作题（ 2 小题，每小题 15 分，共计 30分）1在名称为Form1的窗体上画一个文本框，其名称为T1, 宽度和高度分别为1400 和 400；在画两个按钮，其名称分别为C1和 C2 ，标题分别为“显示”和“扩大”，编写适当的事件过程。程序运行后，如果单击C1命令按钮，则在文本框中显示“等级考试”，如图 1 所示，如果单击C2命令按钮，则使文本框在高、宽方向上各增加一倍，文本框中的字体大小扩大到原来的3 倍，如图 2 所示。注意：要求程序中不得使用变量。存盘时必须放在考生文件夹下，工程文件名为sjt1.
2、vbp，窗体文件名为sjt1.frm。图 1 图 2 解析： （大家请注意，以下分析加入我个人的理解和方法，都已通过上机验证，有的题方法不止一种，大家可以和我互相交流，我的邮箱：hero_，QQ:313691262 ，也可从论坛讨论 ）这道题没什么难度，主要考你窗体、按钮及文本框的基本属性，所以大家一定要熟练掌握常用控件的基本属性。打开VB(不用我说了吧 )，新建一个工程（标准的EXE ） ，单击控件面板的“TextBox ”控件（也可双击，直接在窗体建立） ，在属性面板中将“名称”修改为T1， “Width ”修改为 1400， “Height ”修改为 400。然后单击控件面板的“Comm
3、anButton ”添加两个命令按钮，在属性面板中将“名称”分别修改为C1和 C2 ，“Caption ”分别修改为显示和扩大。接下来双击显示按钮，进入代码编写窗口，键入：（按钮的 Click事件）T1.text=” 等级考试 ”双击扩大按钮，键入： （按钮的 Click事件）T1.width=T1.width+1400 T1.Height=T1.Height+400 T1.fontsize=T1.fontsize*3 最后单击保存按钮，工程命名为sjt1.vbp,窗体命名为sjt1.frm。总结：这道题只要错一点就没有分，主要考大家仔细认真及属性设置的熟练程度，大家一定了解Caption 、
4、Text 等属性在不同控件含义是不同，有的控件有这个属性，而那个控件没有，名称属性是不能在运行期间改变的等等。以上限于时间原因，不能一一举例、分析，我会在以后给出更多总结。2在名称为Form1 的窗体上画一个命令按钮，其名称为C1,标题为“转换” ；然后再画两个文本框，其名称分别为Text1 和 Text2 ，初始内容为空白，编写适当的事件过程。程序运行后，在Text1 中输入一行英文字符串，如果单击命令按钮，则Text1 文本框中的字母都变为小写，而Text2 的字符变为大写。例如，在 Text1 中输入 Visual Basic Programming，则单击命令按钮后，结果如图所示。要求
5、：不得使用任何变量。注意：存盘时必须放在考生文件夹下，工程文件名为sjt2.vbp，窗提文件名为sjt2.frm。晨曦制作第 2 页 共 5 页解析： （大家请注意，以下分析加入我个人的理解和方法，都已通过上机验证，有的题方法不止一种，大家可以和我互相交流，我的邮箱：hero_，QQ:313691262 ，也可从论坛讨论 ）这道题主要考查控件的属性及字母大小写转换函数，新建一个工程，在窗体上添加一个” CommandButton ”控件，将“名称”属性修改为C1， “Caption ”属性修改为转换；再添加两个“TextBox”控件，将“名称”属性分别修改为“Text1 ”和“ Text2 ”
6、, 将“Text ”属性中的内容清空。接下来双击“转换”按钮，进入脚本编写窗口，键入：（按钮的 Click事件） Text1.text=LCase(Text1.text) Text2.text=UCase(Text1.text) 最后保存工程为sjt2.vbp,窗体为 sjt2.frm. 总结：大家一定要掌握VB中的常用函数（数学函数、字符串函数、输入输出函数等）及各种运算符。二、简单应用题（ 2 小题，每小题 20 分，共计 40分）1. 在考生目录下有一个工程文件sjt3.vbp，相应的窗体文件为sjt3.frm。包含所有控件和部分程序，如图所示。要求：1)利用属性窗口向列表框添加四个项目
7、：Visual Basic,Turbo C,C+,Java; 2)请编写适当的程序完成以下功能：当选择列表框中的一项和单选按钮Option1, 然后单击“确定”命令按钮，则文本框中显示“XXX笔试” ；当选择列表框中的一项和单选按钮Option2 ，然后单击“确定”命令按钮，则文本框中的一项和单选按钮Option2 ，然后单击“确定”命令按钮，则文本框中显示“XXX上机”。其中“ XXX ”是在列表框中所选择的项目。注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须至少进行一次选择操作（包括列表框和单选按钮），否则不得分。最后把修改
8、的文件按原文件名存盘。解析： （大家请注意，以下分析加入我个人的理解和方法，都已通过上机验证，有的题方法不止一种，大家可以和我互相交流，我的邮箱：hero_，QQ:313691262 ，也可从论坛讨论 ）这道题考查大家列表框、单选按钮的属性设置首先打开工程sjt3.vbp，打开窗体 sjt3.frm，选择其中的List1控件，在属性面板中，在“List ”属性中添加“ Visual Basic” 、 “Turbo C ” 、 “C+ ” 、 “Java” 。双击窗体的“确定”按钮并输入以下代码：（按钮的晨曦制作第 3 页 共 5 页Click事件）If Option1.Value=True t
9、hen 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 最后单击保存按钮。总结：列表框（ ListBox ）和组合框 (ComboBox)、单选按钮 (OptionButton)和复选框 (CheckBox) 这几个控件的区别（事件和属性）。例如，同样是Value 事件，对于单选按钮来说，可以设置为True 和 Flase ；而对于复选按钮来说
10、，设置的值为0,1,2 。2在考生目录下有一个工程文件sjt4.vbp，相应的窗体文件为sjt4.frm。在窗体上已经有一个命令按钮。其名称为 Command1, 标题为“计算并输出” ；程序运行后，如果单击命令按钮，程序将计算500 以内两个数之间（包括开头和结尾的数）所有连续数的和为1250 的正整数，并在窗体上显示出来，这样的数有多组，程序输出每组开头和结尾的正整数，并用“”连接起来, 如图所示，这个程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的？该为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改的文件按原文件存盘。解析： （大家请注意，以下分析加
11、入我个人的理解和方法，都已通过上机验证，有的题方法不止一种，大家可以和我互相交流，我的邮箱：hero_，QQ:313691262 ，也可从论坛讨论 ）这到题用到了循环语句和选择语句题目给出的程序如下： （一共三个空）Private Sub Command1_Click() Dim i As Integer, j As Integer, iSum As Integer Print 连续和为 1250 的正整数是： For i = 1 To 500 ? = 0 赋初值 For j = i To 500 iSum = ? 进行累加 If iSum = 1250 Then Exit For Next
12、If iSum = ? Then 和是否为 1250 Print i; ; j End If Next End Sub 答案为：1）isum 2)j+iSum 3)1250 晨曦制作第 4 页 共 5 页总结：不要忘记将程序前面的去掉，否则还会认为是注释语句掌握选择、循环语句，因为在实际问题中经常用到三、综合应用题（ 1 小题，计 40分）在窗体上画一个文本框，名称为Text1, 初始内容为空白，并设置多行显示格式；然后再画两个命令按钮，其名称分别为Command1 和 Command2, 标题分别为“显示”和“保存”，如图所示，编写适当的事件过程。程序运行后，如果单击“显示”命令按钮，则读取
13、考生目录下的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 要求：1)文件 out5.
14、txt以顺序存取方式建立和保存。2)存盘时必须放在考生目录下，工程为sjt5.vbp，窗体文件名为sjt5.frm。解析： （大家请注意，以下分析加入我个人的理解和方法，都已通过上机验证，有的题方法不止一种，大家可以和我互相交流，我的邮箱：hero_，QQ:313691262 ，也可从论坛讨论 ）这道题主要考查顺序和随机文件的读、写操作新建一个工程，在窗体上添加“TextBox”控件，在属性面板中，将“Text ”属性设为空，把“名称”属性设为“ Text1 ” ，把“ Multiline”属性设为True。然后再添加两个“CommandButton”控件，在属性面板中将“名称”属性分别改为“
15、Command1 ” 、 “Command2 ” ，将“ Caption ”属性分别设为“显示” 、 “保存”。在窗体上单击右键选择“查看代码”选项，在代码窗体中写下如下代码：Private Type StudInfo Name as string*8 Sex as string*4 Age as integer End Type 晨曦制作第 5 页 共 5 页Dim pers as studinfo Dim recmum as integer 显示按钮脚本：Private sub command1_click() Open app.path+” in5.txt” for random as
16、#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 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 最后，单击保存按钮，工程保存为sjt5.vbp,窗体保存为sjt5.frm。总结： VB考试的最后大题许多都是随机和顺序文件的读写操作，如果大家想得优秀的话，就一定要好好掌握。 Vbcrlf为回车换行操作，可以自动换行，相当于Chr$(13)+chr$(10) http:/
