vb作业题。求排列和组合数的值
答案:1 悬赏:10 手机版
解决时间 2021-03-25 04:21
- 提问者网友：骨子里的高雅
- 2021-03-24 03:52
vb作业题。求排列和组合数的值
最佳答案
- 五星知识达人网友：逐風
- 2021-03-24 04:38
Function js(x)
If x <= 1 Then
js = 1
Else
js = x * js(x - 1)
End If
End Function
Private Sub Command1_Click()
m = Val(Text1.Text)
n = Val(Text2.Text)
Label1.Caption = js(m) / js(n) / js(m - n)
End Sub
Private Sub Command2_Click()
m = Val(Text1.Text)
n = Val(Text2.Text)
Label2.Caption = js(m) / js(m - n)
End Sub
If x <= 1 Then
js = 1
Else
js = x * js(x - 1)
End If
End Function
Private Sub Command1_Click()
m = Val(Text1.Text)
n = Val(Text2.Text)
Label1.Caption = js(m) / js(n) / js(m - n)
End Sub
Private Sub Command2_Click()
m = Val(Text1.Text)
n = Val(Text2.Text)
Label2.Caption = js(m) / js(m - n)
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯