首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序: Private Sub Command1_Click() Private Function fun(ByRef n As Integer)
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序: Private Sub Command1_Click() Private Function fun(ByRef n As Integer)
admin
2018-10-18
27
问题
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序:
Private Sub Command1_Click() Private Function fun(ByRef n As Integer)
Dim x As Integer If n Mod 3=0 Then
x=Val(InputBox("输入数据")) n=n+n
Text1=Str(x+fun(x)+fun(x)) Else
End Sub 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/GxFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有名称为Command1的命令按钮和名称为Text1的文本框PrivateSubCommand1_Click()Text1.Text="程序设计"Text1.SetFocusEndSubPrivateSubText1_GotF
以下不能输出"Program"的语句是( )。
以下关于单选按钮和复选框的叙述中,正确的是( )。
设有如下通用过程:PublicFunctionFun(xStrAsString)AsString DimtStrAsString,strLAsInteger tStr="" strL=Len(xStr) i=
为了把命令按钮设置为图形格式,其Style属性值应为
将窗体的KeyPreview属性设为True,然后编写如下程序:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)
若窗体上有一个名为Command1的命令按钮,并有下面的程序:PrivateSubCommand1_Click() Dimarr(5)AsInteger Fork=1To5 arr(k)=k Nextk prog
以下关于文件的叙述中,错误的是( )。
窗体上有一个名称为Command1的命令按钮,其事件过程如下:PrivateSubCommand1_Click() x="VisualBasicProgramming" a=Right(x,11) b=Mid(x,7,5) c=
设a=2,b=3,c=4,d=5,下列表达式的值是( )。
随机试题
根据涉及时间长短及范围广狭的综合性标准将计划分类为()
A.清创,一期缝合B.清创,延期缝合C.清创后不予缝合D.清创及植皮E.无须清创受伤达12小时的严重沾染伤口,应采取
可摘局部义齿修复时,对近中、颊(舌)向倾斜的末端孤立基牙(磨牙),宜选择下列哪类卡环
(2012年)配股是上市公司股权再融资的一种方式。下列关于配股的说法中,正确的是()。
黄光:白光
在现代科学发展中,最突出的对人类思维方式、认识方法产生深远影响的理论包括()。
下列有关文学常识的表述,错误的一项是()。
唐三彩
FineArtAmericacomisanonlinemarketplacedesignedtohelpyoutransformyourdigitalimagesintoaflourishingonlinebusines
Hungryprehistorichunters,notclimatechange,droveelephantstoextinctionduringthePleistoceneera(更新世),newresearchsug
最新回复
(
0
)