投稿日 | : 2004/09/08(Wed) 12:46 |
投稿者 | : 黒影 |
Eメール | : |
URL | : |
タイトル | : Re^6: さらに改造 |
> 最初の2命令(全て0の場合)がこちらに吸収されていることが分かりました。
そうですね。
あまり深く考えなかったもので...(^^;)
それでもまだなんとなく見た目が納得出来ず...
で、さらに改造してこんな風に↓↓↓
'**********************************************************
'* pMin3 :引数の中で最小の正値を返す。但し3つとも0なら0を返す
'* i,j,k :いずれも、0または正整数
'* 戻り値 :最小の値、又は0
'**********************************************************
Function pMin3(i As Integer, j As Integer, k As Integer) As Integer
Dim min As Integer '最小値
'最小値初期設定
min = i
min = IIf(min > j, IIf(j = 0, min, j), IIf(min = 0, j, min))
min = IIf(min > k, IIf(K = 0, min, k), IIf(min = 0, k, min))
pMin3 = min
End Function