首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下程序: Private Sub sV(ByVal m As Integer,n As Integer) m=m*2 n=n-5 Print m;n End Sub Private Sub Form_Click() Dim x As Integer
设有如下程序: Private Sub sV(ByVal m As Integer,n As Integer) m=m*2 n=n-5 Print m;n End Sub Private Sub Form_Click() Dim x As Integer
admin
2020-04-18
54
问题
设有如下程序:
Private Sub sV(ByVal m As Integer,n As Integer)
m=m*2
n=n-5
Print m;n
End Sub
Private Sub Form_Click()
Dim x As Integer y As Integer
x=10
y=15
sV x,y
Print x;y
End Sub
运行程序,单击窗体,输出结果为
选项
A、20 10
10 10
B、10 15
20 10
C、20 15
10 15
D、20 10
20 10
答案
A
解析
函数传递参数有值传递和引用传递。默认是引用传递。sV(ByVal m As Integer,n As Integer)函数中m为值传递,n为引用传递。值传递不改变实参值。即在 Form_Click()过程中调用sV不会改变x的值。选A。
转载请注明原文地址:https://kaotiyun.com/show/nSTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:OptionBase1PrivateSubCommand1_Click() Dima a=Array(1,2,3,4) s=0:j=1 Fori=4To1Step-1 s=s+a(i)*
有如下程序:PrivateSubForm_Click()DimSAsStringS=InputBox("请输入一个字符串:")Fori=1ToLen(S)\2IfMid(S,
窗体上有Command1、Command2两个命令按钮。现编写以下程序:OptionBase0Dima()AsInteger,mAsIntegerPrivateSubCommand1_Click() m=InputBox("请
窗体上有1个名称为Commandl的命令按钮,事件过程及函数过程如下:PrivateSubCommandl_Click()DimPAsIntegerP=m(1)+m(2)+m(3)PrintpE
下面程序运行时,若输入"VisualBasicProgramming",则在窗体上输出的是( )。PrivateSubCommand1_Click() Dimcount(25)AsInteger,chAsString ch=U
下面对对象概念描述正确的是
下列程序的执行结果是()。PrivateSubForm_Activate()Dimscore(3)AsInteger,totalAsIntegerDimaa_scoreAsVariantsc
窗体上有一个名称为Command1的命令按钮,其事件过程如下:PrivateSubCommand1_Click()x="VisualBasicProgramming"a=Right(x,11)b=Mid(x,7,
设有如下的用户定义类型:TypeStudentNumberAsString:NameAsString:AgeAsIntegerEndType则以下正确引用该类型成员的代码是
随机试题
带下清稀量多,腰膝痰软,尿频,神疲乏力,舌淡脉弱,宜诊断为
李某,男,8岁,发热4天,体温39.6℃,伴意识障碍、抽搐、脑膜刺激征,考虑乙型脑炎,对该患者应施行
适用以雌激素替代疗法治疗骨质疏松的妇女
实际流体恒定流关于水头沿程变化规律的说法,正确的是()。
《同光名伶十三绝》是京剧史上一副名伶彩色剧装写真画,其作者是()
运动训练是在教练员的指导下运动员独立完成的体育活动。()
简述教师主导和学生主体的关系。
下列程序的执行结果为()。A="5":B="6"A=Val(A)+Val(B)B=Val("56")IfA<>BThenPrintA-BElsePrintB-A
在书写查询准则时,日期型数据应该使用适当的分隔符括起来,正确的分隔符是
Criticsofearlyschoolingciteresearchthatquestionswhether4-year-oldchildrenarereadytotakeonformallearning.Educat
最新回复
(
0
)