选择排序法
Dim a(9) As Long
Private Sub Command1_Click()
Dim i As Long, l As Long, n As Long
For i = 0 To 9
For l = i To 9
If a(i) > a(l) Then
n = a(i)
a(i) = a(l)
a(l) = n
End If
Next l
Debug.Print a(i)
Next i
End Sub
Private Sub Form_Load()
a(0) = 564
a(1) = 78: a(2) = 45: a(3) = 456412: a(4) = 456: a(5) = 1: a(6) = 45 + 79: a(7) = 12: a(8) = 1 * 799: a(9) = 65 / 5
Dim i As Long
For i = 0 To 9
Label1.Caption = Label1.Caption & "第" & CStr(i + 1) & "是:" & CStr(a(i)) & " "
Next i
End Sub
建立两个数组,一个包含整数,一个包含字符串,然后声明第三个Variant数据类型数组,并且整数和字符串数组存放其中。
Private Sub Command1_Click()
Dim i As Integer
Dim intarray(5) As Integer
For i = 0 To 4
intarray(i) = 2008
Next i
Dim strarray(5) As String
For i = 0 To 4
strarray(i) = "奥运"
Next i
Dim arr(1 To 2) As Variant
arr(1) = intarray()
arr(2) = strarray()
MsgBox arr(1)(2)
MsgBox arr(2)(3)
End Sub
三维数组下标输入
Dim a() As Long
Private Sub Command1_Click()
Dim n As Long, i As Long
Dim m As String
Dim s(1 To 3) As Long
For i = 1 To 3
m = InputBox("请输入数组的第" & CStr(i) & "个下标,数值不要过大。", "多维数组")
If IsNumeric(m) Then
s(i) = CLng(m)
Else
MsgBox "错误:输入不是数字。", vbOKOnly, "错误"
Exit For
End If
Next i
On Error Resume Next
ReDim a(s(1), s(2), s(3))
Text1.Text = "a(" & CStr(s(1)) & "," & CStr(s(2)) & "," & CStr(s(3)) & ")"
End Sub