rem program to check whether the given string is palindrome Option explicit Dim str,revstr str= inputbox("enter the string ") revstr= strreverse(str) If strcomp(str,revstr)=0 Then print("the given string is palindrome" ) else print("the given string is not palindrome") End If
rem verify whether the given two strings are equal Option explicit Dim str1,str2,lenstr1,lenstr2 str1= inputbox("enter the first string") str2= inputbox("enter the second string") lenstr1= len(str1) lenstr2=len(str2) If strcomp(lenstr1,lenstr2)=0 then print("the string" &str1& "and the sting are " &str2& " are equal") else print("the string" &str1& "and the string are " &str2 & " are not equal") end if
rem program to swap two number without temporary varaible Option explicit Dim var1,var2 var1=cint(inputbox("enter the first variable")) var2=cint(inputbox("enter the second variable")) var1=var1+var2 var2=var1-var2 var1=var1-var2
When examining potential points of future change, I prefer robotics, the important component of the other. Robotics is a field which rapidly heading towards a state of all generic platforms. Duct cleaning Robots
rem program to check whether the given string is palindrome
ReplyDeleteOption explicit
Dim str,revstr
str= inputbox("enter the string ")
revstr= strreverse(str)
If strcomp(str,revstr)=0 Then
print("the given string is palindrome" )
else
print("the given string is not palindrome")
End If
rem verify whether the given two strings are equal
ReplyDeleteOption explicit
Dim str1,str2,lenstr1,lenstr2
str1= inputbox("enter the first string")
str2= inputbox("enter the second string")
lenstr1= len(str1)
lenstr2=len(str2)
If strcomp(lenstr1,lenstr2)=0 then
print("the string" &str1& "and the sting are " &str2& " are equal")
else
print("the string" &str1& "and the string are " &str2 & " are not equal")
end if
rem program to swap two number without temporary varaible
ReplyDeleteOption explicit
Dim var1,var2
var1=cint(inputbox("enter the first variable"))
var2=cint(inputbox("enter the second variable"))
var1=var1+var2
var2=var1-var2
var1=var1-var2
msgbox(var1)
msgbox(var2)
Thanks for sharing wonderful article . For robotics classes in Chennai Visit Robotics Training in chennai
ReplyDeleteThis article really helped me wonderful article, Thanks for sharing keep updating.
ReplyDeleteRobotics for Kids
When examining potential points of future change, I prefer robotics, the important component of the other. Robotics is a field which rapidly heading towards a state of all generic platforms.
ReplyDeleteDuct cleaning Robots