nilo_nazanin
یک شنبه 04 مرداد 1388, 18:44 عصر
سلاااااااام بالاخره فارسیم درست شد
یک سوال داشتم ببینین کجای این اشتباه کردم ممنونم ازتون .
Module Module1
Sub Main()
Dim i, s, a(5) As Double
Console.WriteLine()
For i = 1 To 5
Console.Write(" Please " + i.ToString + " Number :")
a(i) = Console.ReadLine()
Next
Console.WriteLine(" ----------------- ")
Console.Write(" Please Number For Serch : ")
s = Console.Read()
For i = 1 To 5
If (s = a(i)) Then
Console.Write(a(i).ToString)
Else
Console.Write(" NO NUMBER : ")
End If
Next
End Sub
End Module
یک سوال داشتم ببینین کجای این اشتباه کردم ممنونم ازتون .
Module Module1
Sub Main()
Dim i, s, a(5) As Double
Console.WriteLine()
For i = 1 To 5
Console.Write(" Please " + i.ToString + " Number :")
a(i) = Console.ReadLine()
Next
Console.WriteLine(" ----------------- ")
Console.Write(" Please Number For Serch : ")
s = Console.Read()
For i = 1 To 5
If (s = a(i)) Then
Console.Write(a(i).ToString)
Else
Console.Write(" NO NUMBER : ")
End If
Next
End Sub
End Module