UC知道vb 关于通用
来源：百度知道 编辑：UC知道 时间：2024/06/03 01:29:40
两个数要在不同的地方多次运用
如
a=6+7+4
b=9+0+4+a
那么在Private Sub Command61_Click()
中可能两个都用到
如 c=a+b
在Private Sub Command62_Click()
中可能用到a
在Private Sub Command63_Click()
中可能用到b
.........
如果把，a和b写成通用的该怎么写
就像
Function fi(ByVal v As Long) As Long
Dim l As Long
While v > 0
l = v Mod 10
v = v \ 10
Select Case l
Case 0, 1, 2, 3, 4
fi = fi + l
End Select
Wend
End Function
这句一样，将来我在任何地方调用fi都可以，这个a和b该怎么写，最好要写在一起，不要分开写，如在一个通用声明下既有a也有b
如
a=6+7+4
b=9+0+4+a
那么在Private Sub Command61_Click()
中可能两个都用到
如 c=a+b
在Private Sub Command62_Click()
中可能用到a
在Private Sub Command63_Click()
中可能用到b
.........
如果把，a和b写成通用的该怎么写
就像
Function fi(ByVal v As Long) As Long
Dim l As Long
While v > 0
l = v Mod 10
v = v \ 10
Select Case l
Case 0, 1, 2, 3, 4
fi = fi + l
End Select
Wend
End Function
这句一样，将来我在任何地方调用fi都可以，这个a和b该怎么写，最好要写在一起，不要分开写，如在一个通用声明下既有a也有b
Public a As Integer
Public b As Integer
Function fi() As Long
a=6+7+4
b=9+0+4+a
End Function
如果是多个窗口：
在模块中
public a as integer
public b as integer
如果是单个窗口
在通用声明
dim a as integer
dim b as integer
把a,b放在公用模块中申明,定义为全局变量
如果说在同一窗体中使用的话，你可以在控件选择中点通用定义变量！如果在多窗体中使用的话，用模块定义变量！