Re:직각삼각형 만드는법....

[피닉스79]

질문:
제가....조금 있음 대회를 나가야 되는데...
저기..이것좀 갈켜주세요~~

a
ab
abc
abcd
…

이렇게 만들어야되는데....소스좀 짜주세요....ㅠ.ㅠ.

부탁합니다..

제가 한데 까지는...


Dim a As String

Private Sub Command1_Click()

a = Text1.Text

For i = Str(1) To Len(a)
For j = Str(1) To i
Print Str(j);
Next j
Print
Next i

End Sub

답변:
소스를 봐서는 텍스트박스에 문자열을 입력받는것 같습니다만..
문자열 입력받아서 그 문자열을 출력시키는 건가요?
a = Text1.Text

For i = 1 To Len(a)
Print Left(a, i)
Next i

이렇게 하면 입력받은 문자열을 직각삼각형모양으로 출력될겁니다.

그게 아니라면
텍스트박스와 무관한 소스로는
Dim i As Integer
Dim j As Integer
Dim No As Integer
No = 10
For i = 1 To No
For j = 0 To i - 1
Print Chr(65 + j);
Next j
Print
Next i


For i = 1 To No
For j = 0 To i - 1
Print Chr(97 + j);
Next j
Print
Next i

이런게 있습니다.

처음것은 대문자로 A부터 No의 값까지 출력이 되는것이고
두번째것은 첫번째와 같은데 대문자가 아닌 소문자로 출력하는 것입니다.
chr은 아스키코드를 문자로 변환시켜주는 함수입니다.