현재 위치 - 인적 자원 플랫폼망 - 미니프로그램 자료 - 면적을 계산하는 vb 애플릿을 찾고 있습니다.
면적을 계산하는 vb 애플릿을 찾고 있습니다.
비공개 하위 명령 1_Click()

차원 길이#, 너비#, 높이#, S1#, S2#

오류가 있으면 실행을 계속합니다. 이 문구는 때때로 유용합니다. 기억하세요!

Length = InputBox("길이를 입력하세요", "길이 입력", 0)

Width = InputBox("너비를 입력하세요", "너비 입력", 0)

Height = InputBox("높이를 입력하세요", "높이 입력", 0)

Area1 = (길이 + 너비 + 70) * (너비 + 높이 + 30) * 2 / 100000

S1 = (길이 + 너비 + 70) * (너비 + 높이 + 30) * 2 / 100000

Area 2 = {(길이 + 너비) * 2 + 70} * {폭 + 높이 + 30} / 100000.

S2 = ((길이 + 너비) * 2 + 70) * (폭 + 높이 +. 30) / 100000

Print "area 1:&; Format(S1, " 0. ###"); area 2:" & Format(S2, " 0. ###");

끝 관절

이 도움이 되었기를 바랍니다.