首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Commandl的命令按钮,一个名称为Text1的文本框。编写如下程序: Private Sub Command1 Click() DimxAs Integer x=Val(InputBox(“输入数据”)):Textl=Str(x+fu
窗体上有一个名称为Commandl的命令按钮,一个名称为Text1的文本框。编写如下程序: Private Sub Command1 Click() DimxAs Integer x=Val(InputBox(“输入数据”)):Textl=Str(x+fu
admin
2020-04-18
39
问题
窗体上有一个名称为Commandl的命令按钮,一个名称为Text1的文本框。编写如下程序:
Private Sub Command1 Click()
DimxAs Integer
x=Val(InputBox(“输入数据”)):Textl=Str(x+fun(x)+fun(x))
End Sub
Private Function fun(ByRef n As Integer)
Ifn Mod 3=0 Then
n=n+n
Else
n=n*n
End If
fun=n
End Function
对于上述程
选项
A、语句fun=n有错,因为n是整型,fun没有定义类型
B、运行程序,输入值为5时,文本框中显示655
C、运行程序,输入值为6时,文本框中显示42
D、ByRef表示参数按址传递
答案
A
解析
本题中的函数fun的功能是判断参数是否能被3整除,若可以整除则将n翻倍,否则将n变为n的平方返回。在函数头部没有声明函数的返回值类型,默认为变体型,可以接受任何数据类型的赋值:ByRef表示参数按址传递,对形参的改变将会影响实参:当输入5的时候输出5+25+625=655;当输入6的时候输出6+12+24=42。
转载请注明原文地址:https://kaotiyun.com/show/3cTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读程序:OptionBase1SubP(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubForm_Click()
鼠标拖放控件要触发两个事件,这两个事件是( )。
为了使通用对话框弹出的窗口标题显示为“文件操作”,应对通用对话框控件设置的属性是()。
为了在Form_Load事件过程中用Print方法在窗体上输出指定的内容,首先应执行的操作是
(1)在名称为Forml的窗体中面一个名称为L1的标签,其标题为“0”,BordeiStyle属性为1;再添加一个名称为Timerl的计时器。请设置适当的控件属性,并编写适当的事件过程,使得在运行时,每隔一秒钟标签中的数字加1。如图3一170所示的是程序刚
为把圆周率的近似值3.14159存放在变量pi中,应该把变量pi定义为( )。
以下变量名中合法的是()。
下列合法的变量名是
以下关系表达式中,其值为True的是
随机试题
关于FIDIC施工合同条件中对保留金的规定,下列说法中正确的是()。
在质量检验中,可以根据实际情况确定材料的检验程度。通常需要进行全检验的有( )。
某项目招标中,招标文件要求投标人提交投标保证金。招标过程中,招标人有权没收投标保证金的情形有()。
《标准化法》规定,我国的标准分为()。
集合资产管理合同应包括的主要内容不包括( )。
(2014)资料(一)C国蓝先生在D国攻读物理学硕士学位期间,兼职于D国一家光伏产业的公司。从事光伏组件的销售业务。蓝先生熟悉太阳能电极板零部件产品的销售渠道及客户群体,积累了丰富的销售经验及客户资源,善于搜集客户需求信息,并能够根据客户需求对产品提出改
政府环保部门的官员若要在这次民间环保研讨会上发言,他就必须是民间环保组织的成员。但是,会议规定,作为一个民间环保组织的成员,不允许既是政府环保部门的官员又在这次民间环保研讨会上发言。如果上述断定为真,以下()项也为真。
绿叶幼儿园家长委员会建议幼儿园把管理费降低5%~10%,这一建议如果实行是有风险的。尽管家长可以因此减少每月的托儿费,但是为应付幼儿园服务质量下降引发的问题而付出的费用可能会更多。以下哪项最可能是上述论证的假设?
TheGreatNewspaperWarUpuntilabout100yearsago,newspapersintheUnitedStatesappealedonlytothemostseriousread
Presiding,likeEisenhower,overaperiodofrelativepeaceandprosperityattheendofhisfirstterm,PresidentReaganandVi
最新回复
(
0
)