[Visual Basic 6.0] 邏輯思考基礎入門 - 聯集 | 0xDe - 點部落

2013-12-18

[Visual Basic 6.0] 邏輯思考基礎入門 - 聯集

摘要:[Visual Basic 6.0] 邏輯思考基礎入門 - 聯集

[Visual Basic 6.0] 邏輯思考基礎入門 - 聯集

題目說明：

讀入2個正整數a,b，請輸出介於a,b之間（包含a,b）2,3,5倍數的聯集大小。

Input

輸入可能包含了好幾列測試資料，每一列有2個整數a,b。
a=0 b=0 代表輸入結束。

Output

對每一列輸入，請輸出聯集的大小。請參考Sample Output

Sample Input

1 10 
10 20
0 0

Sample Output

8
7

範例 Code：

Private Sub Form_Activate()
    Open App.Path & "\In.txt" For Input As #1 ' 讀入 In.txt 輸入檔
    Open App.Path & "\Out.txt" For Output As #2 ' 建立 Out.txt 輸出檔
    
    Do
        Line Input #1, InpData ' 讀入整段資料
        CaseData = Split(InpData, " ") ' 字串切割
        
        ' 判斷是否為為到底
        If CaseData(0) = CaseData(1) And Val(CaseData(0)) = 0 Then Exit Do
        
                Temp = 0 ' 計算數量
        For I = CaseData(0) To CaseData(1)
            If I Mod 2 = 0 Or I Mod 3 = 0 Or I Mod 5 = 0 Then
                Temp = Temp + 1
            End If
        Next I
                Out = Out & Temp & vbCrLf
    Loop
        Print #2, Out
        Close
        End
End Sub

#0xDe 從分享中學習

#Facebook：ProgrammerDe (https://www.facebook.com/MicrosoftDes) 有問題歡迎提問

回首頁