开发实践教程1：试卷生成系统4 类

Posted 2021-09-15 VB.Net

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

在《试卷生成系统》中使用到以下两个类：

4.1 clsMd5

由于《试卷生成系统》为管理员和用户设置了需要密码才能登录，因此对于密码需要进行一定的加密，本教程中使用的是MD5加密方式。

为了方便使用，《试卷生成系统》中建立了ClassMd5类，提供了共享方法 toMD5()，可以不用实例化ClassMd5类就可调用toMD5()方法来进行加密。

具体代码如下：

Imports System.Security.Cryptography

Public Class clsMd5

    Public Shared Function toMD5(ByVal inputstring As String) As String
        Dim md5 As MD5 = MD5.Create()
        Dim srcValue() As Byte
        Dim desValue() As Byte
        srcValue = System.Text.Encoding.UTF8.GetBytes(inputstring)
        desValue = md5.ComputeHash(srcValue)
        md5.Clear()
        Return Convert.ToBase64String(desValue)

    End Function

4.2 clsPaper

包含了试卷信息，在试卷生成时需要调用此类。

具体代码如下：

Public Class clsPaper

    Property ID As Integer
    Property Name As String
    Property Info As String
    Property TypeIndex As Integer
    Property SubjectTypeInfo As String
    Property TotalScore As Integer
    Property TotalTime As Integer
    Property Author As Integer
    Property SaveTime As DateTime
    Property isReady As String

    Property Typename As String


    Sub New(ByVal currentAuthor As Integer)
        Author = currentAuthor
    End Sub

End Class

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供的参考。

学习更多vb.net知识，请参看 vb.net 教程 目录