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

Question

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

請大大幫我

Answer 1

最佳解答

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 值

參考資料： 小腦袋

Answer 2

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

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

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

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

Answer 3

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)