您所在位置：主题：VB菜鸟~求好心人帮解决个问题~~
atl2332514
[专家分：0] 发布于 2013-01-18 08:47:00
Sub
Read_Staad_Data
End Sub
Sub Read_Staad_Data(myType As String)
Dim bFlag4Ent As Boolean
Dim bFlag4Exact As Boolean
Dim bFlag4Spring As Boolean
Dim lngProgValue As Long
Dim intMod As Integer
Dim aryFirst() As Double
Dim PCount As Integer
Dim MCount As Integer
Dim msgString As String
Dim CorT As Boolean
Dim countLCase As Integer
Dim aryScnd() As Double
Dim k As Integer
Dim aryTemp() As Double
'MsgBox CorT
Dim myFunction As clsMy
Dim FirstLC_No As Integer
Dim First_Line As Long
Dim Last_Line As Long
Dim start_load_case As Long
Dim end_load_case As Long
在这里第一个sub 后面应该加什么呢？及啊~~谢谢了
