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

Private Sub Command1_Click()
'a - число
If InStr(1, CStr(a), "0", vbTextCompare) = 0 Then
MsgBox "no"
Else
MsgBox ("yes")
End If
End Sub
 
Private Sub Command2_Click()
'a(?) массив
s = 0
For P = 0 To UBound(a)
If a(P) Mod 2 = 0 Then s = s + a(P)
Next P
MsgBox s
End Sub
 
Private Sub Command3_Click()
'a(?) массив
s = 0
For P = 0 To UBound(a)
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()
'a(?) массив
P = a(LBound(a)) * a(UBound(a))
End Sub

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