VB 定义全局变量问题？

Question

我在程序中定义个全局变量为什么编译总是出错？Public comsf As String
Public ttlf As String
Public flashf As String
Public eclf As String
Public selff As String
comsf = "  CMOS" & vbCrLf & _
"    Drive High       4;" & vbCrLf & _
"    Drive Low      0.2;" & vbCrLf & _
"    Receive High   3.6;" & vbCrLf & _
"    Receive Low    1.3;" & vbCrLf & _
"    Edge Speed      50;" & vbCrLf & _
"    Open Input Default  X;" & vbCrLf & _
"    Load        NONE;" & vbCrLf..........编译错误：
  无效外部过程。光标定在红字处。请问一下怎么解决啊 ？

Answer 1

Public ttlf As String
Public flashf As String
Public eclf As String
Public selff As String
Const comsf = "  CMOS" & vbCrLf & _
"    Drive High      4;" & vbCrLf & _
"    Drive Low      0.2;" & vbCrLf & _
"    Receive High  3.6;" & vbCrLf & _
"    Receive Low    1.3;" & vbCrLf & _
"    Edge Speed      50;" & vbCrLf & _
"    Open Input Default  X;" & vbCrLf & _
"    Load        NONE;" & vbCrLf

Answer 2

如果不是在过程中赋值, 给变量赋值,要设置为全局变量.(加上 Const 关键字)

Answer 3

更正:
如果不是在过程中赋值, 给变量赋值,要设置为常量.(加上 Const 关键字)

Answer 4

变量的赋值式不能位于声明变量的模块或窗体变量声明处，你应该在过程或事件中赋值，例：
Private Sub Form_Load()
    comsf = "  CMOS" & vbCrLf & _
    "    Drive High      4;" & vbCrLf & _
    "    Drive Low      0.2;" & vbCrLf & _
    "    Receive High  3.6;" & vbCrLf & _
    "    Receive Low    1.3;" & vbCrLf & _
    "    Edge Speed      50;" & vbCrLf & _
    "    Open Input Default  X;" & vbCrLf & _
    "    Load        NONE;" & vbCrLf
    Text1 = comsf
End Sub