VB 주사위 게임을 쓰는 것을 도와주세요

1 레이블, 텍스트 두 개, 버튼 두 개를 정의합니다. 나는 쓸모없는 프로그램을 썼지만 게임의 요구를 만족시킬 수 있다.

비즈니스 객체를 부울 값으로 정의

개인 하위 명령 1_Click ()

레이블1= ""

불규칙하게 만들다

텍스트1= val (int (rnd * 6))

Text2 = Val(Int(Rnd * 6))

A = Val (텍스트 1)+Val (텍스트 2)

레이블1= IIF (a > 6, "포인트 수가 많음" 및 "포인트 수가 적음")

Label 1 = "점 수가 큰 경우"

Bo = 참

기타

Bo = 거짓

만약 ... 끝날거야

명령 1. 활성화 = false

명령 2. 작동 가능 = 참

끝단 접합

개인 하위 명령 2_Click ()

레이블1= ""

불규칙하게 만들다

텍스트1= val (int (rnd * 6))

Text2 = Val(Int(Rnd * 6))

B = Val (텍스트 1)+Val (텍스트 2)

(b>6 및 bo = true) 또는 (b<6 및 bo = false) 인 경우

Label 1 = "네가 이겼어!"

기타

Label 1 = "너 졌어!"

만약 ... 끝날거야

명령 1. 작동 가능 = 참

명령 2. 활성화 = false

끝단 접합

개인 하위 양식 _Load ()

레이블1= ""

명령 1. 작동 가능 = 참

명령 2. 활성화 = false

끝단 접합