Dim str As String = "", temp, n As Integer
创新互联是一家集网站建设,嘉善企业网站建设,嘉善品牌网站建设,网站定制,嘉善网站建设报价,网络营销,网络优化,嘉善网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
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
用Erase 函数试试，
Erase函数的作用是：重新初始化大小固定的数组的元素，以及释放动态数组的存储空间。
希望有帮助
删除数组元素很简单,重新声明数组即可，代码如下
Redim [Preserve] 数组名 (下标上界)
这个也可以称为动态数组，这个东西是基础，非常重要。
这个功能就等于说，把原来的数组重新声明，Preserve是可选项，他的意思就代表是否保留数组内容,这是重点，如果你想删除数组中的元素，就不要写Preserve，这个方法的控制性也很好，可以重新声明数组的元素，各个方面都很有用，希望采纳！谢谢！
