創作內容

0 GP

VB2010 簡易約瑟夫問題

作者：艾草│2015-05-20 09:56:52│巴幣：0│人氣：211
使用主控台
Imports System.Collections
Imports System.IO
Module Module1
    Dim sr As StreamReader = New StreamReader("C:\Users\scvs\Desktop\新文字文件.txt")
    Dim sw As StreamWriter = New StreamWriter("C:\Users\scvs\Desktop\out.txt")
    Sub Main()
        Dim i As Integer = sr.ReadLine
        For hs = 1 To i
            Dim temp As String = sr.ReadLine
            Dim sep() As String = {","}
            Dim token() As String = temp.Split(sep, StringSplitOptions.RemoveEmptyEntries)
            Dim myQ As Queue = New Queue
            Dim n As Integer ' n 人數
            Dim m As Integer 'm 殺掉
            Dim w As Integer = 0
            n = token(0)
            m = token(1)
            Dim j As Integer
            Dim l As Integer
            For i = 1 To n
                myQ.Enqueue(i)
            Next
            Do Until myQ.Count = 1
                j = myQ.Peek
                l = myQ.Count '沒用到
                myQ.Dequeue()
                w = w + 1

                If w <> m Then
                    myQ.Enqueue(j)
                End If
                If w = m Then
                    w = 0
                End If
            Loop
            Dim item As Integer = myQ.Dequeue
            sw.WriteLine(item)
            ReDim token(1)
        Next
        sw.Close()
    End Sub
喜歡 收藏 引用 留言 推上首頁 檢舉
引用網址：https://home.gamer.com.tw/TrackBack.php?sn=2841914
All rights reserved. 版權所有，保留一切權利

相關創作

同標籤作品搜尋：VB2010|約瑟夫|殺人

[達人專欄] 【專文】真理的歧路：布列維克屠殺77人的信念與挪威人的選擇
[達人專欄] 【專文】他們仍會回來：論未成年殺人一事，以及旁觀者作為當事人
【攻略+心得】青春期少女(?)的憂鬱《多愁善感死亡輪迴》*圖片有血腥注意
迷い犬を保護いた女性がはねられ死亡 被告はスマホで脇見運転、ドラレコ改ざんも 群馬
2人を刺殺 男に無期懲役を求刑 検察「防カメに手を振る姿に挑発されていると感じた」83

留言共 0 篇留言

我要留言提醒：您尚未登入，請先登入再留言

喜歡★sakura5439 可決定是否刪除您的留言，請勿發表違反站規文字。

前一篇：VB2010 數字階層 ...

追蹤私訊切換新版閱覽

作品資料夾

日系歌曲_歌詞 目錄 請點這 (1)
└fripside (7)
└約會大作戰 (0)
└奈亞子 (1)
└初音ミク (8)
└カスタムメイド3D (1)
└らぶでれーしょん！ (1)
└ニコニコ(nicosound) (1)
└Dormir (1)
└機巧少女は傷つかない (3)
└月に寄りそう乙女の作法 (1)
└ご愁傷さま二ノ宮くん (1)
└オモイヨシノ (1)
└Ceui (1)
└戰國Basara (1)
└東方vocal (4)

動漫角色集 (1)
└時崎狂三 (1)

Galgame (0)
└マジカライド (1)

日系鈴聲 (0)
└fripside (1)
└初音 (1)
└one ok rock (1)
└奈亞子W (1)

自創短篇小說集 (0)
└日常小劇場 (4)

自製Facebook Themes (0)
└日系風格 (1)

自製OSU皮膚 (0)
└日系風 (1)

心情日記 (1)

visaual basic 2010 作業 (4)

未分類 (11)

chanxin95107 給 所有老師們：
翻譯菜鳥一枚，放了些蔚藍檔案的翻譯作品在小屋裡，有興趣的歡迎挑看選看( • ̀ω•́ )✧看更多我要大聲說5小時前


face基於日前微軟官方表示 Internet Explorer 不再支援新的網路標準，可能無法使用新的應用程式來呈現網站內容，在瀏覽器支援度及網站安全性的雙重考量下，為了讓巴友們有更好的使用體驗，巴哈姆特即將於 2019年9月2日 停止支援 Internet Explorer 瀏覽器的頁面呈現和功能。
屆時建議您使用下述瀏覽器來瀏覽巴哈姆特：
。Google Chrome（推薦）
。Mozilla Firefox
。Microsoft Edge（Windows10以上的作業系統版本才可使用）

face我們了解您不想看到廣告的心情⋯ 若您願意支持巴哈姆特永續經營，請將 gamer.com.tw 加入廣告阻擋工具的白名單中，謝謝 !【教學】