程序模拟体育彩票中从随机选出7个数(每个数位于1-36之间)
要求1 .编写一个Function用于求阶乘;
2.使用一个命令按钮,调用以上Function并求获奖的概率的倒数:36!/7!/(36-7)!。
Function Jiecheng()
Dim i As Integer, j As Integer, sum As Integer
sum = 0
j = 1
For i = 1 To n
j = j * i
Next i
Jiecheng = sum
End Function
Private Sub Command2_Click()
n1 = n = 36
Call Jiecheng
sum = s1
n2 = n = 7
Call Jiecheng
sum = s2
n3 = n = (36 - 7)
Call Jiecheng
sum = s3
m = s1 / s2/s3
Label2.Caption = m
End Sub
为什么总是说我“溢出”了呢?是哪里出现问题了?真心求教!急急急!