[已解决]根据窗体内数值判断名次

c888

根据窗体内数值判断名次.rar (9.95 KB, 下载次数: 26)

2012-2-14 21:15 上传

点击文件名下载附件
如附件。谢谢！

最佳答案

月排行榜 / 总排行榜

happym8888

2012-2-15 19:25

c888 发表于 2012-2-15 07:26
happym8888 您好！谢谢又能得到您的帮助。
有个问题请教下：第一：当成绩为空时，名次却判断为1。第二， ...

1. Private Sub CommandButton1_Click() '从小到大
   
2. Happy 1
   
3. End Sub
   
4. 
   
5. Private Sub CommandButton2_Click() '从大到小
   
6. Happy -1
   
7. End Sub
   
8. 
   
9. Sub Happy(ZoF As Integer)
   
10. Dim i, j, Ar(1 To 8, 1 To 2), Temp, Temp2
    
11. For i = 1 To 8
    
12. Frame2.Controls(i - 1) = ""
    
13. Next
    
14. For i = 1 To 8
    
15. Ar(i, 1) = Val(Frame1.Controls(i - 1).Text)
    
16. Ar(i, 2) = i
    
17. Next
    
18. For i = 1 To 7
    
19. For j = i + 1 To 8
    
20. If ZoF * (Ar(i, 1) - Ar(j, 1)) > 0 Then
    
21. Temp = Ar(i, 1): Temp2 = Ar(i, 2)
    
22. Ar(i, 1) = Ar(j, 1): Ar(i, 2) = Ar(j, 2)
    
23. Ar(j, 1) = Temp: Ar(j, 2) = Temp2
    
24. End If
    
25. Next j
    
26. Next i
    
27. j = 0
    
28. For i = 1 To 8
    
29. Frame2.Controls(Ar(i, 2) - 1) = i - j
    
30. If Ar(i, 1) = 0 Then j = j + 1: Frame2.Controls(Ar(i, 2) - 1) = ""
    
31. Next i
    
32. For i = 1 To 7
    
33. If Ar(i, 1) = Ar(i + 1, 1) Then
    
34. Response = MsgBox("有相同数据,按并列名称排序？" & Chr(10) & "选择“确定”按并列名次排序？" & Chr(10) & "选择“取消”按目前形式排序", vbOKCancel)
    
35. If Response = vbOK Then Frame2.Controls(Ar(i + 1, 2) - 1) = Frame2.Controls(Ar(i, 2) - 1) Else Exit For
    
36. End If
    
37. Next
    
38. End Sub
    

复制代码

跳转到最佳答案楼层

lzclzch

如果数值相等那名次什么排

hrpotter

1. Private Sub CommandButton1_Click()    '从小到大
   
2.     Dim i, j, k As Byte
   
3.     Dim ar(1 To 8), br(1 To 8)
   
4.     Dim temp
   
5.     For i = 1 To 8
   
6.         ar(i) = Val(Me.Controls("TextBox" & i))
   
7.     Next
   
8.     For i = 1 To 7
   
9.         For j = i + 1 To 8
   
10.             If ar(i) > ar(j) Then
    
11.                 temp = ar(i)
    
12.                 ar(i) = ar(j)
    
13.                 ar(j) = temp
    
14.             End If
    
15.         Next j
    
16.     Next i
    
17.     Label1 = ar(1)
    
18.     Label2 = ar(2)
    
19.     Label5 = ar(3)
    
20.     Label6 = ar(4)
    
21.     Label7 = ar(5)
    
22.     Label8 = ar(6)
    
23.     Label9 = ar(7)
    
24.     Label10 = ar(8)
    
25. End Sub
    
26. 
    
27. Private Sub CommandButton2_Click()    '从大到小
    
28.     Dim i, j, k As Byte
    
29.     Dim ar(1 To 8), br(1 To 8)
    
30.     Dim temp
    
31.     For i = 1 To 8
    
32.         ar(i) = Val(Me.Controls("TextBox" & i))
    
33.     Next
    
34.     For i = 1 To 7
    
35.         For j = i + 1 To 8
    
36.             If ar(i) < ar(j) Then
    
37.                 temp = ar(i)
    
38.                 ar(i) = ar(j)
    
39.                 ar(j) = temp
    
40.             End If
    
41.         Next j
    
42.     Next i
    
43.     Label1 = ar(1)
    
44.     Label2 = ar(2)
    
45.     Label5 = ar(3)
    
46.     Label6 = ar(4)
    
47.     Label7 = ar(5)
    
48.     Label8 = ar(6)
    
49.     Label9 = ar(7)
    
50.     Label10 = ar(8)
    
51. End Sub
    

复制代码

根据窗体内数值判断名次.rar (13.69 KB, 下载次数: 11)

2012-2-14 22:26 上传

点击文件名下载附件

c888

hrpotter 发表于 2012-2-14 22:26

谢谢，如果数据变化后，名次判断就出现问题了。
题意是：不论数值如何变化，最小的都是第一名，次为第二名，............；反之,最大为第一，次为第二名。如果名次出现相同，最好能出现提示，再进行判断操作。
谢谢指教！！！

hrpotter

c888 发表于 2012-2-14 22:39
谢谢，如果数据变化后，名次判断就出现问题了。
题意是：不论数值如何变化，最小的都是第一名，次为第二 ...

你试过吗，我改了数据，排序也正确呀！

happym8888

1. 
   
2. Private Sub CommandButton1_Click() '从小到大
   
3. Happy 1
   
4. End Sub
   
5. 
   
6. 
   
7. Private Sub CommandButton2_Click() '从大到小
   
8. Happy -1
   
9. End Sub
   
10. 
    
11. 
    
12. Sub Happy(Zof As Integer)
    
13. Dim i, j, Ar(1 To 8, 1 To 2), Temp, Temp2
    
14. For i = 1 To 8
    
15. Frame2.Controls(i - 1) = ""
    
16. Next
    
17. For i = 1 To 8
    
18. Ar(i, 1) = Val(Frame1.Controls(i - 1).Text)
    
19. Ar(i, 2) = i
    
20. Next
    
21. For i = 1 To 7
    
22. For j = i + 1 To 8
    
23. If Zof * (Ar(i, 1) - Ar(j, 1)) > 0 Then
    
24. Temp = Ar(i, 1): Temp2 = Ar(i, 2)
    
25. Ar(i, 1) = Ar(j, 1): Ar(i, 2) = Ar(j, 2)
    
26. Ar(j, 1) = Temp: Ar(j, 2) = Temp2
    
27. End If
    
28. Next j
    
29. Next i
    
30. For i = 1 To 8
    
31. Frame2.Controls(Ar(i, 2) - 1) = i
    
32. Next i
    
33. For i = 1 To 7
    
34. If Ar(i, 1) = Ar(i + 1, 1) Then Frame2.Controls(Ar(i + 1, 2) - 1) = Frame2.Controls(Ar(i, 2) - 1)
    
35. Next
    
36. End Sub
    

复制代码

根据窗体内数值判断名次(Happym8888).rar (10.68 KB, 下载次数: 10)

2012-2-15 03:51 上传

点击文件名下载附件

c888

happym8888 发表于 2012-2-15 03:49

happym8888 您好！谢谢又能得到您的帮助。
有个问题请教下：第一：当成绩为空时，名次却判断为1。第二，当名次相同时，能否有个提示框出现。再次感谢！

happym8888

c888 发表于 2012-2-15 07:26
happym8888 您好！谢谢又能得到您的帮助。
有个问题请教下：第一：当成绩为空时，名次却判断为1。第二， ...

1. Private Sub CommandButton1_Click() '从小到大
   
2. Happy 1
   
3. End Sub
   
4. 
   
5. Private Sub CommandButton2_Click() '从大到小
   
6. Happy -1
   
7. End Sub
   
8. 
   
9. Sub Happy(ZoF As Integer)
   
10. Dim i, j, Ar(1 To 8, 1 To 2), Temp, Temp2
    
11. For i = 1 To 8
    
12. Frame2.Controls(i - 1) = ""
    
13. Next
    
14. For i = 1 To 8
    
15. Ar(i, 1) = Val(Frame1.Controls(i - 1).Text)
    
16. Ar(i, 2) = i
    
17. Next
    
18. For i = 1 To 7
    
19. For j = i + 1 To 8
    
20. If ZoF * (Ar(i, 1) - Ar(j, 1)) > 0 Then
    
21. Temp = Ar(i, 1): Temp2 = Ar(i, 2)
    
22. Ar(i, 1) = Ar(j, 1): Ar(i, 2) = Ar(j, 2)
    
23. Ar(j, 1) = Temp: Ar(j, 2) = Temp2
    
24. End If
    
25. Next j
    
26. Next i
    
27. j = 0
    
28. For i = 1 To 8
    
29. Frame2.Controls(Ar(i, 2) - 1) = i - j
    
30. If Ar(i, 1) = 0 Then j = j + 1: Frame2.Controls(Ar(i, 2) - 1) = ""
    
31. Next i
    
32. For i = 1 To 7
    
33. If Ar(i, 1) = Ar(i + 1, 1) Then
    
34. Response = MsgBox("有相同数据,按并列名称排序？" & Chr(10) & "选择“确定”按并列名次排序？" & Chr(10) & "选择“取消”按目前形式排序", vbOKCancel)
    
35. If Response = vbOK Then Frame2.Controls(Ar(i + 1, 2) - 1) = Frame2.Controls(Ar(i, 2) - 1) Else Exit For
    
36. End If
    
37. Next
    
38. End Sub
    

复制代码