郑州大学学号信息查询程序 - VB代码实现

郑州大学学号信息查询程序 - VB代码实现

本程序使用VB语言编写，可以根据输入的郑州大学学号，输出学生年级、学院、班级和班内序号。程序包含学号校验功能，并提供继续输入选项。

代码如下：

Option Explicit

Sub Main()
    
    Dim stuNum As String
    Dim level As String
    Dim college As String
    Dim class As String
    Dim numInClass As String
    Dim input As String
    
    Do While True
    
        '输入学号
        Do
            stuNum = InputBox("请输入学号：", "学号输入")
            If stuNum = "0" Then Exit Sub '输入0结束程序
            If Len(stuNum) <> 12 Or Not IsNumeric(stuNum) Then
                MsgBox "学号必须为12位数字，请重新输入！", vbExclamation, "输入错误"
            Else
                Exit Do
            End If
        Loop
        
        '判断级别
        level = Mid(stuNum, 1, 4)
        Select Case level
            Case "2022"
                level = "2022级"
            Case "2021"
                level = "2021级"
            Case "2020"
                level = "2020级"
            Case "2019"
                level = "2019级"
            Case "2018"
                level = "2018级"
            Case Else
                MsgBox "输入的学号级别不正确，请重新输入！", vbExclamation, "输入错误"
                Continue Do
        End Select
        
        '判断学院
        college = Mid(stuNum, 5, 2)
        Select Case college
            Case "01"
                college = "机械与动力工程学院"
            Case "02"
                college = "电气工程学院"
            Case "03"
                college = "化工学院"
            Case "04"
                college = "土木工程学院"
            Case "05"
                college = "水利科学与工程学院"
            Case "06"
                college = "力学与安全工程学院"
            Case "07"
                college = "管理工程学院"
            Case "08"
                college = "材料科学与工程学院"
            Case "09"
                college = "建筑学院"
            Case "10"
                college = "地球科学与技术学院"
            Case "11"
                college = "生态与环境学院"
            Case "21"
                college = "数学与统计学院"
            Case "22"
                college = "物理学院"
            Case "23"
                college = "化学学院"
            Case "24"
                college = "信息工程学院"
            Case "31"
                college = "商学院"
            Case "32"
                college = "旅游管理学院"
            Case "33"
                college = "政治与公共管理学院"
            Case "34"
                college = "信息管理学院"
            Case "35"
                college = "法学院"
            Case "36"
                college = "文学院"
            Case "37"
                college = "外国语与国际关系学院"
            Case "38"
                college = "历史学院"
            Case "39"
                college = "马克思主义学院"
            Case "40"
                college = "新闻与传播学院"
            Case "41"
                college = "教育学院"
            Case "45"
                college = "书法学院"
            Case "46"
                college = "美术学院"
            Case "47"
                college = "生命科学学院"
            Case "48"
                college = "音乐学院"
            Case "49"
                college = "体育学院(校本部)"
            Case "51"
                college = "基础医学院"
            Case "52"
                college = "公共卫生学院"
            Case "53"
                college = "药学院"
            Case "54"
                college = "护理与健康学院"
            Case "84"
                college = "国际学院"
            Case "90"
                college = "交换生"
            Case Else
                MsgBox "输入的学号学院代码不正确，请重新输入！", vbExclamation, "输入错误"
                Continue Do
        End Select
        
        '获取班级和班内序号
        class = Mid(stuNum, 7, 2)
        numInClass = Mid(stuNum, 9, 2)
        
        '输出信息
        MsgBox level & "，" & college & "，" & class & "班，" & numInClass & "号", vbInformation, "学生信息"
        
        '询问是否继续输入
        input = InputBox("是否继续输入学生的学号（y/n）：", "输入提示")
        If input = "n" Then Exit Sub
    Loop
    
End Sub

代码功能说明：

1. 输入学号: 使用 InputBox 函数获取用户输入的学号。
2. 学号校验: 校验输入的学号是否为12位数字，如果不是则提示用户重新输入。
3. 判断级别: 根据学号的前4位判断学生年级，并将其转换为“2022级”等格式。
4. 判断学院: 根据学号的第5、6位判断学生所属学院，并将其转换为学院名称。
5. 获取班级和班内序号: 根据学号的第7、8位和第9、10位获取学生班级和班内序号。
6. 输出信息: 使用 MsgBox 函数输出学生的信息，包括年级、学院、班级和班内序号。
7. 询问是否继续: 使用 InputBox 函数询问用户是否继续输入学号，如果输入“n”，则结束程序。

程序使用说明：

1. 将以上代码保存为.vbs文件。
2. 双击.vbs文件运行程序。
3. 按照提示输入学号，程序将输出对应信息。

程序注意事项：

1. 本程序仅供参考，实际应用中可能需要根据具体需求进行调整。
2. 学院代码和学院名称的对应关系可以根据实际情况进行修改。
3. 程序中包含了必要的错误处理，例如学号校验、级别校验和学院代码校验。

总结：

本程序实现了根据郑州大学学号查询学生信息的简单功能，可以通过修改代码来扩展其功能，例如添加查询学生姓名、电话等信息的功能。