1、VB机试模拟试卷 148及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个命令按钮，其名称为 Commandl，如图 1-130(a)所示，然后通过属性窗口设置窗体和命令按钮的属性，实现如下功能： 窗体标题为 “设置按钮属性 ”： 命令按钮的标题为 “等级考试 ”； 程序运行后，命令按钮不显示： 命令按钮的标题用三号常规黑体显示。程序的运行情况如图 1-130(b)所示。要求：不编写任何代码。注意：存盘时必须存放 在考生文件夹下，工程文件名为sjtl vbp，窗体文件名为 s
2、jtl frm。(2)在名称为 Forml的窗体上画一个标签，其名称为 Labell，在属性窗口中把 BorderStyle属性设置为 1，如图 1-131(a)所示，编写适当的事件过程。程序运行后，如果单击窗体，则可使标签移到窗体的右上角 (只允许在程序中修改适当属性来实现 )。程序运行情况如图 1-13l(b)所示。要求：不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题（ 40分） 2 (1)在考生目录下有一个工程文件 sjt3 vbp，窗体上有一个圆和一条直线 (直线的名称为 Linel)构成一个钟表的图
3、案；有两个命令按钮，名称分别为 Commandl、Command2，标题分别为 “开始 ”、 “停止 ”；还有一个名为 Timerl的计时器。程序运行时，钟表指针不动，单击 “开始 ”按钮，则钟表上的指针 (即 Linel)开始顺时针旋转(每秒转 60，一分钟转一圈 )；单击 “停止 ”按钮，则指针停止旋转。运行时的窗体如图 1-111所示。请设置计时器的适当属性，使得每秒激活计时器的 Timer事件一次，并编 写两个按钮的 Click事件过程。文件中已经给出了所有控件和部分程序，不得修改已有程序和其他控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后把修改后的文件按原文件名存盘
4、。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在 Textl中输入若干个大写和小写字母，并选中一个单选按钮，再单击 “转换 ”按钮，则按选中的单选按钮的标题进行转换，结果放入 Text2(如图 1-112所示 )。在给出的窗体文件中已经给出了全部控件，但程序不完整，要求：去掉 程序中的注释符，把程序中的 ?改为正确的内容。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 三、综合应用题（ 30分） 3 在窗体上画一个文本框，其名称为 Textl，初始内容为空白，并设置成多行显示格式；然后再画两个命令按钮，其名
5、称分别为 Commandl和 Commantt2，标题分别为 “显示 ”和 “保存 ”，如图 1-185所示，编写适当的事件过程。程序运行后，如果单击 “显示 ”按钮，则读取考生文件夹下的 in5 txt文件，并在文本框中显示出来，该文件是一个用随机存取方式建立的文件，共有 5个 记录，要求按记录号顺序显示全部记录，每个记录一行；如果单击 “保存 ”按钮，则把所有记录保存到考生文件夹下的顺序文件 out5 txt中。随机文件 in5 txt中的每个记录包括三个字段，分别为姓名、性别和年龄，其名称和长度分别为： 其类型定义为： PriVateTypeStudInfoNameAsString*8S
6、exAsString*4AgeAsIntegerEndType要求：文件 out5 tKt以顺序存取方式建立和保存。存盘时必须存放在考生文件夹下，工程文件名为 sjt5 vbp，窗体文件名为 sjt5 frm。 VB机试模拟试卷 148答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 l小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，在窗体Forml中画一个命令按钮，并设置它的相关属性，其属性及值如表 2-72所示。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 2-73在窗体中画出控件并设置其相关
7、属性。步骤 2：打开代码编辑窗口，编写窗体的单击事件过程。 参考代码： Private Sub Form_Click() Label1 Top=0 Labell Left=-Forml Labell Width+ Me Width End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 本题只需按要求画出控件并设置其相应属性即可。 第 2小题 控件的 Top和 Left属性用于设置控件在窗体中的位置。 要在单击窗体时使标签移到窗体右上角，只需在其单击事件中令 Top属性为 0，Left属性等于窗体的宽度减去标签的宽度。 二、简单应用题（ 40分） 2 【正确答案】
8、 第 1小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjl3 vbp，在属性设置窗口，设置计时器的 Interval属性值为 1000， Enabled属性值为 False。 步骤 2：在代码编辑窗口，编写 “开始 ”和 “停止 ”按钮的单击事件过程。 参考代码： PriVate Sub Command1_Click() Timerl Enabled=True End Sub PriVate Sub Command2_Click() Timerl Enabled=False End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生
9、文件中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： a=Mid$(Textl Text， k， 1) ch=ch+LCase(a) Text2=ch 步骤 2：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 计时器控件用于实现在规定的时间间隔触 发 其 Timer事件，执行有关事件过程代码，来完成对应功能。 Interval属性用于设置触发计时器的 Timer事件的时间间隔， 单位为毫秒，值为 0时计时器不启用。 Enabled属性控制计时器是否开始启用，值为 True时表示启用，值为 False时表示不启用
10、。 本题通过计时器的 Timer事件来控制直线控件的位置，从而实现钟表上的指针旋转的功能。为使计时器的 Timer事件每秒激活一次需将计时器的 Interval属性值设置为 1000;为使程序刚运行时钟表指针不动需将 Enabled属性值设置为False。在 “开始 ”按钮的单击事件过程中，通过设置计时器的 Enabled属性值为True来启动计时器。在 “停止 ”按钮的单击事件过程中，通过设置计时器的Enabled属性值为 False来停止计时器。 第 2小题 UCase()函数用于将字符串中小写字母转换为大写字母，原本大写或非字母字符保持不变。 LCasel()函数用于将字符串中大写字母转
11、换为小写字母，原本小写或非字母字符保持不变。 本题原程序是在命令按钮的单击事件过程中，用 For循环语句和 Mid函数逐一取出文本框 Textl中的字符后，根据单选按钮的选 择进行相应转换；当选择 “大写转小写小写转大写 ”时，如果是小写字母就用 UCase函数转换为大写，如果是大写字母就用 LCase函数转换为小写，如果不是字母就不用转换；当选择 “全部大写 ”时，就用 LCase函数将文本框中所有字母转换为大写；当选择 “全部小写 ”时，就用 LCase函数将文本框中所有字母转换为小写。将转换结果显示在文本框 Text2中。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤
12、 1：新建一个 “标准 EXE”工程，如表 2-104在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑 窗口。编写相应事件过程。 参考代码： Private Type StudInfo Name As String * 8 Sex As String *4 Age AS Integer End Type Dim Stud As StudInfo Dim ReCNum As Long Private Sub Commandl C1ick() Open App Path&“ in5。txt“For Random As#1 Len=Len(Stud) RecNum=1 Do While N
13、ot EOF(1) Get#1，RecNum， Stud Textl Text=Textl Text&Stud Name Textl Text=Textl Text&Stud Sex Textl Text =Textl Text & Str(Stud Age) Textl Text=Textl Text+vbCrLf RecNum=RecNum+1 Loop Close 1 End Sub Private Sub Command2_Click() Open App Path&“ out5 txt“For Output As#1 Print#1，Textl Text Close 1 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 程序设计思路：在 “显示 ”按钮的单击事件过程中，用 Open语句以随机方式打开数据文件 in5 txt，并用 Get读出一条记录显示在文本框中，随后读取下一条记录，直到所有的记录都读取完毕：在 “保存 ”按钮的单击事件过程中，用 Open语句以 Output方式打开数据文件 out5 txt，并用 Print撑方法将文本框中的值存入该文件。
