? 發問時間: 電腦與網際網路程式設計 · 1 0 年前

拜託~請幫我設計一個程式....(急)

請各位大大幫我設計一個程式,請使用Loop(請寫的像初學者哦!)

Question:

試判斷某輸入值是否為質數,即輸入值除了1和自己沒有其他因數

例如:

輸入值:16

因數:1 2 4 8 16

非質數

已更新項目:

Loop的例子:

Dim i As Integer

Dim sum As Integer

For i=1 To 10

sum=sum+1

Next

Print"1+...+10=";sum

1 個解答

評分
  • 1 0 年前
    最佳解答

    Dim a As Integer

    Dim b As Integer = 2

    Dim c As String = "1"

    a = InputBox("請輸入整數")

    Do While b < a

    If (a Mod b) = 0 Then

    c = c & " " & b.ToString

    End If

    b = b + 1

    Loop

    If c = "1" Then

    MsgBox("是質數")

    Else

    MsgBox("不是質數,因數為:" & c & " " & a)

    End If

    希望對你有幫助

    2007-05-12 18:36:30 補充:

    Dim a As Integer

    Dim b As Integer = 2

    Dim c As String = "1"

    a = InputBox("請輸入整數")

    for i=2 to a

    If (a Mod b) = 0 Then

    c = c & " " & b.ToString

    End If

    b = b + 1

    next

    2007-05-12 18:36:44 補充:

    If c = "1" Then

    MsgBox("是質數")

    Else

    MsgBox("不是質數,因數為:" & c & " " & a)

    End If

    參考資料: 自己-巨匠電腦-小港分校-講師
還有問題?馬上發問,尋求解答。