비쥬얼 베이직 6.0으로 만들었구요
실행하면 가위바위보 게임, 로또게임 그리고 종료 버튼있구요
가위바위보 게임 클릭하면 게임이 실행되고
로또 게임을 클릭하면 로또게임이 실행됩니다
여기서 로또 게임은 기존의 로또랑 같게 1~45까지의 임의숫자를
6개의 빈칸에 입력을하고 추첨버튼을 클릭하
● 알고리즘
숫자 버튼을 누르고 연산버튼을 누른후 결과 버튼을 누르면 결과가 레이블에 표시가 된다.
여기서 연속계산과 추가 계산을 수행할수 있도록
Dim intTrdNum As Currency ' = 다음에연산버튼을 눌렀을시 계속 계산을 하기위해있는 변수
Dim blCheck As Boolean '연속계산 여부 확인
Dim blForlabel As Boolean '
Dim i As Integer, j As Integer
Dim strike As Integer, ball As Integer, out As Integer
Dim a As Integer
Guess(0) = Text4.Text
Guess(1) = Text5.Text
Guess(2) = Text6.Text
strike = 0
ball = 0
out = 0
For i = 0 To 2
For j = 0 To 2
If Num(i) = Guess(j) Then
If i = j Then
strike = strike + 1
Else