精华内容
下载资源
问答
  • 随着社会的快速发展,如何用最短的时间、最少的资源做出最多的成绩已经日益成为所有人追求的目标了。而在工资管理这一块,很多企业还是相当的不成熟,整个工资管理体系效率也十分的低。不管是好从企业提高管理效率...
  • VB课程设计(代码

    2020-01-06 11:43:59
    29.成绩统计与查询 30.拼图游戏 31.按揭还款 32.排足球队员出场名单 33.掷色子 34.数学运算测试 35.文件管理器 36.新年贺卡 37.新文本阅读器 38.期末成绩处理 39.某部门电话查询系统 40.模拟交通灯 41....
  • VB实训项目:学生成绩管理系统V1.0

    万次阅读 多人点赞 2018-02-28 18:34:45
    文章目录 ...8、成绩统计(均值、标准差、最高分、最低分、成绩分布) 三、工程结构 四、工程目录结构 五、实现步骤 (一)登录窗体frmLogin 1、界面设计 2、事件代码 3、运行效果 (二)主窗体...

    文章目录

    一、项目概述

    二、运行效果演示

    1、启动界面

    2、用户登录

    3、系统主界面

    4、打开数据库(设置待显示科目和显示次序)

    5、浏览成绩表

    6、查询成绩表

    7、成绩排序

    8、成绩统计(均值、标准差、最高分、最低分、成绩分布)

    三、工程结构

    四、工程目录结构

    五、实现步骤

    (一)登录窗体frmLogin

    1、界面设计

    2、事件代码

    3、运行效果

    (二)主窗体MDIMain

    1、界面设计

    2、事件代码

    3、运行结果

    (三)关于窗体frmAbout

    1、界面设计

    2、事件代码

    六、项目下载


    一、项目概述

    该系统针对中小学成绩管理的实际情况,操作简单,功能实用,设置灵活,能充分满足中小学教师与班主任管理成绩的需要。

    利用该系统你能进行成绩表管理,包括建表、浏览、追加、修改、删除、查询、排序、统计分析等等功能,减少教师的重复劳动,提高工作效率。 该系统的版本V1.0,能够处理每学期科目不同的情况,可以随意设置科目名称,科目数最多可达15个,当然可以小于15个科目。

    当您登录进入该系统,有两种不同的权限级别:管理员和浏览者。系统管理员的用户名是系统规定好的,为system,其权限包括系统维护、成绩表浏览、编辑、删除。而浏览者不能进行系统维护,也不能编辑和删除成绩表。


    二、运行效果演示

    1、启动界面

    2、用户登录

    3、系统主界面

    4、打开数据库(设置待显示科目和显示次序)

    5、浏览成绩表

    6、查询成绩表

    7、成绩排序

    8、成绩统计(均值、标准差、最高分、最低分、成绩分布)

    三、工程结构

    四、工程目录结构

    五、实现步骤

    (一)登录窗体frmLogin

    1、界面设计

    2、事件代码

    Dim Password As String, pp As String
    
    Private Sub cmdExit_Click()
        Unload Me
        End
    End Sub
    
    Private Sub cmdLogin_Click()
        Static i As Integer
        If Txtpassword.Text = Password Then
            Unload Me
        Else
            Me.Hide
            i = i + 1
            If i = 3 Then
                MsgBox "您无权使用,请退出系统!", vbInformation, "登录失败!"
                Unload Me
                End
            Else
                MsgBox "密码错误,请重试!", vbInformation, "登录失败!"
                Me.Show
                Txtpassword.SetFocus
                Txtpassword.SelStart = 0
                Txtpassword.SelLength = Len(Txtpassword.Text)
            End If
        End If
    End Sub
    
    Private Sub Form_Activate()
        Txtpassword.SetFocus
    End Sub
    
    Private Sub Form_Load()
        pp = GetSetting(App.Title, "Login", "PWD", "")
        Password = ""
        For i = 1 To Len(pp)
            Password = Password + Chr$(Asc(Mid$(pp, i)) - i)
        Next i
    End Sub
    
    Private Sub Txtpassword_KeyPress(KeyAscii As Integer)
        If KeyAscii = 13 Then
            cmdLogin_Click
        End If
    End Sub

    3、运行效果

    (二)主窗体MDIMain

    1、界面设计

    2、事件代码

    Private Sub MDIForm_Load()
        ChDrive App.Path
        ChDir App.Path
        StatusBar1.Panels(2).Text = Format(Now, "yyyy年mm月dd日") & " " & WeekdayName(Weekday(Now))
    End Sub
    
    Private Sub MDIForm_Unload(Cancel As Integer)
        If MsgBox("您要退出【学生成绩管理系统】吗?", vbYesNo + vbQuestion) = vbYes Then
            End
        Else
            Cancel = True
        End If
    End Sub
    
    Private Sub mnuAbout_Click()
        frmAbout.Show
    End Sub
    
    Private Sub mnuAppend_Click()
        frmAppend.Show
    End Sub
    
    
    Private Sub mnuBackup_Click()
        frmBackup.Show
    End Sub
    
    Private Sub mnuBrowse_Click()
        frmBrowse.Show
    End Sub
    
    Private Sub mnuClose_Click()
        On Error Resume Next
        mnuOpen.Enabled = True
        mnuClose.Enabled = False
        db.Close
        mnuManipulate.Enabled = False
        mnuManage.Enabled = True
        MDIMain.StatusBar1.Panels(2).Text = ""
        Unload MDIMain.ActiveForm
        Toolbar1.Buttons("open").Enabled = True
        Toolbar1.Buttons("close").Enabled = False
        Toolbar1.Buttons("browse").Enabled = False
        Toolbar1.Buttons("append").Enabled = False
        Toolbar1.Buttons("edit").Enabled = False
        Toolbar1.Buttons("delete").Enabled = False
        Toolbar1.Buttons("find").Enabled = False
        Toolbar1.Buttons("sort").Enabled = False
        Toolbar1.Buttons("statistic").Enabled = False
        StatusBar1.Panels(2).Text = Format(Now, "yyyy年mm月dd日") & " " & WeekdayName(Weekday(Now))
    End Sub
    
    Private Sub mnuContact_Click()
        ShellExecute hWnd, "open", "mailto:maths007@163.com", 0, 0, 0
    End Sub
    
    Private Sub mnuContent_Click()
        If Dir("c:\windows\hh.exe") <> "" Then
            Shell "c:\windows\hh.exe " & App.Path & "\data\score.chm", vbNormalFocus
        ElseIf Dir("c:\winnt\hh.exe") <> "" Then
            Shell "c:\winnt\hh.exe " & App.Path & "\data\score.chm", vbNormalFocus
        End If
    End Sub
    
    Private Sub mnuDelete_Click()
        frmDelete.Show
    End Sub
    
    Private Sub mnuEdit_Click()
        frmEdit.Show
    End Sub
    
    Private Sub mnuExit_Click()
        Unload Me
    End Sub
    
    Private Sub mnuManage_Click()
        frmManage.Show
    End Sub
    
    Private Sub mnuNew_Click()
        frmNew.Show
    End Sub
    
    Private Sub mnuOpen_Click()
        frmOpen.Show
    End Sub
    
    Private Sub mnuPassword_Click()
        frmSetPWD.Show
    End Sub
    
    Private Sub mnuFind_Click()
        frmFind.Show
    End Sub
    
    Private Sub mnuRestore_Click()
        frmRestore.Show
    End Sub
    
    Private Sub mnuSort_Click()
        frmSort.Show
    End Sub
    
    Private Sub mnuStatistic_Click()
        frmStatistic.Show
    End Sub
    
    Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
        Select Case Button.Key
            Case "new"
                mnuNew_Click
            Case "open"
                mnuOpen_Click
            Case "close"
                mnuClose_Click
            Case "browse"
                mnuBrowse_Click
            Case "append"
                mnuAppend_Click
            Case "edit"
                mnuEdit_Click
            Case "delete"
                mnuDelete_Click
            Case "find"
                mnuFind_Click
            Case "sort"
                mnuSort_Click
            Case "statistic"
                mnuStatistic_Click
            Case "help"
                mnuContent_Click
        End Select
    End Sub

    3、运行结果

    (三)关于窗体frmAbout

    1、界面设计

    2、事件代码

    Option Explicit
    
    Private Sub Form_Load()
        Me.Left = (MDIMain.ScaleWidth - Me.Width) / 2
        Me.Top = (MDIMain.ScaleHeight - Me.Height) / 2
    End Sub
    
    Private Sub Timer1_Timer()
        Unload Me
    End Sub

    其余功能模块,省略……

    六、项目下载

    项目下载链接:https://download.csdn.net/download/howard2005/14047069

    展开全文
  • VB程序题:随机产生20个学生的成绩统计各分段人数。即0-59、60-69、70-79、80-89、90-100,并显示结果。产生的数据在Picture1显示,统计结果在Picture2显示。龚沛曾解题,如下面的效果图所示,画2个图片框,画2个...

    VB程序题:随机产生20个学生的成绩,统计各分段人数。即0-59、60-69、70-79、80-89、90-100,并显示结果。产生的数据在Picture1显示,统计结果在Picture2显示。龚沛曾

    解题,如下面的效果图所示,画2个图片框,画2个按钮,代码如下:

    Dim a%(19)

    Private Sub Command1_Click()

    Picture1.Cls

    For i = 0 To 19

    a(i) = Int(Rnd * 101)

    Picture1.Print a(i); "  ";

    If (i + 1) Mod 4 = 0 Then Picture1.Print

    Next i

    End Sub

    Private Sub Command2_Click()

    Picture2.Cls

    Dim s(5 To 9)

    For i = 0 To 19

    k = a(i) \ 10

    Select Case k

    Case 0 To 5

    s(5) = s(5) + 1

    Case 9 To 10           '90~100分的人数

    s(9) = s(9) + 1

    Case 6 To 8             ' 存放其他三个分数段的下标有规律,根据K获得

    s(k) = s(k) + 1

    End Select

    Next i

    For i = 5 To 9

    If s(i) <> 0 Then Picture2.Print "s("; i; ")的人数有 "; Format(s(i), "0"); "个"

    Next i

    End Sub

    运行程序效果图如下:

    Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码 wb86.com

    展开全文
  • 完成教师信息、任课信息、科研成绩、职称评定、用户等的全过程管理,包括新进教师加入时系统档案的建立、教师职位的变动等引起职工信息的修改、教师信息查询、统计等管理工作以及系统用户的账号密码管理。
  • Attribute VB_Name = "模块1" Public classCount As Integer Public sheetName As String '作者 Xian云 '日期 2018-5-3 ...Sub 成绩统计自动化() '以下两行代码为了提高运算速度...
    Attribute VB_Name = "模块1"
    Public classCount As Integer
    Public sheetName As String
    
    
    '作者  Xian云
    '日期  2018-5-3
    '程序非万能,必要请手动
    '若工作表处于保护状态,则程序无法读取并修改,请取消保护并保存,以使用此程序
    
    Sub 成绩统计自动化()
        
        '以下两行代码为了提高运算速度,暂时关闭掉屏幕上的效果显示,计算结束后恢复
        Application.ScreenUpdating = False
        Application.Calculation = xlCalculationManual
        
        Dim sql As String
        Dim className As String
        
        sheetName = InputBox("请输入要统计的表的名字(如sheet1)", "需要您的输入")
        classCount = Val(InputBox("请输入班级总数", "需要您的输入"))
    '   sheetName = "1次月考总成绩"
    '   classCount = 16
        Dim i As Integer
        For i = 1 To classCount
            className = i & "班"
            sql = "select * from [" + sheetName + "$] where 班级 = """ & className & """" + "order by 总分 desc"
            Call sqlExe(sql, className)
            scoreCalc (className)
        Next
        '恢复屏幕显示,恢复计算
        Application.ScreenUpdating = True
        Application.Calculation = xlCalculationAutomatic
        Application.Calculate
    End Sub
    
    
    
    '统计指定表的成绩并返回
    Function scoreCalc(table As String)
        '若考试科目增加或修改,只需要修改下面的数组中的科目信息,注意英文引号及逗号
        classNames = Array("语文", "数学", "英语", "思品", "历史", "地理", "生物")
        Dim name As String
        Dim flg As Boolean
        Dim col As Integer, row As Integer, getIndex As Integer, Count As Integer
        Dim i As Integer, j As Integer
        
        col = ActiveWorkbook.Worksheets(table).UsedRange.Columns.Count
        row = ActiveWorkbook.Worksheets(table).UsedRange.Rows.Count
        
        flg = True
        Count = 0
        For i = 1 To col
            name = ActiveWorkbook.Worksheets(table).UsedRange.Cells(1, i)
            
            getIndex = -1
            
            '找到成绩列
            For j = 0 To 6
                If classNames(j) = name Then
                    getIndex = j
                    Exit For
                End If
            Next j
            
            If getIndex <> -1 Then
                Call colWidth(i, 5)
                If flg Then
                    Call setTitle(table, i, row, "平均分")
                    Call setTitle(table, i, row + 1, "及格率")
                    Call setTitle(table, i, row + 2, "优秀率")
                    flg = False
                End If
                Call setAvg(table, i, row)
                Call setPassing(table, i, row + 1)
                Call setExcellent(table, i, row + 2)
            Else
                If name = "班级" Then Call colWidth(i, 4.25)
                If name = "考号" Then Call colWidth(i, 11.5)
                If name = "序号" Then Call colWidth(i, 3.75)
                If name = "姓名" Then Call colWidth(i, 7.5)
                If name = "总分" Then Call colWidth(i, 4.13)
                If name = "校名次" Then Call colWidth(i, 6)
            End If
        Next i
    End Function
    
    '设置第i列的宽度
    Sub colWidth(ByVal i As Integer, ByVal width As Single)
        ColumnName = Chr(i + Asc("A") - 1)
        Columns(ColumnName & ":" & ColumnName).Select
        Selection.ColumnWidth = width
    End Sub
    
    
    Sub setTitle(table As String, ByVal i As String, row As Integer, ByVal title As String)
        c = Chr(i + Asc("A") - 2)
        Range(c & (row + 1)).Select
        Application.Worksheets(table).Range(c & (row + 1)).Clear
        Application.Worksheets(table).Range(c & (row + 1)).FormulaR1C1 = title
    End Sub
    
    '根据sql语句查询,并将结果返回,sql语句的结果须为一个整型值
    Function setAvg(table As String, ByVal i As String, row As Integer) As Integer
        c = Chr(i + Asc("A") - 1)
        Range(c & (row + 1)).Select
        sss = "=AVERAGE(R[" & (1 - row) & "]C:R[-1]C)"
         '   ActiveCell.FormulaR1C1 = "=AVERAGE(R[-59]C:R[-1]C)"
        Application.Worksheets(table).Range(c & (row + 1)).Clear
        Application.Worksheets(table).Range(c & (row + 1)).FormulaR1C1 = sss
        Selection.NumberFormatLocal = "0.00_ "
    End Function
    
    
    '计算及格率并填入表格
    Function setPassing(table As String, ByVal i As String, row As Integer) As Integer
        c = Chr(i + Asc("A") - 1)
        Range(c & (row + 1)).Select
        sss = "=COUNTIF(R[" & (1 - row) & "]C:R[-2]C,"">=60"")/COUNT(R[" & (1 - row) & "]C:R[-2]C)"
        Application.Worksheets(table).Range(c & (row + 1)).Clear
        Selection.NumberFormatLocal = "0.000_ "
        Application.Worksheets(table).Range(c & (row + 1)).FormulaR1C1 = sss
    End Function
    '
    '计算优秀率并填入表格
    Function setExcellent(table As String, ByVal i As String, row As Integer) As Integer
        c = Chr(i + Asc("A") - 1)
        Range(c & (row + 1)).Select
        sss = "=COUNTIF(R[" & (1 - row) & "]C:R[-3]C,"">=80"")/COUNT(R[" & (1 - row) & "]C:R[-3]C)"
         '   ActiveCell.FormulaR1C1 = "=AVERAGE(R[-59]C:R[-1]C)"
        Application.Worksheets(table).Range(c & (row + 1)).Clear
        Selection.NumberFormatLocal = "0.000_ "
        Application.Worksheets(table).Range(c & (row + 1)).FormulaR1C1 = sss
    End Function
    
    
    '完成查询功能并新建工作表保存,sql为查询语句
    Sub sqlExe(sql As String, table As String)
        Dim cnn As Object, rs As Object
        Set cnn = CreateObject("adodb.connection")          '创建数据库连接
        cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ActiveWorkbook.FullName
        
        Set rs = CreateObject("adodb.recordset") '创建一个数据集
        Set rs = cnn.Execute(sql) '执行查询
        
        Sheets.Add.name = table
        ActiveWorkbook.Worksheets(table).Cells.ClearContents
       
        Dim i As Integer
        For i = 1 To rs.Fields.Count - 1
            ActiveWorkbook.Worksheets(table).Cells(1, i) = rs.Fields(i - 1).name '填写标题到指定表
        Next
        ActiveWorkbook.Worksheets(table).Range("a2").CopyFromRecordset rs '复制记录集到指定表
        
        rs.Close
        Set rs = Nothing
        cnn.Close
        Set cnn = Nothing
    End Sub
    
    
    
    

    展开全文
  • 1.课上练习(1)要求和代码:A. 要求:统计出每个人的总分,然后依次输出import xlrd import xlwt # 读取excel文件,把学号,名字,姓名组成一个字典后放到列表中,然后把学号去重 xlsx = xlrd.open_workbook('三年...

    905acc044ac243b272cb247bff1c8902.png

    1.课上练习

    (1)要求和代码:

    A. 要求:统计出每个人的总分,然后依次输出

    34061a18706a1b485cc916e3def64add.png
    import xlrd
    import xlwt
    
    # 读取excel文件,把学号,名字,姓名组成一个字典后放到列表中,然后把学号去重
    xlsx = xlrd.open_workbook('三年二班(各科成绩单).xls')
    # 选择指定sheet
    sheet = xlsx.sheet_by_index(0)
    # 依次单元格数据,并统计总分
    all_data = []
    # 统计共有多少学生,并去重
    num_set = set()  # 创建集合的方式
    for row_i in range(1, sheet.nrows):  # sheet.nrows:从1开始计数,而非0
        num = sheet.cell_value(row_i, 0)
        name = sheet.cell_value(row_i, 1)
        grade = sheet.cell_value(row_i, 3)
            # 每取一行数据就放到字典中,如果是键值对的就放到字典中!
        student = {
            'num': num,
            'name': name,
            'grade': grade,
        }
            # 每组成一个字典就放到列表中,键值对放字典中,字典放列表中
        all_data.append(student)
            # 非键值对的多个数据可以放到列表或者集合中,但是集合可以去重,这里就用了这个
        num_set.add(num)
    # print(all_data)
    # print(len(all_data))
    # print(len(num_set))
    
    # 计算总分
    sum_list = []
    # 两个for循环遍历,第一个对每个人进行一次遍历,第二个对每个人的多个信息标签进行遍历
    for num in num_set:
        name = ''
        sum = 0
            # 根据学号判断,同一个学号的多个值,多个成绩求和,然后给名字附上值存入字典中
        for student in all_data:
            # print(student['num'])
            # print(num)
            if num == student['num']:
                sum += student['grade']
                name = student['name']
        sum_stu = {
            'num': num,
            'name': name,
            'sum': sum
        }
            # 同样每生成一个字典,将该字典放到列表中
        sum_list.append(sum_stu)
    print(sum_list)
    

    B.要求:统计2班学生总分并生成在一个新Excel文件中

    代码:

    # 新建工作簿
    new_workbook = xlwt.Workbook()
    # 新建sheet
    worksheet = new_workbook.add_sheet('2班')
    # 新建单……元格,并写入内容
    # 写入第一列的内容
    worksheet.write(0, 0, '学号')
    worksheet.write(0, 1, '姓名')
    worksheet.write(0, 2, '总分')
    # 自动写入后面的内容,按列写入
    for row in range(0,len(sum_list)):
        worksheet.write(row+1,0,sum_list[row]['num'])
        worksheet.write(row+1,1,sum_list[row]['name'])
        worksheet.write(row+1,2,sum_list[row]['sum'])
    # 保存
    new_workbook.save('2班学生总分.xls')

    效果:

    b3163451a5ca767f80f836a0a616902d.png

    2.课后练习

    要求:统计出下表中每人总成绩,然后输出到一个名为"143班2012年夏季期末成绩分数汇总"的表格中

    658e673eed65d175d2756fe47a32250e.png

    代码:

    # 期待您的代码
    展开全文
  • VB成绩统计饼图,生成圆形图表,圆饼百分比图表的例子,这种图表相信大家见多了,这个例子介绍了VB简单生成圆饼图的方法,对初学VB的朋友会有帮助,通过这个图表,你可以了解绘图、填充、按比例分配、绘制扇形等是...
  • VB打字游戏源码+程序

    2018-10-23 10:17:43
    使用VB语言编写的打字游戏,包含完整的Visual Studio 2010工程,内含源代码以及程序文件,可以直接打开编译更改代码添加功能。含有计时,正确率统计,暂停,成绩记录等功能。
  • VB中我们可能通过循环,甚至添加几个控件来实现这个功能,在现学的C#中用的代码思路很简单,逻辑感觉还是有点不好理解,毕竟刚接触C#。现在再看VB觉得代码很直白,可能是用的时间比较长的缘故吧,就是和说话差不多...
  • 学习VB的课程中,老师布置了一个小程序,录入学生成绩,然后统计出学生成绩总分数。 界面如下: 代码如下: Public Class Form1 Const sMax As Integer = 100 Structure StudentType Dim strID...
  • ASP.NET精品课程+源代码

    千次下载 热门讨论 2009-01-05 20:15:51
    涵盖了代码规范、运行模型、服务控件、验证控件、数据绑定技术、ADO.NET技术、数据库技术、文件操作等内容。 所列出的内容均是ASP.NET开发网站等应用的必备知识。我们在实训课题引入的前提下,通过一系列完整的案例...
  • Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java...
  • jsp asp实战项目代码

    2010-06-15 15:12:21
    本工作室承接 JSP ASP VB PB LotusNotes 等语言要求的应用系统开发业务 java jsp实战源程序代码: 1.办公自动化管理(OA)系统 (web版 全套源码 安装即用) + (设计文档资料) 2.企业产供销管理(ERP)系统 (web版 ...
  • 本工作室承接 JSP ASP VB PB LotusNotes 等语言要求的应用系统开发业务 java jsp实战源程序代码: 1.办公自动化管理(OA)系统 (web版 全套源码 安装即用) + (设计文档资料) 2.企业产供销管理(ERP)系统 (web版 ...
  • 2021-02-15

    2020-12-19 16:00:36
    题目:编写一个程序统计某班 3 门课程的成绩,设课程是 VB 、Access 和PhotoShop ,有学生人数 6 人,依次输入学生成绩,最后统计每门课程全班的总成绩和平均成绩。 解题思路:定义三个函数来计算VB 、Access 和...
  • 实验2答案-sql1.sql

    2019-09-21 16:00:44
    统计每个系每个学生的修课门数和平均成绩,如果修课门数大于3并且平均成绩高于90的显示‘优秀’;如果修课门数大于3并且平均成绩在80~90,则显示‘较好’;对于修课门数小于等于3的并且平均成绩高于90的显示‘较好...
  • vc++ 开发实例源码包

    2014-12-16 11:25:17
    vb实例。 p2p+technology 文档。 P2P视频技术源码(含开发文档) 目前的协议有如下一些特点: 1) 客户向服务器发送请求, 每个请求的长度不定. 请求的长度在第一个INT中指定. 2) 每个服务器通常会向多种客户提供服务...
  • JAVA上百实例源码以及开源项目

    千次下载 热门讨论 2016-01-03 17:37:40
     Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
  • vc++ 应用源码包_1

    2012-09-15 14:22:12
    VC++版源代码统计工具 内含自绘CMenu、CButton、CDialog、CStatic、CListCtrl等。 VC++6.0 控制摄像头 一个视频捕捉类对摄像头的操作。 VC+++暴风影音(Media+Player+Classic)源码 知道的人不多,但提起国内的暴风...
  • vc++ 应用源码包_5

    2012-09-15 14:45:16
    VC++版源代码统计工具 内含自绘CMenu、CButton、CDialog、CStatic、CListCtrl等。 VC++6.0 控制摄像头 一个视频捕捉类对摄像头的操作。 VC+++暴风影音(Media+Player+Classic)源码 知道的人不多,但提起国内的暴风...
  • vc++ 应用源码包_4

    2012-09-15 14:38:35
    VC++版源代码统计工具 内含自绘CMenu、CButton、CDialog、CStatic、CListCtrl等。 VC++6.0 控制摄像头 一个视频捕捉类对摄像头的操作。 VC+++暴风影音(Media+Player+Classic)源码 知道的人不多,但提起国内的暴风...
  • vc++ 应用源码包_3

    2012-09-15 14:33:15
    VC++版源代码统计工具 内含自绘CMenu、CButton、CDialog、CStatic、CListCtrl等。 VC++6.0 控制摄像头 一个视频捕捉类对摄像头的操作。 VC+++暴风影音(Media+Player+Classic)源码 知道的人不多,但提起国内的暴风...
  • 实例032 使用Select Case语句判断成绩优良 实例033 制作简单计算器 实例034 测试十二生肖运势 2.5 循环与跳转语句 实例035 防止无限循环 实例036 0到100的累加 实例037 谁最大,谁最小 实例038 漂亮的星星 ...
  • 实例032 使用Select Case语句判断成绩优良 实例033 制作简单计算器 实例034 测试十二生肖运势 2.5 循环与跳转语句 实例035 防止无限循环 实例036 0到100的累加 实例037 谁最大,谁最小 实例038 漂亮的星星 ...

空空如也

空空如也

1 2
收藏数 31
精华内容 12
关键字:

vb成绩统计代码