首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码: Private Sub Command1_Click() Dim x As Integer,y As Integer x=12:y=32
在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码: Private Sub Command1_Click() Dim x As Integer,y As Integer x=12:y=32
admin
2009-08-25
85
问题
在窗体中添加一个名称为Commandl的命令按钮,然后编写如下事件代码:
Private Sub Command1_Click()
Dim x As Integer,y As Integer
x=12:y=32
Call p(x,y)
MsgBox x*y
End Sub
Public Sub p(n As Integer,By Val m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
窗体打开运行后,单击命令按钮,则消息框的输出结果为【 】。
选项
答案
64
解析
子过程p有两个参数m和n,参数m,n是整型,而通过“ByVal”可知,参数m是按值传递的参数。由于在过程定义时未做参数说明的情况下,默认为传址调用,所以参数n是按址传递。 (按址传递的过程调用是将相应位置实参的地址传送给形参处理,而被调用过程内部对形参的任何操作引起的形参值的变化又会反向影响实参的值。在这个过程中,数据的传递具有双向性。)在命令按钮单击事件过程中,程序通过两个实参x,y为形参m,n赋值,“n=n Mod 10”表示12与10取余,结果为2,由于n是传址调用,所以返回实参的结果:x=2,而形式参数m因为被“ByVal”修饰,所以过程调用只是将实参y的值“单向”传送给形参 m处理,而被调用过程内部对形参m的取余操作引起的形参值的变化均不会反馈、影响实参y的值,也就是说实参y=32,通过语句“MsgBox x*y”,可以得出:x*y=2*32=64,也就是窗体打开运行后,单击命令按钮,则消息框的输出结果为64。
转载请注明原文地址:https://kaotiyun.com/show/obwp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
以下程序的输出结果是()。#include<iostream-h>main(){intb[3][3]={0,1,2,0,1,2,0,1,2),i,j,t=1;for(i=0;i<3;i++)for(j=i;j<=i;j++)t=t+
有如下的运算符重载函数定义:doubleoperator+(inti,intk){returndouble(i+k);}但定义有错误,对这个错误最准确的描述是()。
有如下程序#include<iostream>usingnamespacestd;inti=1;classFun{public:staticinti;intvalue(){
下列关于类和对象的叙述中,错误的是()。
数据库系统的三级模式不包括( )。
下列语句或语句序列中有语法错误的是
下面描述中不属于数据库系统特点的是
有下列语句,编号分别是1、2、3、4,chars1="abcde";//1chars2[]="abcde";//2chars3[4]="abcde"; //3chars4[5]="abcde";//4其
在满足实体完整性约束的条件下()。
数据库表的字段可以定义规则,规则是
随机试题
若则
小儿合理用氧一般要求保持PaO2在
国家赔偿的主要方式是()。
导游讲解服务是指游客在目的地旅行时导游在参观游览地的导游讲解。()
以下关于制定工资指导线的表述,不正确的是()。
一个测验能够测量出其所要测量的东西的程度是信度。
区分不同类型的社会形态的客观标准是()。
某加油站能够对两辆车同时进行加油,现有六辆车同时来到加油站加油,各辆车加油所需要的时间分别为:A车7分钟,B车5分钟,C车4分钟,D车10分钟,E车3分钟,F车2分钟。这六辆车加油需要的总时间最少为多少分钟?
汇票承兑根据《票据法》规定,汇票承兑是指汇票付款人承诺在汇票到期日支付汇票金额的票据行为。定日付款或者出票后定期付款的汇票,持票人应当在汇票到期日前向付款人提示承兑,汇票未按照规定期限提示承兑的,持票人丧失对其前手的追索权。某公司与某商店成交一笔供销领结的
InmostAmericancities,therentforaone-bedroomapartmentwas$250ormorepermonthinrecentyears.Insomesmallerciti
最新回复
(
0
)