首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 在名称为Form1、标题为“菜单演示”的窗体上画一个名称为Label1、标题为空的标签;再建立一个菜单,各菜单项的属性设置见下表。窗体外观如图3-108(a)所示。
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 在名称为Form1、标题为“菜单演示”的窗体上画一个名称为Label1、标题为空的标签;再建立一个菜单,各菜单项的属性设置见下表。窗体外观如图3-108(a)所示。
admin
2019-05-28
52
问题
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
在名称为Form1、标题为“菜单演示”的窗体上画一个名称为Label1、标题为空的标签;再建立一个菜单,各菜单项的属性设置见下表。窗体外观如图3-108(a)所示。
请编写适当的程序,使得选中“输出窗体标题”菜单项时,就在标签中显示窗体标题;选中“输出当前时间”菜单项时,在标签中显示当前系统时间(如图3-108(b)所示)。要求程序中不得使用变量,每个事件过程中只能写一条语句。
注意:存盘时,将文件保存至考生文件夹下,窗体文件名为sjt2.frm,工程文件名为sjt2.vbp。
选项
答案
审题分析 本题除了按照要求设置控件的属性以及菜单之外,还需要编写菜单项事件,把窗体标题和当前时间显示在标签中。 操作步骤 步骤1:新建一个“标准EXE”工程,选择【工具】→【菜单编辑器】命令,打开菜单设计器,按要求设置建立菜单项。 步骤2:打开代码编辑窗口,编写两个底层菜单命令的单击事件过程。 参考代码: Private Sub Clock_Click() Label1.CaDtion=Time End Sub Private Sub Title_Click() Label1.Caption=Form1.Caption End Sub 步骤3:按要求将文件保存至考生文件夹中。 考点链接 菜单。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/8PUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
命令按钮不支持的事件为
为使文本框具有初始值“VB”,在设计阶段正确的操作是
在名称为Form1的窗体上添加一个名称为Label1、标题为“设置速度”的标签,通过属性窗口把标签的大小设置为自动调整。添加一个名称为HScroll1的水平滚动条,通过属性窗口设置适当属性使滚动条的最小值为1,最大值为80,单击滚动条两端的箭头时,滚动框移
在VisualBasic中,表达式3*2\5Mod3的值是()。
在名称为Fralnel的框架中,有两个名称分别为op1、op2的单选按钮,标题分别为“单程”、“往返”,如图所示。以下叙述中,正确的是()。
下列关于数据库设计的叙述中,正确的是()。
在名称为Form1的窗体上添加一个标签(名称为Label1,标题为空白,BorderStyle属性为1,Visible属性为False)、一个文本框(名称为Text1,Text属性初始内容为空)和一个命令按钮(名称为Command1,标题为“显示”),如图
假定有以下函数过程:FunctionFun(SAsString)AsStringDimslAsStringFori=1ToLen(S)sl=LCase(Mid(S,i,1))+s1Nex
要求当鼠标在图片框P1中移动时,立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是()。
随机试题
糖尿病非酮症高渗昏迷的诊断依据是
患者男,63岁,上颌全牙列缺失。下颌多数牙缺失,仅余。牙槽嵴丰满,间距离正常患者反映戴义齿恶心,可能的原因是
治疗目赤肿痛的穴组是
10月男婴,血象白细胞数10×109/L中性粒细胞占60%,淋巴细胞占35%,单核细胞占2%,以下哪一个结论是正确的
工作接地一般指用作________的接地。()
下列各项属于纳税人权利范围的有()。(2013年)
以下属于教师条件性知识的是()。
史诗是人类最早的精神产品,对我们了解早期人类社会具有重大意义。()是流传迄今的欧洲最完整的一部史诗。
Feelingthefreshearlymorningairrushingagainstmychurninglegs,arms,andspeeding
Studiesshowthatlaughterissomethingthatmakesyoufeelcalmorrelaxedforbothphysicalandpsychologicalwoundsthough
最新回复
(
0
)