1、二级 VISUAL+BASIC 机试-51 及答案解析(总分：50.00，做题时间：90 分钟)1.在考生文件夹下完成如下简单应用。1有一个 ylc5.vbp，只有一个窗体 Form1，需要创建 Form2。在窗体 Form1 上建立 Command1 和 Command2两个命令按钮，标题分别为“隐藏启动窗体”和“关闭窗体”。在窗体 Form2 上创建标题为“打开窗体1”的按钮。将 Form2 设为启动窗体，单击 Form2 上的按钮，则显示 Form1 窗体：若单击 Form1 上的“隐藏启动窗体”按钮，则 Form2 消失。若单击 Form1 上的“关闭窗体”按钮，则 Form1 和 F
2、orm2 都消失，退出程序。（分数：25.00）_2.有一个工程文件 ylc6.vbp，请在窗体中画一个组合框和一个命令按钮。程序的功能是在运行时，如果在组合框中输入一个项目并单击命令按钮，则搜索组合框中的项目；如果已有此项，则弹出提示：“已有此项”，之后清除输入的内容。界面如图 20 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 ylc6.vbp，窗体文件名为 ylc6.frm。（分数：25.00）_二级 VISUAL+BASIC 机试-51 答案解析(总分：50.00，做题时间：90 分钟)1.在考生文件夹下完成如下简单应用。1有一个 ylc5.vbp，只有一个窗体 Form1，
3、需要创建 Form2。在窗体 Form1 上建立 Command1 和 Command2两个命令按钮，标题分别为“隐藏启动窗体”和“关闭窗体”。在窗体 Form2 上创建标题为“打开窗体1”的按钮。将 Form2 设为启动窗体，单击 Form2 上的按钮，则显示 Form1 窗体：若单击 Form1 上的“隐藏启动窗体”按钮，则 Form2 消失。若单击 Form1 上的“关闭窗体”按钮，则 Form1 和 Form2 都消失，退出程序。（分数：25.00）_正确答案：(操作步骤(1)在 Visual Basic 集成环境选择“文件”“打开工程”命令，在对话框中选择 ylc6.Vbp 工程文件
4、，单击“确定”按钮。(2)在工具箱中选择命令按钮，用鼠标在窗体 Form1 上拖动，创建两个命令按钮。在属性窗口分别设置它们的名称(Name 属性)为 Command1 和 Command2，标题(Caption 属性)为“隐藏启动窗体”、“关闭窗体”。(3)在菜单栏选择“工程”“添加窗体”命令，弹出对话框如图 33 所示。单击“打开”按钮，在工程框中生成 Form2 的窗体。*(4)选择命令按钮，在上面 Form2 窗体创建一个命令按钮，设置名称为 Command1，标题为“打开窗体 1”。(5)为设置 Form2 启动窗体做如下的操作：1)从“工程”菜单中选择“工程属性”命令，弹出如图 3
5、4 所示的界面。*2)选择“通用”属性页，在“启动对象”中选择 Form2，单击“确定”按钮，设置该窗体为启动窗体。2行为编码(1)用鼠标单击窗体 Form1，出现 Form1 的代码窗口。选择 Command1 按钮的 Click 事件，代码如下：Private Sub Command1_Click()Form2.HideEnd Sub(2)在 Form1 的代码窗口内选择 Command2 按钮的 Click 事件，代码如下：Private Sub Command2_Click()卸载窗体 2Unload Form2卸载自身也即窗体 1Unload MeEnd Sub(3)用鼠标单击窗体
6、Form2，出现 Form2 的代码窗口。选择 Command1 按钮的 Click 事件，代码如下；Private Sub Command3_Click()Form1.ShowEnd Sub3存盘保存执行“文件”“保存工程”命令，工程文件名为 ylc5.vbp，窗体文件名为 ylc5-1.frm， ylc5-2.frm。)解析：解析 (1)本题考查多窗体的应用创建、不同窗体上的命令按钮事件、控制两个窗体的显示、应用程序的结束控制以及如何在工程窗口中设置启动窗口。(2)注意 Form 对象的 Show 方法，End 应用结束控制。(3)通过调用 Form2 的 Hide 方法隐藏 Form2
7、窗体，通过 Unload 方法关闭窗体 1 和窗体 2，通过调用Form1 的 Show 方法显示 Form1 窗体。2.有一个工程文件 ylc6.vbp，请在窗体中画一个组合框和一个命令按钮。程序的功能是在运行时，如果在组合框中输入一个项目并单击命令按钮，则搜索组合框中的项目；如果已有此项，则弹出提示：“已有此项”，之后清除输入的内容。界面如图 20 所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 ylc6.vbp，窗体文件名为 ylc6.frm。（分数：25.00）_正确答案：(操作步骤(1)在 Visual Basic 集成环境中选择“文件”“打开工程”命令，在对话框中选择 yl
8、c6.vbp 工程文件，单击“确定”按钮打开。(2)选择工具中的 ComboBox 控件，在窗体中画命名为 Combol1 的组合控件。在属性窗口分别设置它们的名称、Text 属性为空。(3)在属性编辑框中设置 Comboll 组合控件的 List 属性，其初始数据为“语文”、“数学”、“英语”、“物理”、“化学”、“生物”、“历史”、“政治”和“地理”。(4)在工具箱中选择命令按钮控件，在窗体上拖动创建并命名为 Command1，标题为“确定”。2行为编码在代码框选择 Command1 对象和 Click 事件，代码如下：Private Sub Command1_Click()For i=0
9、 To Combol. ListCount-1If Combol.List(i)=Combol.Text Then清除输入内容Combol.Text=“ “MsgBok(“已有此项“)End IfNext iEnd Sub3存盘保存执行“文件”“保存工程”命令，工程文件名为 ylc6.vbp，窗体文件名为 ylc6.frm。)解析：解析 (1)这是一道简单的应用题，主要考查 ComboBox 控件的相关特性、数据的初始化、项目的多少、程序设计中循环结构的编程，以及程序中提示信息对话框的使用。(2)代码中使用组合控件的 ListCount 属性，得到控件数据的个数，使用 Combol1 的 List 属性得到Combol1 内某项字符中的值。在 For.Next 循环中将输入的字符串与 Combol1 内的字符串逐个比较。如果输入的字符串在控件中已存在，则使用 MsgBox 信息提示框显示提示信息。
