리포트 논문 자기소개서 이력서 시험자료 서식 PPT양식 표지/속지

[비주얼베이직] 비쥬얼베이직으로짠 구구단

등록일 2002.04.22 파일확장자압축파일 (zip) | 2페이지 | 가격 500원

소개글

비주얼 베이직을 짠 구구단입니다.

옵션을 선택해서 한단씩 출력도 가능하고

1단 부터 9단 까지 모두 출력도 가능합니다.

목차

없음

본문내용

Option Explicit

Private Sub cmdCal_Click()

Dim a, b, n, info, lfcr
lfcr = Chr(13) + Chr(10)
b = Val(txtDan.Text)
If optA.Value = True Then
For a = 1 To 9
n = b * a
info = info & Str(b) & " " & "*" & Str(a) & "=" & Str(n) & lfcr & lfcr
Next

lblDisplay.Alignment = 2
End If
다운로드 맨위로