VB 制作 学生点名系统。界面版

于 2023-07-02 16:06:09 发布
阅读量620 收藏
点赞数
文章标签： 算法
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/laocooon/article/details/131501952
版权

流程图略

VERSION 5.00
Begin VB.Form mainForm 
   Caption         =   "教师点名系统"
   ClientHeight    =   5115
   ClientLeft      =   165
   ClientTop       =   810
   ClientWidth     =   9660
   LinkTopic       =   "Form1"
   ScaleHeight     =   5115
   ScaleWidth      =   9660
   StartUpPosition =   3  '窗口缺省
   Begin VB.ListBox List1 
      Height          =   4380
      Left            =   120
      TabIndex        =   0
      Top             =   480
      Width           =   2295
   End
   Begin VB.Label Label2 
      Caption         =   "显示结果处"
      Height          =   255
      Left            =   2640
      TabIndex        =   2
      Top             =   1800
      Width           =   975
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "|"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   24
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3720
      TabIndex        =   1
      Top             =   1560
      Width           =   255
   End
   Begin VB.Menu BJXSSJ 
      Caption         =   "编辑学生数据"
      Begin VB.Menu TJ 
         Caption         =   "添加一名新同学"
      End
      Begin VB.Menu SC 
         Caption         =   "删除一名新同学"
      End
   End
   Begin VB.Menu KSDM 
      Caption         =   "开始点名"
      Begin VB.Menu DM 
         Caption         =   "点名"
      End
   End
   Begin VB.Menu CXXSDMQK 
      Caption         =   "查询学生点名情况"
   End
   Begin VB.Menu TC 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "mainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim XH(100) As String    '学号
Attribute XH.VB_VarUserMemId = 1073938432
Dim XM(100) As String    '姓名
Attribute XM.VB_VarUserMemId = 1073938433
Dim CS(100) As String    '次数
Attribute CS.VB_VarUserMemId = 1073938434
Dim cnt As Integer
Dim FileName As String
Private Sub ReadFile()    '导入文件
'On Error GoTo errorHandler    ' 设置错误处理

    Dim strLine As String
    Dim tmp




    Open FileName For Input As #1

    cnt = 0
    Do While Not EOF(1)    ' 逐行读取文件内容
        Line Input #1, strLine
        tmp = Split(strLine, vbTab)
        XH(cnt) = tmp(0)
        XM(cnt) = tmp(1)
        CS(cnt) = tmp(2)
        cnt = cnt + 1
    Loop
    Close #1    '关闭文件
    Exit Sub    ' 退出子过程
errorHandler:        ' 错误处理
    MsgBox FileName & " 打开文件失败，错误代码为：" & Err.Number & "，错误信息为：" & Err.Description
End Sub

Private Sub WriteFile()
'On Error GoTo errorHandler    ' 设置错误处理

    Dim strLine As String
    Dim tmp

    Dim i As Integer



    Open FileName For Output As #1

    For i = 0 To cnt - 1
        strLine = XH(i) + vbTab
        strLine = strLine + XM(i) + vbTab
        strLine = strLine + CS(i)
        Print #1, strLine    '记录进文件
    Next
    Close #1    '关闭文件
    Exit Sub    ' 退出子过程
errorHandler:        ' 错误处理
    MsgBox FileName & " 打开文件失败，错误代码为：" & Err.Number & "，错误信息为：" & Err.Description
End Sub
Private Sub infoToList()
    Dim i As Integer
    Dim strLine As String
    List1.Clear
    For i = 0 To cnt - 1
        strLine = XH(i) + vbTab
        strLine = strLine + XM(i)
        List1.AddItem (strLine)
    Next

End Sub




Private Sub CXXSDMQK_Click()
    Dim i As Integer
    Dim strLine As String
    List1.Clear
    For i = 0 To cnt - 1
        strLine = XH(i) + vbTab
        strLine = strLine + XM(i) + vbTab
        strLine = strLine + CS(i)
        List1.AddItem (strLine)
    Next
End Sub

Private Sub DM_Click()
    Dim randomNumber As Integer
    randomNumber = Int(Rnd * cnt)
    Label1 = XH(randomNumber) + "  " + XM(randomNumber)
    CS(randomNumber) = CS(randomNumber) + 1


    WriteFile    '更新文件
    ReadFile

End Sub

Private Sub Form_Load()
    Randomize    ' 初始化随机数种子，一般只需要调用一次
    FileName = App.Path & "\点名册.txt"
    ReadFile
    infoToList
End Sub

Private Sub Form_Unload(Cancel As Integer)
    End    '一定要加这句，因为原来的窗体只是隐藏了，并没退出
End Sub

Private Sub SC_Click()

    Dim XXH As String    '学号
    Dim Find As Boolean
    Find = False
    XXH = InputBox("请输入要删除的学号", "删除")
    If XXH = "" Then Exit Sub



    '添加之前查一下学号是否存在，如果存在不能加入
    Dim i As Integer
    For i = 0 To cnt - 1
        If XH(i) = XXH Then
            Find = True
            Exit For
        End If
    Next

    If Find = False Then
        MsgBox "此学号不存在", , "提示"
        Exit Sub
    End If



    '用最后一条记录替换当前记录
    XH(i) = XH(cnt - 1)
    XM(i) = XM(cnt - 1)
    CS(i) = CS(cnt - 1)

    cnt = cnt - 1
    WriteFile
    ReadFile
    infoToList    '更新列表

End Sub

Private Sub TC_Click()
    End
End Sub

Private Sub TJ_Click()
    Dim XXH, XXM As String    '学号 ，姓名
    XXH = InputBox("请输入要加入的学号", "添加")
    If XXH = "" Then Exit Sub



    '添加之前查一下学号是否存在，如果存在不能加入
    Dim i As Integer
    For i = 0 To cnt - 1
        If XH(i) = XXH Then
            MsgBox "此学号已经存在不可以添加", , "提示"
            Exit Sub
        End If
    Next

    XXM = InputBox("请输入要加入的姓名")
    If XXM = "" Then Exit Sub

    XH(cnt) = XXH
    XM(cnt) = XXM
    CS(cnt) = 0
    cnt = cnt + 1

    WriteFile
    ReadFile
    infoToList    '更新列表



End Sub

在这个课程设计过程中，我学到了很多关于编程的知识和技巧。通过实际的编程实践，我更深入地理解了程序的结构和逻辑，以及如何使用变量、数组、文件操作等基本概念和功能来实现所需的功能。我也更加熟悉了VB的语法和编程规范。

这个程序的优点是：

简单易懂：程序的逻辑结构清晰，代码注释完善，易于理解和修改。
功能完善：程序实现了学生信息的增加、删除、修改和随机点名等功能，可以方便地管理学生信息。
文件操作：通过文件操作，程序可以将学生信息保存到文件中，并在需要时读取和更新文件，确保数据的持久性和可靠性。
然而，这个程序也存在一些缺憾：

用户界面简陋：程序的用户界面比较简单，没有美化和交互性，用户体验有待提升。
错误处理不完善：程序中使用了错误处理，但只是简单地弹出一个消息框提示错误信息，没有提供更详细的错误处理和恢复机制。
数组大小固定：程序中定义了固定大小的数组来存储学生信息，如果学生数量超过数组大小，会导致数组溢出的问题。应该考虑使用动态数据结构来解决这个问题。

Option Explicit
Dim XH(100) As String    '学号
Dim XM(100) As String    '姓名
Dim CS(100) As String    '次数
Dim cnt As Integer
Dim FileName As String
Private Sub ReadFile()    '导入文件
'On Error GoTo errorHandler    ' 设置错误处理

    Dim strLine As String
    Dim tmp


    Open FileName For Input As #1

    cnt = 0
    Do While Not EOF(1)    ' 逐行读取文件内容
        Line Input #1, strLine
        tmp = Split(strLine, vbTab)
        XH(cnt) = tmp(0)
        XM(cnt) = tmp(1)
        CS(cnt) = tmp(2)
        cnt = cnt + 1
    Loop
    Close #1    '关闭文件
    Exit Sub    ' 退出子过程
errorHandler:        ' 错误处理
    MsgBox FileName & " 打开文件失败，错误代码为：" & Err.Number & "，错误信息为：" & Err.Description
End Sub

Private Sub WriteFile()
'On Error GoTo errorHandler    ' 设置错误处理

    Dim strLine As String
    Dim tmp

    Dim i As Integer



    Open FileName For Output As #1

    For i = 0 To cnt - 1
        strLine = XH(i) + vbTab
        strLine = strLine + XM(i) + vbTab
        strLine = strLine + CS(i)
        Print #1, strLine    '记录进文件
    Next
    Close #1    '关闭文件
    Exit Sub    ' 退出子过程
errorHandler:        ' 错误处理
    MsgBox FileName & " 打开文件失败，错误代码为：" & Err.Number & "，错误信息为：" & Err.Description
End Sub
Private Sub infoToList()
    Dim i As Integer
    Dim strLine As String
    List1.Clear
    For i = 0 To cnt - 1
        strLine = XH(i) + vbTab
        strLine = strLine + XM(i)
        List1.AddItem (strLine)
    Next

End Sub




Private Sub CXXSDMQK_Click()
    Dim i As Integer
    Dim strLine As String
    List1.Clear
    For i = 0 To cnt - 1
        strLine = XH(i) + vbTab
        strLine = strLine + XM(i) + vbTab
        strLine = strLine + CS(i)
        List1.AddItem (strLine)
    Next
End Sub

Private Sub DM_Click()
    Dim randomNumber As Integer
    randomNumber = Int(Rnd * cnt)
    Label1 = XH(randomNumber) + "  " + XM(randomNumber)
    CS(randomNumber) = CS(randomNumber) + 1


    WriteFile    '更新文件
    ReadFile

End Sub

Private Sub Form_Load()
    Randomize    ' 初始化随机数种子，一般只需要调用一次
    FileName = App.Path & "\点名册.txt"
    ReadFile
    infoToList
End Sub

Private Sub Form_Unload(Cancel As Integer)
    End    '一定要加这句，因为原来的窗体只是隐藏了，并没退出
End Sub

Private Sub SC_Click()

    Dim XXH As String    '学号
    Dim Find As Boolean
    Find = False
    XXH = InputBox("请输入要删除的学号", "删除")
    If XXH = "" Then Exit Sub



    '添加之前查一下学号是否存在，如果存在不能加入
    Dim i As Integer
    For i = 0 To cnt - 1
        If XH(i) = XXH Then
            Find = True
            Exit For
        End If
    Next

    If Find = False Then
        MsgBox "此学号不存在", , "提示"
        Exit Sub
    End If



    '用最后一条记录替换当前记录
    XH(i) = XH(cnt - 1)
    XM(i) = XM(cnt - 1)
    CS(i) = CS(cnt - 1)

    cnt = cnt - 1
    WriteFile
    ReadFile
    infoToList    '更新列表

End Sub

Private Sub TC_Click()
    End
End Sub

Private Sub TJ_Click()
    Dim XXH, XXM As String    '学号 ，姓名
    XXH = InputBox("请输入要加入的学号", "添加")
    If XXH = "" Then Exit Sub



    '添加之前查一下学号是否存在，如果存在不能加入
    Dim i As Integer
    For i = 0 To cnt - 1
        If XH(i) = XXH Then
            MsgBox "此学号已经存在不可以添加", , "提示"
            Exit Sub
        End If
    Next

    XXM = InputBox("请输入要加入的姓名")
    If XXM = "" Then Exit Sub

    XH(cnt) = XXH
    XM(cnt) = XXM
    CS(cnt) = 0
    cnt = cnt + 1

    WriteFile
    ReadFile
    infoToList    '更新列表



End Sub

laocooon523857886
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VB写的随机点名器代码
06-26
电视节目上常见的抽奖、点名的小程序。随机点名，抽奖都可以。
vba combobox添加下拉内容_VBA| 教你用excel实现随机点名
weixin_39849930的博客
12-11 2747
什么？点名还用“随机”吗？！其实，提问是课堂教学中不可或缺的环节，提问方式当然可以不拘一格。“随机点名”也要根据情况选用的，所谓“教无定法，贵在得法”。本程序随是几年前的玩笑之作，但一经推出，同事中倒也有人喜欢。下面简单介绍一下制作方法，并以此抛砖引玉，让小白们认识一下VBA的世界：什么是VBA严格来讲，如果不了解VBA，就等于没有学过office！VBA的全称是Visual Basic...
EXCEL VBA入门（课堂随机点名系统）
CommissarMa的博客
11-14 3928
第1到5步按照 http://jingyan.baidu.com/article/f54ae2fcf401941e92b849e7.html 操作。 然后用工具箱 中的各种控件构建如下界面，就和以前高中学的vb一样。 建3个标签，分别是“课堂随机点名系统”，“起始学号”，“截止学号” 建2个文本框，TextBox1放在“起始学号”后面，TextBox2放在“截止学号”后面 把工具箱拉
vb6.0写的随机点名（按行列点名）
01-10
用vb6.0写的随机点名小程序，有工程源码，也有生成后的可执行文件；原创作品；需要安装VB6.0编译器；可以使用VB6绿色版；兼容winxp模式运行即可
vb点名程序 随机点名不重复算法的实现 算法复杂度最优为O(n)
两天打鱼三天晒网
06-18 4015
vb点名程序，随机不重复，算法最优
Python老师上课点名神器源代码
Python代码大全
06-02 1398
这款点名器实现的思路大致是，可以自定义设置班级学生姓名或者默认通过学号进行学生随机点名抽取，可以每次单人抽取也可以自己选择连抽人数进行多人连抽，并将这些随机抽取的学生姓名历史数据显示。完整源程序请在文末地址下载，程序运行截图：UI排版布局 学生姓名加载 随机点名 完整代码下载：点名神器 更多Python源代码请关注微信公众号：Python代码大全。
点名软件(无重复)版本2
qq_44196825的博客
03-31 5349
快快快！！！看过来！ 分享一款个人写的点名软件，老师上课再也不会重复点名了呦~~~
VB随机点名程序
10-04
是用basic语言做的程序，环境VS2005，功能时随机点名，操作界面易懂程序易上手
用VB制作学生成绩管理系统
05-22
VB
VB点名软件源码.rar
05-09
VB点名软件源码，将学生信息存放于Student.txt中，代码简单易懂。VB点名软件源码，将学生信息存放于Student.txt中，代码简单易懂。
VB 随机点名器，一次性可点多人
04-18
用VB 实现多人点名的抽奖系统，可以选择不同的名单
上课随机点名程序
10-23
可以用于教师上课随机点名，程序VB编写，包含源代码，需要请下载。
随机点名系统（VB做的可以增加概率）
06-29
自己做的一个小程序，很实用。有数据的增删改查，上传照片，最关键的是有概率的算法，概率可以根据答题的对错来加减。
随机点名（抽号）程序代码
05-24
随机点名（抽号）程序代码，可以用于各种抽奖或点名活动。
VB答题系统制作教程.doc
03-10
VB答题系统制作教程
vb.rar_学生管理系统 vb
09-23
此代码是一些常用的VB部分代码，是学生管理系统的一些
vb学生成绩管理系统{完整版}.doc
03-13
vb学生成绩管理系统
学生学籍管理系统 VB+SQL SERVER
03-13
重点介绍了学生学籍管理系统的实现过程：包括系统分析、 系统调查、 数据流程分析、功能设计、 数据库设计、 系统物理配置方案、 系统实现。 此系统主要功能有用户管理、学生信息录入、课程信息录入、学生成绩录入、...
基于vb的学生信息管理系统源文件
最新发布
02-01
学生信息管理系统是一个基于VB语言开发的软件，用于学校教育管理部门对学生信息进行管理和统计分析。系统包括学生基本信息、成绩信息、就业信息等模块，可以实现学生信息的录入、查询、修改和删除等功能。 系统的源文件主要包括VB的代码文件、界面设计文件和数据库连接文件等。VB的代码文件包括各种模块、类和子程序，用于实现系统的各种功能和业务逻辑。界面设计文件包括各种窗体、控件和布局，用于实现系统的用户界面。数据库连接文件包括与数据库连接的相关代码，用于实现系统与数据库的数据交互和操作。 在源文件中，通过VB语言实现了学生信息的增删改查功能，包括学生基本信息的录入、查询和修改，成绩信息的统计分析和查看，就业信息的管理和跟踪等功能。同时，还实现了系统的权限管理和日志记录功能，确保系统的安全和稳定运行。 源文件还包括详细的注释和说明，方便其他开发人员进行理解和维护。此外，源文件还包括系统的配置文件和帮助文件，帮助用户进行系统的配置和使用。 总之，基于VB的学生信息管理系统源文件是系统的核心代码和界面设计文件，实现了学生信息管理系统的各种功能和业务逻辑。源文件的健壮性和可维护性对系统的稳定运行和持续改进非常重要。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值