Dim n Dim s Dim x input=124 n=124 While int(n)>0 s=n mod 10 x=x

Input = 124

output should be 124421
Please do not use any string functions/variables

Question Posted / manjunathareddy

Answer Posted / manjunathareddy

Dim n
Dim s
Dim x
input=124
n=124
While int(n)>0
s=n mod 10
x=x&s
n=Int(n)/10
Wend
Msgbox input&x

Is This Answer Correct ?

6 Yes

0 No

Please Help Members By Posting Answers For Below Questions

Mention what if you do not specify anything when you call a procedure?

570

Explain the extension .hta?

542

How will you convert a string to lower case string using vbscript?

557

How to use QTP Object in .vbs(vbscript file) file Ex: Browser().., wait(), exist() and etc...

2903

What are events in the vbscript language?

551

What aspects of vbscript make it safe so that a web page using vbscript cannot destroy or corrupt information on a user's computer?

578

filter the array values without using filter function?

1655

What is purpose of scripting.filesystemobject class in vbscript?

626

how to operate webobjects in a webpage using getobject function and then using generic methods?

2542

If we take 2 strings as “good” and “bad” then what will ‘+’ and ‘&’ operators return?

534

PLz send me the VB scripts which is having more examples my email id : hareen_11@yahoo.com

1660

What are class variables?

616

how to answer "TELL ME ABOUT UR SELF" as exp.person. whr to start and whr to stop. can anyone tel me

1339

How will you get a combined string from array of string in vbscript?

545

Give me sm ideas to write Vbscripts abt protocol testing abilash700@gmail.com.

1588