首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画两个标签和一个命令按钮,其名称分别为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
2020-06-30
53
问题
在窗体上画两个标签和一个命令按钮,其名称分别为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://www.kaotiyun.com/show/OnHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下打开VisualBasic菜单编辑器的操作中,错误的是( )。
有如下的一个函数过程:Functionfn(ByValnumAsLong)DimkAsLongk=1:num=Abs(num)DoWhilenumk=k*(numMod
在学校中,“班级”与“学生”两个实体集之间的联系属于()关系。
有下面程序代码:PrivateSubCommand1_Click()a=3s=0Fork=1To5s=s+aModka=a+kNext
窗体上有一个如右图所示的图形控件,控件中显示了如图所示的文字,可以判断这个图形控件()。
下列程序执行后,变量a的值为()。Dima,b,c,dAsSinglea=10:b=20:c=40Ifb>aThend=a:a=b:b=dEndIfIfc>aThend=a:a=c:c=dEndIfIfc>bThe
下列程序段的输出结果是x=5Printx+1;x+1
窗体上有2个名称分别为Text1和Text2的文本框,1个名称为Command1的命令按钮。单击Command1时,Text1中选中的文本将显示在Text2中。下列能实现上述操作的事件过程是
一般情况下,当对关系R和S进行自然连接时,要求R和S含有一个或者多个共有的
随机试题
A.thoraeotomyB.thoracocentesisC.blockingwoundD.pneumonectomyE.drainageofpleuralcavity严重的闭合性气胸的治疗应为
温廓线是反映()。
关于土方开挖的施工要求,描述正确的有()。
构件跨度大于8m的梁、拱、壳的底模板拆除时,混凝土强度应大于等于设计的混凝立方体抗压强度标准值的()。
适用于资产评估的假设有()假设。
古代一位外国人在著作中记述了在中国的经历,书中提到当时中国已使用纸币、有繁忙的运河以及泉州港;他发现该地的主要道路一边铺石头,一边不铺石头,因为“大汗的驿卒要骑在马上跑得迅速,不能走石头路”。这本书的作者是()。
从所给的四个选项中,选出一个填在问号处,使之呈现一定的规律性:()
为了激发学生的学习动机,教师需要()。
Thepointat____atthemeetingiswhethertheyaretoimporttheassemblyline.
Americansbelievesomuchinmovingaheadthattheyare【C1】______researching,experimentingandexploring.Theytreattimeas
最新回复
(
0
)