全国计算机等级考试二级VB上机题库以及解析.docx

晨曦制作全国计算机等级考试二级 VB 上机题库(一)图 1 图 =+=+=*3最后单击保存按钮,工程命名为 ,窗体命名为 。=LCase()=UCase()、、 简单应用题(2 小题,每小题 20 分,共计 40 分) ,相应的窗体文件为 。包含所有控件和部分程序,如图所示。要求:1)利用属性窗口向列表框添加四个项目:Visual Basic,Turbo C,C++,Java;2)请编写适当的程序完成以下功能:当选择列表框中的一项和单选按钮 Option1,然后单击“确定”命令按钮,则文本框中显示“XXX 笔试”;当选择列表框中的一项和单选按钮 Option2,然后单击“确定”命令按钮,则文本框中的一项和单选按钮Option2,然后单击“确定”命令按钮,则文本框中显示“XXX 上机”。其中“XXX”是在列表框中所选择的项目。If =True =()+ 1 页 共 11 页晨曦制作End IfIf =True =()+ If最后单击保存按钮。 ,相应的窗体文件为 。在窗体上已经有一个命令按钮。mand1,标题为“计算并输出”;程序运行后,如果单击命令按钮,程序将计算 500 以内两个数之间(包括开头和结尾的数)所有连续数的和为 1250 的正整数,并在窗体上显示出来,这样的数有多组,程序输出每组开头和结尾的正整数,并用“~”连接起来,如图所示,这个程序不完整,请把它补充完整。要求:去掉程序中的注释符,把程序中的?该为正确的内容,使其实现上述功能,但不得修改程序中的其他部分。最后把修改的文件按原文件存盘。Private mand1_Click()Dim i As Integer, j As Integer, iSum As IntegerPrint "连续和为 1250 的正整数是:"For i = 1 To 500' isum = 0 赋初值For j = i To 500' iSum = j+iSum 进行累加If iSum >= 1250 Then Exit ForNext' If iSum = 1250 Then 和是否为 1250Print i; " ~ "; jEnd IfNextEnd Sub答案为:1)2)j+iSum 3)1250、、 综合应用题(1 小题,计 40 分)在窗体上画一个文本框,名称为 Text1,初始内容为空白,并设置多行显示格式;然后再画两个命令按钮,mand1 mand2,标题分别为“显示”和“保存”,如图所示,编写适当的事件过程。程序运行后,如果单击“显示”命令按钮,则读取考生 目录下的  文件,并在文本框中显示出来,该文件是一种用随机存取方式建立的文件,共有 5 个记录,要求按记录号顺序显示全部记录,第 2 页 共 11 页晨曦制作每个记录一行;如果单击“保存”命令按钮,则把所有记录保存到考生目录下的顺序文件  中。随机文件  中的每个记录包括 3 个字段,分别为姓名、性别和年龄,其名称和长度分别为:Name 字符串 8Sex 字符串 4Age Integer其类型定义为:Private Type StudInfoName As String*8Sex As String*4Age As IntegerEnd Type要求:1) 文件  以顺序存取方式建立和保存。2) 存盘时必须放在考生目录下,工程为 ,窗体文件名为 。Private Type StudInfoName as string*8Sex as string*4Age as integerEnd TypeDim pers as studinfoDim recmum as integer显示按钮脚本:Private mand1_click()Open +”\” for random as #1 Len=len(pers)um=lof(1)/len(pers)ClsFor i=1 to