1、打开VB6.0，新建一个工程，在窗体中添加两个命令按钮，caption分别改为“生成”和“求平均值”，添加一个标签改名为Lbl1，添加一个文本框，将界面设置成下图：
2、双击生成命令按钮，进入代码编辑窗口，输入如下代码：Dim a As Integer, i 钽吟篑瑜As IntegerRandomizeFor i = 1 To 10a = Int(Rnd * 90) + 10Lbl1.Caption = Lbl1.Caption & " " & aSum = Sum + aNext i
3、双击求平均值按钮，输入如下代码：Text1.Text = "平均值是：" & Sum / 10
4、关闭代码窗口，按下F5运行程序，单击生成命令按钮，标签上生成10个随机数，如图：
5、按下求平均值命令按钮，求取10个数的平均值，得到结果如图：
6、求出的平均值是0，显然不对，但是分析算法都没有错。错误出在变量的传递上，生成命令按钮中的sum变量只在该命令按钮中有用，为过程级变量，到了求平均值命令按钮中无效，系统自动给sum赋值为0。所以求的结果是0。
7、进入代码编辑窗口，在通用代码段(左侧下拉三角形进行选择)输入：Dim Sum As Integer '定义窗体级变量
8、然后再运行程序，得出平均值结果如图：平均值是45.9，为正确结果。通过将Sum变量改为窗体级变量，得到了预期效果。
