当前位置:编程学习 > VB >>

我用VB写了一个学生评语程序作为毕业论文,基本功能都有了,可老师说功能少,不知道大家谁知道在里面还要添加什么功能

我用VB写了一个学生评语生成系统软件,用于交本科毕业论文,里面包括了对学生德,智,体,美,劳五个方面的设计,同时还加进去老师自己的个人意风,最终生成最终评语,可论文交上去以后,老师说功能少,可我感觉该有的都有了,还少什么呀?如果有哪位高手知道应该添加什么其他功能的话,请尽快给我回个信,我们要求2008年9月20日前必需定稿,否则就拿不到毕业证,真是着急呀!下面是我写的源程序和最终效果图:

       





二、有关控件的属性
控件名称 属性 功能描述
Combo1 Text=‘请选择寄语’ 供选择相应的寄语
Command1 Caption=“生成”
Command2 Caption=“保存” 保存成.txt文件
Command3 Caption=“退出”
Text1 供生成评语
Text2 供添加自定义评语
Text3 供输入姓名
Frame控件4个 分开德智体美劳五项
Option控件20个 细分成四个等级
Label控件3个 显示相应提示信息
   
2.3、源代码
  Option Explicit
'声明德智体美劳变量
Dim Mind as String, Score as String, PE as String
Dim Manner as String, Labor as String, jy As String
Private Sub Combo1_Click ()
    jy = Combo1.Text
End Sub

'生成
Private Sub Command1_Click ()
    If Text3.Text = "" Then
        MsgBox "姓名栏不能为空", vbOKOnly, "提示"
        Text3.SetFocus
        Text1.Text = ""
    Else
        Text1 = "    " + Text3.Text + "同学一学期来" + Mind + Score + _
            PE + Manner + Labor + Text2.Text + jy
    End If
End Sub

'保存
Private Sub Command2_Click ()
    Dim sF as String
    sF = Text3.Text + ".txt"
    Open sF For Output As #1
    Print #1, Text1.Text
    Close #1
End Sub

Private Sub Command3_Click ()
    End    '退出
End Sub

'德
Private Sub Option1_Click (Index as Integer)
    Select Case Index
        Case 0
            Mind = "各方面从高从严要求自己,上进心强,遵守纪律。"
        Case 1
           Mind = "思想上要求进步,严于律已,能较好地遵守校纪班规。"
        Case 2
            Mind = "有一定的上进心,基本上能遵守学校的规章制度。"
        Case 3
            Mind = "思想纪律表现一般,基本上能遵守校纪班规,但自律能力不强,偶尔"  + "有意外行为。"
    End Select
End Sub

'智
Private Sub optScore_Click (Index as Integer)
    Select Case Index
    Case 0
        Score = "学习能力出众,勤奋用功,成绩优异,如保持下去,前途无限。"
    Case 1
        Score = "学习能力较好,肯下功夫,成绩优良,有较好的发展潜力。"
    Case 2
       Score = "有一定的自学能力,所做出的努力取得相应的成绩,挖掘潜力可观。"
    Case 3
        Score = "学习上用心程度不够,成绩不太理想,但悟性较好,经努力会很快有长足进步的。"
    End Select
End Sub

'体
Private Sub Option3_Click (Index as Integer)
    Select Case Index
        Case 0
            PE = "热爱体育,积极参加体育锻炼,体能素质优良,身体健康。"
        Case 1
            PE = "爱好体育,主动参加体育锻炼,体能素质良好,身体健康。"
        Case 2
            PE = "基本上按要求参加体育锻炼,成绩合格。"
        Case 3
            PE = "体育方面不太理想,身体素质有待加强。"
    End Select
End Sub

'美
Private Sub Option4_Click (Index as Integer)
    Select Case Index
        Case 0
            Manner = "为人诚实,尊重老师、长辈,团结同学,乐于助人。"
        Case 1
            Manner = "待人有礼貌,尊重师长、团结同学。"
        Case 2
            Manner = "和气待人,与同学和好相处。"
        Case 3
            Manner = "举止有些欠周到,望加强修养。"
    End Select
End Sub

'劳
Private Sub Option2_Click (Index as Integer)
    Select Case Index
        Case 0
            Labor = "热爱劳动,有吃苦耐劳的精神。"
        Case 1
            Labor = "劳动积极肯干,能吃苦耐劳。"
        Case 2
            Labor = "劳动课能完成任务,但主动性有待提高。"
        Case 3
            Labor = "劳动方面认识不足,表现一般。"
    End Select
End Sub
--------------------编程问答-------------------- 我塞.

本科毕业论文可以写成这样啊.,

也太简单了吧.

--------------------编程问答-------------------- 一个五分钟就可以搞定的东西可以当本科毕业论文?也太搞笑了吧! --------------------编程问答-------------------- 现在的学生啊~~~~~ --------------------编程问答-------------------- 强人啊,这样的代码都能拿出来
253 --------------------编程问答-------------------- ... --------------------编程问答-------------------- 楼主是一个徘徊在牛A和牛C之间的人。 --------------------编程问答--------------------

  偶在想你的论文是怎么写的

  貌似理学本科论文要8000字吧

--------------------编程问答-------------------- 看代码也看出来少啊,最好弄个数据库连接的,把字段什么的存到数据库中,这样显得水平高了,再搞些花哨的东西,代码一大堆,还是结合数据库的,保证拿到好评,呵呵! --------------------编程问答-------------------- 谁有VB+ACCESS的寝室管理系统论文吗 有的加QQ965232 感谢大家了 --------------------编程问答-------------------- 通过你的程序可以看出你的CASE语句用的很到家。。。。。。。。 --------------------编程问答-------------------- 本科论文有的很简单的。正是。。。。
特别现在扩招,有的老师水平都很一般啊。我有几个同学在高校里教书,他们的水平我也有些了解的。 --------------------编程问答-------------------- 这也忒简单了点
如果是整套程序的一个小模块还说的过去
整个毕业设计只有这么点东西,怎么写论文?
论文没有1cm厚能过关? --------------------编程问答-------------------- 至少缺少评语查询,窗体仅一个,这只能算作高中学生的VB编程项目,作为大学的毕业论文似乎水平太低。
要求2008年9月20日前必需定稿,现在看到,再帮助也无济于事。 --------------------编程问答-------------------- 我不是学计算机的,已经毕业了,但你的这样的毕业论文,我想连我这个自学VB不到一个月的都感觉超过你不少啊,现在的大学生在干什么? --------------------编程问答-------------------- 如果这样的论文能通过答辩的(本科的),我觉得我自学一个月设计的程序可以通过博士论文的答辨了!哈..... --------------------编程问答-------------------- 至少要能够自定义的说。。。。
--------------------编程问答-------------------- 保存要能够选择位置
关闭要提示
还有就是读取数据库批量生成。
打开并分析生成的文件(保存的逆运算) --------------------编程问答-------------------- VB这样的毕业设计也可以啊 ,我们一般不用VB做毕业设计 
  我们当时要1.5W字
   --------------------编程问答-------------------- 就像Word1.0也是基本功能都有。可为什么会有Word2007呢?
功能添加了。
还有就是画面美化了~~ --------------------编程问答-------------------- 天啊!!这种语句也是本科毕业。我高一时VB水平都比这个好...
现在本科毕业,只用几句简单的评语类的话就想毕业,真是异想天开... --------------------编程问答-------------------- 涉嫌口水贴 --------------------编程问答-------------------- 噢,是太少了。
补充:VB ,  API
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,