在标准模块中 Public x As Integer y As IntegerSub var_Pud() x=10 y=20End SubPrivate sub Command1_Click() Dim x As Integer Call var_Pud x = x + 100 y = y + 100 Print x,yEnd Sub