Помогите пожалуйста составить код для VB Дано натуральное число. Верно ли,что в данном...

Question

Помогите пожалуйста составить код для VB
Дано натуральное число. Верно ли,что в данном числе нет цифры А. А задается

Answer 1

Dim a As Integer, s As Integer, g As Integer, h As String, f As String, d As String
s = InputBox("Введите натуральное число")a = InputBox("Введите цифру")h = CStr(s)f = CStr(a)g = Len(h)For i = 1 To gv = Mid(h, i, 1)If v = f Thend = "Цифра " + f + " присутствует в числе " + hExit ForElsed = "Цифра " + f + " не присутствует в числе " + hEnd IfNextMsgBox d