首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序: Private Sub func(L As Label) L.Caption="1234" End Sub Private Sub Form
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序: Private Sub func(L As Label) L.Caption="1234" End Sub Private Sub Form
admin
2015-08-28
54
问题
在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序:
Private Sub func(L As Label)
L.Caption="1234"
End Sub
Private Sub Form_Load()
Label1.Caption="ABCDE"
Label2.Caption=10
End Sub
Private Sub Command1_Click()
a=Val(Label2.Caption)
Call func(Label1)
Label2.Caption=a
End Sub
程序运行后,单击命令按钮,则在两个标签中显示的内容分别为( )。
选项
A、ABCD和10
B、1234和100
C、ABCD和100
D、1234和10
答案
D
解析
程序运行,窗体加载时设置Label1显示为ABCD,Label2显示为10。单击命令按钮,执行按钮的单击事件过程,过程中Val函数将Label2的标题字符串转换为数值赋给变量a,此时a的值为10,然后调用func过程传入Label1为参数,func过程中设置Label1的标题为"1234",回到按钮单击事件过程,设置Label2的标题为变量a的值,即10。因此两个标签中显示的内容分别为1234和10。
转载请注明原文地址:https://kaotiyun.com/show/BhLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如图16-10所示.在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第
若有一个动态数组a有两个元素a(0)和a(1),现要令数组a有三个元素a(0)、a(1)和a(2),则应当使用【】语句。
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:FunctionFunc(ByValxAsInteger,yAsInteger)y=x*yIfy>0Then
在用菜单编辑器设计菜单时,必须输入的项是______。
以下控件可以用来实现定时地执行某段代码的是______。
ScrollBars属性用来设置文本框是否含有滚动条,要设置该属性,______属性的值必须设置为True。
数据库系统的三级模式分别为【】模式、内部级模式与外部级模式。
面向对象的程序设计方法中涉及的对象是系统中用来描述客观事物的一个【】。
符号%是声明______类型变量的类型定义符。
在考生文件夹中有一个工程文件execise29.vbp,相应的窗体文件为execise29.frm。在名为Form1的窗体上有一个命令按钮和一个文本框(如下图所示)。程序运行后,单击命令按钮,即可计算出0~1000范围内不能被7整除的整数的个数,并在文本框
随机试题
咯血患者不应出现的状况是()
引起心绞痛与急性心肌梗死疼痛的原因是
风力发电机组每次频率低于49.5Hz时,要求机组能()。
根据有关设计规范要求,城市标志性建筑其主体结构的耐久年限应为()。
某承包商在混凝土重力坝施工过程中,采用分缝分块常规混凝土浇筑方法。由于工期紧,浇筑过程中气温较高,为保证混凝土浇筑质量,承包商积极采取了降低混凝土的入仓温度等措施。在某分部工程施工过程中,发现某一单元工程混凝土强度严重不足,承包商及时组织人员全部
证券公司经营证券经纪业务的,应当按托管的客户交易结算资金总额的()计算风险资本准备。
以“表扬”、“赏识教育”为话题进行写作,文体不限,诗歌除外。
1999年哪一种股票单股收益最高?( )1999年买1500股沈阳机床收益为多少元?( )
操作系统的主要作用是()。
Specializationcanbeseenasaresponsetotheproblemofanincreasingaccumulationofscientificknowledge.Bysplittingupt
最新回复
(
0
)