首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
43
问题
窗体上有一个名称为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全国计算机二级
相关试题推荐
通过一个属性可以获得文件列表框中当前被选中文件的文件名,这个属性是
在窗体上有一个名称为Commandl的命令按钮,并编写有如下事件过程:PrivateSubCommandl_Click()DimrecAsanimalOpen”c:\vbTest.dat”F
某系统结构图如下图所示该系统结构图的宽度是()。
设工程中有2个窗体:Form1和Form2,每个窗体上都有一个名称为Text1的文本框。若希望把Form1上文本框中的内容复制到Form2上的文本框中,应进行的操作是
为了在Form_Load事件过程中用Print方法在窗体上输出指定的内容,首先应执行的操作是
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序:PrivateSubCommand1_Click()Dimcount(10)AsInt
下列操作中不能向工程中添加窗体的是()。
下列关于顺序文件的描述中,正确的是
设a=2,b=3,c=4,d=5,表达式Nota
设a=2,b=3,c=4,d=5,下列表达式的值是a>bAndcc
随机试题
要求塑性好,冲击韧度高的焊缝应选用()焊条。
糖尿病患者空腹血糖一定升高。()
A.胎儿状况良好B.胎头受压,脑血流量一时性减少C.脐带受压,兴奋迷走神经D.胎儿缺氧E.胎儿受镇静药物影响胎心减速与宫缩关系不恒定,出现时下降迅速,幅度大,恢复也快,提示
A.糖精钠B.木糖醇C.安赛蜜D.甜蜜素E.阿斯巴甜不能用于苯丙酮尿症患者的甜味剂是
患者女性,33岁,患风心病二尖瓣狭窄8年。2天前“感冒”后发热、咽痛伴少许黄痰,遂去单位医务室静点抗生素治疗,输液1h后突然出现呼吸困难,咳粉红色泡沫痰病情突然加重的诱因是
期权价格由( )两部分组成。
从中央到地方各级领导部门全面重视教育,全党、全社会对教师素质的要求使师德远远地超出了本部门职业道德的范围,从教师的社会责任看,新时期教师职业道德具有()的特点。
班集体形成的条件和前进的动力是()。
溃疡病是可以由不同因素引起的一类疾病,患者可以因为一种或多种不同的原因致病。中国约92.6%的溃疡病患者由幽门螺杆菌感染,而另一些研究表明,约30%~65%的溃疡病是由精神压力引起的。另外,过去药物引起的溃疡病很少,但是随着长期服用阿司匹林的病人越来越多,
—Readthearticlebelowfromaleisureindustrymagazineandthequestions.—Foreachquestion13-18,markoneletter(A.B,Co
最新回复
(
0
)