コード: 全て選択
If c>d Then
If c>f Then
MessageBox(0,"cが一番",0,0)
End If
ElseIF d>c Then
(略)の意味は、c=10: d=20: f=16と値を代入するのでは無く、配列を準備してa[0]=10: a[1]=20: a[2]=16と代入し、以下のようなロジックで最小値を求めるって事です。私ならいくつもの中から値を取り出すのであれば、全てのデータを配列にしまい、その中から探し出すようにします。
コード: 全て選択
Dim i As Long, n As Long, Min As Long
Min = a[0]: n=0
For i=1 To 2 '最大件数（今回は２）
If Min > a Then Min=a : n=i
Next
> の意味は、c=10: d=20: f=16と値を代入するのでは無く、配列を準備してa[0]=10: a[1]=20: a[2]=16と代入し、私ならいくつもの中から値を取り出すのであれば、全てのデータを配列にしまい、その中から探し出すようにします。
コード: 全て選択
> Dim i As Long, n As Long, Min As Long
> Min = a[0]: n=0
> For i=1 To 2 '最大件数（今回は２）
> If Min > a Then Min=a : n=i
> Next
> コード: 全て選択
Dim a[9] As Long
Dim i As Long
Dim min As Long,cnt As Long
a[0]=100
a[1]=125
a[2]=150
a[3]=50
a[4]=300
a[5]=25
a[6]=18
a[7]=111
a[8]=20
a[9]=78
min=a[0]
Do
i=i+1
If min>a Then
min=a
cnt=i
End If
Loop While i<>(Len(a)/4)コード: 全て選択
Const Min(i,j) = -j*(i=>j) -i*(i<j)
Const Max(i,j) = -i*(i=>j) -j*(i<j)コード: 全て選択
Const Min(i,j) = -j*(i=>j) -i*(i<j)
Const Max(i,j) = -i*(i=>j) -j*(i<j)コード: 全て選択
#prompt ' #include <basic\prompt.sbp> , #N88BASIC でも可
'
Dim c As Long,d As Long,e As Long
Dim kotae As Long
'
kotae=1 ' 答え
c=10
d=20
e=16 ' fでしょうか？
'
'大小比較（変数３つの場合）
'
Select Case kotae
Case Sgn(Sgn(d-c)+Sgn(e-c)) ' ｃが一番小さいと両方が１あわせて２，絶対値で１（答えと一緒） それ以外だと ０か－１となる
Print"ｃがちいさい"
Case Sgn(Sgn(c-d)+Sgn(e-d)) ' ｄが一番小さいと両方が１あわせて２，絶対値で１（答えと一緒） それ以外だと ０か－１となる
Print"ｄがちいさい"
Case Else
Print"ｅがちいさい"
End Select
コード: 全て選択
Const Min(i,j) = -j*(i=>j) -i*(i<j) '最小値の場合に使用する関数
Const Max(i,j) = -i*(i=>j) -j*(i<j) '最大値の場合に使用する関数
Dim i As Long, n As Long, xMin As Long
xMin = a[0]: n=0
For i=1 To 2 '最大件数（今回は２）
''''' If Min > a Then xMin=a : n=i
xMin = Min( xMin, a )
Next
コード: 全て選択
#prompt ' #include <basic\prompt.sbp> , #N88BASIC でも可
'
Dim DataTbl[1000] As Long
Dim i As Long,P As Long
'
For i=0 To 1000
DataTbl=Int(Rnd()*90000)+10000 ' ５桁の乱数発生
Next i
'
MinSearch(0,1000) ' プロシージャ呼び出し
Print P;"番目の";DataTbl[P];"が一番最初に見つかった小さい数値です。"
'
Sub MinSearch(ByVal S As Long,ByVal E As Long) ' 最小値検索プロシージャ
P=S
For i=S To E
If DataTbl(P)>DataTbl(i) Then
P=i
EndIf
Next i
End Subコード: 全て選択
#prompt ' #include <basic\prompt.sbp> , #N88BASIC でも可
'
Dim a As Long,b As Long,c As Long,d As Long,e As Long
Dim kotae As Long
Dim q As Long
'
Do
a=Int(Rnd()*99)+100
b=Int(Rnd()*99)+100
c=Int(Rnd()*99)+100
d=Int(Rnd()*99)+100
e=Int(Rnd()*99)+100
Print "a=";a,"b=";b,"c=";c,"d=";d,"e=";e
'
'大小比較（変数５つの場合）
'
kotae=5 ' 答えは配列の数
Select Case kotae
Case Sgn(a-a+1)+Sgn(b-a+1)+Sgn(c-a+1)+Sgn(d-a+1)+Sgn(e-a+1)
GoSub *a-rtn
Case Sgn(a-b+1)+Sgn(b-b+1)+Sgn(c-b+1)+Sgn(d-b+1)+Sgn(e-b+1)
GoSub *b-rtn
Case Sgn(a-c+1)+Sgn(b-c+1)+Sgn(c-c+1)+Sgn(d-c+1)+Sgn(e-c+1)
GoSub *c-rtn
Case Sgn(a-d+1)+Sgn(b-d+1)+Sgn(c-d+1)+Sgn(d-d+1)+Sgn(e-d+1)
GoSub *d-rtn
Case Else
GoSub *e-rtn
End Select
Print
Print"9=終了";
Input q
Print
Loop Until q=9
End
'
*a-rtn
Print"ａがちいさい"
Return
'
*b-rtn
Print"ｂがちいさい"
Return
'
*c-rtn
Print"ｃがちいさい"
Return
'
*d-rtn
Print"ｄがちいさい"
Return
'
*e-rtn
Print"ｅがちいさい"
Return