十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
用排序就好了, 分别取出首尾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
'给数组赋值
dim d(6) as integer
d(1)=11
d(2)=32
d(3)=25
d(4)=45
d(5)=9
d(6)=5
'获取最大值(采用打擂台的思路)
dim MyMax as integer
dim i as integer
MyMax = d(1) '假设第1个元素最大
for i = 2 To Ubound(d) '从第2个元素开始到最后一个元素
'如果当前元素比MyMax的值大,就把当前元素保存到MyMax
if d(i) MyMax Then
MyMax = d(i)
end if
next i
msgbox MyMax
dim a(x to n,m to i) 就是定义了个有(n-m+1)*(i-m+1)个元素的数组其他一维和多维的类似
那就是不能初始长度了,而且结构中定义个无参数的构造函数也不行,所以无法初始长度。
这有必要吗,在使用时重定义它的长度也可以。
Structure MODULEENTRY32
Dim Size As Integer
Dim Mid As Integer
Dim pid As Integer
Dim gusage As Integer
Dim pusage As Integer
Dim base As Integer
Dim 大小 As Integer
Dim 句柄 As Integer
Dim 文件名() As Byte
Dim 完整路径() As Byte
Sub t()
文件名 = Array.CreateInstance(GetType(Byte), 45) '建立数组
ReDim 文件名(45) '定义数组长度,其实数组也是对象,相当生成个实例。
文件名 = System.Text.ASCIIEncoding.ASCII.GetBytes("c:\windows\test.txt") '这两个数组内容多半是从字符串转换而来的,根本就不需要初始长度
End Sub