VB：编程实现自定义类型数组，按某一字段排序

朴灿烈づ我的快乐病毒、 2022-05-27 12:05 188阅读 0赞

题目来源：大工慕课 [链接][Link 1]  
原题：Visual Basic程序设计教程（第二版）龚沛曾主编，高等教育出版社 实验5-10（改）  
作者：Caleb Sung

# 课堂作业 #

![这里写图片描述][70]  
特别感谢某小可爱的资瓷~

--------------------

# 题目要求 #

界面设计样式：  
![这里写图片描述][70 1]

1.  在**模块文件**里自定义类型（学号，姓名，成绩1，成绩2），共四个成员。
2.  **输入**按钮功能：将具有5个元素的数组各成员送入自定义数组中。
3.  **显示输入数据**按钮功能：在列表框1里显示输入数组元素列表。
4.  **按VC成绩升序排列**按钮功能：在列表框2里显示，按VB成绩升序排列后的数组元素列表。
5.  输入数组**越界**，要给出提示。

--------------------

# 参考代码 #

出于习惯考虑我把显示数据的两个文本框换成了图片框，请大家注意。

## 全局定义 ##

自定义数组数据类型，相当于Java声明一个class：

Private Type clerk
        number As String * 4
        name As String * 5
        vc As Integer
        vb As Integer
    End Type
    
    Dim a(0 To 4) As clerk, n%

## “输入”按钮 ##

题目要求的“越界”我认为有两种：一个是输入的总人数，作为样例我这里设定的是5个；一个是分数，只能在0-100分（含）的范围内。当然数据范围大家都是可以自行调整的：

Private Sub Command1_Click()
        If n >= 5 Then
            MsgBox ("输入人数超过数组声明的个数")
        ElseIf Text3 > 100 Or Text3 < 0 Or Text4 > 100 Or Text4 < 0 Then
            MsgBox ("成绩输入异常，请检查")
        Else
            With a(n)
                .number = Text1
                .name = Text2
                .vc = Text3
                .vb = Text4
            End With
            n = n + 1
            Text1 = ""
            Text2 = ""
            Text3 = ""
            Text4 = ""
        End If
    End Sub

## “结束”按钮 ##

Private Sub Command2_Click()
        End
    End Sub

## “显示已输入的数据”按钮 ##

Private Sub Command3_Click()
        Picture1.Cls
        Picture1.Print "学号 姓名 VC VB"
        Picture1.Print "---------------------------------------------"
        For i = 0 To n - 1
            Picture1.Print a(i).number, a(i).name, a(i).vc, a(i).vb
            Print
        Next i
    End Sub

## “按VC成绩升序排列”按钮 ##

相当于在上个按钮的代码之前再加一个排序：

Private Sub Command4_Click()
        Dim t As clerk, i%, j%
        For i = 0 To n - 1
            For j = i To n - 2
                If a(i).vc > a(j + 1).vc Then
                    t = a(i): a(i) = a(j + 1): a(j + 1) = t
                End If
            Next j
        Next i
        Picture2.Cls
        Picture2.Print "学号 姓名 VC VB"
        Picture2.Print "---------------------------------------------"
        For i = 0 To n - 1
            Picture2.Print a(i).number, a(i).name, a(i).vc, a(i).vb
            Print
        Next i
    End Sub

--------------------

# 运行效果 #

## 越界提示 ##

比如我输入一个不可能的成绩（102分），程序检测到Text3文本越界，报错：  
![这里写图片描述][70 2]  
同时这个成绩不会保存到数组中去。

## 最终结果 ##

![这里写图片描述][70 1]

[Link 1]: https://mooc.dlut.edu.cn/
[70]: /images/20220527/c21d2a38aa764ffa8afc0847261d003c.png
[70 1]: /images/20220527/26d6b029e3e549aa9a5aa27e457a4012.png
[70 2]: /images/20220527/26b3d3d7e72c452e8f3c7b92938c7815.png