一道VB自定义类型数组的应用题~ 高人帮忙给一下代码~ 急！~~~~ 谢谢了！！

来源：百度知道 编辑：UC知道 时间：2024/07/03 03:37:18
(1)自定义一个职工数据类型，包括职工号、姓名、工资三项内容。在通用声明段一个职工类型的数组，可存放5个职工的数据。
(2)窗体中设计3个标签、3个文本框、2个命令按钮和1个图形框。文本框分别输入职工号、姓名和工资。当单击“新增”按钮时，将文本框中的内容添加到数组的当前元素中；当单击“排序”按钮时，将输入的内容按工资递减的顺序排列，并在图形框中显示。

控件按要求自己加哈，不要给控件改名，不要做任何属性设置，程序代码如下：

Private Type EmployeeInfo
serial As String
name As String
wage As Single
End Type

Dim work(1 To 5) As EmployeeInfo

Private Sub Command1_Click()
Static n As Integer
If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Or Trim(Text3.Text) = "" Then MsgBox "新增时，文本框均不得留空！": Exit Sub
n = n + 1
work(n).serial = Text1.Text
work(n).name = Text2.Text
work(n).wage = Val(Text3.Text)
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Me.Caption = "已添加" & n & "位职工的信息"
If n = 5 Then
Command2.Enabled = True
Command1.Enabled = False
Me.Caption = "请按职工工资排序"
MsgBox "5位职工的信息已添加完毕！"
End If
End Sub

Private Sub Command2_Click()
Dim i As Integer, j As Integer, t As Single, temp As String
For i = 1 To 4
For