首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有Text1、Text2两个文本框及一个命令按钮Commandl,编写下列程序: Dim y As Integer Private Sub Commandl _Click() Dim x As Integer
窗体上有Text1、Text2两个文本框及一个命令按钮Commandl,编写下列程序: Dim y As Integer Private Sub Commandl _Click() Dim x As Integer
admin
2012-09-07
34
问题
窗体上有Text1、Text2两个文本框及一个命令按钮Commandl,编写下列程序:
Dim y As Integer
Private Sub Commandl _Click()
Dim x As Integer
x=2
Text1.Text=p2(p1(x),y):Text2.Text=p1(x)
End Sub
Private Function p1(x As Integer)As Integer
x=x+y:y=x+y
p1=x+y
End Function
Private Function p2(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/iDhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的执行结果为 PrivateSubCommand1_Click() Dims1AsString,s2AsString S1;="abcdef" CallInvert(s1,s2) Prints2
以下过程的作用是将26个小写字母逆序打印出来,请补充完整。 SubInverse() Fori=122To【】 Print【】; Nexti EndSub
面向对象的模型中,最基本的概念是对象和【】。
新建一个窗体,其Borderstyle属性设置为FixedSingle,但运行时却没有最大化和最小化按钮,可能的原因是
在下列选项中,哪个不是一个算法一般应该具有的基本特征_________。
对于长度为n的顺序存储的线性表,当随机插入和删除一个元素时,需平均移动元素的个数为【】。
软件工程研究的内容主要包括:【】技术和软件工程管理。
一个工程中包含两个名称分别为Form1、Form2的窗体,一个名称为mdlFune的标准模块。假定在Forml、Form2和mdlFunc中分别建立了自定义过程,其定义格式为:Forml中定义的过程:PrivmeSubfrmFunc
下面概念中,不属于面向对象方法的是
随机试题
肾小球滤过膜的结构组成及特点是什么?
前庭器官受到刺激发生的反应有
女性,29岁,风湿热反复发作病史5年,劳累、精神紧张时易出现呼吸困难半年,偶有夜间呼吸困难。多次做心电图为窦性心律。未出现过下肢水肿。经检查患者存在轻度二尖瓣狭窄,支持诊断的依据应是
马心搏动最明显的部位是左侧
五脏分阴阳,肾的阴阳属性是
跨省、市、自治区从事临时经营活动的单位和个人需要领购发票的,应向经营地税务机关提供《外出经营活动税收管理证明》,并( )。
采用平行结转分步法,每一生产步骤的生产成本都要在最终完工产品与各步骤尚未加工完成的在产品和各步骤已完工但未最终完成的产品之间进行分配。()
甲公司采用平衡计分卡进行业绩衡量,下列指标中属于从顾客维度考虑的是()。
提问资料四:求:其实我怕老师为难我。咨:你得罪过老师?求:我没有得罪过他,他教课不好,同学们都不满意,有的人到学校领导那里反映过,他以为是我反映的。咨:老师为什么会认为是你反映的?你有什么根据呢?求:我也不知道,可能是他上课我总爱问些问题,他不会
Gravityisoneofthosethingswetakecompletelyforgranted.Andtherearetwothingsaboutitthatwetakeforgranted:thef
最新回复
(
0
)