VB中随机显示的几率问题

显示全部楼层 · 2010-12-8 21:20:09

各位VB达人请教个问题
我手中有一份成绩 76 72 67 63 57 54 50 49 48 46如何控制 76 和 72 出现的几率为百分之10 而 67 63 57 54 50 49 出现的几率为百分之 80最后 48 46 出现的几率为百分之10 呢

千问 · 2010-12-8 21:20:09

我程序编写于VS2008上。思想：先从0到9上随机选一个数字。若是0，则随机选取76和72；若为1~8，则随机选取67 63 57 54 50 49 ；若为9，则随机选取48和46。程序循环的次数是10000。【程度】
Dim score(10), jilv(10) As Integer
Dim j1, j2, j3 As Integer
Dim m, n As Integer
Dim s As String
s = ""

千问 · 2010-12-8 21:20:09

你试试下面这样做...当然，代码还可以改进以提高其通用性...Option Base 1'自定义数据结构Private Type RDRndValue As Singlea() As IntegerEnd TypeDim RDs() As RD, Sum As SinglePrivate Sub F