有關於篩選問題

Question

各位：
我想
a　　　　　　b　　　　c
0.37162037 0.375 0.00337963
0.371655093 0.375 0.003344907
0.372141204 0.375 0.002858796
0.372210648 0.375 0.002789352
0.372268519 0.375 0.002731481
0.372893519 0.375 0.002106481
0.372986111 0.375 0.002013889
0.373009259 0.375 0.001990741
0.373043981 0.375 0.001956019
0.373634259 0.375 0.001365741
c=b-a且b一定大於a
但是我只要a最接近b的值，即最後一筆，請問我該怎麼寫
執行後，剩下最後一筆。
tks，大家的幫忙。

Answer 1

Dim min, n, num(10, 2), b '妳的筆數只有10筆，所以我只剩10

Private Sub Form_Activate()
For i = 1 To 10
num(i, 2) = b - num(i, 1)
If min > num(i, 2) Then
min = num(i, 2)
End If
Next i
min = Round(min, 10) '輸出至小數點第十位
MsgBox "最小值為： " & min, , "訊息"
End Sub

Private Sub Form_Load()
num(1, 1) = 0.37162037
num(2, 1) = 0.371655093
num(3, 1) = 0.372141204
num(4, 1) = 0.372210648
num(5, 1) = 0.372268519
num(6, 1) = 0.372893519
num(7, 1) = 0.372986111
num(8, 1) = 0.373009259
num(9, 1) = 0.373043981
num(10, 1) = 0.373634259
b = 0.375 '妳的b值，我看都是0.375，如果b值不固定的，就不可以這樣做了
n = 10 '妳筆數，我目前只看見10筆，所以n設成10
min = 100 '預設最小值是100，如果妳的c都大於100就在設大一點
End Sub

2005-08-29 16:27:01 補充：
妳是要用vb6.0做嗎??
那a、b的資料是妳自己輸入??
輸出至哪裡呢??

2005-08-29 16:42:40 補充：
重新修改答案…
把程式碼附上…
看看是不是妳要的…

Answer 2

上官sir，還是跑不出來，
min要如何設??

Answer 3

既然b必然大於a

此兩值最接近
必為b-a得到答案最小者
也就是c最小的那個

你是問這個嗎??? 其實我看不太懂題意說...

程式問題歡迎來
http://willh.org/cfc/
初新者論壇
討論