用VB做一迴圈

Question

例如有N個數
以10個為一組1+~10/10..2+~11/10以此類推
可是我要的是不限定以10個為一組

我有Ak個數據我要算她的平均數..假如我以5個為一組
平均數第一格會算出A1~A5第二格會算出A2~A6第3格會算出A3~A7....以此類推跑到最後.....我們老師要求....
N個為一組
N要由使用者輸入

我們之前是把N固定為10老師不要我們把她固定起來
要讓使用者輸入.....明天就要交囉
幫幫我

我試過囉不會跑出結果耶>"

格子總共有253個....那些是股票的價錢
第一格式1~5(假設我以5個為一組)如果是以n個為一組...
第一格就是要有1~n個數的平均數
第二格就變成2~n+1個數的平均數
以此類推
算到最後面

Answer 1

COMMAND1模擬股票價格走勢
COMMAND2 依照價格走勢 做平均移動線
Dim aaa(253) As Long
Private Sub Command1_Click()
Randomize
price = 132
For i = 1 To 253
virb = Round(price * 0.07, 2)
pos_neg = Rnd * 10
If pos_neg > 5 Then
ppp = 1
Else
ppp = -1
End If
price = Round(price + Rnd * virb * ppp, 2)
aaa(i) = price
List1.AddItem aaa(i)
Next i
End Sub

Private Sub Command2_Click()
N = Val(InputBox("移動平均線間距"))
For i = N To 253
For j = i - N + 1 To i
Avg = Avg + aaa(j)
Next j
Avg = Round(Avg / N, 2)
List2.AddItem Avg
Avg = 0
Next i
End Sub

Answer 2

Private Sub Command1_Click()    Dim I As Integer, J As Integer, N As Integer, T As Single        AutoRedraw = True: Cls    Do      N = Int(Val(InputBox("請輸入1個大於零之整數")))    Loop Until N > 0        For I = 1 To N        T = 0        Print "(";        For J = I To I + N - 1            T = T + J            Print J;            If J < I + N - 1 Then Print "+";        Next        Print ") ÷ "; N; "="; T / N    NextEnd Sub

2006-06-23 11:58:28 補充：
能把程式碼貼出來看看嗎?我是直接把答案輸出在表單上.當然不會顯示在你的格子裡面.還有請問您是使用VB6還是VB.NET還是VBA(EXCEL)?所指的格子是使用什麼元件?

Answer 3

大概了解你的問題，但有個小問題要問你~
讓使用者輸入的n代表的是n個1組對嗎?
那你說第1格是1-5~第2格是2-6.....
請問總共要幾格@@"
格子裡的數字從那裡來?

Answer 4

不是很懂你的意思..可以在舉例清楚一點嗎