vb~要3和6的倍數,但不要9的倍數~會的請進!

請問vb的題目:

要3和6(不是3跟6唷!)的倍數,但不要9的倍數要用

For Next而且要加總答案是~1089

謝謝囉~~~

已更新項目:

拍謝~忘記說!

要 1 to 100

2 個已更新項目:

而且是 vb.net 的!

3 個解答

評分
  • 1 0 年前
    最佳解答

    Private Sub Form_Load()

    Dim sum As Integer, i As Integer, alist As String

    sum = 0

    alist = "" 'alist變數用來儲存輸出的字串

    For i = 3 To 100 Step 3 '因一定是3的倍數,故由3開始,STEP 3

    If i Mod 9 <> 0 Then

    alist = alist + Str(i)

    sum = sum + i

    If sum <1089 Then alist = alist + "+" else alist = alist + "=" + Str(sum): Exit For

    End If

    Next

    Debug.Print alist

    End Sub

    執行後,輸出如下:

    3+ 6+ 12+ 15+ 21+ 24+ 30+ 33+ 39+ 42+ 48+ 51+ 57+ 60+ 66+ 69+ 75+ 78+ 84+ 87+ 93+ 96= 1089

    2007-05-01 01:15:56 補充:

    迴圈的部份修改如下,輸出不變,但較合你的題意。

    For i = 3 To 100 Step 3

    If i Mod 9 <> 0 Then

    alist = alist + Str(i) + "+"

    sum = sum + i

    End If

    Next

    alist = left(alist , len(alist) - 1) + "=" + str(sum)

  • 1 0 年前

    Private Sub Form_Load()

    Sum = 0

    For i = 0 To 1089

    '要3的倍數跟6的倍數而不要為9的倍數

    If ((i Mod 3) = 0 And (i Mod 6) = 0 And (i Mod 9) <> 0) Then

    Debug.Print i

    End If

    Sum = Sum + i

    '我這裡設誤差值10

    If Abs(Sum - 1089) < 10 Then Exit For

    Next

    Debug.Print "sum=" & Sum

    End Sub

    ----------------------------------------------------------

    其實妳題目好像沒說得很清楚

    要3和6(不是3跟6唷!)的倍數

    妳是想說是3的倍數還有6的倍數那你就直接說是3的倍數就好

    (如果是這樣上面程式碼是這麼寫的)

    還是你想說的是3跟6的公倍數而不是9的倍數

    程式碼改為

    If ((i Mod 12) = 0 And (i Mod 9) <> 0) Then....(*)

    反正都只是改邏輯判斷....改的位置都在(*)處

    2007-04-20 20:56:34 補充:

    環境vb6

    語法vb

    參考資料: me
  • 3和6,不是3跟6?

    要加總? 幾個數加總?

還有問題?馬上發問,尋求解答。