首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在窗体上建立一个名称为Textl的文本框,然后建立两个主菜单,其标题分别为“编程语言”和“帮助”。名称分别为vbLanguage和vbHelp,其中“编程语言”菜单包括“C++”、“Basic”和“JAVA”三个子菜单,名称分别为vbLanguage
(1)在窗体上建立一个名称为Textl的文本框,然后建立两个主菜单,其标题分别为“编程语言”和“帮助”。名称分别为vbLanguage和vbHelp,其中“编程语言”菜单包括“C++”、“Basic”和“JAVA”三个子菜单,名称分别为vbLanguage
admin
2009-08-26
38
问题
(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全国计算机二级
相关试题推荐
有一个学生选课的关系,其中学生的关系模式为:学生(学号,姓名,班级,年龄),课程的关系模式为:课程(课号,课程名,学时),其中两个关系模式的键分别是学号和课号,则关系模式选课可定义为:选课(学号,______,成绩)。
当使用SomeThreadt=newSomeThread()创建一个线程时,下列叙述中正确的是()。
以下是一个对数据文件进行缓冲输入操作的语句,在语句的下划线处,请填上适当的内容:DatahputStreamdin=newDatanputStream(new【】(newPdehputStngn("e叫oyee.dat")))
下面哪些代码在Java语言中是合法的?()
下列关于char类型的数据的说法中,正确的是()。
下面内容不属于使用软件开发工具好处的是()。
通常,将软件产品从提出、实现、使用维护到不再使用的过程称为【】。
为了向一个Applet传递参数,可以在HTML文件的APPLET标志中使用PAPAM选项。在Applet程序中获取参数时,应使用的方法是()。
已知二叉树后序遍历序列是dabec,中序遍历序列是debac,它的前序遍历序列是()。
在一棵二叉树上第5层的结点数最多是()。
随机试题
企业内外部环境分析中,外部环境、内部环境分析分别包括()。
安全技术交底由()负责实施,实行逐级安全技术交底制度。
工程款(进度款)的叙述错误的一项是()。
勘察、设计、施工、监理单位将本单位在工程建设过程中形成的文件向( )档案管理机构移交。
以现金清偿债务的,若债权人未对债权计提减值准备,债权人收到的现金小于债权账面余额的差额,计入管理费用。()
下列关于股票回购的表述中,正确的有()。
将账簿划分为序时账、分类账、备查账的依据是()。
根据以下资料,回答106~107题。下列说法中,不正确的是()。
balancesheet
下面哪一项不是加德纳的多元智力成分?L)
最新回复
(
0
)