首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在窗体上建立一个名称为Textl的文本框,然后建立两个主菜单,其标题分别为“编程语言”和“帮助”。名称分别为vbLanguage和vbHelp,其中“编程语言”菜单包括“C++”、“Basic”和“JAVA”三个子菜单,名称分别为vbLanguage
(1)在窗体上建立一个名称为Textl的文本框,然后建立两个主菜单,其标题分别为“编程语言”和“帮助”。名称分别为vbLanguage和vbHelp,其中“编程语言”菜单包括“C++”、“Basic”和“JAVA”三个子菜单,名称分别为vbLanguage
admin
2009-08-26
39
问题
(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全国计算机二级
相关试题推荐
在下列JavaApplet程序的下划线处填入代码,使程序三整并能够正确运行。importjava.applet.*;importjava.awt.*;publicclassHelloWofil______{publicvo
当使用SomeThreadt=newSomeThread()创建一个线程时,下列叙述中正确的是()。
下列关于Java布尔类型的描述中,正确的是()。
以下是一个对数据文件进行缓冲输入操作的语句,在语句的下划线处,请填上适当的内容:DatahputStreamdin=newDatanputStream(new【】(newPdehputStngn("e叫oyee.dat")))
【】是Java提供的建立图形用户界面GUI的开发包,它可用于Java的Applet和Application中,它支持图形用户界面的编程。
假设线性表的长度为n,则在最坏情况下,冒泡排序需要的比较次数为()。
以下各项中不属于Java语言流程控制结构的是()。
设有下列二叉树(如下图所示):对此二叉树中序遍历的结果是()。
下列叙述不属于线性链表较之线性表顺序存储结构的优点的是()。
已知二叉树后序遍历序列是dabec,中序遍历序列是debac,它的前序遍历序列是()。
随机试题
使用VC6打开考生文件夹下的工程MyProj13。此工程包含一个源程序文件MyMain12.cpp。程序中定义了两个类Base和Derived,但类的定义并不完整。请按要求完成下列操作,将类的定义补充完成:①定义类shapes的保护成员x和
在进行社会主义改造、向社会主义过渡的进程中,中国共产党积累了丰富的历史经验。中国共产党对资本主义工商业进行和平改造的道路包括()
在我国,以长鼓舞闻名的少数民族是()
尿干化学分析仪检查蛋白质。主要检查
下列选项中,符合Graves病眼征分级标准4级的是
一般来讲,感冒邪在肺卫,辨证属
颌下腺炎长期反复发作,保守治疗无效,颌下能触及硬块,导管及腺体交界处证明有结石,应采取
患者女,45岁。糖尿病史10年,近日有尿频、尿急症状,尿沉渣中有大量白细胞,伴有低烧,考虑诊断为()
该企业上年度产品销售收入4156000元,利润总额458000元,应交所得税151140元,利息支出15000元。本年1月份发生的部分经济业务如下:(1)经批准转销待处理固定资产损失11500元。(2)以银行存款支付本年第一季度财产保险
WriteacompositiononthetopicShouldCarsbeFollowedintoCollegeCampus?Youshouldwriteatleast120wordsfollowingthe
最新回复
(
0
)