首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Commandl的命令按钮,一个名称为Text1的文本框。编写如下程序: Private Sub Commandl_Click() Private Function fun(ByRef n As Integer)
窗体上有一个名称为Commandl的命令按钮,一个名称为Text1的文本框。编写如下程序: Private Sub Commandl_Click() Private Function fun(ByRef n As Integer)
admin
2017-06-21
56
问题
窗体上有一个名称为Commandl的命令按钮,一个名称为Text1的文本框。编写如下程序:
Private Sub Commandl_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/QTGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
能够获得一个文本框中被选取文本的内容的属性是______。
执行如下语句:a=InputBox("Today","Tomorrow","Yesterday",,,"Daybeforeyesterday",5)将显示一个对话框,在对话框的输入区中显示的信息是______。
在窗体上有两个名称分别为Text1、Text2的文本框,—个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明:PrivateTypePersonnameAsString
在窗体上画一个名称为List1的列表框,一个名称为Label1的标签,列表框中显示若干个项目。单击列表框中的某个项目时,在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是______。
为了使一个窗体从屏幕上消失但仍在内存中,所使用的方法或语句为()。
当列表框中的项目较多、超过了列表框的长度时,系统会自动在列表框边上加一个______。
下面的4个数组中,语句语法正确的是______。
在树形结构中,没有前件的结点是______________。
设一棵完全二叉树共有500个结点,则在该二叉树中有【】个叶子结点。
某二叉树共有60个叶子结点与50个度为1的结点,则该二叉树中的总结点数为()。
随机试题
什么是报表?报表的主要功能是什么?
患者,男,30岁。患有胃溃疡,昨日呕血约400ml,经治疗出血停止,病情缓解,大便隐血试验阴性。患者呕血后应采取的体位是
下列属于施工招标阶段工作制度的有()。
Aperson________e-mailaccountisfullwon’tbeabletosendorreceiveanye-mails.
设双曲线的离心率为,且它的一条准线与抛物线y2=4x的准线重合,则此双曲线的方程为___________.
无论是恢宏而惨烈的战争场景,还是浪漫______的烽火情缘,都在强烈的历史质感中______出一种博大的正义情怀。填入画横线部分最恰当的一项是()。
“中华老字号”沿袭和传承中华民族优秀的文化传统,每个老字号都有特色的产品、技艺或服务。下列按经营服务范围对老字号进行归类正确的是()。
材料:王某的父亲死后,其母李某将郝家住宅独自占用。王某对此深为不满,拒绝向李某提供生活费。李某将郝某告上法庭。法官审理后判决王某每月向李某提供生活费300元。提问:请指出上述材料中的法律关系并分析引起各种法律关系发生的法律事实。
下列序列中不满足堆条件的是()。
ThefollowingisaninterviewwithEmmaRichards,oneofBritain’smostsuccessfulsailorsandtheyoungestpersontocompletet
最新回复
(
0
)