首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画两个标签和一个命令按钮,其名称分别为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
2018-07-11
28
问题
在窗体上画两个标签和一个命令按钮,其名称分别为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/zzFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体的MouseUp事件过程如下:PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)EndSub关于以上定义,以下叙述中错误的是
设有窗体的FormMouseMove事件过程如下:PrivateSubFormMouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)If(ButtonAnd
有如下数据定义语句:Dima,bAsIntegerDimx%,yasInteger执行上述语句后,不是整型变量的是
以下关于变量的叙述中,错误的是
支持子程序调用的数据结构是( )。
设有工程文件Proj,其中含有Form1窗体、Form2窗体、标准模块Module1.bas,在Form1窗体模块的通用声明段中书写了如下语句PublicXAsInteger,在Form1窗体模块中还定义了通用过程LocalSub。则以下说法中正确的
在线性表的顺序存储结构中,其存储空间连续,各个元素所占的字节数
若实体A和B是一对多的联系,实体B和C是一对一的联系,则实体A和C的联系是
设栈的顺序存储空间为S(0:49),栈底指针bottom=49,栈顶指针top=30(指向栈顶元素)。则栈中的元素个数为
随机试题
按照劳动合同期限的不同,劳动合同可分为()
胃肠激素的生理作用包括
组成中含有半夏、黄芩的方剂有
患者,男,24岁。夏秋季因饮食不慎出现泄泻腹痛,泻而不爽,胸腹满闷,口干不欲饮,舌苔微黄而腻,脉濡缓。此时应诊断为
限定放大摄影的放大倍数,取决于
某设备三年前购买的原始成本是90000元,目前的账面价值为40000元,经过评估,该设备现在的净残值为18000元。则在设备更新方案比选中,该设备的沉没成本是(A)元。
如何克服文学批评中的主观主义?如何恢复批评的尊严和功能?解决问题的办法,从根本上来说,还是要提高批评家的______素质。
有以下程序:#includeintf(intx,inty){return((y—x)*x);}voidmain(){inta=3,b=4,c=5,d;d=f(f(a,b),f(a,c));
A、 B、 C、 A
ThismonthSingaporepassedabillthatwouldgivelegalteethtothemoralobligationtosupportone’sparents.CalledastheM
最新回复
(
0
)