首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
63
问题
窗体上有一个名称为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全国计算机二级
相关试题推荐
单击命令按钮执行以下程序,则输出结果为()。PrivateSubCommandl_Click()DimxAsInteger,yAsIntegerx=14:y=48CallProc(x,y)Printx;yE
通过一个属性可以获得文件列表框中当前被选中文件的文件名,这个属性是
窗体上有一个名称为CD1的通用对话框,一个名称为Command1的命令按钮,相应的事件过程如下:PrivateSubCommand1_Click() CD1.Filter="AllFile|*.*|TextFile|*.txt|PPT|*.p
要求当鼠标在图片框Picturel中移动时,立即在图片中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是()。
下面程序运行时,单击窗体后,窗体上显示的结果是()。PrivateSubForm_Click()DimiAsIntegerDimsumAsLongDimtAsLongt=1:sum=0Fori=1
设窗体上有一个Text1文本框和一个HScroll1水平滚动条,并有下面的事件过程:PrivateSubHScroll1_Change()Text1=HScroll1EndSub在程序运行时,当把滚动框移动
设变量x中的值是395,则下面语句的输出是Printx\100+((xMod100)\10)*10+(xMod10)*100
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中:PrivateSubCommand1_Click()Open"out.txt"ForOutputAs#2Print"Tlextl"
以下变量名中合法的是( )。
随机试题
在工程网络计划中,工作的最迟开始时间等于本工作的()。
我国股份有限公司董事会的人数是()
患者,男,30岁。头痛而胀,甚则欲裂,发热,面红目赤,口渴欲饮,便秘溲赤,舌红苔黄,脉浮数。其证候是
A.滑石粉B.硬脂酸镁C.氢化植物油D.聚乙二醇类E.微粉硅胶
向个人消费者提供互联网药品交易服务的企业
2012年年底,为回家过年,甲某和乙某(15周岁)携带少缝烟花爆竹在北京某火车站安检时被拒,甚为恼火。在候车厅因动车晚点,甲某开口辱骂车站服务人员。登上动车后.因另一乘客找错座位,甲某与其发生口角,并大骂其买的黄牛的假票。乘车中,乙某趁邻座不慎偷到其口袋中
由于控制继电器的动作十分频繁,因此必须做到每月至少检修()次。
一个单位是否单独设置会计机构,其决定因素包括()。
MoreAmericansareoptingtoworkwellintoretirement,agrowingtrendthatthreatenstoupendtheoldworkforcemodel.On
A、Happinessmakespeoplelivelonger.B、Womenatallagesareunderlessstressthanmen.C、Oldpeoplearealwayshappierthany
最新回复
(
0
)