匿名使用者
匿名使用者 發問時間: 電腦與網際網路程式設計 · 1 0 年前

VB輸入一個整數N(N<230),求最小的正整數M使的1+2

VB輸入一個整數N(N<230),求最小的正整數M使的1+2+...+m>N

請大大幫我

3 個解答

評分
  • 1 0 年前
    最佳解答

    Dim M As Integer

    Const N As Integer = 230

    Private Sub Form_Load()

    Dim L As Integer

    Do

    M = M + 1

    L = L + M

    Loop Until L > N

    Print M

    End Sub

    解:

    宣告 M as Integer

    宣告 常數 N as Integer

    在 Private Sub Form_Load() 裡:

    也宣告 L as Integer 用來儲存 1+2+3...的總和

    設 Do ... Loop 讓 L 值跑出大於 N 值 即執行 Print M

    2008-12-25 15:56:54 補充:

    補加一下 ^_^"

    Print M 時,先把 From1 的屬性 AutoRedraw 改成 True ,才能看得見 M 值

    參考資料: 小腦袋
  • 6 年前

    硬碟要找硬碟醫院,能救回來才重要,我司就是找他們做出來的

    必須要推,當初心急亂找錯店告訴我沒辦法,後來找又找到硬碟醫院,我告訴他真心要來救援,可以等,在他們努力下有找回來

    太棒了,原來微軟張經理都找過他們

    http://www.datamaster.com.tw/

  • Lv 4
    1 0 年前

    Dim N,m As Integer

    Dim i As Integer

    N = ?

    Do

    i +=1

    m +=i

    If m>N Then Exit Do '重要的一行

    Loop

    Msgbox "m = " & Str(m) &

    2008-12-27 22:52:28 補充:

    Msgbox "m = " & Str(m)

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