国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页

樓主的問題很簡單啊，我以前干過類似的。。只是怎么過期了。。

回復：2樓

怎么讓他不過期呀，

重新開個貼

回復：3樓

這我可不懂。。。這個問題太簡單了，我給你貼一下代碼吧：

 

Sub chouqu()
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer
Dim a(1 To 4096) As Integer   '儲存所有求和
Dim b(1 To 29) As Integer     '儲存所有和出現(xiàn)次數(shù)

m = 1
For i = 1 To 8
 For j = 1 To 8
   For k = 1 To 8
    For l = 1 To 8
    a(m) = i + j + k + l         '此循環(huán)計算所有的4096個和
    m = m + 1
    Next
   Next
 Next
Next

For i = 1 To 29
 For j = 1 To 4096
 If a(j) = i + 3 Then b(i) = b(i) + 1
 Next
Next                             '此循環(huán)計算所有和出現(xiàn)次數(shù)

For i = 1 To 29
  Cells(i, 2) = b(i) / 4096                           '計算每個和的概率，并輸出到B列
  Cells(i, 1) = "和為" & i + 3 & "的概率"                        '結果釋義輸出到A列
Next
End Sub

回復：5樓

想試下實驗成果，把你式子改了下，改成11取7（8-18里取7個），結果出現(xiàn)for變量已在使用，一時找不到方法，求助攻

Sub chouqu()
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer
Dim a(1 To 19487171) As Integer
Dim b(1 To 71) As Integer


m = 8
For i = 8 To 18
 For j = 8 To 18
   For k = 8 To 18
    For l = 8 To 18
     For m = 8 To 18
      For n = 8 To 18
       For o = 8 To 18
       a(m) = i + j + k + l + m + n + o
       m = m + 1
      Next
     Next
    Next
   Next
  Next
 Next
For i = 1 To 71
 For j = 1 To 19487171
 If a(j) = i + 55 Then b(i) = b(i) + 1
 Next
Next
For i = 1 To 71
  Cells(i, 2) = b(i) / 19487171
  Cells(i, 1) = "和為" & i + 55 & "的概率"
End Sub