ELEGANT - آنالیز و ترکیب در vb6

برنمه ای بنویسید که 50 اسم را از ورودی دریافت و تعداد افرادی را که نامشان Ali است، نمایش دهد.

Private Sub Command1_Click()

For i = 1 To 10

If LCase(InputBox("Enter a name: " & i)) = "ali" Then a = a + 1

Print a

End Sub

+ نوشته شده در جمعه دهم خرداد 1387ساعت 12:19 توسط |