Question

用VB做一个模拟体彩36选7的小程序（会有追加分）

各路高手，帮下忙，感激不尽！

就是做一个模拟体育彩票36选7的小程序，用VB。

程序模拟体育彩票中从随机选出7个数(1-36之间)，要求：

1：在程序中定义一个数组，放到程序最前面；
2：建立一个Sub，其中使用随机数函数和循环来实现选数的过程；
3：建立一个Sub，将数组显示出来，可以用Print或文本框、标签等方式；
4.使用一个命令按钮，来调用以上两个过程；
5 .编写一个Function用于求阶乘；
6.使用一个命令按钮，调用以上Function并求获奖的概率：36!/7!/(36-7)!。

另外，请尽量针对这个问题，尽量精确，能给出“傻瓜”式操作过程就更好啦，感激不尽。

如果合适，一定会有追加分！

再次感谢～～

Answer 1

Dim a(6) As Integer '声明数组

Function JC(n As Integer) As Double
'求阶乘
JC = 1
For i = 1 To n
JC = JC * i
Next
End Function

Sub S36_7()
'选号
On Error Resume Next
For i = 0 To 6
Line1:
a(i) = Fix(Rnd * 36) + 1
For j = 0 To i - 1
If a(i) = a(j) Then
GoTo Line1
End If
Next
Next
End Sub

Sub PrintNum()
'输出
For i = 0 To 6
Print a(i);
Next
Print
End Sub

Private Sub Command1_Click()
'调用
Call S36_7
Call PrintNum
End Sub

Private Sub Command2_Click()
'输出
Print "获奖概率"; JC(36) / JC(7) / JC(36 - 7)
End Sub

Answer 2

我在研究福彩的双色球模拟程序,有时间共同切磋~~