VBA：给三年级小朋友设计一个英语单词默写测试卷

本文链接：https://blog.csdn.net/bosney/article/details/118303612

又到了小朋友们期末考试的时间了（快乐的暑假马上就要开始了！！）

说真，儿子还是非常聪明的，但是就是太贪玩了，英语单词读几遍以为自己就记住了，结果考试单词默写一塌糊涂，英语老师找我好几次了，真是头大。

为了看他到底是不是真的掌握了，我决定设计一个试卷给他。

数据源：三年级下册（人教版）总共85个单词。我把6个单元的的单词存入一个数组，然后每次随机抽20个给他，每个单词总共测试2次。

代码部分，主要作用写在备注中了：

Sub Hanyi()

Dim sht As Worksheet
Dim i, j, m, s, k, ad
Dim arr, brr(), crr()
Dim d
Set d = CreateObject("scripting.dictionary")
'存放单词的Sheet都是以Unit开头，而且有单词，读音，含义三行组成的“四线三格”本
'以下程序主要是把中文含义的行存入数组brr
m = 0
For Each sht In Sheets
    If Left(sht.Name, 1) = "U" Then
    arr = sht.UsedRange
        For i = 1 To UBound(arr)
            If Left(CStr(arr(i, 1)), 2) = "含义" Then