비주얼베이직 레포트(report)
페이지 정보
작성일 19-09-27 06:42
본문
Download : 비주얼베이직 레포트.hwp
`
Command1.Caption = `가위`
Command2.Caption = `바위`
Command3.Caption = `보`
Randomize
End Sub
Private Sub...
1. 연습문제 10장 7번
2. 가위바위보 프로그램(program])
2-1.코드
Private Sub Command1_Click()
check 0
End Sub
Private Sub Command2_Click()
check 1
End Sub
Private Sub Command3_Click()
check 2
End Sub
Private Sub Form_Load()
Caption = `가위 바위 보 프로그램(program]) `
Label1.AutoSize = ture
Label2.AutoSize = ture
Label3.AutoSize = ture
Label1.Caption = `가위`
Label2.Caption = `가위`
Label3.Caption = `무승부 입니다.`
Command1.Caption = `가위`
Command2.Caption = `바위`
Command3.Caption = `보`
Randomize
End Sub
Private Sub check(myvalue As Integer)
If myvalue = 0 Then
Select Case Fix((Rnd 1000)) Mod 3
Case 0
Label1.Caption = `가위`
Label2.Caption = `가위`
Label3.Caption = `무승부입니다`
Case 1
Label1.Caption = `가위`
Label2.Caption = `바위`
Label3.Caption = `컴퓨터가 이겼습니다`
Case 2
Label1.Caption = `가위`
Label2.Caption = `보`
Label3.Caption = `당신이 이겼습니다`
End Select
ElseIf myvalue = 1 Then
Select Case Fix((Rnd 1000)) Mod 3
Case 0
Label1.Caption = `바위`
Label2.Caption = `가위`
Label3.Caption = `당신이 이겼습니다`
Case 1
Lab…(省略)
비주얼베이직 레포트(report)
비주얼베이직 레포트(report)
레포트/기타
Download : 비주얼베이직 레포트.hwp( 96 )
비주얼베이직,레포트,기타,레포트
설명
다.
순서
비주얼베이직 레포트 , 비주얼베이직 레포트기타레포트 , 비주얼베이직 레포트
1. 연습문제 10장 7번
2. 가위바위보 프로그램(program])
2-1.코드
Private Sub Command1_Click()
check 0
End Sub
Private Sub Command2_Click()
check 1
End Sub
Private Sub Command3_Click()
check 2
End Sub
Private Sub Form_Load()
Caption = `가위 바위 보 프로그램(program]) `
Label1.AutoSize = ture
Label2.AutoSize = ture
Label3.AutoSize = ture
Label1.Caption = `가위`
Label2.Caption = `가위`
Label3.Caption = `무승부 입니다.
