VB 를 이용 하여 "디지털 삼각형" 을 푸 는 프로그램 을 만 듭 니 다: 그림 의 작은 원 안에 자연수 1 부터 6 까지 각각 채 워 넣 고 이 삼각형 의 각 변 에 세 개의 수 를 채 웁 니 다.

VB 를 이용 하여 "디지털 삼각형" 을 푸 는 프로그램 을 만 듭 니 다: 그림 의 작은 원 안에 자연수 1 부터 6 까지 각각 채 워 넣 고 이 삼각형 의 각 변 에 세 개의 수 를 채 웁 니 다.


Private Sub Command 1Click ()
1.
2, 3.
'4, 5, 6'.
Dim a (6) As Integer
For i1 = 1 To 6
For ii = 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) = ii
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 ii;
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 ()
{.
& nbsp; & nbsp; int i, s = 0;
& nbsp; & nbsp; for (i = 1; i