用VB編寫一個解“數位三角形”程式：將自然數1到6分別填入圖中的小圓圈內，使這個三角形的每邊上的三個數

用VB編寫一個解“數位三角形”程式：將自然數1到6分別填入圖中的小圓圈內，使這個三角形的每邊上的三個數

Private Sub Command1_Click（）
' 1
' 2 3
' 4 5 6
Dim a（6）As Integer
For i1 = 1 To 6
For i2 = 1 To 6
For i3 = 1 To 6
For i4 = 1 To 6
For i5 = 1 To 6
For i6 = 1 To 6
a（1）= i1
a（2）= i2
a（3）= i3
a（4）= i4
a（5）= i5
a（6）= i6
For i = 1 To 6
For j = i + 1 To 6
If a（i）= a（j）Then GoTo x:
Next
Next
If i1 + i2 + i4 = i4 + i5 + i6 And i1 + i2 + i4 = i1 + i3 + i6 Then
Print“”；
Print i1
Print“”；
Print i2；
Print i3
Print i4；
Print i5；
Print i6
Exit Sub
End If
x:
Next
Next
Next
Next
Next
Next
End Sub

求自然數1～100之間奇數之和vb，急

2500

程式設計題：求1-100這100個自然數之和.
再請問一般這樣題目用的是什麼語言？
C/C++還是VB？還是彙編？
不清楚，說個一般都用什麼？
順便用寫出來啊
先說你用什麼語言

題目沒有要求的都可以自由發揮，想用什麼語言就用什麼語言，用你最拿手的
補充：
啊，是你的工作還是我的工作哦，自己寫呀～
下麵是C語言的：
#include
main（）
{
 ； ；int i，s=0；
 ； ；for（i=1；i