首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
2019-06-20
37
问题
窗体上有一个名称为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://kaotiyun.com/show/KwUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了声明一个长度为128个字符的定长字符串变量StrD,以下语句中正确的是
如果在VisualBasic集成环境中没有打开属性窗口,下列可以打开属性窗口的操作是
下列说法中,错误的是
设窗体上有一个Text1文本框和一个HScroll1水平滚动条,并有下面的事件过程:PrivateSubHScroll1_Change()Text1=HScroll1EndSub在程序运行时,当把滚动框移动到最左边时,文本框中显示的是100;
以下关于键盘事件的叙述中,错误的是
在面向对象的程序设计中,可被对象识别的动作称为
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下:PublicxAsIntegerPrivateSubFor
假定有以下循环结构DoUntil条件表达式循环体Loop则以下正确的描述是
在考生文件夹下有一个数据库文件“samp2.accdb”,里面已经设计好了表对象“tCourse”、“tGrade”和“tStudent”,请按以下要求完成设计。(1)创建一个查询,查找并显示“姓名”、“政治面貌”和“毕业学校”等3个字段的内容,
以下能对正实数d的第3位小数四舍五入的表达式是
随机试题
使用水泥砂浆结合层铺设陶瓷地砖的构造要求,以下哪一条不恰当?[1998年第096题]
产品向科技冲刺文字识别技术既是一项难度很大的研究课程,又是一个应用性很强的技术开发项目,而联机手与汉字识别的发明人刘迎建,就是从自己的工作实践中体会到,突破键盘输入,实现手写是这一技术的最高境界。这项技术的创立、发展,我国办公自动化开创了一个新的
危险度评定的结果可用于以下几方面,除了
根据《规划环境影响技术评价导则一总纲》,对资源、环境要素的重大不良影响进行分析判断时,可不包括的内容是()。
依据《劳动法》的规定,未成年人是指()的劳动者。
下列账户中,贷方登记增加的是()。
除按照规定不需要发给税务登记证件的外,纳税人必须持税务登记证件办理的事项是()。
设随机变量X与Y相互独立,下表列出二维随机变量(X,Y)的联合分布律及关于X和Y的边缘分布律的部分数值,试将其余的数值填入表中空白处.
如果要在整个报表的最后输出信息,需要设置
Susan:I’msogladtoseeyou,David.【K1】________hasbeensuchalongtime.Howareyou? David:I’mfine,andyou? Susan:
最新回复
(
0
)