掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
再帰について 漸化式 (ID：104179)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんにちはsinghさん。 よくわかりませんがこんな感じで如何でしょうか？ Public Answer As Double Private Sub Command1_Click() Call nCr(Text1.Text, Text2.Text) End Sub Private Function nCr(n As Variant, r As Variant) As Variant If r = 0 Then Text3.Text = Answer Exit Function Else Answer = Answer * n / r Text3.Text = Answer Call nCr(n - 1, r - 1) End If End Function Private Sub Form_Load() Answer = 1 End Sub { てきすと１にＮ、てきすと２にＲ、てきすと３に答えを表示。 ぼたん１を押すと計算。}
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.