VB程序学习代码记录20160715

最新推荐文章于 2024-03-25 22:22:08 发布

Dominia

最新推荐文章于 2024-03-25 22:22:08 发布

阅读量317

点赞数

分类专栏：学习

本文链接：https://blog.csdn.net/qcx1221/article/details/51917391

版权

学习专栏收录该内容

31 篇文章 1 订阅

订阅专栏

选择排序法

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