Верно ли,что данное число не содержит нулей? - VB

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

Помогите бедному школьнику с задачками по информатике. 1.Вводится число.Верно ли,что данное число не содержит нулей? 2.Вводится последовательность из N целых чисел. Найти сумму четных чисел. 3.Вводится последовательность целых чисел,0-конец последовательности. Найти сумму нечетных значений,значение которых меньше 15. 4.Вводится последовательность N целых чисел. Найти призведение первого и последнего элементов.

Решение задачи: «Верно ли,что данное число не содержит нулей?»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
a = Val(InputBox("a-?"))
If InStr(1, CStr(a), "0", vbTextCompare) = 0 Then
MsgBox "no"
Else
MsgBox ("yes")
End If
End Sub
 
Private Sub Command2_Click()
Dim a()
re:
n = Val(InputBox("N-?"))
If n < 2 Then
MsgBox "error"
GoTo re
End If
ReDim a(n)
s = 0
For p = 1 To UBound(a)
a(p) = Val(InputBox("a(" & p & ")"))
If a(p) Mod 2 = 0 Then s = s + a(p)
Next p
MsgBox s
End Sub
 
Private Sub Command3_Click()
Dim a()
re:
n = Val(InputBox("N-?"))
If n < 2 Then
MsgBox "error"
GoTo re
End If
ReDim a(n)
s = 0
For p = 1 To n
a(p) = Val(InputBox("a(" & p & ")"))
If a(p) Mod 2 <> 0 And a(p) < 15 Then s = s + a(p)
Next p
MsgBox s
End Sub
 
Private Sub Command4_Click()
Dim a()
re:
n = Val(InputBox("N-?"))
If n < 2 Then
MsgBox "error"
GoTo re
End If
ReDim a(n)
For p = 1 To n
a(p) = Val(InputBox("a(" & p & ")"))
Next p
MsgBox a(1) * a(UBound(a))
 
End Sub
 
Private Sub Command5_Click()
Dim a()
re:
n = Val(InputBox("N-?"))
If n < 2 Then
MsgBox "error"
GoTo re
End If
ReDim a(n)
For p = 1 To n
a(p) = Val(InputBox("a(" & p & ")"))
Next p
For p = 2 To n
If a(p) * a(p - 1) < 0 Then
MsgBox "yes"
Exit Sub
End If
Next p
MsgBox "no"
 
End Sub
 
Private Sub Command6_Click()
Dim a()
p = 0
re:
 
p = p + 1
ReDim Preserve a(p)
a(p) = Val(InputBox("a(" & p & ")"))
If a(p) <> 0 Then
GoTo re
End If
For p = 2 To UBound(a) - 1
If a(p) < a(p - 1) Then
MsgBox "no"
Exit Sub
End If
Next p
MsgBox "yes"
 
End Sub
                        