[填空题] 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下程序： Function Fun(x As Integer, ByValy As Integer)As Integer x=x+y If x＜0 Then Fun=X Else Fun=y End If End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a=-10:b=5

参考答案：

-55

● 参考解析

本题主要考查的是ByVal的作用。ByVal的作用是按值传递，在传递过程中不会改变原来的值。在此题中，b的值始终不变，而a的取值应随着每一次的运算而变化。执行Text1.Text=Fun(a,b)，应先执行语句a=a+b=-10+5=-5＜0，此时Fun的值即为a的值，故Text1的值为-5。执行Text2.Text=Fun(a，b)，此时a的值已变为-5，而b的值不变，仍然为5。故执行语句a=a+b后，a=-5+5=0，此时Fun的值应为b的值，故Text2的值为5。

当前位置：IT认证＞BASIC题库

相关题目: