小工具---年级卫生评比
外面那雨下的正紧，边上两个同学正在“梦三国”激战，我开始回忆起大一制作的一个小工具。
刚上大学的时候，老师竟然选择我成为四个年级负责人之一，竟然成了年级负责人，按照俞敏洪的说法，管他是什么荣誉，先拿了再说，其实这个负责人还是很难做的，现在给大家介绍我为做好这个职务而制作的小工具，大家一定会感慨，这年头干啥都不容易。
首先贴一张制作成功的图：
大家可以看到，情况是这样的，一共有22个寝室（包括女寝），一共从系里挑出12名评委（默认是这样的，有些时候有人没办法到），每个评委对22个寝室各打一个分数。在没有开发这个程序之前，是用手算的。我虽然下面有手下，但是这也太麻烦了，即使我们使用各种算法来简化，也很麻烦，任何人算错就挂了，特别是，当你正算的时候，寝室长过来收寝室费，“那个，谁，你上次交了多少”，当时就崩溃了，重算。。。。。
这个程序是非常简单的，为啥写上来呢，主要记录这段历史。对于一个热爱计算机事业的人来讲，生活中点滴的应用编程，都如珍珠一般。另外，这个程序写好，我一个人在数分钟内要在12个评委的目视下，正确敲击>528下的数字，来计算，可见这个工作真心没那么好做，年终，我给老师递交了一份20多页的记录。。。绝对是苦力。。
程序实现的功能是:输入12个评委对22个寝室的分数,计算出排名,并按照排名显示,后得出一个报表。
以下是代码：（下面是分析）
1 Dim i As Long 2 3 Dim n As Long 4 5 Dim check As Long 6 7 Dim t() As Integer 8 9 Private Sub Command1_Click() 10 11 i = i + 1 12 13 Label13.Caption = "寝室数:" & i 14 15 If i = check + 1 Then 16 17 Command1.Enabled = False 18 19 Cls 20 21 Label13.Caption = "寝室数:" & n 22 23 Print "总分:" 24 25 For S = 0 To n - 1 26 27 Print S + 1, t(S) 28 29 Next 30 31 For i = n To 1 Step -1 32 33 For j = 0 To i - 1 34 35 If t(j) > t(j + 1) Then 36 37 l = t(j): t(j) = t(j + 1): t(j + 1) = l 38 39 End If 40 41 Next j 42 43 Next i 44 45 Print "排序:" 46 47 For i = 1 To n 48 49 Print t(i) 50 51 Next 52 53 Else 54 55 For y = 0 To n - 1 56 57 t(y) = t(y) + Text1(y).Text 58 59 Next 60 61 For h = 0 To n - 1 62 63 Text1(h).Text = "" 64 65 Next 66 67 End If 68 69 End Sub 70 71 72 73 Private Sub Command2_Click() 74 75 Unload Me 76 77 End Sub 78 79 80 81 Private Sub Command3_Click() 82 83 n = Text2.Text 84 85 ReDim t(n) As Integer //使用控件组 86 87 For j = 0 To 21 88 89 Text1(j).Enabled = False 90 91 Next 92 93 For i = 0 To n - 1 94 95 Text1(i).Enabled = True 96 97 Next 98 99 Cls 100 101 Command1.Enabled = True 102 103 i = 0 104 105 End Sub 106 107 108 109 Private Sub Form_Load() 110 111 i = 0 112 113 n = 22 114 115 check = 12 116 117 ReDim t(n) As Integer 118 119 End Sub 120 121 122 123 Private Sub Timer1_Timer() 124 125 check = Text3.Text 126 127 If Text2.Text = 22 Then 128 129 Command3.Enabled = False 130 131 Else 132 133 Command3.Enabled = True 134 135 End If 136 137 End Sub
从这里的代码我们可以看到有以下几个问题：
1、命名不够规范-----这个程序设计目的是一次性使用的
2、对于许多的临界条件没有进行过滤和保护---异常机制没有做的很好
3、控件不够简约，流程不够方便