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

등록일 2002.04.22 압축파일 (zip) | 1페이지 | 가격 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
      최근 구매한 회원 학교정보 보기
      1. 최근 2주간 다운받은 회원수와 학교정보이며
         구매한 본인의 구매정보도 함께 표시됩니다.
      2. 매시 정각마다 업데이트 됩니다. (02:00 ~ 21:00)
      3. 구매자의 학교정보가 없는 경우 기타로 표시됩니다.
      최근 본 자료더보기
      추천도서