首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序: Private Sub Command1_Click() Dim x As Integer x=Val(InputBox("输入数据")) Text1=
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序: Private Sub Command1_Click() Dim x As Integer x=Val(InputBox("输入数据")) Text1=
admin
2018-12-20
68
问题
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序:
Private Sub Command1_Click()
Dim x As Integer
x=Val(InputBox("输入数据"))
Text1=Str(x+fun(x)+fun(x))
End Sub
Private Function fun(ByRef n As Integer)
If n 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的整数倍时返回该值的2倍,否则返回该值的平方。过程Fun的参数指定为ByRef方式,即按址传递,因此会影响实参的值。Str函数是将数值转换为字符串。过程fun定义时没有指明返回类型因此默认为Variant类型,它可以表示任何值,因此A)选项的说法不正确。
转载请注明原文地址:https://kaotiyun.com/show/qAFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于命令按钮的叙述中正确的是( )。
下面不属于软件需求分析阶段主要工作的是
设有如下函数:FunctionDelSpace(chAsString)AsInteger Dimn%,st$,c$ st="" n=0 Fork=1ToLen(ch) c=Mid(ch,k,1) I
VisualBasic中的"启动对象"是指启动VisualBasic应用程序时,被自动加载并首先执行的对象。下列关于VisualBasic"启动对象"的描述中,错误的是( )。
设有下面的语句:PrintIIf(x>0,1,IIf(x
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() DimiAsInteger,nAsInteger Fori=0To
窗体上有一个名称为VScroll1的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScroll1.Value的值等于( )。
能够将组合框Combo1中最后一个数据项删除的语句为( )。
在VisualBasic环境下设计应用程序时,系统能自动检查出的错误是( )。
下面不能作为结构化方法软件需求分析工具的是
随机试题
形成依恋的重要阶段是()。
交易性金融资产和可供出售金融资产的相同点是都按公允价值进行后续计量,且公允价值变动计入当期损益。()
阅读《谏逐客书》中的一段文字,然后回答下列问题。臣闻地广者粟多,国大者人众,兵强则士勇。是以泰山不让土壤,故能成其大;河海不择细流,故能就其深;王者不却众庶,故能明其德。是以地无四方,民无异国,四时充美,鬼神降福,此五帝三王之所以无敌也。今乃弃黔首以资敌
张某因涉嫌恐怖主义犯罪被立案侦查,在侦查期间患病死亡,针对其财产的处置下列说法正确的是:()
招标投标定价机理的经济学假设主要包括()。
所有被删除的文件都可以从回收站中恢复。()
借款人刘某是国企男员工,今年47岁,离异。刘某2年前已全款购买一套普通住房,现计划在某现房项目再购买一套面积为90平米的商品住房,每平米价格为1.2万元,每平米物业费2元,并向银行申请个人住房贷款。该银行首套房贷款最低执行利率为基准利率9折(5年以上贷款基
法律风险仅限于因监管措施和解决民商事争议而支付罚款、罚金或者进行惩罚性赔偿所导致的风险敞口。()
Spaceisadangerousplace,notonlybecauseofmeteors(流星),butalsobecauseofraysfromthesunandotherstars.Theatmosph
PassageOneAccordingtothepassage,whatissmallchildren’sfeature?
最新回复
(
0
)