請求高手幫忙想這個迴圈如何寫~拜託

gift1314520

各位神人高手們

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

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

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

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

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

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

瀏覽完整內容，請先 註冊 或 登入會員

tryit244178

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

gift1314520

tryit244178 發表於 2017-3-20 08:19 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

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

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

瀏覽完整內容，請先 註冊 或 登入會員

Jeepluo

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

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員