SRM 148

ある数字Numberに含まれている一桁の数字のうち、Numberで割り切れるものの数を数える問題。
最初はNumberで割り切れるものの種類の数を数えていて、タイムロスしてしまった。
サンプルケースぐらいはちゃんと見るようにしたい。

得点：240.95/250(Accepted)
実装(VB.NET)

Imports Microsoft.VisualBasic

Imports System

Imports System.Collections

Imports System.Text

Imports System.Math
Public Class DivisorDigits

    Public Function howMany(ByVal number As Integer) As Integer

        Dim k As Integer

        k=number

        Dim Res As Integer=0

        Dim t As Integer

        Do While(k>0)

            t=k Mod 10

            k=k\10

            If t>0 then

                If (number Mod t)=0 Then

                    Res+=1

                End If

            End If

        Loop

        

        Return Res

    End Function
End Class