首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有Text1、Text2两个文本框及一个命令按钮 Command1,编写下列程序: Dim YAs Integer Private Sub Command l_Click() Dim x As Integer
窗体上有Text1、Text2两个文本框及一个命令按钮 Command1,编写下列程序: Dim YAs Integer Private Sub Command l_Click() Dim x As Integer
admin
2020-02-27
55
问题
窗体上有Text1、Text2两个文本框及一个命令按钮
Command1,编写下列程序:
Dim YAs Integer
Private Sub Command l_Click()
Dim x As Integer
x=2
Text1.Text=p2(pl(x),y):Text2.Text=pl(x)
End Sub
Private Function pl(x As Integer)As Integer
x=x+y:y=x+y
p1=x+y
End Function
Private Functionp2(x As Integer,y As Integer)As Integer
p2=2*x+y
End Function
程序运行后,第一次单击和第二次单击命令按钮后,文本框Text1和Text2内的值分别是( )。
选项
A、2 4
2 4
B、2 4
4 8
C、10 10
58 58
D、4 4
8 8
答案
C
解析
本题考查函数的调用以及变量的作用域。在命令按钮单击事件中调用p2函数,p2函数的参数为函数p1,因此首先计算p1调用以后产生的结果。第一次调用函数p1,变量y为窗体级变量,p1调用结束后y为2,p1为4;调用p2,得到p2值为10,x的值为2;继续调用p1(x),此时y值为2,调用结束以后p1为10。继续单击命令按钮,此时x值为2,而y的值为6,其余计算方法和第一次单击时相同。
转载请注明原文地址:https://kaotiyun.com/show/jTTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
若已把一个命令按钮的Default属性设置为True,则下面可导致按钮的Click事件过程被调用的操作是()。
软件设计中模块划分应遵循的准则是()。
编写如下程序:PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=InputBox("输入第一个数") y=InputBox("输入第二个数") Callf(x,
下列叙述中正确的是( )。
在窗体上画2个文本框(名称分别为Text1和Text2),一个命令按钮(名称为Command1)。并定义以下记录类型和变量:PrivateTypeTeacherIDAsIntegerNameAsString*10En
执行以下程序段:a$="Visi3alBasicProgramming"b$="C++"c$=UCase(Left$(a$,7))&b$&Right$(a$,12)后,变量c$的值为()。
在数据库管理技术发展的三个阶段中,没有专门的软件对数据进行管理的是()。
双精度浮点数的类型说明符为()。
(1)在名称为Form1,标题为“选课”的窗体上添加一个复选框数组,名称为CH1,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、“计算机”复选框处和选中状态下,程序运行时的窗体如图所示。请按要求添加控件并设置相应
下列选项中属于面向对象设计方法主要特征的是( )。
随机试题
然尚恨有阙者,不为许远立传。
金银花的归经是
心源性腹水与肝源性腹水的主要鉴别点是尿毒症性心包积液与非特异性心包积液的主要鉴别点是
工程计量应以净值为准。()
电击防护的设计中,下列哪些基本保护措施适用于防直接接触电击事故?()
某高速公路上下行分离式隧道,洞口间距40m,左线长3216m,右线长3100m,隧道最大埋深500m,进出口为浅埋段,Ⅳ级围岩,洞身地质条件复杂,地质报告指出,隧道穿越地层为三叠系底层,岩性主要为炭质泥岩、砂岩、泥岩砂岩互层,且有瓦斯设防段、涌水
在某工程双代号网络计划中,工作N的最早开始时间和最迟开始时间分别为第20天和第25天,其持续时间为9d,该工作有两项紧后工作,他们的最早开始时间分别为第32天和第34天,则工作N的总时差和自由时差分别为()d。
过程检验中根据过程的各阶段可以分为________。
目前实行中央业务主管部门垂直管理的只有质量技术监督系统。()
在下列社会保险项目中,完全由用人单位承担缴费义务的是()。
最新回复
(
0
)