4장 ASP.NET VB클래스 사용 구문

래곤 2009. 10. 5. 13:23

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="FrmVB.aspx.vb" Inherits="FrmVB" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title>제목 없음</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>

    </div>
    </form>
</body>
</html>

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 += i
            End If

Next

        '[3]output
        Response.Write("1~100까지 배수의 합 : " & sum.ToString())
    End Sub

End Class

WebASPNET10월5일.zip