求救。。。概率题

5个人从编号1~14的球中抽取球这5个人抽出球编号和值为30~45的概率是多少

Dim s%, a%, b%, c%, d%, e#, m#For a = 1 To 14 For b = 1 To 14 For c = 1 To 14 For d = 1 To 14 For e = 1 To 14 s = a + b + c + d + e If s <= 45 And s >= 30 And a <> b And a <> c And a <> d And a <> e And b <> c And b <> d And b <> e And c <> d And c <> e And d <> e Then n = n + 1 End If If a <> b And a <> c And a <> d And a <> e And b <> c And b <> d And b <> e And c <> d And c <> e And d <> e Then m = m + 1 End If Next e Next d Next c Next b Next a Print n / m; n; m;
有好心人给的答案，可我不会用VB