Question

能不能用VB写运算排列组合程序

Answer 1

组合数：
Private Sub Command1_Click()
a = Val(Text2.Text)
b = Val(Text1.Text)
n = 1
s = a
t = b
Do Until n = b
n = n + 1
a = a - 1
s = s * a
Loop
Do Until b = 1
b = b - 1
t = t * b
Loop
Text3.Text = s / t
End Sub

排列数：
Private Sub Command1_Click()
a = Val(Text2.Text)
b = Val(Text1.Text)
n = 1
s = a
Do Until n = b
n = n + 1
a = a - 1
s = s * a
Loop
Text3.Text = s
End Sub

Answer 2

能