1-100能被x整除的数显示在桌面

Option Explicit

 

Dim lngUserNumber, strStockpileBox, strResult(30)

 

lngUserNumber = GetUserNumber

 

GetTheResult
ClearUpResult
DisplayResult

 

Sub GetTheResult
    Dim lngCount
    For lngCount = 1 To 100
        If lngCount Mod lngUserNumber = 0 Then
            strStockpileBox = strStockpileBox & lngCount & " "
        End If
    Next
End Sub

 

Sub ClearUpResult

    Dim NumberIndex, ResultIndex, arrstrNumber, lngCount

    arrstrNumber = Split(Trim(strStockpileBox), " ", -1, 1)

    For NumberIndex = 0 To UBound(arrstrNumber)
        lngCount = lngCount + 1
        strResult(ResultIndex) = strResult(ResultIndex) & arrstrNumber(NumberIndex) & " "
        If lngCount = 5 Then
            strResult(ResultIndex) = Trim(strResult(ResultIndex))
            lngCount = 0 : ResultIndex = ResultIndex + 1
        End If
        If NumberIndex = UBound(arrstrNumber) Then
            strResult(ResultIndex) = Trim(strResult(ResultIndex))
        End If
    Next

End Sub

 

Sub DisplayResult

    Dim objFSO, objTextStream, lngCount

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextStream = objFSO.CreateTextFile _
    ("C:/Documents and Settings/All Users/桌面/ResultTextFile.txt", True)

    For lngCount = 0 To UBound(strResult)
        objTextStream.WriteLine(strResult(lngCount))
    Next
    objTextStream.Close()

    Set objFSO = Nothing
    Set objTextStream = Nothing

End Sub

 

Function GetUserNumber

    GetUserNumber = InputBox("Please enter your number.")

    If Not IsNumeric(GetUserNumber) Or GetUserNumber = Empty Then
        WScript.Quit
    End If
End Function