调用函数 返回多个参数 怎么修改

大罡

程序如下：

1. Public Proj_Name ，Proj_No， Company，Sales As String
   
2. <font size="2">Function base()
   
3.      Dim z, TextLine，arr()
   
4.     Open "C:\atest\name.txt" For Input As #1
   
5.     Do While Not EOF(1)    ' 循环至文件尾。
   
6.    Line Input #1, TextLine    ' 读入一行数据并将其赋予某变量。
   
7.    z = z + 1
   
8.         ReDim Preserve arr(1 To z)
   
9.         arr(z) = TextLine
   
10.     Loop
    
11.     Close #1
    
12.    
    
13.     Proj_Name = arr(1)
    
14.     Proj_No = arr(2)
    
15.     Company = arr(3)
    
16.     Sales = arr(4)
    
17.     Stop</font>
    
18.   End Function
    
19. 
    
20. 
    
21. Sub projectname()
    
22.   Selection.Text = <font size="2">Proj_Name </font>
    
23. End Sub

复制代码

函数的作用是读取一个文本文件的前4行，然后把只赋给数组，
sub projectname（）的作用是 将数组arr(1)，即读取到的第一行的文本，输出到插入点。帮忙修改一下。哪里不对啊。谢谢。

大罡

自己顶一下

大罡

1. Function base() As Variant
   
2. Dim arr() As Variant
   
3. 
   
4.      Dim i, TextLine
   
5.     Open "C:\atest\name.txt" For Input As #1
   
6.     Do While Not EOF(1)    ' 循环至文件尾。
   
7.         Line Input #1, TextLine    ' 读入一行数据并将其赋予某变量。
   
8.         i = i + 1
   
9.         ReDim Preserve arr(1 To i)
   
10.         arr(i) = TextLine
    
11.      
    
12.     Loop
    
13.     Close #1
    
14.    
    
15.    'Stop
    
16.      base = arr
    
17.     End Function
    
18.   Sub ProjectName()
    
19.   Selection.Text = base(1)
    
20.   Selection.Collapse 0
    
21.     End Sub
    
22. Sub ProjectNo()
    
23.   Selection.Text = base(2)
    
24.   Selection.Collapse 0
    
25.     End Sub
    
26.     Sub Company_Name()
    
27.   Selection.Text = base(3)
    
28.   Selection.Collapse 0
    
29.     End Sub

复制代码

自己来解答。代码作用：定义一个base的数组函数，将文本文件的第n行读取出来，放在数组里。
Sub ProjectName() 将数组第一行读出，并输入到插入点，插入点折叠到末尾。    Sub Company_Name()第二行读出， Sub Company_Name()第三行读出