tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  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        :引数の中で最小の値を返す。但し3つとも0なら0を返す
'*  i,j,k       :いずれも、0または正整数
'*  戻り値      :最小の値、又は0
'**********************************************************
Function pMin(i As Integer, j As Integer, k As Integer) As Integer

    Dim min         As Integer  '最小値

    '全て0の場合
    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



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