검색어 입력폼

[비주얼베이직]비주얼베이직 기말고사문제

저작시기 2006.06 |등록일 2006.07.08 파일확장자압축파일 (zip) | 5페이지 | 가격 1,000원

소개글

학교마다 문제가 틀리겠지만 이소스를 참고 하면 필히 좋은 성적 얻을 수 있을겁니다. 메뉴바를 이용하고, 그림판에 각종 도형을 삽입해서 원하는 색으로 그려주고,
오늘날짜를 출력해주고, 달력을 출력해주는 프로그램입니다.

컴파일 실행환경

visual basic 6.0

본문내용

Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim YY, MM, DD, w, i As Integer
Dim MD(1 To 12) As Integer
Private Sub Form_Load()

Form4.Caption = "달력"

MD(1) = 31: MD(2) = 28: MD(3) = 31
MD(4) = 30: MD(5) = 31: MD(6) = 30
MD(7) = 31: MD(8) = 31: MD(9) = 30
MD(10) = 31: MD(11) = 30: MD(12) = 31
Call AutoSet
Call Date_Array



End Sub
Private Sub Date_Array()
If MM = 2 Then
If (YY Mod 4) = 0 Then MD(2) = 29
If (YY Mod 100) = 0 Then MD(2) = 28
If (YY Mod 400) = 0 Then MD(2) = 29
End If

For i = 0 To 36
Text3(i).Text = ""

Next i

w = Weekday(DateSerial(YY, MM, 1))

For i = 1 To MD(MM)
Text3(w + i - 2).Text = Str(i)

Next i
End Sub
Private Sub AutoSet()
YY = Year(Now)
MM = Month(Now)
Text1.Text = Str(YY)
Text2.Text = Str(MM)

End Sub

압축파일내 파일목록

기말고사(VB).ppt
기말고사/Form1.frm
기말고사/Form2.frm
기말고사/Form3.frm
기말고사/Form4.frm
기말고사/Form5.frm
기말고사/Form5.frx
기말고사/MSSCCPRJ.SCC
기말고사/Project1.vbp
기말고사/Project1.vbw
다운로드 맨위로