国家二级VB机试（上机操作）模拟试卷551
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画一个名称为txtInput的文本框，其高、宽分别为500、2500。请在属性框中设置适当的属性满足以下要求：
①txtInput 的字体为“黑体”，字号为“四号”；
②窗体的标题为“输入示例”，不显示最大化按钮和最小化按钮。
运行后的窗体如图1－247所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj1.vbp，窗体文件名为vbsj1.frm。
（2）在名称为Form1的窗体上画两个文本框，名称分别为txtLeft、txtRight，再画两个命令按钮，名称分别为cmdLeft、cmdRight，标题分别为“左”、“右”，如图1－248所示。
第1小题
【操作步骤】
步骤1：新建一个“标准EXE”工程。
步骤2：单击工具箱中的TextBox控件图标，在窗体Form1上按下鼠标左键并拖动到一定位置后松开，画出一个文本框，如图2－7所示。
[*]
步骤3：选定窗体中的文本框，在属性窗口中设置其相关属性，如图2－8所示，属性及值如表2－121所示。
[*]
步骤4：在文本框的属性窗口中点击“Font”属性右侧的按钮，打开“字体”对话框，在其中设置“字体”为“黑体”，“字号”为“四号”。
步骤5：单击窗体无控件区域，在属性窗口中设置窗体相关属性，属性及值如表2－121所示。
步骤6：选择【文件】→【保存工程】命令，打开“文件另存为”对话框，如错误!未找到引用源。所示。在该对话框的“保存在”下拉列表中选择考生文件夹，并在“文件名”文本框中输入vbsj1.frm，单击“保存”按钮，如错误!未找到引用源。，即保存好窗体文件；在接下来的“工程另存为”对话框中，在“文件名”文本框中输入vbsj1.vbp，如错误!未找到引用源。所示，并单击“保存”按钮，即保存好工程文件。
[*]
第2小题
【操作步骤】
步骤1：新建一个“标准EXE”工程，在窗体Form1中画两个文本框和两个命令按钮，分别设置其相关属性，属性及值如错误!未找到引用源。所示。程序界面如图2－11所示。
[*]
步骤2：双击“左”命令按钮，打开代码编辑窗口，在按钮的Click事件过程中输入如图2－12中所示代码。
步骤3：从代码编辑窗口的“对象”下拉列表中选择cmdRight，从“事件”下拉列表如图2－12所示，选择Click，编写以下事件过程。
[*]
参考代码：
Private Sub cmdRight_Click()
txtRight.SetFocus
End Sub
步骤4：按要求将文件保存至考生文件夹中。
解析：
简单应用题
2.（1）在考生目录下有一个工程文件vbsj3.vbp，窗体文件中已给出所有控件和部分程序，如图1－249所示。
第1小题
【操作步骤】
步骤1：打开考生文件夹中的本题工程文件vbsj3.vbp，程序界面如图2－13所示。
[*]
步骤2：依次选中窗体中的两个文本框，将其Alignment 属性值设置为1－Right Justify。
步骤3：双击窗体中的“计算”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。
参考代码：
Private Sub cmdCal_Click()
If optFun(0).Value = True Then
txtResult.Text =
Format(Sin(Val _
(txtInput.Text)*3.14159/180)
-0.0005,\\
解析：
综合应用题
3.在考生的文件夹下有一个工程文件vbsj5.vbp，相应的窗体文件为vbsj5.frm。在窗体上有两个命令按钮，其名称分别为cmdWrite和cmdRead，标题分别为“写通信录”和“读通信录”，如图1－251所示。其中“写通信录”命令按钮事件过程用来建立一个通信录，以随机存取方式保存到文件out5.txt 中；而“读通信录”命令按钮事件过程用来读出文件out5.txt 中的每个记录，并在窗体上显示出来。
通信录中的每个记录由3个字段组成，结构如下：
姓名（Name）电话（Tel）邮政编码（Pos）
LiMingXiang (010)62483772 100095
各字段的类型和长度为：
姓名（Name）：字符串 15
电话（Tel）：字符串 15
邮政编码（Pos）：长整型（Long）
程序运行后，如果单击“写通信录”命令按钮，则可以随机存取方式打开文件out5.txt，并根据提示向文件中添加记录，每写入一个记录后，都要询问是否再输入新记录，回答“Y”（或“y”）则输入新记录，回答“N”（或“n”）则停止输入；如果单击“读通信录”命令按钮，则可以随机存取方式打开文件out5.txt，读出文件中的全部记录，并在窗体上显示出来，如图1－252所示。该程序不完整，请把它补充完整。
【操作步骤】
步骤1：打开考生文件中的本题工程文件vbsj5.vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。
参考代码：
RecNum = RecNum + 1
Put #1, RecNum, Pers
Loop While UCase(asp) = \\
解析：
本文档预览：3600字符，共3366字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
