[繁]平凡職業造就世界	[繁]亂馬½ 04-	[繁]刀劍神域外傳 Gun
[繁]在地下城尋求邂逅	[繁]魔王陛下，RETRY	(10月新番) [繁]香格

查看: 4793|回復: 3

[求助]請求高手幫忙想這個迴圈如何寫~拜託[複製鏈接]

gift1314520

高級幼兒生(30/200)

Rank: 1

帖子: 229
積分: 90 點
潛水值: 10483 米

電梯直達

樓主

發表於 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裡面要如何寫判斷一直想不出來，拜託各位前輩高手幫幫我度過這個難關
...

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

如何

沒

Jeepluo

帖子: 372
積分: 21 點
潛水值: 5911 米

4樓

發表於 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

複製代碼

...

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

回覆中加入附件並不會使你增加積分，請使用主題方式發佈附件。

使用道具檢舉

gift1314520

高級幼兒生(30/200)

Rank: 1

帖子: 229
積分: 90 點
潛水值: 10483 米

3樓

發表於 2017-3-21 11:44 PM|只看該作者

如果重複性登入後自動登出，請先刪除所有Cookie和舊網頁再登入。

tryit244178 發表於 2017-3-20 08:19 AM
下載: 訪客無法瀏覽下載點，請先註冊或登入會員

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

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

...

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

沒

若瀏覽伊莉的時侯發生問題或不正常情況，請使用Internet Explorer(I.E)。

使用道具檢舉

tryit244178

尊貴會員

Rank: 6 Rank: 6 Rank: 6 Rank: 6 Rank: 6 Rank: 6

帖子: 155
積分: 1282 點
潛水值: 47965 米

頭香

發表於 2017-3-20 08:19 AM|只看該作者

若有安裝色情守門員，可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php

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

如果瀏覽伊莉時速度太慢或無法連接，可以使用其他分流瀏覽伊莉，www01.eyny.com(02,03)。

使用道具檢舉

返回列表

Archiver|手機版|廣告|聯絡我們|廣告查詢|廠商合作|伊莉

GMT+8, 2024-11-8 04:28 PM

重要聲明：本討論區是以即時上載留言的方式運作，對所有留言的真實性、完整性及立場等，不負任何法律責任。而一切留言之言論只代表留言者個人意見，並非本網站之立場，用戶不應信賴內容，並應自行判斷內容之真實性。於有關情形下，用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。由於本討論區受到「即時上載留言」運作方式所規限，故不能完全監察所有留言，若讀者發現有留言出現問題，請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言，同時亦有不刪除留言的權利。切勿上傳和撰寫侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論，敬請自律。本網站保留一切法律權利。

		自動登錄	找回密碼或安全提問
密碼			註冊