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

伊莉討論區

搜索
尊貴會員無限下載附件認識好友、聊天,分享生活趣事你準備好成為出色的版主了嗎?
無修rion柯南overlord中文gd按摩
通讯戦巫女ホ獸交動物派隊夜逃heroine 月世界

休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

板橋中山路二段 這種

[繁]我獨自升級10-

[繁]異修羅12- (第一

[簡]SHAMAN KING FLOW

[繁]迷宮飯12-

[繁]不死不運21-
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 4594|回復: 3

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

Rank: 1

帖子
229
積分
90 點
潛水值
10463 米
發表於 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裡面要如何寫判斷一直想不出來,拜託各位前輩高手幫幫我度過這個難關
...
瀏覽完整內容,請先 註冊登入會員

使用道具檢舉

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

帖子
155
積分
1291 點
潛水值
47805 米
發表於 2017-3-20 08:19 AM|顯示全部樓層
所有積分大於負-100的壞孩子,將可獲得重新機會成為懲罰生,權限跟幼兒生一樣。
把數字拿去除以20,看餘多少
就可以利用餘數來判斷要放在 檔案1 或 檔案2 了

使用道具檢舉

Rank: 1

帖子
229
積分
90 點
潛水值
10463 米
發表於 2017-3-21 11:44 PM|顯示全部樓層
tryit244178 發表於 2017-3-20 08:19 AM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

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

按照這樣寫成功了,真的是感謝你!!...
瀏覽完整內容,請先 註冊登入會員
成為伊莉的版主,你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛,那種滿足感等著你來嚐嚐喔。

使用道具檢舉

帖子
372
積分
21 點
潛水值
5911 米
發表於 2017-4-8 08:53 PM|顯示全部樓層
如果瀏覽伊莉時速度太慢或無法連接,可以使用其他分流瀏覽伊莉,www01.eyny.com(02,03)。
  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
複製代碼
...
瀏覽完整內容,請先 註冊登入會員
如果瀏覽伊莉時速度太慢或無法連接,可以使用其他分流瀏覽伊莉,www01.eyny.com(02,03)。

使用道具檢舉

您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

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