[计算机类试卷]国家二级VB机试（上机操作）模拟试卷294及答案与解析.doc

《[计算机类试卷]国家二级VB机试（上机操作）模拟试卷294及答案与解析.doc》由会员分享，可在线阅读，更多相关《[计算机类试卷]国家二级VB机试（上机操作）模拟试卷294及答案与解析.doc（7页珍藏版）》请在麦多课文档分享上搜索。

1、国家二级 VB机试（上机操作）模拟试卷 294及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上画一个文本框，其名称为 T1，宽度和高度分别为 1400、400；再画两个命令按钮，其名称分别为 C1和 C2，标题分别为 “显示 ”和 “扩大 ”，编写适当的事件过程。程序运行后，如果单击 C1命令按钮，则在文本框中显示“等级考试 ”，如图 3107(a)所示；如果单击 C2命令按钮，则使文本框在高、宽方向上各增加一倍，文本框中的字体大小扩 大到原来的 3倍，如图 3107(b)所示。注意：要求

2、程序中不得使用变量。存盘时必须存放在考生文件夹下，工程文件名为 sit1 vbp，窗体文件名为 sit1 frm。 (2)在名称为 Form1的窗体上画一个命令按钮，其名称为 C1，标题为 “转换 ”；然后再画两个文本框，其名称分别为 Text1和 Text2，初始内容均为空白，编写适当的事件过程。程序运行后，在 Text1中输入一行英文字符串，如果单击转换按钮，则 Text1文本框中的字母都变为小写，而 Text2中的字母都变为大写。例如，在 Text1中输入 visual basic programming，则单击转换按钮后，结果如图 3108所示。 注意：不得使用任何变量。存盘时必须存放

3、在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sit3 vbp，相应的窗体文件为 sjt3 frm，包含了所有控件和部分程序，如图 3109所示。要求如下： 利用属性窗口向列表框添加四个项目： Visual Basic、 Turbo C、 C+、 Java。 请编写适当的程序完成以下功能：当选择列表框中的一项和单选 按钮 Option1，然后单击 “确定 ”按钮，则文本框中显示 “笔试 ”；当选择列表框中的一项和单选按钮 Option2，然后单击“确定 ”按钮，则文本框中显示 “上机 ”。其中 “”是在列

4、表框中所选择的项目。注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须至少要进行一次选择操作 (包括列表框和单选按钮 )，否则不得分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 frm。在窗体上有一个命令按钮，其名称为 Command1，标题为 “计算并输出 ”。程序运行后，如果单击命令按钮，程序将计算 500以内两个数之间 (包括开头和结尾的数 )所有连续数的和为 1250的正整数，并在窗体上显示出来。这样的数有多组，程序输出每组开头和结尾的正整数，并用 “

5、 ”连接起来，如图 3110所示。该程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的 “?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。 三、综合应用题 3 在窗体上画一个文本框，其 名称为 Text1，初始内容为空白，并设置成多行显示格式；然后再画两个命令按钮，其名称分别为 Command1和 Command2，标题分别为 “显示 ”和 “保存 ”，如图 3111所示，编写适当的事件过程。程序运行后，如果单击 “显示 ”按钮，则读取考生文件夹下的 in5 txt文件，并在文本框中显示出来，该文件是一个用随机存取方式建立

6、的文件，共有 5个记录，要求按记录号顺序显示全部记录，每个记录一行；如果单击 “保存 ”按钮，则把所有记录保存到考生文件夹下的顺序文件 out5 txt中。随机文件 in5 txt中的每个记录包括三个 字段，分别为姓名、性别和年龄，其名称和长度分别为：其类型定义为： Private Type StudInfoName As String*8Sex As String*4Age As IntegerEnd Type要求：文件 out5 txt以顺序存取方式建立和保存。存盘时必须存放在考生文件夹下，工程文件名为 sjt5 vbp，窗体文件名为 sjt5 frm。 国家二级 VB机试（上机操作）模拟

7、试卷 294答案与解析 一、基本操作题 1 【正确答案】 第 1小题步骤 1：新建一个 “标准 EXE”工程，如表 465在 窗体中画出控件并设置其相关属性。 步骤2：打开代码编辑窗口，编写两个命令按钮的单击事件过程。参考代码： Private Sub C1_Click()T1=“等级考试 “End SubPrivate Sub C2_Click()T1 Height=2*Me T1 HeightT1 Width=2*T1 WidthT1 FontSize=3*Form1 T1 FontSizeEnd Sub步骤 3：按要求将文件保存至考生文件夹中。第 2小题步骤 1：新建一个 “标准 EXE

8、”工程，如表 466在窗体中画出控件并设置其相关属性 。 步骤 2：打开代码编辑窗口，编写命令按钮的单击事件过程。参考代码： Private Sub C1_Click()Text1 Text=LCase(Text1 Text)Text2 Text=UCase(Text1 Text)End Sub步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题：要在单击 “扩大 ”按钮时，使文本框在高、宽方向上各增加一倍，只需在 “扩大 ”按钮的 Click事件中编写设置文本 框的 Height和 Width属性值为原来 2倍的语句。要使文本框中的字体大小扩大到原来的 3信，需编写设置文本框

9、的 FontSize属性值为原来 3倍的语句。 第 2小题：本题源程序是在命令按钮的单击事件过程中，将文本框 Text1中的字符用 UCase函数转换为大写并显示在 Text2中，同时用 LCase函数转换为小写并显示在 Text1中。 二、简单应用题 2 【正确答案】 第 1小题 步骤 1：打开考生文件夹下的工程文件 sjt3 vbp，在窗体上选中列表框，为其 List属性输入四个项目： Visual Basic、 TurboC、 C+、 Java，注意每输入一项后用Ctrl + Enters键换到下一项输入。 步骤 2：打开代码编辑窗口，编写 “确定 ”按钮的单击事件过程。 参考代码： I

10、f Option1 Valoe And List1 Text “ “ Then Text1 Text=List1 Text& Option1 Caption Else If Option2 Value And List1 Text “ “Then Text1 Text=List1 Text&Option2 Captio n End If End If 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按 F5键运行程序，在列表框中选择一项，并选中一个单选按钮，单击“确定 ”按钮。单击窗体右上角的关闭按钮结束程序。 第 2小题 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代

11、码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： iSum=0 iSum=iSum+j If iSum=1250Then 步骤 2：按要求将文件保存至考尘文件夹中。 【试题解析】 第 1小题：本题根据是选择 “笔试 ”或 “上机 ”分为 两种情况，若选择“笔试 ”则在文本框中显示列表框的 Text属性值与单选按钮 Option1的 Caption属性值的组合内容；若选择 “上机 ”则在文本框中显示列表框的 Text属性值与单选按钮 Option2的 Caption属性值的组合内容。 第 2小题：程序设计思路：按顺序让 1 500中的每一个数都与它之后的所有的数逐

12、一相加，在相加过程中若累加和等丁或超过 1250时，则停止该组数继续相加，并将和等于 1250的该组数的开头和结尾的数按题目要求输出。源程序使用嵌套For循环完成上述功能，变量 iSum用于记录每组数累加时的和 ，其初值应为 0；表达式 iSum=iSum+i用于实现累加功能；当累加和正好等于 1250时，输出该组数的开头和结尾的数，即 i和 j。 三、综合应用题 3 【正确答案】 步骤 1：新建一个 “标准 EXE”工程，如表 467在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写相应事件过程。参考代码： Private Type StudInfoName As Stri

13、ng*8Sex As String*4Age As IntegerEnd TypeDim Stud As StudInfoDim RecNum As LongPrivate Sub Command1_Click()Open App Path&“ in5 txt“For RandomAs#1Len=Len(Stud)RecNum=1Do While Not EOF(1)Get#1， RecNum，StudText1 Text=Text1 Text&Stud NameText1 Text=Text1 Text&Stud SexText1 Text=Text1 Text&Str(Stud Age)T

14、ext1 Text=Text1 Text+vbCrLfRecNum=RecNum+1LoopClose1End SubPrivate Sub Command2_Click()Open App Path&“kout5 txt“For OutputAs#1Print#1， Text1 TextClose1End Sub步骤3：按要求将文件保存至考生文件夹中。 【试题解析】 本题程序设计思路：在 “显示 ”按钮的单击事件过程中，用 Open语句以随机方式打开数据文件 in5 txt，并用 Get读出一条记录显示在文本框中，随后读取下一条记录，直到所有的记录都读取完毕；在 “保存 ”按钮的单击事件过程中，用 Open语句以 Output方式打开数据文件 out5 txt，并用 Print#方法将文本框中的值存入该文件。