首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Form1的窗体上添加一个名称为Label1的标签,使其初始内容为空,且能根据其标题内容自动调整标签的大小;再添加两个命令按钮,标题分别为“日期”和“时间”,名称分别为Command1、Command2。请编写两个命令按钮的Click事件过程,使得
在名称为Form1的窗体上添加一个名称为Label1的标签,使其初始内容为空,且能根据其标题内容自动调整标签的大小;再添加两个命令按钮,标题分别为“日期”和“时间”,名称分别为Command1、Command2。请编写两个命令按钮的Click事件过程,使得
admin
2016-06-23
94
问题
在名称为Form1的窗体上添加一个名称为Label1的标签,使其初始内容为空,且能根据其标题内容自动调整标签的大小;再添加两个命令按钮,标题分别为“日期”和“时间”,名称分别为Command1、Command2。请编写两个命令按钮的Click事件过程,使得单击“日期”按钮时,标签内显示系统当前日期;单击“时间”按钮时,标签内显示系统当前时间。如图所示。
要求:程序中不得使用变量,每个事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
选项
答案
[操作步骤] 步骤1:建立界面,添加相应控件并设置控件的属性。程序中用到的控件及属性见表3.53。 [*] 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 参考代码 Private sub Comand1_Click() Label1=Date’用于返回系统当前日期 End Sub Private sub Command2_Click() Label1=Time’用于返回系统当前时间 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/DcLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程:PrivateSubCommandl_Click()DimnAsIntegern=Val(InputBox(”请输入一个整数:
在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Labell,然后编写如下代码:SubS(xAsInteger,YAsInteger)StaticzAsIntegery=x*x+
有一个数列,它的前3个数为0,1,1,此后的每个数都是其前面3个数之和,即0,1,1,2,4,7,13,24,……要求编写程序输出该数列中所有不超过1000的数。某人编写程序如下:PrivateSubForm_C
设有如下程序:PrivateSubForm_Click()Dimary(1To5)AsIntegerDimiAsIntegerDimsumAsIntegerFori=1To5
在窗体上画一个名称为List1的列表框,列表框中显示若干城市的名称。当单击列表框中的某个城市名时,该城市名消失。下列在List1_Click事件过程中能正确实现上述功能的语句是
在窗体上面一个命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click()MsgBoxStr(123+321)EndSub程序运行后,单击命令按钮,则在信息框中显示的提示信息为
在执行KeyPress事件过程时,KeyAscii表示所按键的盟值。
决定一个窗体有无控制菜单的属性是______。
请填写下列空白以实现运行后形成一个主对角线上元素值为l,其他元素为0的6×6阶矩阵。PrivateSubCommand1_Click()Dims(6,6)Fori=1To6Fori=1To6If
随机试题
造影剂的第一次谐波反射,也称为
下列哪项不是导致骨折延迟愈合或不愈合的因素
诊断尿路感染下列哪项最有意义
治疗百日咳应首选
某市政建设集团公司第一项目经理部负责某污水处理厂工程施工,该项目主要包括泵站、集水池、输水管道等单位工程。集水池顶板采用一种刚问世的新型防护材料涂层,被涂层由项目部分包给一专业公司施工。施工过程中,项目部在工程量清单中没有围墙及厂区排水工程,遂向建设单位
软件是计算机系统的灵魂,计算机系统总体性能的高低,除了硬件系统性能之外,在很大程度上取决于软件系统的配置。()
虚有其表:表里如一:名副其实
就a,b的不同取值,讨论方程组解的情况.
既然不能去,你______早点儿告诉我。
【C1】______inawarispainfultoanynation.Nonationswantstosenditsyoungpeopletofightanddie.Itisevenworsewhent
最新回复
(
0
)