提供800个题目大家做做

jacyfx

练下手，放假半个月了，都没用EXCEL了~~~马上就要上班了~~

wangxl_9810

学习一下,看来得慢慢做

wang2qiang

这个对我说也不简单。呵

yrgui

算了，我就不练了

jxdxds

vba可以从零开始讲吗?麻烦版主弄些资料,要最简单的.

jack_xy

DDDDDDDDDDDDDDDDD

cumulonimbus

全英文，看得有点吃力与头晕。更不要说解决了。

byhyxb

谢谢楼主分享!

香川群子

Problem 1209 - Average win for the player

You are presented with 3 closed boxes.  You are going to pick one of the boxes and keep the money that's inside.  Each of the 3 boxes contains either $3, $7 or $15, but you don't know which box contains what.  Also in one of the boxes there is a slip of paper, in addition to the money, which has 'Go again' written on it.  If you happen to pick that box, you get to repeat the procedure once again with the money and the piece of paper randomly distributed in the boxes.  The game ends only if you happen to pick one of the 2 boxes without the piece of paper, so in theory the game could continue forever.  Now then, what is the average win for the player?  Don't give the answer in fractions, but as a numerical answer.
Solution Format/Example: 37.24

问题1209 -平均能赢多少(期望值)
给你3个封闭的盒子，盒子里放着3，7或15美元。但你不知道哪个盒子有多少钱。
你可以任意打开一个盒子，拿到里面的钱。
另外，3个盒子中有一个盒子随机放着一张纸条，写着“再来一次”。那你就可以再玩一次这个游戏。
直到你选择了另外2个没有放纸条的盒子，游戏就结束了。
理论上如果你运气好，一直猜到有纸条的盒子可以“再来一次”，那就可以一直拿到钱。

现在问，如果有无穷多的人来玩这个游戏，那么每一个玩家平均可以赢得多少钱？

答案格式 37.24

…………
这是一个蒙特卡洛随机模拟测试编程题目，很简单。

我的代码如下：

1. Sub test()
   
2.     a = Array(3, 7, 15) '设置3个盒子放入钱
   
3.     For i = 0 To 10 ^ 6 - 1 '模拟1百万次
   
4.         n = 0 '连续次数归零
   
5.         Do
   
6.             n = n + 1
   
7.             t = Int(Rnd * 3) '选中1个盒子
   
8.             s = s + a(t) '累计获取金额
   
9.             r = Int(Rnd * 3) '随机放置再玩一次的纸条
   
10.         Loop While t = r '如果选中有纸条的盒子就再来一次
    
11.         If n > m Then m = n '统计最大连续次数
    
12.     Next
    
13.     MsgBox Round(s / i, 4) & vbCr & m '输出平均金额 以及最大连续次数
    
14. End Sub

复制代码

结果=12.5、1百万次模拟时最大连续次数13-14次。

香川群子

Problem 1208 - Average distance of a point within a sphere

Problem 1208 - Average distance of a point within a sphere

If a point is randomly selected within a sphere of radius R, what fraction of radius R will be the average distance from the center of the sphere to that point?

Solution Format/Example: 5/23

问题1208：
如果一个点是随机选择的半径R的球体内的点，那么到球中心的平均距离值是多少?
请给出一个分数值。如 5/23

^_^

答案是 3/4 约等于 0.75

1. Sub test2()
   
2.     s = 0.01
   
3.     For x = 0 To 1 Step s
   
4.         For y = 0 To Sqr(1 - x * x) Step s
   
5.             For z = 0 To Sqr(1 - x * x - y * y) Step s
   
6.                 k = k + 1
   
7.                 r = r + Sqr(x * x + y * y + z * z)
   
8.             Next
   
9.         Next
   
10.     Next
    
11.     Debug.Print r / k
    
12.     Debug.Print k
    
13.     Stop
    
14. End Sub
    

复制代码

用步长0.01计算=0.748 或 精度更高的0.005来计算得到=0.749