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

소개글

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

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

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

참고 자료

없음

압축파일 내 파일목록

report#2.hwp
frmReport2.frm
Report#2.vbp
Report#2.vbw