首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画两个标签和一个命令按钮,其名称分别为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
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/OnHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有窗体的Form_MouseMove事件过程如下:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) If(Button
有如下的一个函数过程:Functionfn(ByValnumAsLong)DimkAsLongk=1:num=Abs(num)DoWhilenumk=k*(numMod
有下面程序代码:PrivateSubCommand1_Click()DimxAsInteger,sAsIntegerx=1Fork=1To3x=x+1
窗体上有一个如右图所示的图形控件,控件中显示了如图所示的文字,可以判断这个图形控件()。
程序调试的任务是( )。
有如下程序:PrivateSubForm_Click()DimsAsInteger,pAsIntegerp=1Fori=1To4 Forj=1Tois=s+j Nextj p=p*sNextiP
设有如下函数:FunctionDelSpace(chAsString)AsInteger Dimn%,st$,c$ st="" n=0 Fork=1ToLen(ch) c=Mid(ch,k,1) I
下列程序段的输出结果是x=5Printx+1;x+1
随机试题
矩形花键:
A.下肢腱反射无改变B.膝腱反射减弱或消失C.跟腱反射减弱或消失D.下肢病理反射征阳性E.下肢腱反射亢进
天时公司与地利公司合同纠纷一案,双方申请仲裁。仲裁过程中。双方达成和解协议,则:()
()在工程项目施工中处于中心地位,对工程项目施工进行全面管理。
我国2002年开始全面实施国际银行业普遍认同的“贷款五级分类法”,其中()称为不良贷款。
远期信用证受益人提交了相符单据,即使申请人交存的保证金及其存款账户余额不足支付,开证行仍应在规定的时间内付款。()
厚厚的积雪可以使非同寻常的恶劣天气持续下去。如果一场严酷的冬季暴雪覆盖了大平原地区,那么积雪将太阳光的辐射反射回空中从而保持地面低温。由此从西伯利亚南下的冷空气可以保持足够低的温度从而引发更多的暴风雪。 从上述信息中能适当得出下列哪一结论?
[*]
【B1】【B10】
Please______fromsmokinguntiltheairplaneisairborne.[1997]
最新回复
(
0
)