随即出题代码

搁浅2008

代码请上传附件  
简码简洁速度快的设为最佳

无聊的疯子

抢根板凳坐等答案~~~

CheryBTL

晕，这个+-法 怎么也凑不到200道不重复的。
1、加法有10*10=100道
2、减法有10+9+8+...+3+2+1=55道
共155道

xhrys

CheryBTL 发表于 2013-9-4 09:03
晕，这个+-法 怎么也凑不到200道不重复的。
1、加法有10*10=100道
2、减法有10+9+8+...+3+2+1=55道

搁浅2008

xhrys 发表于 2013-9-4 09:06

不是所有的不重复 是20道以内不重复 假如2+3= 是第一道 那2+3=可以出现在第21道等等

sliang28

搁浅2008 发表于 2013-9-4 09:20
不是所有的不重复 是20道以内不重复 假如2+3= 是第一道 那2+3=可以出现在第21道等等

难点就是在这里，搁浅老师在给点提示吧{:3912:}

sliang28

1. Private Sub CommandButton1_Click()
   
2. Dim d
   
3. Set d = CreateObject("scripting.dictionary")
   
4. t = Timer
   
5. For i = 1 To 10
   
6. Do While d.Count < 20
   
7. If Rnd() > 0.5 Then '做加法
   
8. a = Int(Rnd() * 9)
   
9. b = Int(Rnd() * (10 - a))
   
10. c = a + b
    
11. Simbol = "+"
    
12. Else '做减法
    
13. a = Int(Rnd() * 8 + 2)
    
14. b = Int(Rnd() * a)
    
15. c = a - b
    
16. Simbol = "-"
    
17. End If
    
18. d(a & Simbol & b & "=") = ""
    
19. Loop
    
20. irow = Range("a200").End(3).Row
    
21. If irow > 1 Then irow = irow + 1
    
22. Range("a" & irow).Resize(d.Count, 1) = Application.WorksheetFunction.Transpose(d.keys)
    
23. Next
    
24. MsgBox Format(Timer - t, "0.00秒")
    
25. End Sub

复制代码

搁浅2008

sliang28 发表于 2013-9-4 09:45

代码有问题

sliang28

搁浅2008 发表于 2013-9-4 10:00
代码有问题

这个问题知道的，没有想到怎么处理，只完成了20道不重复，前后20道不重复再想{:2412:}

搁浅2008

sliang28 发表于 2013-9-4 10:04
这个问题知道的，没有想到怎么处理，只完成了20道不重复，前后20道不重复再想

给你一个思路 等字典20个值的时候把第一个值Remove 然后再增加 再Remove 这样Remove出来的200个就是我们需要的你仔细想想