a,b是模块里的变量,用户窗体输入一个数c,计算a+b-c代码如下:
插入一个模块:
Public Sub f()
Static a, b
a = 3
b = 4
UserForm1.Show
End Sub
插入一个用户窗体,放一个文本输入框和一个命令按钮,命令按钮的click事件:
Public Sub CommandButton1_Click()
If Not IsNumeric(Trim(TextBox1.Value)) Then
MsgBox "输入一个实数"
Exit Sub
End If
Dim c, d
c = Trim(TextBox1.Value)
d = a + b - c
MsgBox "计算结果是" & d
Unload Me
End Sub
随便输入一个数比如8,得到结果-8,表明用户窗体没有调用模块里的变量值,将模块里的变量用static声明也不行,请问该怎么做?