VB)비쥬얼 베이직 별 찍는 프로그램

소개글

출력버튼을 클릭하면

한번 클릭시
★★★★★★★★
★★★★★★★
★★★★★★
★★★★★
★★★★
★★
★

두번클릭시
★★★★★★★★
★★★★★★★
★★★★★★
★★★★★
★★★★
★★
★
★★
★★★
★★★★
★★★★★
★★★★★★
★★★★★★★
세번 클릭시
★★★★★★★★ ★★★★★★★★
★★★★★★★ ★★★★★★★
★★★★★★ ★★★★★★
★★★★★ ★★★★★
★★★★ ★★★★
★★ ★★
★ ★
★★
★★★
★★★★
★★★★★
★★★★★★
★★★★★★★

네번클릭시... 빈곳에 별

for문을 이용하여 작성하였습니다.

폼디자인과 소스... 프로그램에 대한 레포트가 압축파일에 들어있습니다.

목차

폼디자인

폼디자인

본문내용

Dim i As Integer ‘일반창 전역변수 지정 클릭 카운터 변수

Private Sub cmdend_Click() ‘종료버튼
Unload Me ‘종료

End Sub

Private Sub cmdinput_Click() ‘출력버튼
Static count(0 To 6) As Integer ‘카운트 배열 지정
Dim j, k, l As Integer

If count(i) = count(0) Then ‘count(i)가 0일때 아래 출력
Label1.Caption = ""
Label2.Alignment = 0
Label2.Caption = ""
For j = 10 To 1 Step -1
For k = 1 To j
Label2.Caption = Label2.Caption & "★"
Next
Label2.Caption = Label2.Caption & vbCr
Next

ElseIf count(i) = count(1) Then ‘count(i)가 1일때 아래 출력
Label1.Alignment = 1
For j = 1 To 10
For k = 1 To j Step 1
Label1.Caption = Label1.Caption & " "
Next
For l = 10 To j Step -1
Label1.Caption = Label1.Caption & "★"
Next
Label1.Caption = Label1.Caption & vbCr
Next

참고 자료

없음

압축파일 내 파일목록

별찍기.frm
비베레포트.hwp