首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序: Private Sub Command1_Click() Dim x As Integer x=Val(InputBox("
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序: Private Sub Command1_Click() Dim x As Integer x=Val(InputBox("
admin
2015-08-13
23
问题
窗体上有一个名称为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/HlQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
使用PublicConst语句声明一个全局的符号常量时,该语句应放在______。
下列程序段的执行结果为______。Dimm(3,3)AsIntegerDimiAsIntegerDimjAsIntegerDimKAsIntegerFori=1To3m
下列程序段的执行结果为______。I=0ForG=10To19Step3I=I+1NextGPrintI
下列程序段的结果为______。A="ABBACDDCBA"ForI=6To2Step-2X=Mid(A,I,I)Y=Left(A,I)Z=Right(A,I)Z=X
软件设计包括软件的结构、数据接口和过程设计,其中软件的过程设计是指______。
有如下事件过程:PrivateSubFormActive()DimScore(1to3)AsIntegerDimiAsIntegerDimtAsVariant
下列程序的功能是:将数据1,2,..,8写入顺序文件Num.txt中请补充完整。PrivateSubForm_Click()DimiAsIntegerOpen"Num.txt"ForOut
编写如下事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)If(BuuonAnd3)=3ThenPrint"AAAA"
随机试题
20世纪60年代以来,许多国家推行“教育先行”的改革,以促进国民经济快速发展。这种政策的理论基础是()
试述社会主义市场经济体制的主要任务。
EventhoughheknewthatIshouldstudy,hestill___________metogotoseethemovie.
完全随机设计的方差分析中的组间均方是
企业在使用注册商标时的主要义务是()。
付款人承兑时在汇票上记载“收款人交货并验收合格后付款”。依我国《票据法》,此记载的后果是()。
人民法院在适用简易程序审理刑事公诉案件时,下列哪些选项是人民检察院应当要求人民法院将简易程序转为普通第一审程序审理案件的情形?
(一)资料丙汽车制造股份有限公司(以下简称丙公司)成立于2000年,主要生产小汽车,是增值税一般纳税人。2012年4月,丙公司向丁公司销售了一批小汽车,双方签订了书面买卖合同;为支付货款,丁公司向丙公司签发了一张银行承兑汇票。2013年4月,丙公司在
封闭式基金合同生效的条件之一是,基金份额持有人人数达到()人以上。
Lunarsight-seeingtripsandorbitingspacehotelsamwithinroach,moonwalkingastronautEdwin"Buzz"Aldrinsaidlastweek,b
最新回复
(
0
)