首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
23
问题
窗体上有一个名称为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全国计算机二级
相关试题推荐
下面程序运行时,若输入“VisualBasicProgramming”,则在窗体上输出的是()。PrivateSubCommandl_Click()DimNum(25)AsInteger,Chr1AsStringChr1
要求当鼠标在图片框Picturel中移动时,立即在图片中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是()。
符要使文本框能够输入多行文本,应该设置的属性是()。
某系统结构图如下图所示该系统结构图的宽度是()。
编写如下程序:PrivateSubForm_Click() Print"Welcome!"EndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAs
在窗体上画1个命令按钮,并编写如下事件过程:PrivateSubCommand1_Click() Dima(3,3) Form=1To3 Forn=1To3 Ifn=mOrn=4-mThen
为了使标签Label1透明且不具有边框,以下正确的属性设置是
下列数据结构中,属于非线性结构的是()。
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序:PrivateSubCommand1_Click()Dimcount(10)AsInt
下列合法的变量名是
随机试题
______是指由个体、家庭和其他社群单位所占据的、应积极保卫不让同种其他成员侵入的空间。
Thefifthgenerationcomputers,withartificialintelligence,______andperfectednow.
A.狭窄性腱鞘炎B.类风湿性关节炎C.髌骨软化症D.腰椎间盘突出症男,26岁,腰腿痛1年,查体:脊柱侧凸畸形,直腿抬高试验及加强试验阳性,左小腿外侧感觉减弱,诊断是
下列关于乳牙牙髓病的治疗的描述,正确的是
“十一五”期间,强化共享机制,建设科技基础与条件平台的发展思路,以()为主线。
设Q为销售量,P为价格,当∑Q0P0=120万元,∑Q1P1=165万元,∑Q1P0=135万元,∑Q0P1=140万元时,拉氏价格指数是()。
下面关于充分就业的说法,正确的是()。
购进中轻型商用客车整车改装生产的汽车,不征收消费税。()(2015年)
(1)NotfaroffthePacificcoastintheCostaRicanjungle,acommunityhastakentothetreestocraftanew,sustainablelife
A、Becauseshehasgotanappointment.B、Becauseshedoesn’twantto.C、Becauseshehastowork.D、Becauseshewantstoeatina
最新回复
(
0
)