VB.
- 格式：docx
- 大小：101.31 KB
- 文档页数：3
1.用全局级变量可以实现窗体之间的数据传递
（1）新建一个工程，添加两个窗体，名称分别为form1,form2，添加一个标准模块，名称默认为Module1，form1添加2个命令按钮，form2添加1个命令按钮，名称为默认的command1，command2.
（2）form1代码：
Private Sub Command1_Click()
x = InputBox("请输入需要传递的值")
Print x
End Sub
Private Sub Command2_Click()
Form2.Show
End Sub
（3）form2代码：
Private Sub Command1_Click()
Print x+4
End Sub
（4）module1代码：
Public x%
（5）启动工程，运行form1，单击command1按钮，在对话框中输入x的值为3，点击确定后form1显示数字为3，通过单击command2启动form2，单击form2中的command1按钮，在form2中获得结果为7，说明在form1中为变量x赋的值被传递到了form2中，验证成功。
（6）效果如图：
2．用模块级变量可以实现同一个窗体中不同过程之间的数据传递
（1）在form1中添加2个按钮command1，command2代码如下：
Dim y%
Private Sub Command1_Click()
y = y *2
Print y;
End Sub
Private Sub Command2_Click()
y = y + 2
Print y;
End Sub
（2）启动form1，依次重复点击Command1和Command2将出现以下结果，说明y的值在同一个模块form1的不同过程中传递。
（3）效果如图：
3. 通过过程的参数传递实现数据传递
（1）在form1中添加一个按钮command1，代码如下：
Private Sub Command1_Click()
Dim x%, y%, p%
x = InputBox("请输入x的值")
y = InputBox("请输入y的值")
p = HS(x, y)
Print p
End Sub
Function HS(ByVal a%, ByVal b%) As Integer
HS = a + b
End Function
（2）可以看到通过函数调用，输入x与y的值够，结果为x+y，则将一个过程中的数据通过参数传递给另一个过程，还可以将运算结果返回到调用过程，运行结果如图：。
