首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序: Private Sub Command1_Click() Dim x As Integer x=Val(InputBox("输入数据")):Text1=Str(x+
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序: Private Sub Command1_Click() Dim x As Integer x=Val(InputBox("输入数据")):Text1=Str(x+
admin
2020-04-18
83
问题
窗体上有一个名称为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=0Then
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/10Tp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
标准模块中有如下程序代码:PublicxAsInteger,YAsIntegerSubTempSub()x=10:y=20EndSub在窗体上有1个命令按钮,并有如下事件过程:PrivateSubCommandl_C
在窗体上画一个名为Command1的命令按钮,然后编写以下程序:PrivateSubCommandl_Ctick()DimM(to)AsIntegerFork=1To10M(k)=12一kNe
下列程序执行后,其输出结果为().Dima(5)Fori=0To4a(i)=i+1:m=i+1Ifm=3Thena(m-1)=a(i-2)Elsea(m)=a(i)Ifi=2Thena(i一1)=a(m-3)
要求在程序运行时,如果按住鼠标左键不放而移动鼠标,鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中,如右图所示,放开鼠标左键后,停止同步显示。下面可以实现此功能的程序是( )。
在窗体上画一个名称为Text1的文本框,然后编写如下事件过程:PrivateSubForm_Load()Text1.Text=""EndSubPrivateSubText1_KeyDown(KeyCodeAsInteger
设一个工程文件包含多个窗体及标准模块,以下叙述中错误的是
现有表示患者和医疗的关系如下:P(P#,Pn,Pg,By),其中P#为患者编号,Pn为患者姓名,Pg为性别,By为出生日期,Tr(P#,D#,Date,Rt),其中D#为医生编号,Date为就诊日期,Rt为诊断结果。检索在1号医生处就诊的病人姓名的表达式是
随机试题
试述决策过程的民主化包含的内容。
简述我国传统的饮食文化观念。
患者,女,30岁。白带增多伴阴道瘙痒3天。体格检查:阴道壁充血明显,表面覆有较多大量豆腐渣样分泌物,宫颈口见少量浆液性分泌物。该患者诊断首先考虑
为详细核算一般纳税人应缴纳增值税的计算、解缴和抵扣等情况,下列各项中属于企业应在“应交增值税”明细科目下设置的专栏有()。
企业在确定能否对被投资单位实施控制或施加重大影响时,应当考虑投资企业持有的被投资单位可转换公司债券、可执行认股权证等潜在表决权因素。()
局域网是一种在小区域内使用的网络,其英文缩写为______。
学生出现教师期待的行为后,教师发给小红星,学生可用小红星兑换奖励物或喜欢的活动。教师采用的方法是()。
试比较单道与多道批处理系统的特点及优缺点。
求f(x)=(x-2)e-x展为x-1的幂级数,并指出其收敛域.
A.WhatisZYBAN?B.WhatarethesideeffectsoftakingZYBAN?.C.WhoinventedZYBAN?D.HowlongshouldItakeZYBAN?E.Ho
最新回复
(
0
)