伊莉討論區

標題: 請求高手幫忙想這個迴圈如何寫~拜託 [打印本頁]

作者: gift1314520 時間: 2017-3-20 01:15 AM 標題: 請求高手幫忙想這個迴圈如何寫~拜託

各位神人高手們

小弟VAB碰到一個難題想不出來如何撰寫
拜託各位神人幫忙一起想辦法

迴圈方式很簡單1~10000 連續號

一次要產出寫出兩個TXT來
分別是檔案1、檔案2

檔案1內容:1~10、21~30、41~50
檔案2內容:11~20、31~40、51~60

兩個檔案交錯差十分別寫到各個TXT去直到10000號結束

我一直苦腦for裡面要如何寫判斷一直想不出來，拜託各位前輩高手幫幫我度過這個難關

作者: tryit244178 時間: 2017-3-20 08:19 AM

把數字拿去除以20，看餘多少
就可以利用餘數來判斷要放在檔案1 或檔案2 了

作者: gift1314520 時間: 2017-3-21 11:44 PM

tryit244178 發表於 2017-3-20 08:19 AM
把數字拿去除以20，看餘多少
就可以利用餘數來判斷要放在檔案1 或檔案2 了 ...

按照這樣寫成功了，真的是感謝你!!

作者: Jeepluo 時間: 2017-4-8 08:53 PM

dim mVal as Integer
for i = 1 to 1000
mVal = i mod 20 ' 取餘數
if mVal > 0 and mVal <=10 and then
' 當餘數 > 0且<=10 時（ 1－10之間）
My.Computer.FileSystem.WriteAllText("C:\檔案1.txt",( i & "," ),True)
else
' 當餘數＝0 且介於 11～20之間時
My.Computer.FileSystem.WriteAllText("C:\檔案2.txt",( i & "," ) ,True)
end if
next

複製代碼

歡迎光臨伊莉討論區 (http://a401.file-static.com/)