0 0 0.0
-7.773505E-06 50 0.0
-1.554701E-05 100 0.0
-2.332052E-05 150 0.0
-3.109402E-05 200 0.0
-3.886753E-05 250 0.0
-4.664103E-05 300 0.0
-5.441453E-05 350 0.0
-6.218804E-05 400 0.0
-6.996154E-05 450 0.0
-7.773505E-05 500 0.0
-8.550855E-05 550 0.0
-9.328206E-05 600 0.0
-1.010556E-04 650 0.0
-1.088291E-04 700 0.0
-1.166026E-04 750 0.0
-1.243761E-04 800 0.0
-1.321496E-04 850 0.0
-1.399231E-04 900 0.0
-1.476966E-04 950 0.0
-1.554701E-04 1000 0.0
-1.632436E-04 1050 0.0
-1.710171E-04 1100 0.0
-1.787906E-04 1150 0.0
-1.865641E-04 1200 0.0
-1.943376E-04 1250 0.0
-2.021111E-04 1300 0.0
-2.098846E-04 1350 0.0
-2.176581E-04 1400 0.0
-2.254316E-04 1450 0.0
-2.332052E-04 1500 0.0
-2.409787E-04 1550 0.0
-2.487522E-04 1600 0.0
-2.565257E-04 1650 0.0
-2.642992E-04 1700 0.0
-2.720727E-04 1750 0.0
-2.798462E-04 1800 0.0
-2.876197E-04 1850 0.0
-2.953932E-04 1900 0.0
-3.031667E-04 1950 0.0
-3.109402E-04 2000 0.0
50 0 0.0
49.99999 50 0.0
49.99998 100 0.0
49.99998 150 0.0
uj5u.com熱心網友回復：
Private Sub Command1_Click()
Dim strLine As String, strItem() As String, n As Integer
Open "c:\test\test.dat" For Input As #1
n = 30000
Do Until EOF(1)
Line Input #1, strLine
strLine = Trim(strLine)
strLine = Replace(strLine, Space(4), Space(1))
strLine = Replace(strLine, Space(2), Space(1))
strItem = Split(strLine, Space(1))
If (n > Val(strItem(1))) Then n = Val(strItem(1))
'Debug.Print """" & strLine & """", strItem(1), n
Loop
Close #1
Debug.Print "min = " & n
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/76802.html
標籤：VB基礎類
上一篇：急求，用VB撰寫一個連接SQL的adodc部件的一個輸入資料代碼。
下一篇：求大神幫助，vb改資料庫的記錄