코드는 다음과 같습니다.
옵션? 명확하다
암담한가? Operand 1,? Operand2,? 결과? 로? 두 배
암담한가? 교환원? 로? 선
암담한가? 깃발? 로? 부울 대수학 시스템
암담한가? 로고 깃발? 로? 부울 대수학 시스템
개인? Sub? CmdAdd_Click ()
첫 번째 피연산자를 얻고 숫자를 더하다.
Operand 1? =? Val(lblScreen) 입니다. 제목)
지정된 연산자는 더하기 기호입니다.
교환원? =? "+"
로고 깃발? =? 진짜
디스플레이를 지웁니다
LBL 화면. 제목? =? ""
끝? 잠수함
개인? Sub? CmdAdd_MouseDown (단추? 로? 정수,? 이동? 로? 정수,? X? 로? 싱글? Y? 로? 싱글)
버튼? =? VbLeftButton
끝? 잠수함
개인? Sub? CmdCls_Click ()
LBL 화면. 제목? =? ""
Operand 1? =? 0
Operand2? =? 0
교환원? =? ""
결과? =? 0
끝? 잠수함
개인? Sub? CmdDivide_Click ()
첫 번째 피연산자, 피제수를 얻다.
Operand 1? =? Val(lblScreen) 입니다. 제목)
연산자를 제수로 지정합니다.
교환원? =? "/"
디스플레이를 지웁니다
LBL 화면. 제목? =? ""
끝? 잠수함
개인? Sub? CmdEqual_Click ()
디스플레이에서 두 번째 피연산자를 가져옵니다.
Operand2? =? Val(lblScreen) 입니다. 제목)
현재 운영자 판단
선택? 사건? 운영자
더하기 기호인 경우 첫 번째 피연산자와 두 번째 피연산자를 더합니다.
사건? "+"
결과? =? Operand 1? +? 작업 2
사건? "-"
결과? =? Operand 1? -응? 작업 2
사건? "*"
결과? =? Operand 1? *? 작업 2
제수인 경우 먼저 제수가 0 인지 여부를 결정합니다.
사건? "/"
만약? Operand2? & lt& gt? 0? 그리고 나서
결과? =? Operand 1? /? 작업 2
기타
MsgBox? "구분 선은 0 이 될 수 없습니다!" ,? VbCritical,? "오류"
LBL 화면. 제목? =? ""
Operand 1? =? 0
Operand2? =? 0
종료? 잠수함
끝? 만약
끝? 고르다
LBL 화면. 제목? =? 결과
Operand 1? =? 0
Operand2? =? 0
교환원? =? ""
끝? 잠수함
개인? Sub? CmdMinus_Click ()
첫 번째 피연산자를 가져옵니다. 즉, 감소됩니다.
Operand 1? =? Val(lblScreen) 입니다. 제목)
지정된 연산자는 빼기 기호입니다.
교환원? =? "-"
디스플레이를 지웁니다
LBL 화면. 제목? =? ""
끝? 잠수함
개인? Sub? CmdMul_Click ()
첫 번째 피연산자, 즉 승수를 가져옵니다.
Operand 1? =? Val(lblScreen) 입니다. 제목)
연산자가 승수임을 지정합니다.
교환원? =? "*"
디스플레이를 지웁니다
LBL 화면. 제목? =? ""
끝? 잠수함
개인? Sub? CmdNum_Click (색인? 로? 정수)? 숫자 키
숫자 키의 인덱스 번호를 얻기 위해 변수 temp 를 선언합니다.
암담한가? 임시직? 로? 정수
임시직? =? 색인
숫자 키의 색인 번호를 해당 숫자로 변환하여 디스플레이에 표시합니다.
LBL 화면. 제목? =? LBL 화면. 제목? & amp? CStr (온도)
끝? 잠수함
개인? Sub? CmdOpposite _ Click ()
Operand 1? =? Val(lblScreen) 입니다. 제목)
Operand 1? =? -피연산자 1
결과? =? 피연산자 1
LBL 화면. 제목? =? 결과
끝? 잠수함
개인? Sub? CmdPoint_Click ()? 소수점을 처리하다
암담한가? 임시직? 로? 선
만약? 기기 (LBL 화면). 제목,? ".")? 그리고 나서
종료? 잠수함
기타
LBL 화면. 제목? =? LBL 화면. 제목? +? "."
끝? 만약
끝? 잠수함
건반 사건
개인? Sub? Form_KeyPress(KeyAscii? 로? 정수)
CmdEqual. SetFocus
만약? 키야시? & gt=? Vb 키 0? 그리고는요. 키야시? & lt=? Vb 키 9? 그리고 나서
LBL 화면. 제목? =? LBL 화면. 제목? & amp? 인권 위원장 (KeyAscii)
끝? 만약
선택? 사건? 인권 위원장 (KeyAscii)
사건? "+"
CmdAdd_Click
사건? "-"
CmdMinus_Click
사건? "*"
CmdMul_Click
사건? "/"
Cmd 분할 _ 클릭
사건? "."
CmdPoint_Click
사건? "="
CmdEqual_Click
끝? 고르다
만약? 키야시? =? VbKeyEscape? 그리고 나서
CmdCls_Click
끝? 만약
끝? 잠수함
개인? Sub? Form_Load ()
로고 깃발? =? 잘못된
교환원? =? ""
양식 1. 핵심 리뷰? =? 진짜
끝? 잠수함