189 8069 5689
你说的是指定4还是指定6啊？
在善右等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供成都做网站、成都网站设计 网站设计制作定制网站开发,公司网站建设,企业网站建设,成都品牌网站建设,网络营销推广,外贸营销网站建设,善右网站建设费用合理。
如果是指定4，Private s(4) As String 即可，不过注意下标是0-3。
后面那个6在vb.net里面是没有必要指定的。
使用动态定义
ReDim a() AS **********'定义一个动态数组
...........
计算出第一个Y
ReDim a(0)
a(0)=Y
.....................
计算出第二个Y
ReDim Preserve a(1) '再次分配元素并保留原有元素
a(1) =Y
.........................
.........................
ReDim Preserve a(N) '第N次分配元素并保留原有元素
a(N) =Y
用排序就好了, 分别取出首尾6个元素
dim arr()
'''''''
redim arr(5)
arr(0) = 100
arr(1) = 435
arr(2) = 800
arr(3) = 220
arr(4) = 50
arr(5) = 999
Dim x, y, b, tmp
for y = 0 to ubound(arr)
b = true
for x = 0 to ubound(arr) - 1
if arr(x) arr(x+1) then
tmp = arr(x)
arr(x) = arr(x+1)
arr(x+1) = tmp
b = false
end if
next
if b then exit for
next
dim content
for each x in arr
content = content x chr(13)
next
content = content "min-" arr(0) " - " arr(1) " - " arr(2) chr(13)
content = content "max-" arr(ubound(arr)) " - "
arr(ubound(arr) - 1) " - " arr(ubound(arr) - 2)
chr(13)
msgbox content
因为下标从零开始。
shuzu 元素分别是 shuzu(0)、shuzu(1)、shuzu(2)、shuzu(3)。
你自己数一数有几个。
摘引自MSDN：
保留动态数组的内容
每次执行 ReDim 语句时，当前存储在数组中的值都会全部丢失。Visual Basi 重新将数组元素的值置为 Empty（对 Variant 数组）、置为 0（对 Numeric 数组）、置为 零长度字符串（对 String 数组）或者置为 Nothing（对于对象的数组）。
在为新数据准备数组，或者要缩减数组大小以节省内存时，这样做是非常有用的。有时希望改变数组大小又不丢失数组中的数据。使用具有 Preserve 关键字的 ReDim 语句就可做到这点。例如，使用 UBound 函数引用上界，使数组扩大、增加一个元素，而现有元素的值并未丢失：
ReDim Preserve DynArray (UBound (DynArray) + 1)
在用 Preserve 关键字时，只能改变多维数组中最后一维的上界；如果改变了其它维或最后一维的下界，那么运行时就会出错。所以可这样编程：
ReDim Preserve Matrix (10, UBound (Matrix, 2) + 1)
而不可这样编程：
ReDim Preserve Matrix (UBound (Matrix, 1) + 1, 10)