Дано натуральное число, определить входит ли число a в число b - VB

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim c As Long
Dim x As Double
Dim a As Byte
c = Val(Text1.Text)
a = Val(Text2.Text)
k = True
Do While c >= 1
x = c Mod 10
If x = a Then k = False: MsgBox "Г‚ГµГ®Г¤ГЁГІ", 64, "": Exit Sub
c = Int(c / 10)
Loop
MsgBox "ГЌГҐ ГўГµГ®Г¤ГЁГІ", 64, "ГЇГ®ГЇГ°Г®ГЎГіГ©ГҐ Г¤Г°ГіГЈГ®ГҐ Г·ГЁГ±Г«Г®":
End Sub

Нашел код, скажите пожалуйста, что тут делает :

                    Листинг программы
                
k = True
If x = a Then k = False: MsgBox "Г‚ГµГ®Г¤ГЁГІ", 64, "": Exit Sub
c = Int(c / 10)

И найти сколько раз повторяется число "a" в числе "с"

Решение задачи: «Дано натуральное число, определить входит ли число a в число b»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Function AinB(a&, ByVal b&) As Long
        'возвращает число вхождений числа а в число b
Dim m&  'm - модуль числа а - мин. число кратное 10, которое >a
m = 10
While m <= a
    m = m * 10
Wend
While b
    If b Mod m = a Then
        AinB = AinB + 1
        b = b \ m
    Else
        b = b \ 10
    End If
Wend
End Function

Оцени полезность:

7 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы