برنمه ای بنویسید که ۱۰ اسم را از ورودی دریافت و تعداد افرادی را نامشان Ali است، نمایش دهد.
Private Sub Command1_Click()
For i = 1 To 10
If LCase(InputBox("Enter a name: " & i)) = "Ali" Then a = a + 1
Next
Print a
End Sub