Верно ли, что в числе нет заданной цифры - Visual Basic .NET

Узнай цену своей работы

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

Пожалуйста,помогите!!! Мне нужен написанный код для этой программы в visualstudio2015 (vb.net) и желательно оформление формы(конструктор).

Решение задачи: «Верно ли, что в числе нет заданной цифры»

textual
Листинг программы
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim k As Integer = 0
        If TextBox1.TextLength > 0 And IsNumeric(TextBox1.Text) Then
            Dim s As String = TextBox1.Text
 
            For i = 0 To s.Length - 1
                If Val(s(i)) = NumericUpDown1.Value Then
                    k = k + 1
                End If
            Next
 
            If k > 0 Then
                MsgBox("Есть совпадение, количество совпадений = " & k)
            Else
                MsgBox("Нет совпадений")
            End If
 
        End If
    End Sub

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

9   голосов , оценка 4 из 5
Похожие ответы