サンプル投稿用掲示板　　VB2005 〜 用トップページ　　VB6.0 用 トップページ 引数の中で最小の正値を返す関数(VB6.0)_1 ( No.1 ) 　[親スレッドへ] 日時： 2011/04/05 13:07 名前： 花ちゃん *********************************************************************************** * カテゴリー：[基本コード][][]　　　　　                                          * * キーワード：プロシージャ,複数の引数,配列処理,コードの簡略化,,                   * *********************************************************************************** ----------------------------------------------------------------- Re: pMin(i,j,k) - kazuやん  2004/09/07-16:05 No.332 ----------------------------------------------------------------- 果たして美しいかは微妙ですが、こんな感じでしょうかね＾＾ '********************************************************** '*  pMin        ：引数の中で最小の値を返す。但し３つとも０なら０を返す '*  i,j,k       ：いずれも、0または正整数 '*  戻り値      ：最小の値、又は0 '********************************************************** Function pMin(i As Integer, j As Integer, k As Integer) As Integer     Dim min         As Integer  '最小値     '全て０の場合     If (i Or j Or k) = 0 Then         pMin = 0     Else         '最小値初期設定         min = i              If (min > j) Then min = j                  If (min > k) Then min = k                  pMin = min          End If End Function

　[スレッド一覧へ]　[親スレッドへ]