国家二级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版点下载