《全国计算机等级考试二级VB上机题库以及解析.pdf》由会员分享，可在线阅读，更多相关《全国计算机等级考试二级VB上机题库以及解析.pdf（9页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、晨曦制作全国计算机等级考试二级全国计算机等级考试二级 VBVB 上机题库（一上机题库（一)图 1图 2T1.width=T1。width+1400T1.Height=T1。Height+400T1.fontsize=T1.fontsize3最后单击保存按钮,工程命名为 sjt1.vbp，窗体命名为 sjt1.frm。Text1。text=LCase（Text1。text)Text2.text=UCase(Text1。text）一、简单应用题（2 小题，每小题 20 分,共计 40 分）1.在考生目录下有一个工程文件 sjt3.vbp，相应的窗体文件为 sjt3。frm。包含所有控件和部分程序，
2、如图所示。要求：1）利用属性窗口向列表框添加四个项目：Visual Basic，Turbo C，C+，Java；2)请编写 适当的程 序完成以下 功能：当 选择列表框 中的一项 和单选按钮Option1，然后单击“确定命令按钮，则文本框中显示“XXX 笔试；当选择列表框中的一项和单选按钮 Option2，然后单击“确定命令按钮，则文本框中的一项和单选按钮 Option2，然后单击“确定”命令按钮，则文本框中显示“XXX上机”。其中“XXX”是在列表框中所选择的项目。If Option1.Value=True thenText1。Text=List1.List（List1。ListIndex)+
3、Option1.CaptionEnd IfIf Option2。Value=True then第 1 页 共 9 页晨曦制作Text1。Text=List1.List（List1。ListIndex）+Option2.CaptionEnd If最后单击保存按钮。2在考生目录下有一个工程文件 sjt4.vbp，相应的窗体文件为 sjt4。frm。在窗体上已经有一个命令按钮。其名称为 Command1，标题为“计算并输出”；程序运行后，如果单击命令按钮,程序将计算 500 以内两个数之间（包括开头和结尾的数）所有连续数的和为 1250 的正整数，并在窗体上显示出来,这样的数有多组,程序输出每组开头
4、和结尾的正整数,并用“”连接起来，如图所示,这个程序不完整，请把它补充完整.要求：去掉程序中的注释符，把程序中的？该为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改的文件按原文件存盘。Private Sub Command1_Click(）Dim i As Integer，j As Integer,iSum As IntegerPrint”连续和为 1250 的正整数是：For i=1 To 500isum=0赋初值For j=i To 500iSum=j+iSum进行累加If iSum=1250 Then Exit ForNextIfiSum=1250 Then和是否为
5、 1250第 2 页 共 9 页晨曦制作Print i;”；jEnd IfNextEnd Sub答案为：1）2）j+iSum 3)1250二、综合应用题(1 小题，计 40 分)在窗体上画一个文本框，名称为 Text1，初始内容为空白,并设置多行显示格式；然后再画两个命令按钮，其名称分别为 Command1 和 Command2，标题分别为“显示和“保存,如图所示,编写适当的事件过程。程序运行后，如果单击“显示命令按钮，则读取考生 目录下的 in5。txt 文件，并在文本框中显示出来，该文件是一种用随机存取方式建立的文件，共有 5 个记录,要求按记录号顺序显示全部记录，每个记录一行；如果单击“
6、保存”命令按钮，则把所有记录保存到考生目录下的顺序文件 out5。txt 中。随机文件 in5.txt 中的每个记录包括 3 个字段，分别为姓名、性别和年龄，其名称和长度分别为：Name 字符串 8Sex 字符串 4Age Integer其类型定义为:Private Type StudInfoName As String*8Sex As String4第 3 页 共 9 页晨曦制作Age As IntegerEnd Type要求：1)文件 out5。txt 以顺序存取方式建立和保存。2)存盘时必须放在考生目录下，工程为 sjt5.vbp，窗体文件名为 sjt5。frm。Private Type
7、 StudInfoName as string8Sex as string4Age as integerEnd TypeDim pers as studinfoDim recmum as integer显示按钮脚本:Private sub 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.name+pers。sex+str（pers.age)+vbc
8、rlfNext iClose 1第 4 页 共 9 页晨曦制作End sub保存按钮脚本：Private sub command2_click（)Open app.path+”out5.txt”for output as 1Print 1,text1。textClose 1End sub（1）在考生文件夹下有一个工程文件sjt3。vbp，相应的窗体文件为sjt3.frm。在名称为Form1的窗体上有一个名称为Text1的文本框和名称为Command1、标题为确定”的命令按钮，一个名称为List1的列表框和两个名称分别为Option1和Option2、标题分别为添加和”删除的单选按钮，如图1所示
9、。程序运行后，如果选择单选按钮Option1并在文本框中输入一个字符串,然后单击”确定命令按钮，则把文本框中的字符串添加到列表框中，并清除文本框，如图2所示；如果选择列表框中的一项和单选按钮Option2，并单击”确定命令按钮,则删除列表框中所选择的项目,如图3所示;如果不选择列表框中的项目，或者没有在文本框中输入字符串，则单击”确定”命令按钮后，将显示一个信息框未输入或未选择项目”，如图4所示。该程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的？改为正确的内容，使其能正确运行,但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。*（2）在考生文件夹下有一个工
10、程文件sjt4.vbp，相应的窗体文件为sjt4。frm。在窗体上有一个命令按钮，其名称为Command1，标题为计算。程序运行后，如果单击命令按钮，程序将根据下面的公式计算的值：/4=1 1/3+1/5 1/7+.。.所提供的窗体文件已给出了命令按钮的事件过程,程序运行结果如图所示。该程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分.最后用原来的文件名保存工程文件和窗体文件。第一小题:该题考查考生对ListBox控件的使用。列表框的AddItem方法用来在列表框中插入一行文本,其语法为：列表框名。AddItem 字符
11、串，索引值如果省略”索引值”，则字符串被添加到列表框的尾部；使用”索引值”可以将字符串插入列表框中的指定位第 5 页 共 9 页晨曦制作置。索引值从0开始，到列表项总数1止。列表框的RemoveItem方法用来删除列表框中的指定项目，其语法为：列表框名。RemoveItem 索引值列表框的ListIndex属性用来设置或返回列表框中当前选中的列表项.第二小题：该题考查了Do-Loop循环结构语句和公式计算的算法实现，相关程序如下：Private Sub Command1_Click（)Dim Result As Double Dim Sign As Integer Dim i As Integ
12、er 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*4End Sub3.综合应用（1小题，计30分）注意：下面出现的考生文件夹”均为USER在考生文件夹下有一个工程文件sjt5。vbp，相应的窗体文件为sjt5.frm。窗体外观如图1所示。三个命令按钮的名称分别为Command1、Command2和Command3,标题分别为读取数据”、”首字母大写”和存盘”。程序运行后，如果单击读取数据命令按钮，则读取考生文件夹下in5.txt中的全部文
13、本(文本中的单词与单词之间或标点符号与单词之间均用一个空格分开），并在文本框中显示出来，如图2所示;如果单击首字母大写命令按钮，则将文本框中每个单词的第一个字母变为大写字母（如果原来已是大写字母则不改变），并在文本框中显示出来，如图3所示;如果单击”存盘命令按钮,则把文本框中的内容（首字母大写后)保存到考生文件夹下的文件out5.txt中.窗体文件中已给出了部分程序，请把它补充完整，使其实现上述功能。要求：1）编写读取数据”命令按钮的Click事件过程。2）去掉首字母大写”命令按钮和存盘命令按钮事件过程中的注释符，把程序中的?改为正确的内容，使其能正确运行.3)用原来的文件名保存工程文件和窗体
14、文件.本题主要考查了文件的操作,文件中字符串的处理方法。主要代码如下：Dim s As StringPrivate Sub Command1_Click（）Open in5。txt”For Input As#1 s=Input(LOF（1),1）第 6 页 共 9 页晨曦制作 Close 1 Text1。Text=sEnd SubPrivate Sub Command2_Click()Dim oldSen As String Dim newSen As String Dim ch As String Dim lastCh As String oldSen=Text1。Text strlen=L
15、en（oldSen）lastCh=Left(oldSen，1）For i=1 To strlen ch=Mid(Text1。Text，i，1）If lastCh=Then ch=UCase（ch)End If newSen=newSen&ch lastCh=ch Next i Text1.Text=newSenEnd SubPrivate Sub Command3_Click()Open”out5.txt”For Output As 1 Write 1,Text1。Text Close#1End Sub答案：Dim a（10）As IntegerDim b(10)As IntegerDim c
16、(10)As IntegerPrivate Sub Command1_Click（）Open App。Path ”dataA。txt”For Input As 1Open 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 Integer第 7 页 共 9 页晨曦制作max=x（1)For i=2 To 10If max x(i)Th
17、en max=x（i)Next it。Text=maxEnd SubPrivate Sub Command2_Click(）Dim i As IntegerFor i=1 To 10c(i)=a（i)+b（i）Next iOpen App.Path ”out51。txt For Output As 1For i=0 To 9Print#1，c（i)NextClose#1End SubPrivate Sub Command3_Click（）Call find（a，Text1)Call find（c,Text2)Open App。Path ”out52.txt For Output As 1Pri
18、nt#1，Text1。Text,Text2。TextClose 1End Sub编写适当的事件过程，使程序运行后，可以使图像框闪烁,其闪烁速度可以通过滚动条来调节。提示：图像框的闪烁可以通过图像框交替地显示和隐藏来实现。要求：程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹中,工程文件名为“sit2.vbp”，窗体文件名为“sjt2。frm”。解答：Private Sub HScroll1_Scroll（)Timer1。Interval=HScroll1。ValueEnd SubPrivate Sub Timer1_Timer(）Image1。Visible=
19、Not Image1.VisibleEnd Sub第 8 页 共 9 页晨曦制作题目：在名为 Form1 的窗体上绘制两个图像框，名称分别为 Pic1 和 Pic2,宽度和高度均为 1500，通过属性窗口把图像文件 tp1。jpg 放入 Pic1 中，把图像文件tp2。jpg 放入 Pic2 中；再绘制一个名为Cmd1 的命令按钮，标题为”图片交换”，如图 14 所示.编写适当的事件过程，使得在运行时，如果单击窗体,则交换两个图像框中的图像。注意不允许使用第三个图像框.Private Sub Form_Click(）Dim pic As ObjectSet pic=Image1.PictureImage1。Picture=Image2.PictureImage2.Picture=picEnd Sub第 9 页 共 9 页