mehdiafzali
Member
4-برنامه اي كه رشته اي را از ورودي گرفته و چك كند كه آيا متقارن است يا خير.(مثلا beeb متقارن است)
(vb)
(vb)
آخرین ویرایش:
4-برنامه اي كه رشته اي را از ورودي گرفته و چك كند كه آيا متقارن است يا خير.(مثلا beeb متقارن است)
(vb)
Private Sub Form_Load()
Dim s As String
s = InputBox("Please enter a string :")
If s = StrReverse(s) Then
MsgBox "Yes"
Else
MsgBox "No"
End If
End Sub