Visual Basic 파일형태(VB)로 코드 비하인드 페이지/파일(.aspx.vb)을 포함한 파일 생성하기

==> FrmVB.aspx.vb

 

Partial Class FrmVB

    Inherits System.Web.UI.Page

 

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

 

        '1부터 100까지 3의 배수 또는 4의 배수의 합

 

        '[1] Input

        Dim sum As Integer = 0

 

        '[2] Process

 

        For i As Integer = 1 To 100 Step 1

 

 

            If i Mod 3 = 0 Or i Mod 4 = 0 Then

                sum = sum + i

            End If

 

        Next

 

        '[3] Output

        Response.Write("1~100까지 배수의 합 : " & sum.ToString())

 

    End Sub

End Class

 


------------------------------------------------------------------------------------------------------



[실행결과]