首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command 1 Click() Dim xAs Integer,y As Integer x=10:y=20 Call funl(x,y) Print x;y End Sub Private Function f
编写如下程序: Private Sub Command 1 Click() Dim xAs Integer,y As Integer x=10:y=20 Call funl(x,y) Print x;y End Sub Private Function f
admin
2019-06-11
27
问题
编写如下程序:
Private Sub Command 1 Click()
Dim xAs Integer,y As Integer
x=10:y=20
Call funl(x,y)
Print x;y
End Sub
Private Function funl(ByVal m As Integer,n As Integer)As Integer
m=m*m:n=n+n
End Function
程序运行后,单击命令按钮Commandl,输出结果为
选项
A、10 25
B、10 40
C、100 25
D、100 40
答案
B
解析
在Visual Basic中调用过程时,参数有两种传递形式:按值传递(Byval)和按址传递(Byref),默认为按址传递。其中,当参数按址传递时,如果在引用该参数的过程中改变了形参的值,同时也就改变了传递参数时实参变量的值。本题中funl的参数m是按值传递的,n是按地址传递的,因此在funl中对m的改变不会影响实参x,对n的操作会影响实参v。
转载请注明原文地址:https://kaotiyun.com/show/RCUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据库设计中反映用户对数据要求的模式是()。
设有以下程序代码:PrivateSubCommand1_Click()a=Array(1,2,7,10,6)b=Array(5,4,7,8,2)i=0j=0DoIfi
现有如下语句:x=IIf(a>50,Int(a\3),aMod2)当a=52时,x的值是()。
以下关于VB文件的叙述中,错误的是()。
(1)在名称为Form1的窗体上添加一个标签,其名称为Label1,然后通过属性窗口设置窗体和标签的属性,实现如下功能:①窗体标题为“设置标签属性”;②标签的位置为:距窗体左边界500,距窗体顶边界300;③标签的标题为“等级考试”;
有如下程序:PrivateSubForm_Click()DimsAsInteger,pAsIntegerp=1Fori=1To4Forj=1Tois=s+jNe
(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个列表框和一个标题为“选择”的命令按钮,且列表框中已有若干列表项。程序的功能是:当单击”选择”按钮时,如果列表框中没有列表项,则程序不做任何操作。否则,判断列表框中是否有列表项被选中,如果没有
在菜单编辑器中建立如下图所示的菜单,并为每个菜单项编写了鼠标单击事件过程。关于此菜单,以下叙述中错误的是()。
(1)在考生文件央下有一个工程文件sit3.vbp,窗体中柯两个图片框,名称分别为P1、P2,其中的图片内容分别是-架航天飞机和一朵云彩,一个命令按钮,名称为C1,标题为“发射”,还有一个计时器,名称为Timer1。并给出了两个事件过程,但并不完整,要求:
VisualBasic根据计算机访问文件的方式将文件分成3类,其中不包括()。
随机试题
证明曲线积分∫(1,2)(3,4)(6xy2-y3)dx+(6x2y-3xy2)dy在整个坐标面xOy上与路径无关,并计算积分值.
Whenthestudentsdidbadly,theteacherbecamereally_________anddidn’tsmileforweeks.
患儿,男孩,7岁,因发热、意识障碍诊断为病毒性脑炎收入院治疗。该病的护理措施哪项不妥
使用增感屏可使
A.金黄色葡萄球菌肺炎B.腺病毒肺炎C.毛细支气管炎D.支原体肺炎E.支气管肺炎主要由肺炎链球菌引起的肺炎是
《中华人民共和国环境保护法》规定,国家采取财政、税收、价格、政府采购等方面的政策和措施,鼓励和支持环境保护技术装备、()和环境服务等环境保护产业的发展。
国际金融危机的成因不包括()。
Whereisthisannouncementmade?
Therepairmancanmendwhatever_______.
Little______whatwasupsettingme.
最新回复
(
0
)