请大虾们指导如何把数据输出为csv文件？

Question

有如下例子，我现在想把他们输出为csv文件：
第一列为i的值，第二列为a(i)的值，
请大侠指教，谢谢啊Private Sub Form_Click()
    Dim i As Long
    Dim objExl As Excel.Application
    Dim a(1 To 10) As Integer
    
    For i = 1 To 10
        a(i) = Rnd * 10
    Next i
End Sub

Answer 1

啊？
怎么没有人理我啊，
是不是都放假回家了。
离春节还早着呢。csv格式就是能够直接用Excel打开的那种文件，
懂得请指导一下小弟阿
不胜感激

Answer 2

csv格式的文件其实就是用,分隔的文件形式，excel能直接读出
所以你的要求也很明确了，就是生成如下的格式
1，2，3，4，5，6（这个是你的i值）回车换行
下面是的a(i)值同样用,号分开然后回车换行！
随手写了个自己看下吧Option ExplicitPrivate Sub Command1_Click()
Dim str As String
Dim i As Long
Dim a(1 To 10) As IntegerFor i = 1 To 10
    str = str & i & ","
NextIf str <> "" Then
   str = Mid(str, 1, Len(str) - 1)
   str = str & vbCrLf
End If
    
For i = 1 To 10
    a(i) = Rnd * 10
    str = str & a(i) & ","
Next iIf Mid(str, 1, Len(str) - 1) = "," Then
   str = Mid(str, 1, Len(str) - 1)
   str = str & vbCrLf
End IfDim strTmpfile As String
strTmpfile = "c:\test.csv"Open strTmpfile For Output As #1
Print #1, str
Close #1End Sub

Answer 3

测试通过，
str = str & vbCrLf
这句中的vbCrLf是什么意思啊，
代表回车吧应该现在也找不到参考书看了，
仁兄给解释一下吧。