VB高手请进！我才学VB！要点代码！ 谢谢咯

一、求S=1+(1+2)+(1+2+3)+....+(1+2+...+n),N由键盘输入
Private Sub Command1_Click()
n = InputBox("请输入一个数。")
a = 0
s = 0
For i = 1 To n
a = a + i
s = s + a
Next
MsgBox (CStr(s))
End Sub
二、求30以内的满足a^2+b^2=c^2关系的整数组合
Private Sub Command1_Click()
For i = 1 To 30
For j = 1 To 30
For k = 1 To 30
If i ^ 2 + j ^ 2 = k ^ 2 Then MsgBox (CStr(i) & ":" & CStr(j) & ":" & CStr(k))
Next
Next
Next
End Sub

VB的程序必须对应控件，不可能直接复制就行的，除非显示在主面上。
楼上的那个需要 command1，按钮。
在消息框中显示。

给过邮箱地址,发些源文件给你.让我们共同学习共同进步.