源码vb考勤.docVIP

源码vb考勤 VB课程设计 考勤登记表 姓名：熊廷林 班级：1141302 学号：201140130217 2013年5月13日 目录 一、系统概要 1、题目要求 2、功能概述 二、设计思路 三、窗体的详细设计 四、程序及源代码 五、心得体会 一、系统概要 1、题目要求 本题目要求开发一个用于学校或者单位进行考勤工作的实用程序。能够对学校班级里的学生或单位的员工进行考勤，记录每天每位学生或成员的考勤情况，并能对整个班级或单位考勤情况进行统计，然后件数据保存。考勤情况可分为出勤、迟到、早退、旷课和请假5种。 2、功能概述 这个程序主要能实现对学校学生或单位员工的考勤情况的记录，通过输入姓名和学号，以及自己输入的考勤情况，提交之后能对这些信息进行记录并统计出来。通过对窗体文件的操作来实现以上的功能。 二、设计思路 1、先构建的窗体并添加相应的控件 2、对各个窗体及窗体上的控件caption等属性进行相应的更改 3、各个窗体相应的代码和控件相应的程序编写 4、外观的设计 三、窗体的详细设计 主程序界面： 若没有输入姓名或学号和考勤情况，程序应出现的提示对话框： 在“考勤登记表”单击“统计信息”能调出的统计情况窗口： 对此窗口文件的各项操作： 清除： 保存到文件： 篇二：vb常用程序代码 1、求半径为r的圆的面积，要求用户从键盘输入半r。 程序代码： Private Sub Form_click() Const PI = 3.14 Dim r% Dim s! r = InputBox(请输入半径r的值：, 求圆的面积) s = PI * r * r Form1.FontSize = 16 Print 半径是 + Str(r) + 的圆的面积是 + Str(s) End Sub 2、输入三个整数，从小到大顺序输出。 程序代码： Private Sub Form_click() a = InputBox(a) b = InputBox(b) c = InputBox(c) Print 排序前：; a, b, c If a b Then t = a: a = b: b = t If a c Then t = a: a = c: c = t If b c Then t = b: b = c: c = t Print 排序后：; a, b, c End Sub 3、输入三个整数，从大到小顺序输出。 程序代码： Private Sub Form_click() a = InputBox(a) b = InputBox(b) c = InputBox(c) Print 排序前：; a, b, c If a lt;b Then t = a: a = b: b = t If a lt; c Then t = a: a = c: c = t If b lt; c Then t = b: b = c: c = t Print 排序后：; a, b, c End Sub 4、输入x的值，输出对应的值。 y=10+2x(0lt;x≦10) 50-x(10lt;x≦20) 30(20lt;x≦30) 60-x(30lt;x≦40) 程序代码： （一）、 Private Sub Command1_Click() Dim x As Integer, y As Integer x = Val(Text1.Text) If x 0 And x lt;= 10 Then y = 10 + 2 * x MsgBox x= amp; x amp; y= amp; y ElseIf x lt;= 20 Then y = 50 - x MsgBox x= amp; x amp; y= amp; y ElseIf x lt;= 30 Then y = 30 MsgBox x= amp; x amp; y= amp; y ElseIf x lt;= 40 Then y = 60 - x MsgBox x= amp; x amp; y= amp; y Else MsgBox x= amp; x amp; 不在统计数据的范围内 End If End Sub （二）、 Private Sub Command1_Click() Dim x%, y% x = InputBox(x) Select Case x Case Is lt;= 10 y = 10 + 2 * x Case Is lt;= 20 y = 50 - x Case Is lt;= 30 y = 30 C