用vba自动出试卷代码

以下是一个简单的 VBA 代码示例，用于在 Excel 中自动生成试卷。代码中包括随机选择题目和选项等功能，可以根据需要进行修改和扩展。

Sub GenerateExam()
    Dim i As Integer, j As Integer, k As Integer
    Dim questionCount As Integer, optionCount As Integer
    Dim questionNum As Integer, optionNum As Integer
    Dim questionList() As String, optionList() As String
    
    ' 读取题目列表和选项列表
    questionCount = Range("QuestionList").Rows.Count
    optionCount = Range("OptionList").Columns.Count
    
    ReDim questionList(questionCount - 1)
    For i = 1 To questionCount
        questionList(i - 1) = Range("QuestionList").Cells(i, 1).Value
    Next
    
    ReDim optionList(questionCount - 1, optionCount - 1)
    For i = 1 To questionCount
        For j = 1 To optionCount
            optionList(i - 1, j - 1) = Range("OptionList").Cells(i, j).Value
        Next
    Next
    
    ' 随机选择题目
    Randomize
    questionNum = WorksheetFunction.RandBetween(1, questionCount)
    
    ' 输出题目
    Cells(1, 1).Value = "题目：" & questionList(questionNum - 1)
    
    ' 随机选择选项
    Randomize
    For i = 1 To 4
        optionNum = WorksheetFunction.RandBetween(1, optionCount)
        Cells(i + 1, 1).Value = Chr(64 + i) & "." & optionList(questionNum - 1, optionNum - 1)
    Next
End Sub

在代码中，需要准备一个 Excel 文件，其中包含题目列表和选项列表。题目列表需要放在名为 "QuestionList" 的单元格区域中，而选项列表需要放在名为 "OptionList" 的单元格区域中。

在运行代码之前，需要先选中一个单元格，然后点击开发工具栏中的 "宏" 按钮，输入 "GenerateExam" 作为宏名称，然后点击 "创建"。接着，就可以运行代码来生成试卷了。