Dim str As String = "", temp, n As Integer
成都创新互联自2013年创立以来，先为石阡等服务建站，石阡等地企业，进行企业商务咨询服务。为石阡企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
Dim str1 As String = "12,45,2,9,41,31,66,83,2,1,-9,-91,-21"
Dim a() As String = Split(str1, ",")
For i = 1 To UBound(a) Step 1
a(i) = Val(a(i))
Next
temp = 0
n = 0
For i = 1 To UBound(a)
If a(i) temp Then
temp = a(i)
End If
If a(i) 0 Then
n = n + 1
End If
Next
str = str "正数的个数为 " n
str = str "最大元素的下标为 "
For i = 1 To UBound(a)
If a(i) = temp Then
str = str i " "
End If
Next
TextBox6.Text = str
CSV文件，在EXCEL里可以直接生成与读取。
可以通过VB点虐 去操作，打开EXCEL文件，去完成上述操作，而更为简单的办法是直接当做操作文本文件（TXT文件）就可以，因为用记事本软件，打开CSV文可以发现，其实际上是一个行内数据之间用逗号分隔的格式文件。
下面给出例子：
在窗体上添加两个多行文本框，两个按钮，两个文本框一个用来输入生成CSV文件的数据，另一个用来读取显示CSV文件的数据；两个按钮，一个完成生成CSV文件的代码，另一个完成读取CSV文件的代码；具体代码如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'创建(写入)一个文本文件
Dim MyStream As New System.IO.FileStream(Application.StartupPath "\Ssk.CSV", System.IO.FileMode.Create)
Dim MyWriter As New System.IO.StreamWriter(MyStream, System.Text.Encoding.Default)
MyWriter.WriteLine(TextBox1.Text)
MyWriter.Flush()
MyWriter.Close()
MyStream.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'读取一个文本文件
Dim MyReader As New System.IO.StreamReader(Application.StartupPath "\Ssk.CSV", System.Text.Encoding.UTF8)
TextBox2.Text = MyReader.ReadToEnd()
MyReader.Close()
End Sub
注意：在输入文本框里，同一行数据的数据之间用逗号（西文逗号）分隔。
VB中PRINT语句后面用分号和逗号区别为：表示不同、输出格式不同、适合不同。
一、表示同
1、用分号：用分号表示下次开始紧接着上次结束的位置。
2、用逗号：用逗号表示下次开始的位置和上次结束位置相隔一个Tab的位置。
二、输出格式不同
1、用分号：用分号的输出格式为紧凑格式输出。
2、用逗号：用逗号的输出格式为默认标准格式输出。
三、适合不同
1、用分号：用分号适合于只有中文内容或只有英文内容输出。
2、用逗号：用逗号适合于中文、英文内容混合输出。
用数组呗。我是用VB6的，不过你会.NET也肯定能看懂。
不是文本文件么？先用Line Input读每行存入数组。再把每行数据用你的"，"分割，就可以查询了。我写个简单的例子：
'搜索函数，用法Search(标头，序号)，返回数据.
Private Function Search(ByVal Section As String, ByVal Index As Integer) As String
Dim fNum%, Lines%, temp%, Str As String
ReDim Data(0)
fNum = FreeFile()
If Dir("C:\\1.txt") = "" Then Exit Function
'文件路径和文件名你自己改
Open "C:\\1.txt" For Input As #fNum
Do While Not EOF(fNum)
Lines = Lines + 1
'行数
Line Input #fNum, Str
ReDim Preserve Data(Lines)
Data(Lines) = Str
Loop
Close #fNum
If Lines 0 Then
Dim tmp() As String
For temp = 1 To UBound(Data)
tmp = Split(Data(temp), "，")
'分割
If tmp(0) = Section Then
Search = tmp(Index - 1)
'因为从0开始所以-1
Exit Function
End If
Next
End If
End Function
比如你要“gc“开头的第5个数据，就用Search("gc",5)即可返回45。
