找出最小數字：從指定目錄中的"in.txt"，讀入一數字字串，以逗號分隔，找出字串中最小字數。
輸出到指定目錄的"out.txt"。
(讀取指定目錄的in.txt, 請用 open app.path & "\in.txt" for input as #1 )
※今後皆以指定目錄形式完成VB
輸入範例：
26,56,78,99,15,13
輸出範例：
13
(讀取指定目錄的in.txt, 請用 open app.path & "\in.txt" for input as #1 )
※今後皆以指定目錄形式完成VB
輸入範例：
26,56,78,99,15,13
輸出範例：
13
Private Sub Form_Activate()
回覆刪除Me.Hide
Dim Y As Integer
Open App.Path & "/in.txt" For Input As #1
Open App.Path & "/out.txt" For Output As #2
Input #1, x
Min = x
Do While Not EOF(1)
Input #1, Y
If Y < Min Then Min = Y
Loop
Print #2, Min
Close
Close
End
End Sub
Private Sub Form_Load()
回覆刪除Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Input #1, A
Do While Not EOF(1)
Input #1, B
If A > B Then A = B
Loop
Print #2, A
Close
Close
End
End Sub
你們標題改一下好了
回覆刪除這題標題可以改成 "最小字數"
這樣方便日後要看比較好找
兩位程式正確。
回覆刪除小冰的這一行 Min = x
可以像晟晟那樣 直接 Input #1, A
Private Sub Form_Load()
回覆刪除Open App.Path & "/in.txt " For Input As 1
Open App.Path & "/out.txt" For Output As 2
Input #1, x
Do While Not EOF(1)
Input #1, y
If x > y Then x = y
Loop
Print #2, x
Close
Close
End
End Sub
哲哲好，程式正確。
回覆刪除不過"/in.txt "這邊正確是 "\in.txt" 才對
雖然"/"也可以，但是windows資料夾是用 "\"
以後改用"\"吧
Private Sub Form_Load()
回覆刪除Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Input #1, S
Do While Not EOF(1)
Input #1, D
If S > D Then S = D
Loop
Print #2, D
Close
Close
End
End Sub