2. 计算机
  3. 窗体上有一个名称为Command 1的命令按钮，一个名称为Text1的文本框。编写如下程序： Private Sub Command 1_Click() Dim x As Integer X=Val(InputBox("输入数据"))：Text1=Str(

窗体上有一个名称为Command 1的命令按钮，一个名称为Text1的文本框。编写如下程序： Private Sub Command 1_Click() Dim x As Integer X=Val(InputBox("输入数据"))：Text1=Str(

admin2015-05-29  90
问题 窗体上有一个名称为Command 1的命令按钮，一个名称为Text1的文本框。编写如下程序：
Private Sub Command 1_Click()
Dim x As Integer
X=Val(InputBox("输入数据"))：Text1=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翻倍，否则将h变为n的平方返回。在函数头部没有声明函数的返回值类型，默认为变体型，可以接受任何数据类型的赋值；ByRef表示参数按址传递，对形参的改变将会影响实参；当输入5的时候输出5+25+625=655；当输入6的时候输出6+12+24=42。
转载请注明原文地址:https://www.kaotiyun.com/show/yCQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)