C# 객체지향프로그래밍 시간에.. 내준 레포트....
A는 1점 B는2점... 으로 해서 Z는 26점으로... 해서.. 단어에 대한 점수를 계산 해주는 프로그램 윈폼으로 작성
※ 대문자로 입력하게 되면 소문자로 치환 되서 합니다.
※ 열거형을 이용하여 A~Z까지의 입력만 받게 설정했습니다. 기타 나머지 공백, 특수문자, 숫자등의 입력을 받으면 계산 안됩니다.

Module Module1
    Sub Main()
        Dim T As String = "0"
        Dim Temp As String = "0"
        Dim Key As String = "2121212121212121"
        Dim Input As String

        Console.WriteLine("카드 번호 16자리를 입력하세요")
        Console.WriteLine("(입력 형식 : 1234567891234563)")

        Input = Console.ReadLine()

        If Input.Length <> 16 Then
            Console.WriteLine("잘못된 입력, 프로그램 종료")
        Else

            Dim i As Integer = 0

            For i = 0 To Input.Length - 1
                T += Int((Input.Substring(i, 1) * Key.Substring(i, 1)) / 10) + Int((Input.Substring(i, 1) * Key.Substring(i, 1)) Mod 10)
            Next

            T = T Mod 10

            If T = 0 Then
                Console.WriteLine("올바른 카드번호")
            Else
                Console.WriteLine("잘못된 카드번호")
            End If
            Console.WriteLine(T)
        End If
    End Sub
End Module

신용카드 확인하는 소스이긴 하나..
뭐.. 카드사 마다 틀리겠지요...ㅠ (수업용...자료로.. 활용하시길..)