全国计算机等级考试VB二级上机题库,有答案供参考

1、VB上机试题全国计算机等级测试二级 VB上机题库第一套一、根本操作题2小题,每题15分,共计30分1 .在名称为Form 1的窗体上画一个文本框,其名称为T1,宽度和高度分别为1400 和400;在画两个按钮,其名称分别为C1和C2,标题分别为“显示和“扩大, 编写适当的事件过程.程序运行后,如果单击 C1命令按钮,那么在文本框中显示“等级测试,如图1所示,如果单击C2命令按钮,那么使文本框在高、宽方向上 各增加一倍,文本框中的字体大小扩大到原来的3倍,如图2所示.注意：要求程序中不得使用变量.存盘时必须放在考生文件夹下,工程文件名为sjt1.vbp ,窗体文件名为sjt1.frm o图1图2

2、解析：大家请注意,以下分析参加我个人的理解和方法,都已通过上机验证, 有的题方法不止一种,大家可以和我互相交流,我的邮箱：,QQ:2,也可从论坛 讨论这道题没什么难度,主要考你窗体、按钮及文本框的根本届性,所以大家一定要 熟练掌握常用控件的根本届性.翻开VB不用我说了吧,新建一个工程标准的EXE,单击控件面板的“ TextBox控件也可双击,直接在窗体建立,在 届性面板中将“名称修改为T1, “Width修改为1400, “Height 修改为400. 然后单击控件面板的“ CommanButton添加两个命令按钮,在届性面板中将“名 称分别修改为C1和C2, “Caption分别修改为显示和

3、扩大.接下来双击显示按钮,进入代码编写窗口,键入：按钮的Click事件T1.text= 等级测试双击扩大按钮,键入：按钮的Click事件T1.width=T1.width+1400T1.Height=T1.Height+400T1.fontsize=T1.fontsize*3最后单击保存按钮,工程命名为 sjt1.vbp,窗体命名为sjt1.frm .总结：这道题只要错一点就没有分,主要考大家仔细认真及届性设置的熟练程度, 大家一定了解Caption、Text等届性在不同控件含义是不同,有的控件有这个届 性,而那个控件没有,名称届性是不能在运行期间改变的等等.以上限于时间原 因,不能一一举例、

4、分析,我会在以后给出更多总结.2.在名称为Form 1的窗体上画一个命令按钮,其名称为 C1,标题为“转换；然 后再画两个文本框,其名称分别为 Text1和Text2,初始内容为空白,编写适当 的事件过程.程序运行后,在Text1中输入一行英文字符申,如果单击命令按钮, 那么Text1文本框中的字母都变为小写,而Text2的字符变为大写.例如,在Text1 中输入Visual Basic Programming ,那么单击命令按钮后,结果如下列图.要求：不得使用任何变量.注意：存盘时必须放在考生文件夹下,工程文件名为sjt2.vbp ,窗提文件名为sjt2.frm o解析：大家请注意,以下分析

5、参加我个人的理解和方法,都已通过上机验证, 有的题方法不止一种,大家可以和我互相交流,我的邮箱：,QQ:2,也可从论坛 讨论这道题主要考查控件的届性及字母大小写转换函数,新建一个工程,在窗体上添加一个CommandButtonE件,将“名称届性修改为 C1, “Caption届性修改 为转换；再添加两个“ TextBox控件,将“名称届性分别修改为“ Textl和 “Text2,将“Text届性中的内容活空.接下来双击“转换按钮,进入脚本编写窗口,键入：按钮的Click事件Text1.text=LCaseText1.text Text2.text=UCaseText1.text最后保存工程为s

6、jt2.vbp,窗体为sjt2.frm.总结：大家一定要掌握 VB中的常用函数数学函数、字符申函数、输入输出函 数等及各种运算符.二、简单应用题2小题,每题20分,共计40分1.在考生目录下有一个工程文件 sjt3.vbp,相应的窗体文件为sjt3.frm .包含 所有控件和局部程序,如下列图.要求：1利用届性窗口向歹0表框添加四个工程：Visual Basic,Turbo C,C+,Java;2请编写适当的程序完成以下功能：中选择歹0表框中的一项和单项选择按钮 Option1,然后单击“确定命令按钮,那么文本框中显示“XXX笔试；中选择列表框中的一项和单项选择按钮Option2,然后单击“确

7、定命令按钮,那么文本框中的一项和单 选按钮Option2,然后单击“确定命令按钮,那么文本框中显示“ XXX±机.其 中“XXX是在列表框中所选择的工程.注意：考生不得修改窗体文件中已经存在的程序,退出程序时必须通过单击窗体右上角的关闭按钮.在结束程序运行之前,必须至少进行一次选择操作包括列表框和 单项选择按钮,否那么不得分.最后把修改的文件按原文件名存盘.解析：大家请注意,以下分析参加我个人的理解和方法,都已通过上机验证, 有的题方法不止一种,大家可以和我互相交流,我的邮箱：,QQ:2,也可从论坛 讨论这道题考查大家列表框、单项选择按钮的届性设置首先翻开工程sjt3.vbp,翻开窗

8、体sjt3.frm ,选择其中的List1控件,在届性 面板中,在 “ List 届性中添加 “ Visual Basic 、“Turbo C'、"C+'、“Java. 双击窗体的“确定按钮并输入以下代码：按钮的Click事件 If Option1.Value=True thenText1.Text=List1.ListList1.ListIndex+Option1.C aptionEnd IfIf Option2.Value=True thenText1.Text=List1.ListList1.ListIndex+Option2.C aptionEnd If最后单

9、击保存按钮.总结：歹0表框ListBox 和组合框ComboBox单项选择按钮OptionButton和复 选框CheckBox这几个控件的区别事件和届性 .例如,同样是Value事件,对于单项选择按钮来说,可以设置为 True和Flase ;而对于复选按钮来说,设置的 值为0,1,2.2.在考生目录下有一个工程文件 sjt4.vbp ,相应的窗体文件为sjt4.frm .在窗 体上已经有一个命令按钮.其名称为Command标题为“计算并输出；程序运行后,如果单击命令按钮,程序将计算500以内两个数之间包括开头和结尾的 数所有连续数的和为1250的正整数,并在窗体上显示出来,这样的数有多组,

10、程序输出每组开头和结尾的正整数,并用“连接起来,如下列图,这个程序不完整,请把它补充完整.要求：去掉程序中的注释符,把程序中的该为正确的内容,使其实现上述功能,但不 得修改程序中的其他局部.最后把修改的文件按原文件存盘.解析：大家请注意,以下分析参加我个人的理解和方法,都已通过上机验证, 有的题方法不止一种,大家可以和我互相交流,我的邮箱：,QQ:2,也可从论坛 讨论这到题用到了循环语句和选择语句题目给出的程序如下：一共三个空Private Sub Command1_Click()Dim i As Integer, j As Integer, iSum As IntegerPrint &quo

11、t;连续和为1250的正整数是："赋初值进行累加和是否为1250For i = 1 To 500'? = 0For j = i To 500'iSum = ?If iSum >= 1250 Then Exit ForNext' If iSum = ? ThenPrint i;""jEnd IfNextEnd Sub答案为：1 isum 2j+iSum 31250总结：不要忘记将程序前面的去掉,否那么还会认为是注释语句 掌握选择、循环语句,由于在实际问题中经常用到三、综合应用题1小题,计40分在窗体上画一个文本框,名称为 Text1,初

12、始内容为空白,并设置多行显示格式； 然后再画两个命令按钮,其名称分别为 Command和Command标题分别为“显 示和“保存,如下列图,编写适当的事件过程.程序运行后,如果单击“显 示命令按钮,那么读取考生 目录下的in5.txt文件,并在文本框中显示出来, 该文件是一种用随机存取方式建立的文件,共有5个记录,要求按记录号顺序显示全部记录,每个记录一行；如果单击“保存命令按钮,那么把所有记录保存到 考生目录下的顺序文件out5.txt中.随机文件in5.txt 中的每个记录包括3个 字段,分别为姓名、性别和年龄,其名称和长度分别为：Name字符申8Sex字符申4Age Integer其类型

13、定义为：Private Type StudInfoName As String*8Sex As String*4 Age As Integer End Type 要求：1) 文件out5.txt以顺序存取方式建立和保存.2) 存盘时必须放在考生目录下,工程为 sjt5.vbp,窗体文件名为sjt5.frm . 解析：(大家请注意, 以下分析参加我个人 的理解和方法,都已通 过上机验证,有的题方 法不止一种,大家可以 和我互相交流,我的邮 箱：,QQ:2 ,也可从论 坛讨论 这道题主要考查顺序 和随机文件的读、写操作新建一个工程,在窗体上添加“ TextBox控件,在届性面板中,将“ Text届

14、 性设为空,把“名称届性设为“ Text1 ,把“Multiline 届性设为True.然 后再添加两个“ CommandButton控件,在届性面板中将“名称届性分别改为“Command 1 “Command?将“Caption 届性分别设为“显示、“保存.在 窗体上单击右键选择“查看代码选项,在代码窗体中写下如下代码： Private Type StudInfoName as string*8Sex as string*4 Age as integer End Type Dim pers as studinfo Dim recmum as integer 显示按钮脚本：Private su

15、b command1_click()Open app.path+ in5.txt for random as #1 Len=len(pers) recnum=lof(1)/len(pers) ClsFor i=1 to recnumGet #1,persText1.text=text1.text++pers.sex+str(pers.age)+vbcrlf Next i Close 1End sub保存按钮脚本：Private sub command2_clickOpen app.path+ "out5.txt for output as #1Print #1,te

16、xt1.text Close #1 End sub 最后,单击保存按钮,工程保存为 sjt5.vbp,窗体保存为sjt5.frm .全国计算机等级测试二级VB上机题库第二套1. 根本操作2小题,每题15分,共计30分注意：下面出现的"考生文件夹"均为C:WEXAM00000000 *请根据以下各小题的要求设计 Visual Basic 应用程序包括界面和代码.1在名称为Form1,标题为"窗体的窗体上画一个标签,其名称为 Label1 ,标题为等级测试 , BorderStyle属性为1 ,且可以自动调整大小,再画一个框架,名称为 Frame1,标题为"

17、科目, 如下列图.注意： 存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp ,窗体文件名为sjt1.frm .*2 在名称为Form 1的窗体上画两个图像框,其名称分别为Image1和Image2, Stretch属性分别为True和False,然后通过属性窗口在Image1中装入一个图形文件 pic.jpg 位于考生文件夹下, 编写适当的事件过程.程序运行后,如果单击窗体,那么可去除Image1中的图形,并把该图形复制到Image2中,如下列图.注意： 要求程序中不得使用变量.存盘时必须存放在考生文件夹下,工程文件名为sjt2.vbp ,窗体文件名为sjt2.frm .第一题主要考

18、查了 Frame控件属性的使用及Label控件的使用.在Label与Frame控件中可通过使用Caption 属性来指定其要显示的内容,同时可通过Font属性来设定要显示文字的字体.第二题主要考查了 Image控件的Stretch属性的使用方法,通过指定Stretch可以指定图片是否被拉伸,同时也考查了 Image控件中图片的去除方法,可用 Set控件名.Picture=Nothing 来去除Image控件中的图片.2. 简单应用2小题,每题20分,计40分 注意：下面出现的"考生文件夹"均为USER% *1在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sj

19、t3.frm . 在名称为Form1的窗体上有一个名称为Text1的文本框和名称为Command标题为 "确定"的命令按钮,一个名称为List1的列表框和两个名称分别为Option 1和 Option2、标题分别为"添加"和"删除"的单项选择按钮,如图1所示.程序运行后,如 果选择单项选择按钮Option1并在文本框中输入一个字符申,然后单击"确定"命令按 钮,那么把文本框中的字符申添加到列表框中,并活除文本框,如图2所示；如果选择列表框中的一项和单项选择按钮 Option2,并单击"确定"命令

20、按钮,那么删除列表 框中所选择的工程,如图3所示；如果不选择列表框中的工程,或者没有在文本 框中输入字符申,那么单击确定命令按钮后,将显示一个信息框未输入或未选 择工程,如图4所示.该程序不完整,请把它补充完整.要求：去掉程序中的注释符,把程序中的改为正确的内容,使其能正确运行,但不 能修改程序中的其他局部.最后用原来的文件名保存工程文件和窗体文件.*(2)在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm . 在窗体上有一个命令按钮,其名称为Command 1标题为"计算".程序运行后,如 果单击命令按钮,程序将根据下面的公式计算兀的值：兀/4

21、 = 1 - 1/3 + 1/5 - 1/7 + .所提供的窗体文件已给出了命令按钮的事件过程,程序运行结果如下列图.该程序不完整,请把它补充完整.要求：去掉程序中的注释符,把程序中的改为正确的内容,使其能正确运行,但不 能修改程序中的其他局部.最后用原来的文件名保存工程文件和窗体文件.第一小题：该题考查考生对ListBox控件的使用.列表框的AddItem方法用来在列表框中插入一行文本,其语法为：列表框名.AddItem 字符串,索引值如果省略索引值,那么字符串被添加到列表框的尾部；使用索引值可以将字符串插入列表框中的指定位置.索引值从0开始,到列表项总数-1止.列表框的RemoveItem

22、方法用来删除列表框中的指定工程,其语法为：列表框名.RemoveItem索引值列表框的ListIndex属性用来设置或返回列表框中当前选中的列表项.第二小题：该题考查了 Do-Loop循环结构语句和公式计算的算法实现,相关程序如下：Private Sub Command1_Click()Dim Result As DoubleDim Sign As IntegerDim i As IntegerResult = 0Sign = 1i = 1DoResult = Result + Sign / ii = i + 2Sign = -SignLoop While 1 / i >= 0.0001

23、Text1.Text = Result * 4End Sub3.综合应用(1小题,计30分)注意：下面出现的考生文件夹均为USER%在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm .窗体外 观如图1所示.三个命令按钮的名称分别为 Command 1 Command2Command3标 题分别为读取数据、首字母大写和存盘.程序运行后,如果单击读取数 据命令按钮,那么读取考生文件夹下in5.txt中的全部文本(文本中的单词与单词 之间或标点符号与单词之间均用一个空格分开),并在文本框中显示出来,如图 2所示；如果单击首字母大写命令按钮,那么将文本框中每个单词的第一个

24、字母 变为大写字母(如果原来已是大写字母那么不改变),并在文本框中显示出来,如 图3所示；如果单击"存盘"命令按钮,那么把文本框中的内容(首字母大写后)保 存到考生文件夹下的文件out5.txt中.窗体文件中已给出了局部程序,请把它补 充完整,使其实现上述功能.要求：1) 编写读取数据命令按钮的Click事件过程.2) 去掉首字母大写命令按钮和存盘命令按钮事件过程中的注释符,把程序 中的改为正确的内容,使其能正确运行.3) 用原来的文件名保存工程文件和窗体文件.此题主要考查了文件的操作,文件中字符串的处理方法.主要代码如下：Dim s As StringPrivate Su

25、b Command1_Click()Open "in5.txt" For Input As #1s = Input$(LOF(1), 1)Close #1Text1.Text = sEnd SubPrivate Sub Command2_Click()Dim oldSen As StringDim newSen As StringDim ch As StringDim lastCh As StringoldSen = Text1.Textstrlen = Len(oldSen)lastCh = Left(oldSen, 1)For i = 1 To strlench = M

26、id(Text1.Text, i, 1)If lastCh = " " Thench = UCase(ch)End IfnewSen = newSen & chlastCh = chNext iText1.Text = newSenEnd SubPrivate Sub Command3_Click()Open "out5.txt" For Output As #1Write #1, Textl.TextClose #1End Sub答案：Dim a(10) As IntegerDim b(10) As IntegerDim c(10) As In

27、tegerPrivate Sub Command1_Click()Open App.Path & "dataA.txt" For Input As #1 Open App.Path & "dataB.txt" For Input As #2For i = 0 To 9Input #1, a(i)Input #2, b(i)NextClose #1, #2End SubPrivate Sub find(x() As Integer, t As Control)Dim i As Integer, max As Integermax = x(1)For i = 2 To 10If max < x(i) Then max = x(i)Next it.Text = maxEnd SubPrivate Sub Command2_Click() Dim i As Integer For i =