Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer
x = 1: y = 2: z = 3
Call god(x, x, z)
Print x; x; z
End Sub

这题中call god是什么意思，他怎样把XXY转化呢？？

Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer
x = 1: y = 2: z = 3
Call god(x, x, z)
Print x; x; z

End Sub

Private Sub god(x As Integer, y As Integer, z As Integer)
x = 3 * z + 1
y = 2 * z
z = x + y

End Sub


全题目是这样的，刚才打少了一点

不懂BASIC，呵呵，如果是传值，结果是1 1 3,传引用，就用到GOD函数里的操作吧

Private Sub god(x As Integer, y As Integer, z As Integer)
x = 3 * z + 1
y = 2 * z
z = x + y
End Sub

Private Sub Form_Load()
Dim x As Integer, y As Integer, z As Integer
x = 1
y = 2
z = 3
Call god(x, x, z)
Print x, x, z
Call god(x, y, y)
Print x, y, y
End Sub

还有，如果print不出来，请注意把窗体的autoredraw属性改为TRUE。

3月刚考完VB，基本上都忘得差不多了。。。。看我写的是否对你有帮助？
创建一个模块，定义一个名叫GOD的模块变量，其中(x As Integer, y As Integer, z As Integer)就是定义这个函数所能包含的类型都是整数；x = 3 * z + 1 y = 2 * z  z = x + y这三个就是函数所包含的式子，你可以理解为即将要套用的公式。Dim就是定义数据类型，而CALL就是把之前模块所定义的式子调回过程中，然后把x = 1: y = 2: z = 3这三个数套进之前模块GOD的式子中，再打印出来，就这样。
VB教材会有专门一张讲模块变量的，LZ可以看一看，二级VB机试有关模块的考得不多，基本的都记住就行，最后一体很大可能是考文件操作（通常都会安排在VB教材中的最后一章），LZ要花点心思看，这一部分可能有点难度。总体来说二级VB不是很难，提前两个月左右复习就没问题了。要是还有什么问题就再发一下贴，我懂的话一定帮你，9月份的考试加油啦


我貌似太多话了。。。。。{:1_288:}

太罗嗦啦

8# 蜡笔小新 我就系惊LZ睇唔明