首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在窗体上建立一个名称为Textl的文本框,然后建立两个主菜单,其标题分别为“编程语言”和“帮助”。名称分别为vbLanguage和vbHelp,其中“编程语言”菜单包括“C++”、“Basic”和“JAVA”三个子菜单,名称分别为vbLanguage
(1)在窗体上建立一个名称为Textl的文本框,然后建立两个主菜单,其标题分别为“编程语言”和“帮助”。名称分别为vbLanguage和vbHelp,其中“编程语言”菜单包括“C++”、“Basic”和“JAVA”三个子菜单,名称分别为vbLanguage
admin
2009-08-26
32
问题
(1)在窗体上建立一个名称为Textl的文本框,然后建立两个主菜单,其标题分别为“编程语言”和“帮助”。名称分别为vbLanguage和vbHelp,其中“编程语言”菜单包括“C++”、“Basic”和“JAVA”三个子菜单,名称分别为vbLanguagel、VbLanguage2和vbLanguage3。程序运行后,如果在“编程语言”的下拉菜单中选择“C++”,则在文本框内显示“指针”;如果选择“Basic’’,则在文本框内显示“对话框”;如果选择“JAVA”,则在文本框内显示“对象”。程序中不能使用任何变量,直接显示
字符串。程序运行后,选择“编程语言”的“C++”选项,则界面如图46—3所示。
注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sj3.Vbp。
(2)在考生文件夹中有文件sj4.vbp及其窗体文件sj4.frm,该程序是不完整的。窗体上有一个名称为Textl的文本框;两个复选框,名称分别为Check1和Check2,标题分别为“足球”和“篮球”。要求程序运行后,如果只选中Checkl,单击窗体,则在文本框中显示“我的爱好是足球”;如果只选中Check2,然后单击窗体,则在文本框中显示“我的爱好是篮球”;如果同时选中Checkl和Check2,单击窗体,则在文本框中显示“我的爱好是足球和篮球”;如果Checkl和Check2都不选取,在单击窗体后,则在文本框中什么都不显示。如程序运行选中两项时,界面如图46—4所示。
注意:请在有“?”的地方填入正确内容,然后删除“?”及所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件夹和文件名。
选项
答案
(1)在Visual Basic中,菜单也被看做控件,具有属性和事件。菜单的建立在菜单编辑器中完成,菜单的级数通过内缩符号来表示,第一级菜单没有内缩符号,第二级菜单的内缩符号为1;文本框的内容由Text属性设置。根据题意,按“Ctrl+E”组合键打开菜单编辑器,在其中添加如下菜单项: [*] 单击“确定”按钮,完成菜单编辑。再将一个文本框控件添加到窗体中,将其名称设为Textl,在代码窗口中编写如下代码: Private Sub vbLanguagel_Click(Index As Integer)’C++选项 Textl.Text="指针" End Sub Private Sub vbLanguage2_Click(Index As Integer) ’Basic选项 Textl.Text="对话框" End Sub Private Sub vbLanguage3_Click(Index As Integer) ’JAVA选项 Textl.Text="对象" End Sub 单击[*]按钮运行程序,并按要求保存。 (2)在Visual Basic中,复选按钮的标题由Caption属性设置,Value属性用来表示复选框的状态,复选框的Value属性有0.1或2三种取值,0表示未选中;1表示选中该复选框;2表示该复选框被禁止(灰色)。 根据题意,将一个文本框控件和两个复选框添加到窗体中.文本框控件的名称设为Textl,复选框的名称分别设为Checkl和Check2,Caption属性分别设为“足球”和“篮球”。双击复选框进入代码窗口.补充后的具体代码如下: Private Sub Checkl Click() Form_Load End Sub Private Sub Check2 Click() Form_Load End Sub Private Sub Form Load() Dim str As String If Checkl.
Value
=1 Or Check2.
Value
=1 Then str="我的爱好是" If Checkl.
Value
=l Then str=str+Checkl.
Caption
End If If Check2.
Value
=1 Then If Checkl.
Value
=1 Then str=str+"和"+Check2.
Caption
Else str=str+Check2.
Caption
End If End If Else str="" End If Textl.Text=str End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/cc1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果应用程序要在Applet上显示输出,则必须重写的方法是(.)。
二元算术表达式的两个操作数全是short类型的数据,则表达式的结果是()。
构造方法的作用是()。
程序流程图中的箭头代表的是()。
查找随机文件的记录时,应使用的方法是()。
下面这段程序是基于AWT的Applet用户界面,请根据提示在程序中的画线处填入正确的语句使程序能够正确运行。importjava.applet.Applet;importjava.awt.TextField;publiccla
为用户与数据库系统提供接口的语言是()。
一个javaapplication源程序文件名为myjavaapplication.java,如果使用SUH公司的java开发工具jdk编译该源程序文件并使用其虚拟机运算这个程序的字节码文件,则应该首先执行的命令是:【】。
用AWT组件实现单选按钮功能,使用的组件是()。
已知如下的命令执行javaMyTestabc,下列()语句是正确的。
随机试题
美国作家海明威的代表作有()。
某旅游商品销售商店强制游客消费,请问该商店违反的是合同法原则中的()。
常用的反映肾小球滤过功能的血清标志物为
某工程,建设单位与甲施工单位签订了施工总承包合同,并委托一家监理单位实施施工阶段监理。经建设单位同意,甲施工单位将工程划分为A1、A2标段,并将A2标段分包给乙施工单位。根据监理工作需要,监理单位设立了投资控制组、进度控制组、质量控制组、安全管理组、合同管
溶于挥发性有机溶剂中的丙烯酸聚合物,丙烯酸聚合物占溶液总重量的45%
甲公司是乙公司的全资子公司,2015年10月1日甲公司向乙公司出售一项专有技术,该专有技术在甲公司的账面价值为2100万元,公允价值为1500万元。双方预计此专有技术尚可使用5年,预计净残值为0,采用直线法计提摊销。甲、乙公司适用的所得税税率均为25%,不
项目进度计划(ProjectScheduling)是根据实际条件和合同要求,以拟建项目的竣工投产或交付使用时间为目标,按照合理的顺序安排的实施日程,是执行项目工作和达到里程碑目标的日期计划,其实质是把各工作的时间估计值反映在逻辑关系图上。项目进度计划的制
根据《中华人民共和国未成年人保护法》的规定,学校、幼儿园的教职员应当尊重未成年人的(),不得对未成年人和儿童实施体罚、变相体罚。
某地发生登革热疫情,单位让你负责处理疫情,但当地民众对此不以为然,对如何防控疾病也没有认真对待,请问你该如何处理?(2011年7月23日海南省公务员面试真题)
Afterthestormnothing______ofthehouse.Itreally______usmuchtothinkabout.
最新回复
(
0
)