窗体上有Text1、Text2两个文本框及一个命令按钮Commandl,编写下列程序: Dim y As Integer Private Sub Commandl _Click() Dim x As Integer

admin2012-09-07  31

问题 窗体上有Text1、Text2两个文本框及一个命令按钮Commandl,编写下列程序:
    Dim y As Integer
    Private Sub Commandl _Click()
    Dim x As Integer
        x=2
        Text1.Text=p2(p1(x),y):Text2.Text=p1(x)
    End Sub
    Private Function p1(x As Integer)As Integer
    x=x+y:y=x+y
    p1=x+y
End Function
Private Function p2(x As Integer,y As Integer)As Integer
    p2=2*x+y
End Function
  程序运行后,第一次单击和第二次单击命令按钮后,文本框Text1和Text2内的值分别是(    )。

选项 A、2 4
  2 4
B、2 4
  4 8
C、10 10
  58 58
D、4 4
  8 8

答案C

解析 本题考查函数的调用以及变量的作用域。在命令按钮单击事件中调用p2函数,p2函数的参数为函数p1,因此首先计算p1调用以后产生的结果。第一次调用函数p1,变量y为窗体级变量,p1调用结束后y为2,p1为4;调用p2,得到p2值为10,x的值为2;继续调用p1(x),此时y值为2,调用结束以后p1为10。继续单击命令按钮,此时x值为2,而y的值为6,其余计算方法和第一次单击时相同。
转载请注明原文地址:https://jikaoti.com/ti/jiO0FFFM
0

随机试题
最新回复(0)