欢迎来到天天文库
浏览记录
ID:31803712
大小:1.28 MB
页数:11页
时间:2019-01-18
《全国计算机等级考试二级vb上机题库以及解析(word版)》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、晨曦制作全国计算机等级考试二级VB上机题库(一)图1图2T1.width=T1.width+1400T1.Height=T1.Height+400T1.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。包含所有控件和部分程序,
2、如图所示。要求:1)利用属性窗口向列表框添加四个项目:VisualBasic,TurboC,C++,Java;2)请编写适当的程序完成以下功能:当选择列表框中的一项和单选按钮Option1,然后单击“确定”命令按钮,则文本框中显示“XXX笔试”;当选择列表框中的一项和单选按钮Option2,然后单击“确定”命令按钮,则文本框中的一项和单选按钮Option2,然后单击“确定”命令按钮,则文本框中显示“XXX上机”。其中“XXX”是在列表框中所选择的项目。IfOption1.Value=TruethenText1.Text=List1.
3、List(List1.ListIndex)+Option1.Caption第11页共11页晨曦制作EndIfIfOption2.Value=TruethenText1.Text=List1.List(List1.ListIndex)+Option2.CaptionEndIf最后单击保存按钮。2.在考生目录下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm。在窗体上已经有一个命令按钮。其名称为Command1,标题为“计算并输出”;程序运行后,如果单击命令按钮,程序将计算500以内两个数之间(包括开头和结尾的数)所有连
4、续数的和为1250的正整数,并在窗体上显示出来,这样的数有多组,程序输出每组开头和结尾的正整数,并用“~”连接起来,如图所示,这个程序不完整,请把它补充完整。要求:去掉程序中的注释符,把程序中的?该为正确的内容,使其实现上述功能,但不得修改程序中的其他部分。最后把修改的文件按原文件存盘。PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,iSumAsIntegerPrint"连续和为1250的正整数是:"Fori=1To500'isum=0赋初值Forj=iTo500'iSum=j+
5、iSum进行累加IfiSum>=1250ThenExitForNext'IfiSum=1250Then和是否为1250Printi;"~";jEndIfNextEndSub答案为:1)2)j+iSum3)1250一、综合应用题(1小题,计40分)在窗体上画一个文本框,名称为Text1,初始内容为空白,并设置多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图所示,编写适当的事件过程。程序运行后,如果单击“显示”命令按钮,则读取考生第11页共11页晨曦制作目录下的in5
6、.txt文件,并在文本框中显示出来,该文件是一种用随机存取方式建立的文件,共有5个记录,要求按记录号顺序显示全部记录,每个记录一行;如果单击“保存”命令按钮,则把所有记录保存到考生目录下的顺序文件 out5.txt中。随机文件in5.txt中的每个记录包括3个字段,分别为姓名、性别和年龄,其名称和长度分别为:Name字符串8Sex字符串4AgeInteger其类型定义为:PrivateTypeStudInfoNameAsString*8SexAsString*4AgeAsIntegerEndType要求:1)文件out5.txt以顺
7、序存取方式建立和保存。2)存盘时必须放在考生目录下,工程为sjt5.vbp,窗体文件名为sjt5.frm。PrivateTypeStudInfoNameasstring*8Sexasstring*4AgeasintegerEndTypeDimpersasstudinfoDimrecmumasinteger显示按钮脚本:Privatesubcommand1_click()Openapp.path+”in5.txt”forrandomas#1Len=len(pers)recnum=lof(1)/len(pers)ClsFori=1to
8、recnumGet#1,,persText1.text=text1.text+pers.name+pers.sex+str(pers.age)+vbcrlfNextiClose1第11页共11页晨曦制作Endsub保存按钮脚本:Pri
此文档下载收益归作者所有