3 장 . 비주얼베이직언어의 기본 문법

3장. 비주얼베이직언어의 기본 문법

표식 서식지정 문자 기능 설명 사용예 . , # . : 소수점을 표시. # : 원본의 숫자를 표시하고 빈 자리는 표시하지 않음 Format(1357.46,"#####.##") -> "1357.5"를 반환 Format(1357.9,"####") 반올림 된 후, “1358"이 반환 0 원본의 숫자 또는 ‘0’을 표시 빈자리는 0으로 표시 Format(1357.9,"00000.00") “01357.90"를 반환 • Format 함수 • 형식 : format(데이터값, “포맷형식”) • 예 : format(120.567, “###.#”)  소수점 한자리로 출력

날짜/시간에 관계된 함수

날짜 / 시간 함수

날짜/시간에 관계된 함수 • Format 함수 • 사용예 format(Now, "yyyy년 mm월 dd일 ") ‘현재날짜와 시간을 주어진 포맷형식으로 설정

제어문1. 조건문- if 문- select ~ case 문2. 반복문 - for 문- do ~ while 문- do ~ until 문 3. 분기문- for each : 배열이나 컬렉션안에 문자열을 찾거나 문자열리스트를 조회할때 사용- on ~ error : 에러 처리 위해 사용- exit : 반복문이나 프로시저 중에 강제 종료 위해 사용

IF ~ THEN 문 • IF ~ THEN 문 • 변수의 값에 따라 다르게 작업할 필요가 있을 때 사용 • 형식 IF조건 THEN 조건이 참인 경우 처리할 작업 END IF IF조건 THEN 조건이 참인 경우 처리할 작업 ELSE 조건이 거짓인 경우 처리할 작업 END IF IF 조건1 THEN 조건1이 참인 경우 처리할 작업 ELSE IF조건2 THEN 조건1은 거짓이고 조건2가 참인 경우 처리할 작업 ..... ELSE 위의 어느 조건도 만족하지 않은 경우 처리할 작업 END IF

If문 예제-1 Private Sub Command1_Click() Dim se As String se = Text1.Text If se = “1” Then Label1.Caption = "남자입니다" End If End Sub Command1 text1 Label1

If문 예제-1 If ~ else 구문 사용예제 Dim se As String se = Text1.Text If se = “1” Then Label1.Caption = "남자입니다“ Else Label1.Caption = “여자입니다“ End If Dim se As String se = Text1.Text If se = “1” Then Label1.Caption = "남자입니다“ Elseif se=“2” then Label1.Caption = “여자입니다“ Else Label1.Caption = “다시 입력하세요“ End If If ~ elseif ~else 구문 사용예제

간단한 계산기 예제를 통해서 조건문 익히기 • p.68 참조

Select ~ Case 문 • Select ~ Case 문 • 하나의 변수 값에 대해 여러 개의 서로 다른 작업을 해야하는 경우 IF ~ THEN 문보다는 SELECT ~ CASE 문 사용 • 구문 형식 SELECT CASE평가대상 CASE비교값1 처리할 문장1 CASE 비교값2 처리할 문장2 CASE비교값3 처리할 문장3 … CASE ELSE 처리할 문장 n END select Case 문안의 비교값에 올 수 있는 형태

[실습하기] Select ~ Case 문 사용하기 폼에 컨트롤 추가하기    12 13     14   15  11

 각 컨트롤의 속성 설정

 cmdCalculate 버튼의 Click 이벤트 핸들러 작성 Private Sub cmdCalculate_Click() Dim Kor, Eng, Mat, Total As Integer Dim Aver, Average As Double Kor = Val(txtKor.Text) Eng = Val(txtEng.Text) Mat = Val(txtMath.Text) Total = Kor + Eng + Mat Aver = Total / 3 Average = Round(Aver, 2) txtTotal.Text = Str(Total) txtAverage.Text = Str(Average) Select Case Average Case 90 To 100 lblGradeDisp.Caption = "A" Case 80 To 89 lblGradeDisp.Caption = "B" Case 70 To 79 lblGradeDisp.Caption = "C" Case Else lblGradeDisp.Caption = "F" End Select End Sub

cmdCalculate 버튼의 Click 이벤트 핸들러 작성 Private Sub cmdExit_Click() End End Sub  프로그램 실행

반복문 • while 문 • do ~ loop 문 • do ~ loop while 문, do while ~ loop 문 • do ~ loop until 문, do until ~ loop 문 • for ~ next 문

While 문 • while 문 • 조건이 True인 동안 문장을 반복하여 수행 • 형식 while조건식이나 변수 반복실행문장 wend 조건식의 값이 참이거나 변수값이 0이 아닌 경우반복실행문장을 계속 수행하게 된다. <예제> while x <= 5 print x x = x + 1 wend

While 문 예제 : Factorial 값 구하기 Dim sum As Long, num As Integer num = 1 sum = 1 While num < Val(txtFactorial.Text) num = num + 1 sum = sum * num Wend picShow.Print "Factorial의 값은 "; sum; "이다"

Do ~ Loop 문 • Do ~ Loop 문 • 조건이 True인 동안 또는 True가 될 때까지 문장을 반복하여 수행 • 종류 • Do while ~ loop, Do ~ loop while • Do until ~ loop, Do ~ loop until • while문 사용시 • 조건이 참인동안 문장 반복 • until문 사용시 • 조건이 참이 될때 까지 문장 반복

Do while ~ Loop 문 • Do while ~ Loop 문과 Do ~ loop while 문 • 조건이 True인 동안 문장을 반복하여 수행 • 구문 형식 Do While조건식 처리할 문장1 [Exit Do] [처리할 문장2..] Loop 조건식을 먼저 검사한 후, 조건이 참이면 문장을 처리하고 아니면 do~loop문을 벗어난다. Do 처리할 문장1 [Exit Do] [처리할 문장2..] Loop While조건식 문장을 먼저 처리한 후, 조건을 검사하므로 조건이 거짓이더라도 반드시 한번은 문장을 실행하게 된다.

Do ~ Loop 문 • 예 1 (1에서 5까지의 합:Do ~ Loop 문 사용) Dim i, Sum As Integer Sum = 0 : i = 1 Do While i <= 5 Sum = Sum + i i = i + 1 Loop lblsum1.Caption = Sum Dim i, Sum As Integer Sum = 0 : i = 1 Do Sum = Sum + i i = i + 1 Loop While i <= 5 lblsum1.Caption = Sum

Do until ~ Loop 문 • Do until ~ Loop 문과 Do ~ loop until 문 • 조건이 True가 될때까지 문장을 반복하여 수행함. 즉, 조건이 거짓인 동안 문장을 반복수행함. • 구문 형식 Do until조건식 처리할 문장1 [Exit Do] [처리할 문장2..] Loop 조건식을 먼저 검사한 후, 조건이 거짓이면 문장을 처리하고 아니면 do~loop문을 벗어난다. Do 처리할 문장1 [Exit Do] [처리할 문장2..] Loop until조건식 문장을 먼저 처리한 후, 조건을 검사하므로 조건이 거짓이더라도 반드시 한번은 문장을 실행하게 된다.

예(1에서 5까지의 합:Do until ~ Loop 문 사용) Dim i, Sum As Integer Sum = 0 : i = 1 Do until i > 5 Sum = Sum + i i = i + 1 Loop lblsum1.Caption = Sum Dim i, Sum As Integer Sum = 0 : i = 1 Do Sum = Sum + i i = i + 1 Loop until i > 5 lblsum1.Caption = Sum

For ~ Next 문 사용하기 • For ~ Next 문 • 정해진 문장 그룹을 지정한 횟수만큼 반복 수행하도록 하기 위해 사용하는 반복문 • 구문 형식 • 초기값 : 필수 항목으로 변수의 시작 값 • 최종값 :필수 항목으로 변수의 마지막 값 • 증가값 : • 선택 항목으로 반복문을 한번 수행할 때마다 변하는 변수의 값 • 지정하지 않으면 증가값의 기본 값은 1 • 증가값은 양수/음수 모두 가능 For 변수 = 초기 값 To 최종 값 [step 증가 값 ] 처리할 문장1 [Exit For] 처리할 문장2 Next 변수

For ~ Next 문 사용하기 (2) (1) (4) (3), • For ~ Next 문 • 처리 순서 For 변수 = 초기 값 To 최종 값 [step 증가 값 ] 처리할 문장1 [Exit For] 처리할 문장2 Next 변수 (5) (6)

For ~ Next 문 사용하기 <예제 1> 버튼을 클릭하면 1에서 5까지 1씩 증가하면서 화면에 출력하시오. Private Sub Command1_Click() For num = 1 To 5 Step 1 Print "num="; num Next num End Sub

For ~ Next 문 사용하기 <예제 2> 버튼을 클릭하면 1에서 10까지 의 수중에서 홀수만 화면에 출력하시오. Private Sub Command1_Click() For num = 1 To 10 Step 2 Print "num="; num Next num End Sub

For ~ Next 문 사용하기 <예제 3> 입력한 숫자의 구구단을 작성 Dim num, a, b As Integer picShow.Cls a = Val(txtNumber.Text) If (a = 0) Then picShow.Print "숫자를 입력하세요" Else For num = 1 To 9 b = a * num picShow.Print a; "*"; num; " = "; b Next End If

For ~ Next 문 사용하기 – 다중 for ~ next • 다중 For ~ Next 문 • for ~ next 문안에 또 다른 for ~ next 문을 내포해서 사용함. • 구문 형식 For 변수1 = 초기 값 To 최종 값 [step 증가 값 ] 실행할 문장1 For 변수2 = 초기 값 To 최종 값 [step 증가 값 ] 실행할 문장2 Next 변수2 Next 변수1 변수1이 한번 수행되는동안 변수2가 주어진 최종값까지 반복을 다 마친 후, 변수1의 증감이 이루어진다.  전체 반복횟수 : 변수1 * 변수2

For ~ Next 문 사용하기 – 다중 for ~ next • 예제 • 다중 for ~ next 문의 대표적 예제  구구단 For m = 2 To 9 For n = 1 To 9 print m; “*” ; n ;” = “ ; m*n Next n print //줄을 넘기기 위해 사용 Next m

For ~ Next 문 사용하기 • Exit 문 • 반복문안에서 이 문을 만나면 반복문 전체를 벗어난다. • exir for, exit do 의 형태로 사용함 For n = 1 To 20 if n >10 then exit for end if sum = sum + n Next n Print “합= "; sum 1에서 20까지의 수 중에서 n이 10보다 크면 exit for 문에 의해서 For 문 전체를 벗어남.

3 장 . 비주얼베이직언어의 기본 문법

3 장 . 비주얼베이직언어의 기본 문법

Presentation Transcript