07-27-2012, 12:04 PM
For 2nd Question the reply is
Now Enjoy
Code:
'Taking All the Alphabets at iniative and reversing the string
s = StrReverse("ABCDEFGHIJKLMNOPQRSTUVWXYZ")
MsgBox s
' At runtime provide the data so that these letters will not appear in output andthis string will be taken in Capital letters
x = UCase(InputBox("Enter a string : "))
MsgBox x
'taking each value from String s and initializing the count variable
For i=1 to len(s)
a =mid(s,i,1)
cnt =0
'taking string as one character at a time at runtime which should be checked
For j=1 to len(x)
b = Mid(x,j,1)
' Comparing the values of a and b,if they are not equal i am incrementing the count.
If a<>b Then
cnt =cnt+1
End If
Next
'Identifying the string length which i have given at runtime,then iam going to print the character
If cnt=len(x)Then
print a
End If
Next
Now Enjoy