求一道VB题目

来源：百度知道 编辑：UC知道 时间：2024/05/16 12:17:51
用自定义一个职工类型,包含职工号,姓名,工资,比如 "001 张三,1000"
然后声明职工类型的动态数组,输入几个职工的数据,要求按工资递减排序显示结果.

会的高手帮下忙啊,会做的把全部源代码或文件发我邮箱里~~谢谢了~

Option Base 1
Private Type worker'自定义职工类型
num As String
name As String
wages As Single
End Type
Private Sub Command1_Click()
Dim wk() As worker, m%, i%, j%, b As Variant'自定义职工动态数组
m = InputBox("请输入职工人数")
ReDim wk(m)
For i = 1 To m
wk(i).num = InputBox("第" & i & "位职工的号码:")
wk(i).name = InputBox("第" & i & "位职工的姓名:")
wk(i).wages = Format(InputBox("第" & i & "位职工的工资:"), "0.00")
Next
'排序
For i = UBound(wk) To 2 Step -1
For j = 1 To (i - 1)
If wk(j).wages > wk(j + 1).wages Then
b = wk(j).wages: wk(j).wages = wk(j + 1).wages: wk(j + 1).wages = b
b = wk(j).name: wk(j).name = wk(j + 1).name: wk(j + 1).name = b
b = wk(j).num: wk(j).num = wk(j + 1).num: wk(j + 1).num = b
End If
Next j
Next i
'显示
For i = UBound(wk) To 1 Step -1
Print "