首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序: Private Sub Command1_Click() Dim x As Integer x=Val(InputBox("输入数据")) Text1=
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序: Private Sub Command1_Click() Dim x As Integer x=Val(InputBox("输入数据")) Text1=
admin
2015-10-23
59
问题
窗体上有一个名称为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=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的整数倍时返回该值的2倍,否则返回该值的平方。过程Fun的参数指定为ByRef方式,即按址传递,因此会影响实参的值。Str函数是将数值转换为字符串。过程fun定义时没有指明返回类型因此默认为Variant类型,它可以表示任何值,因此A选项的说法不正确。
转载请注明原文地址:https://www.kaotiyun.com/show/HDLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在数据管理技术的发展过程中,经历了人工管理阶段,文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是()。
下面程序运行后的结果是()。PrivateSubForm_Click()DimsAsInteger,kAsInteger,iAsInteger,nAsIntegers=1
执行以下程序段后,变量c$的值为()。S$="VisualBasicProgramming"b$="Quick"c$=b$&UCase(Mid$(a$,7,6))&Right$(a$,12)
当一个对象(如窗体或图片框)被移动或改变大小之后,或当一个覆盖该对象的窗体被移开之后,如果要保持该对象上所画图形的完整性,可以选择触发()事件来完成图形的重画工作。
设有如下程序:PrivateSubForm_Click()DimaAsInteger,sAsIntegern=8:s=0Dos=s+n:n=n-1LoopWhilen>0P
在窗体上添加一命令按钮,名称为Command1,然后为该命令按钮编写如下事件过程,该过程的执行结果为OptionBase1PrivateSubCommand1_Click()DimaAsVarianta=Array(1,2,3,
在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:PrivateSubForm_load()Text1.Text=″″Text1.SetFocusFori=1To9Sum=Sum+iNextiT
在设计程序时,应采纳的原则之一是
下列程序的输出图形是()。Fork=0To360cr=Int(160*RnD)ang=-3.1415926/180*kCircle(2000,2000),500,cr,0,angNext
在窗体上画一个文本框和一个图片框,然后编写下列两个事件过程:PrivateSubForm_C1ick()Textl.Text="VBProgramming"EndSubPrivateSubText1_change()
随机试题
OnSunday,Igotto______tohearmass.
生殖器结核中最常见的是
上颌尖牙V类阻生上颌尖牙Ⅳ类阻生
联邦德国统一铁路改建和新建工程的报告系统分为()大类和()小类。
公开发行债券募集说明书中,引用的经审计的最近1期财务会计资料在财务报告截止日后( )内有效。
在其他因素不变的条件下,一个投资中心的剩余收益的大小与企业投资人要求的最低报酬率呈反向变动。()
著名的教师成长公式是()。
某水池放满水需要半个小时,排光该水池的水需要80分钟,若该水池在放水时没有关上出水口,则此时将该水池放满水需要()分钟。
清代时编撰的《四库全书》是人类文化的重要成果,当时若采用印刷技术印刷该书,不可能做到的是()。
设随机变量X在区间(1,6)内服从均匀分布,则方程x2+Xx+1=0有实根的概率为_________________
最新回复
(
0
)