题目内容
（请给出正确答案）
设有Function过程:
Private Function f(a As Integer, b As Integer) As Integer
a = a * a:
b = b * b
f = CInt(Sqr(a - b))
End Function
则如下程序段的运行结果是()。
Private Sub Command1_Click()
Dim X As Integer, Y As Integer
X = 5: Y = 4
a = f(X, Y)
Print a
End Sub
A. 5
B. 4
C. 3
D. 9
如搜索结果不匹配，请 联系老师 获取答案
更多“设有Function过程:Private Function …”相关的问题
第1题
计算n!的函数过程如下:
Private Function fact(n As Integer)As Long
f = 1
For i = 1 To n
f = f * i
Next i
(___________________)
End Function
下划线处需要编写的语句是( )。
A. f = 1
B. f = fact
C. fact = f
D. 不需要其他任何语句
第2题
在窗体上画一个List1的列表框,一个名称为Label1的标签,列表框中显示若干个项目,当单击列表框中的某个项目时,在标签中显示被选中的项目的名称,下列能正确实现上述操作的程序是( )。
A) Private Sub List1_Click()
Label1.Caption = List1.ListIndex
End Sub
B) Private Sub List1_Click()
Label1.Name = List1.ListIndex
End Sub
C) Private Sub List1_Click()
Label1.Name = List1.Text
End Sub
D) Private Sub List1_Click()
Label1.Caption = List1.Text
End Sub
第3题
用来设置文本框有无滚动条的属性是( )
A. ScrollBars
B. MultiLine
C. SelText
D. SelLength
第4题
计算z的值,当x大于y时,z=x;否则z=y。下列语句错误的是( )
A. If x>=y Then z=x : z=y
B If x>=y Then z=x Else z=y
C. z=y : If x>=y Then z=x
D. If x<=y Then z=y Else z=x
第5题
运行下列程序段后,j3显示的结果为( )
J1=23
J2=32
j3=j1 & J2
A 3223
B 23
C 55
D 2332
第6题
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Sub Command1_Click()
num As Integer
= 1
Until num >6
num;
= num + 2.4
Sub
程序运行后,单击命令按钮,则窗体上显示的内容是( )
A、1 3.4 5.8
B、1 3 5
C、1 4 7
D、无数据输出
第7题
下列程序段运行后,其运行结果是( )。
Dim a(3) As Integer, b(3) As Integer
For k = 0 To 3
a(k) = k*k +k
b(k) = a(k)-k
Next k
Print a(2) + b(1)
A. 5
B. 6
C. 7
D. 8
第8题
在窗体上画一个名称为Command1的命令按钮,并编写如下程序: Public x As Integer
Private Sub Command1_Click()
Dim y As Integer
x=10 : y=5
Call f(x, y)
Print x; y
End Sub
Private Sub f(x1 As Integer, y1 As Integer)
x1=x+2
y1=y+2
End Sub
程序运行后,单击命令按钮,在窗体上显示的内容是( )。
A. 10 5
B. 12 7
C. 12 2
D. 以上都不对
第9题
若用户在键盘上按下一个键,则会产生一个( )事件
A. click
B. KeyDown
C. DbClick
D. Load
第10题
要在代码编辑器的“通用/声明”段部分定义私有Function函数,则正确的是()。
A. Public Sub
B. Public Function
C. Private Sub
D. Private Function
为了保护您的账号安全，请在“上学吧”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
上学吧
微信搜一搜
上学吧
