小工具---年级卫生评比

原创 2012年03月21日 16:24:22

小工具---年级卫生评比

外面那雨下的正紧,边上两个同学正在“梦三国”激战,我开始回忆起大一制作的一个小工具。

刚上大学的时候,老师竟然选择我成为四个年级负责人之一,竟然成了年级负责人,按照俞敏洪的说法,管他是什么荣誉,先拿了再说,其实这个负责人还是很难做的,现在给大家介绍我为做好这个职务而制作的小工具,大家一定会感慨,这年头干啥都不容易。

首先贴一张制作成功的图:


大家可以看到,情况是这样的,一共有22个寝室(包括女寝),一共从系里挑出12名评委(默认是这样的,有些时候有人没办法到),每个评委对22个寝室各打一个分数。在没有开发这个程序之前,是用手算的。我虽然下面有手下,但是这也太麻烦了,即使我们使用各种算法来简化,也很麻烦,任何人算错就挂了,特别是,当你正算的时候,寝室长过来收寝室费,“那个,谁,你上次交了多少”,当时就崩溃了,重算。。。。。

这个程序是非常简单的,为啥写上来呢,主要记录这段历史。对于一个热爱计算机事业的人来讲,生活中点滴的应用编程,都如珍珠一般。另外,这个程序写好,我一个人在数分钟内要在12个评委的目视下,正确敲击>528下的数字,来计算,可见这个工作真心没那么好做,年终,我给老师递交了一份20多页的记录。。。绝对是苦力。。

程序实现的功能是:输入12个评委对22个寝室的分数,计算出排名,并按照排名显示,后得出一个报表。

以下是代码:(下面是分析)

Dim i As Long
Dim n As Long
Dim check As Long
Dim t() As Integer
Private Sub Command1_Click()
i = i + 1
Label13.Caption = "寝室数:" & i
If i = check + 1 Then
Command1.Enabled = False
Cls
Label13.Caption = "寝室数:" & n
Print "总分:"
For S = 0 To n - 1
Print S + 1, t(S)
Next
For i = n To 1 Step -1
For j = 0 To i - 1
If t(j) > t(j + 1) Then
l = t(j): t(j) = t(j + 1): t(j + 1) = l
End If
Next j
Next i
Print "排序:"
For i = 1 To n
Print t(i)
Next
Else
For y = 0 To n - 1
t(y) = t(y) + Text1(y).Text
Next
For h = 0 To n - 1
Text1(h).Text = ""
Next
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
n = Text2.Text
ReDim t(n) As Integer //使用控件组
For j = 0 To 21
Text1(j).Enabled = False
Next
For i = 0 To n - 1
Text1(i).Enabled = True
Next
Cls
Command1.Enabled = True
i = 0
End Sub
Private Sub Form_Load()
i = 0
n = 22
check = 12
ReDim t(n) As Integer
End Sub
Private Sub Timer1_Timer()
check = Text3.Text
If Text2.Text = 22 Then
Command3.Enabled = False
Else
Command3.Enabled = True
End If
End Sub


从这里的代码我们可以看到有以下几个问题:

1、命名不够规范-----这个程序设计目的是一次性使用的

2、对于许多的临界条件没有进行过滤和保护---异常机制没有做的很好

3、控件不够简约,流程不够方便

区域卫生平台用户分析

本平台的用户对象包括公众(居民)、医疗卫生服务机构二三 本平台的用户对象包括公众(居民)、医疗卫生服务机构二三 本平台的用户对象包括公众(居民)、医疗卫生服务机构二三 本平台的用户对象包括公众(居民)...
  • hunsoft
  • hunsoft
  • 2016年08月24日 13:38
  • 529

2017国家卫生计生委主任等谈“十三五”开局之年卫生计生改革发展

2017国家卫生计生委主任等谈“十三五”开局之年卫生计生改革发展 [曲卫国]: 各位记者朋友,大家上午好。欢迎参加十二届全国人大五次会议记者会,本场记者会的主题是“‘十三五’开局之年卫生计生改革发展”...
  • li905663280
  • li905663280
  • 2017年03月31日 22:36
  • 936

解码上市银行手机APP排行 兴业获评分最高

“太麻烦了,换个手机重新登录还要先和原来的手机解绑”、“转账上限自己手动调整不了”、“闪退”、“升级后无法登陆”……随着手机银行成为消费者最常用的App之一,用户在使用过程中也多有吐槽。   为了进...
  • a2Ni5KFDaIO1E6
  • a2Ni5KFDaIO1E6
  • 2018年01月31日 05:56
  • 263

主流家庭影院播放器软件横向评比

通过windows平台和android平台的实际运行,挑选可以支持ftp/http/samba在线播放的家庭影院播放器软件....
  • danscort2000
  • danscort2000
  • 2017年10月23日 10:05
  • 409

江西省卫生高级职称论文发表要求

江西省卫生高级职称论文发表要求 省市类副高级资格 业绩成果条件 取得现资格以来,具备下列条件之二(其中第1条为必备条件): (1)在省级以上期刊发表本专业论文2篇(第一作者),其中至少有...
  • qq_38581321
  • qq_38581321
  • 2017年10月26日 16:19
  • 44

2014年卫生管理/医院管理(初级,中级,高级)考试真题免费下载 卫生人才评价考试

2014年卫生管理/医院管理(初级,中级,高级)考试真题免费下载 卫生人才评价考试 下载地址  http://msqs2009.wdwd.com/category.php?id=129   联系...
  • msqs2021
  • msqs2021
  • 2014年09月23日 12:34
  • 50

利用Python做工具-1

由于工作需要在一大堆日志里面提取相应的一些固定字符,如果单纯靠手工取提取,数据量大,劳心劳力,于是自然而然想到了用Python做一个对应的提取工具,代替手工提取的繁杂,涉及中文字符,正则表达式不好匹配...
  • JohnnyHu90
  • JohnnyHu90
  • 2015年03月25日 22:57
  • 3476

突发公共卫生事件应急指挥及决策系统解决方案

总体介绍  突发公共卫生事件应急指挥及决策系统解决方案由基础数据采集整合、专业服务决策分析、指挥和会商决策、地理信息系统展示四部分组成,从安全基础设施、应急系统安全和安全管理等三个层面综合考虑确保系统...
  • pcfan1
  • pcfan1
  • 2006年05月30日 13:44
  • 2633

大学各年级英语叫法

freshman,sophomore,junior AND senior很多时候一些小小的细节比如一个单词、一个短语、一个地道的说法就可以让你的英语瞬间升华,这就是精通地道美语的秘诀。freshman...
  • lightyearwp
  • lightyearwp
  • 2007年04月08日 12:20
  • 4387

区域卫生信息平台发展的一种战略选择与实现路径

区域卫生信息平台发展的一种战略选择与实现路径    前言 既有模式面临衰退的风险,外部面临潜在严重威胁 我们和用友相比,管理水平、技术能力、市场能力、资金实力、商誉等都不在一个档次上,它都在走...
  • wh_xia_jun
  • wh_xia_jun
  • 2017年04月17日 10:21
  • 334
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:小工具---年级卫生评比
举报原因:
原因补充:

(最多只允许输入30个字)