全国计算机等级考试VB二级上机题库有答案Word格式.docx
《全国计算机等级考试VB二级上机题库有答案Word格式.docx》由会员分享,可在线阅读,更多相关《全国计算机等级考试VB二级上机题库有答案Word格式.docx(19页珍藏版)》请在冰点文库上搜索。
1.在考生目录下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。
包含所有控件和部分程序,如图所示。
要求:
1)利用属性窗口向列表框添加四个项目:
VisualBasic,TurboC,C++,Java;
2)请编写适当的程序完成以下功能:
当选择列表框中的一项和单选按钮Option1,然后单击“确定”命令按钮,则文本框中显示“XXX笔试”;
当选择列表框中的一项和单选按钮Option2,然后单击“确定”命令按钮,则文本框中的一项和单选按钮Option2,然后单击“确定”命令按钮,则文本框中显示“XXX上机”。
其中“XXX”是在列表框中所选择的项目。
考生不得修改窗体文件中已经存在的程序,退出程序时必须通过单击窗体右上角的关闭按钮。
在结束程序运行之前,必须至少进行一次选择操作(包括列表框和单选按钮),否则不得分。
最后把修改的文件按原文件名存盘。
这道题考查大家列表框、单选按钮的属性设置
首先打开工程sjt3.vbp,打开窗体sjt3.frm,选择其中的List1控件,在属性面板中,在“List”属性中添加“VisualBasic”、“TurboC”、“C++”、“Java”。
双击窗体的“确定”按钮并输入以下代码:
IfOption1.Value=Truethen
Text1.Text=List1.List(List1.ListIndex)+Option1.Caption
EndIf
IfOption2.Value=Truethen
Text1.Text=List1.List(List1.ListIndex)+Option2.Caption
最后单击保存按钮。
列表框(ListBox)和组合框(ComboBox)、单选按钮(OptionButton)和复选框(CheckBox)这几个控件的区别(事件和属性)。
例如,同样是Value事件,对于单选按钮来说,可以设置为True和Flase;
而对于复选按钮来说,设置的值为0,1,2。
2.在考生目录下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm。
在窗体上已经有一个命令按钮。
其名称为Command1,标题为“计算并输出”;
程序运行后,如果单击命令按钮,程序将计算500以内两个数之间(包括开头和结尾的数)所有连续数的和为1250的正整数,并在窗体上显示出来,这样的数有多组,程序输出每组开头和结尾的正整数,并用“~”连接起来,如图所示,这个程序不完整,请把它补充完整。
去掉程序中的注释符,把程序中的?
该为正确的内容,使其实现上述功能,但不得修改程序中的其他部分。
最后把修改的文件按原文件存盘。
这到题用到了循环语句和选择语句
题目给出的程序如下:
(一共三个空)
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger,iSumAsInteger
Print"
连续和为1250的正整数是:
"
Fori=1To500
'
?
=0赋初值
Forj=iTo500
iSum=?
进行累加
IfiSum>
=1250ThenExitFor
Next
IfiSum=?
Then和是否为1250
Printi;
"
~"
;
j
EndIf
EndSub
答案为:
1)isum2)j+iSum3)1250
不要忘记将程序前面的‘去掉,否则还会认为是注释语句
掌握选择、循环语句,因为在实际问题中经常用到
三、综合应用题(1小题,计40分)
在窗体上画一个文本框,名称为Text1,初始内容为空白,并设置多行显示格式;
然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图所示,编写适当的事件过程。
程序运行后,如果单击“显示”命令按钮,则读取考生目录下的in5.txt文件,并在文本框中显示出来,该文件是一种用随机存取方式建立的文件,共有5个记录,要求按记录号顺序显示全部记录,每个记录一行;
如果单击“保存”命令按钮,则把所有记录保存到考生目录下的顺序文件
out5.txt中。
随机文件in5.txt中的每个记录包括3个字段,分别为姓名、性别和年龄,其名称和长度分别为:
Name字符串8
Sex字符串4
AgeInteger
其类型定义为:
PrivateTypeStudInfo
NameAsString*8
SexAsString*4
AgeAsInteger
EndType
1)文件out5.txt以顺序存取方式建立和保存。
2)
存盘时必须放在考生目录下,工程为sjt5.vbp,窗体文件名为sjt5.frm。
这道题主要考查顺序和随机文件的读、写操作
新建一个工程,在窗体上添加“TextBox”控件,在属性面板中,将“Text”属性设为空,把“名称”属性设为“Text1”,把“Multiline”属性设为True。
然后再添加两个“CommandButton”控件,在属性面板中将“名称”属性分别改为“Command1”、“Command2”,将“Caption”属性分别设为“显示”、“保存”。
在窗体上单击右键选择“查看代码”选项,在代码窗体中写下如下代码:
Nameasstring*8
Sexasstring*4
Ageasinteger
Dimpersasstudinfo
Dimrecmumasinteger
显示按钮脚本:
Privatesubcommand1_click()
Openapp.path+”\in5.txt”forrandomas#1Len=len(pers)
recnum=lof
(1)/len(pers)
Cls
Fori=1torecnum
Get#1,,pers
Text1.text=text1.text+pers.name+pers.sex+str(pers.age)+vbcrlf
Nexti
Close1
Endsub
保存按钮脚本:
Privatesubcommand2_click()
Openapp.path+”\out5.txt”foroutputas#1
Print#1,text1.text
Close#1
最后,单击保存按钮,工程保存为sjt5.vbp,窗体保存为sjt5.frm。
全国计算机等级考试二级VB上机题库(第二套)
1.基本操作(2小题,每小题15分,共计30分)
下面出现的"
考生文件夹"
均为C:
\WEXAM\00000000\
**********************************************************************
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(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所示;
如果不选择列表框中的项目,或者没有在文本框中输入字符串,则单击"
命令按钮后,将显示一个信息框"
未输入或未选择项目"
,如图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循环结构语句和公式计算的算法实现,相关程序如下:
DimResultAsDouble
DimSignAsInteger
DimiAsInteger
Result=0
Sign=1
i=1
Do
Result=Result+Sign/i
i=i+2
Sign=-Sign
LoopWhile1/i>
=0.0001
Text1.Text=Result*4
3.综合应用(1小题,计30分)
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm。
窗体外观如图1所示。
三个命令按钮的名称分别为Command1、Command2和Command3,标题分别为"
读取数据"
、"
首字母大写"
存盘"
程序运行后,如果单击"
命令按钮,则读取考生文件夹下in5.txt中的全部文本(文本中的单词与单词之间或标点符号与单词之间均用一个空格分开),并在文本框中显示出来,如图2所示;
如果单击"
命令按钮,则将文本框中每个单词的第一个字母变为大写字母(如果原来已是大写字母则不改变),并在文本框中显示出来,如图3所示;
如果单击"
命令按钮,则把文本框中的内容(首字母大写后)保存到考生文件夹下的文件out5.txt中。
窗体文件中已给出了部分程序,请把它补充完整,使其实现上述功能。
1)编写"
命令按钮的Click事件过程。
2)去掉"
命令按钮和"
命令按钮事件过程中的注释符,把程序中的?
改为正确的内容,使其能正确运行。
3)用原来的文件名保存工程文件和窗体文件。
本题主要考查了文件的操作,文件中字符串的处理方法。
主要代码如下:
DimsAsString
Open"
in5.txt"
ForInputAs#1
s=Input$(LOF
(1),1)
Text1.Text=s
PrivateSubCommand2_Click()
DimoldSenAsString
DimnewSenAsString
DimchAsString
DimlastChAsString
oldSen=Text1.Text
strlen=Len(oldSen)
lastCh=Left(oldSen,1)
Fori=1Tostrlen
ch=Mid(Text1.Text,i,1)
IflastCh="
Then
ch=UCase(ch)
newSen=newSen&
ch
lastCh=ch
Text1.Text=newSen
PrivateSubCommand3_Click()
out5.txt"
ForOutputAs#1
Write#1,Text1.Text
答案:
Dima(10)AsInteger
Dimb(10)AsInteger
Dimc(10)AsInteger
OpenApp.Path&
\dataA.txt"
\dataB.txt"
ForInputAs#2
Fori=0To9
Input#1,a(i)
Input#2,b(i)
Close#1,#2
PrivateSubfind(x()AsInteger,tAsControl)
DimiAsInteger,maxAsInteger
max=x
(1)
Fori=2To10
Ifmax<
x(i)Thenmax=x(i)
t.Text=max
Fori=1To10
c(i)=a(i)+b(i)
\out51.txt"
Print#1,c(i)
Callfind(a,Text1)
Callfind(c,Text2)
\out52.txt"
Print#1,Text1.Text,Text2.Text
编写适当的事件过程,使程序运行后,可以使图像框闪烁,其闪烁速度可以通过滚动条来调节。
提示:
图像框的闪烁可以通过图像框交替地显示和隐藏来实现。
要求:
程序中不得使用变量,每个事件过程中只能写一条语句。
注意:
存盘时必须存放在考生文件夹中,工程文件名为“sit2.vbp”,窗体文件名为“sjt2.frm”。
解答:
PrivateSubHScroll1_Scroll()
Timer1.Interval=HScroll1.Value
PrivateSubTimer1_Timer()
Image1.Visible=NotImage1.Visible
题目:
在名为Form1的窗体上绘制两个图像框,名称分别为Pic1和Pic2,宽度和高度均为1500,通过属性窗口把图像文件tp1.jpg放入Pic1中,把图像文件tp2.jpg放入Pic2中;
再绘制一个名为Cmd1的命令按钮,标题为"
图片交换"
,如图1-4所示。
编写适当的事件过程,使得在运行时,如果单击窗体,则交换两个图像框中的图像。
注意不允许使用第三个图像框。
PrivateSubForm_Click()
Dimpic
AsObject
Setpic=Image1.Picture
Image1.Picture=Image2.Picture
Image2.Picture=pic