选项中的内容随机排列可以吗，答案要跟着变

考试加油站

DDDDDDDDD.rar (105.41 KB, 下载次数: 6)

2017-6-28 17:08 上传

点击文件名下载附件

chxw68

完全可以实现，我以前写过类似的代码。

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d As Object
   
5.   Set d = CreateObject("scripting.dictionary")
   
6.   With Worksheets("sheet1")
   
7.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.     arr = .Range("b1:g" & r)
   
9.     For i = 1 To UBound(arr)
   
10.       For k = 5 To 2 Step -1
    
11.         If Len(arr(i, k)) <> 0 Then
    
12.           Exit For
    
13.         End If
    
14.       Next
    
15.       For j = 1 To k - 1
    
16.         n = Int(Rnd() * (k - j)) + 1
    
17.         temp = arr(i, j)
    
18.         arr(i, j) = arr(i, n)
    
19.         arr(i, n) = temp
    
20.       Next
    
21.       dn = ""
    
22.       For j = 1 To k
    
23.         xm = Left(arr(i, j), 1)
    
24.         If InStr(arr(i, 6), xm) <> 0 Then
    
25.           dn = dn & Chr(j + 64)
    
26.         End If
    
27.         arr(i, j) = Chr(j + 64) & Mid(arr(i, j), 2)
    
28.       Next
    
29.       arr(i, 6) = dn
    
30.     Next
    
31.     .Range("j1").Resize(UBound(arr), UBound(arr, 2)) = arr
    
32.   End With
    
33. End Sub
    

复制代码

chxw68

详见附件。

考试加油站

chxw68 发表于 2017-6-28 17:33
详见附件。

膜拜大神级人物，想了好久没有结果，百度也没查出答案。终于解决，谢谢

chxw68

前面代码有点小问题。

考试加油站

chxw68 发表于 2017-6-28 19:19
前面代码有点小问题。

谢谢，再次感谢

香川群子

chxw68 发表于 2017-6-28 17:32

就爱用字典!

这么简单的问题，肯定无需使用字典就可以做到。
只需3个步骤：
1. 标记正确答案位置
2. 去除ABCD后的内容进行随机乱序，并对答案也进行位置跟随乱序处理
3. 答案前顺序标注ABCD、正确答案按位置返回ABCD

其中随机乱序可用数组洗牌算法实现，无需字典。

chxw68

香川群子 发表于 2017-6-28 21:02
就爱用字典!

这么简单的问题，肯定无需使用字典就可以做到。

没用字典。定义字典的语句是我整段复制过来的，忘了删除了。

香川群子

chxw68 发表于 2017-6-28 22:11
没用字典。定义字典的语句是我整段复制过来的，忘了删除了。

哈哈，你的代码看到开始有字典，后面我就没有细看，想当然了。

现在再看一遍，你的做法没问题。很好！