在Form1窗体上绘制一个名称为Textl的文本框,然后建立一个主菜单,标题为“操作”,名称为Op,该菜单有两个子菜单,其标题分别为“显示”和“隐藏”,名称分别为Dis和Hid,编写适当的事件过程。程序运行后,如果单击“操作”菜单中的“显示”命令,则在文本

admin2010-07-13  20

问题 在Form1窗体上绘制一个名称为Textl的文本框,然后建立一个主菜单,标题为“操作”,名称为Op,该菜单有两个子菜单,其标题分别为“显示”和“隐藏”,名称分别为Dis和Hid,编写适当的事件过程。程序运行后,如果单击“操作”菜单中的“显示”命令,则在文本框中显示“计算机考试”;如果单击“隐藏”命令,则隐藏文本框。程序的运行情况如图47—1和图47—2所示。

    注意:保存时必须存放在考生文件夹下,窗体文件名为sjl.frm,工程文件名为sjl.vbp。
    (2)在名为Forml的窗体上绘制一个标签,名为Labl,标题为“请输入一个摄氏温度”;绘制两个文本框,名称分别为Textl和Text2,内容设为空;再绘制一个名为Cmdl的命令按钮,其标题为“华氏温度等于”。编写适当的程序,使得单击“华氏温度等于”按钮时,将Textl中输人的摄氏温度(c)转换成为华氏温度(f),转换公式为:f=c*9/5+32,并显示在Text2中。程序运行结果如图47—3所示。

    注意:程序中不得使用任何变量;文件必须存放在考生文件夹中,窗体文件名为sj2.frm,工程文件名为sj2.vbp。

选项

答案(1)本题主要考查菜单的使用。菜单在“菜单编辑器”中创建;在程序运行时控件是否可见由该控件的Visible属性决定,如果将该属性设置为True时,则对象可见;如果设置为False,则隐藏该控件。 ①建立界面并设置控件属性。程序中用到的控件及其属性见下表: [*] ②编写程序代码。参考代码如下: Private Sub Dis Click() Textl.Text="计算机考试" End Sub Private Sub Hid Click() Textl.Visible=False End Sub ③调试并运行程序。 ④按题目要求存盘。 (2)①新建一个名为Forml的窗体。 ②单击工具箱中的Label控件图标,在窗体上拖拉出一个标签,在其属性窗口设置名称为Labl、Caption属性为“请输入一个摄氏温度”。 ③单击工具箱中的Command Button控件图标,在窗体上拖拉出一个命令按钮,在属性窗口设置该命令按钮名称为Cmdl、Caption为“华氏温度等于”。 ④单击工具箱中的T"extBox控件图标,在窗体上拖拉出两个文本框,在属性窗口将文本框的名称分别设置为Textl和Text2、Text属性设置为空。 ⑤打开代码窗口输入如下代码: Private Sub Cmdl_Click() Dim c As Single.f As Single c=Val(Textl.Text) f=c*9/5+32 text2.Text=CStr(f) End Sub ⑥按要求保存文件即完成本题。

解析
转载请注明原文地址:https://jikaoti.com/ti/jJg0FFFM
0

最新回复(0)