UC知道关于VB程序调用的一套题目
来源：百度知道 编辑：UC知道 时间：2024/05/16 05:06:53
Dim y As Integer
Private Sub Form_Click()
Dim x As Integer
x = 1: y = 1
Print "x1="; x, "y1="; y
Test
Print "x4="; x, "y4="; y
End Sub
Private Sub Test()
Dim x As Integer
Print "x2="; x, "y2="; y
x = 2: y = 3
Print "x3="; x, "y3="; y
End Sub
第二行结果和第四行 是怎么得出的 答案我已经就知道 就是问问原因
Private Sub Form_Click()
Dim x As Integer
x = 1: y = 1
Print "x1="; x, "y1="; y
Test
Print "x4="; x, "y4="; y
End Sub
Private Sub Test()
Dim x As Integer
Print "x2="; x, "y2="; y
x = 2: y = 3
Print "x3="; x, "y3="; y
End Sub
第二行结果和第四行 是怎么得出的 答案我已经就知道 就是问问原因
第二行是调用TEST子程序的结果
X2=0 y2=1 在子程序序TEST中 X的值没有赋值, 所以是0, Y的值没有变化还是1(在Form_click中赋的值)
第四行是Form_Click中的
X4=1 Y4=3 X的值是1,与TEST中的X没有关系, Y的值是3, 是TEST中赋的值, 因为Y被定义为全程的变量
第二行的x是子过程中的变量,所以是0;y没变,所以是1
第四行的x是form_Click过程中的,所以还是1;y是模块变量,所以变为3