求Visual Basic 6.0的程式碼...(急~~)

Question

電腦要期末考ㄌ!!這次的範圍是第四章-重複做事....
考題從課本裡出(會改數據)
主要題型有4-31的3.4.5.6.8題,以及4-32的10.11.12題

題目如下:

3.設計一個專案:計算2+4+6+8+...+N=? N為偶數由使用者輸入

4.設計一個專案:計算2*4*6*8*...*N=? N為偶數由使用者輸入

5.設計一個專案:計算1+1/2+1/3+1/4+...1/N=? N為偶數由使用者輸入

6.設計一個專案:計算1平方+2平方+3平方+4平方+…+N平方=? N為偶數由使用者輸入

8.略

10.「10元」可以由一個「10元」組成或由兩個「5元」組成或由1個「5元」和五個「1元」組成或由10個「1元」組成等四種方式，讓使用者輸入N元,將N元可以組成的方式列出。

11.在100~200的數字中,找出正因數恰好為4個的數字

12.列出500~800的數字中,每一位數相加的數字和. 如:500→5，501→6




感激不盡~~

Answer 1

12.Dim intSum As IntegerPrivate Sub Form_Activate()    For j = 500 To 800        intSum = 0        For i = 1 To 3            intSum = intSum + Val(Mid(j, i, 1))        Next i        Print j & "->"; intSum    Next jEnd Sub2.Dim intNum As IntegerDim intSum As IntegerPrivate Sub Form_Activate()    intSum = 0    For i = 2 To intNum        If i Mod 2 = 0 Then            intSum = intSum + i        End If    Next i    Print "2+4+6+...+" & intNum & "->"; intSumEnd SubPrivate Sub Form_Load()    intNum = Val(InputBox("請輸入一個偶數數字", "輸入視窗"))    If intNum Mod 2 <> 0 Then        MsgBox "請重新輸入一個偶數", vbInformation, "訊息視窗"        Form_Load    End IfEnd Sub3.　　把第二題的intSum = intSum + i　“＋”改成“＊”