Using VB to write a solution to "digital triangle" program: the natural number 1 to 6 were filled in the small circle in the graph, so that the triangle on each side of the three numbers

Using VB to write a solution to "digital triangle" program: the natural number 1 to 6 were filled in the small circle in the graph, so that the triangle on each side of the three numbers

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

Find the natural number 1 ~ 100 odd number between the sum of VB, urgent

2500

Program design questions: 1-100 this sum of 100 natural numbers
What's the language of this topic?
C / C + + or VB? Or assembly?
I don't know. What do you usually use?
By the way, write it out
What language do you use first

The topic does not have the request all to be allowed to display freely, wants to use any language to use any language, uses your most skilled
Supplement:
Ah, is it your homework or mine? Oh, write it by yourself
The following is a description of C language:
#include
main()
{
  int i,s=0;
  for (i=1;i