Sub 안녕하세요()
Msg = Application.UserName & "님 안녕하세요?" //application.username 은 사용자 컴퓨터의 이름을 가져온다.
Answer = MsgBox(Msg, vbYesNo) //예 아니오 버튼을 만든다.
If Answer = vbYes Then //친숙한 if문 사영법 역시 같다.
MsgBox "안녕하시다니 다행이네요!"
Else
MsgBox "저런, 무슨 일이 있었나요?"
End If // lisp의 괄호처럼 닫는다.
End Sub //메크로 닫기
실행하면 이름과함께 안녕하세요라는 메세지 박스를 띄운다.
박스에는 예와 아니오의 버튼이 있고 이들중 선택하는것에 따라
다른 메세지를 띄우게된다.
sub 함수명 as 데이터형식
...
코드
...
end sub
비주얼 베이직
언제나 처럼 진작에 라는 탄식이 흘러나온다.
어쩨서 유행이 다지난 언어를 뒤늦게 하고 앉아있는가?
뒤처질까 이미 따라잡을수 없을만큼 멀어질가봐 두렵다.
댓글 없음 :
댓글 쓰기