Spread the love
  • 15
  • 12
  • 6
  • 1
  •  
  •  
  •  
  •  
  •  
  •  
    34
    Shares

Frequently Asked Coding Questions During Interview on UFT
Frequently Asked Coding Questions During Interview on UFT

Frequently Asked Coding Questions During Interview on UFT

Read here also for one more interview question.

How to Add digits of a given number?

Here the trick to check if we are following mod logic to get the number. However, we can use for loop to get the numbers one by one and add them.
I have explained the mod logic as below

Dim num, sum
num=inputbox ("Enter a Four digit number")
If Len(num) = 4 Then
sum=0
sum=sum+num mod 10
num=num/10
num= left (num, 3)
sum=sum+num mod 10
num=num/10
num= left (num, 2)
sum=sum+num mod 10
num=num/10
num= left (num, 1)
sum=sum+num mod 10
msgbox ("Sum is " &sum)
else
msgbox "Number, you entered is not a 4 digit number"
End If
 

How to read any Four-digit number and display the number in reverse order?

off course we can convert the given digit to String and use the inbuilt String reverse function.We can use recursion to solve the issue.  Here is an approach to use the aabove-writtenmod logic to reverse the same.


Dim num,rev
num= inputbox("Enter a number")
If len(num)=4 Then
rev=rev*10 + num mod 10
num=num/10
num= left(num,3)
rev=rev*10 + num mod 10
num=num/10
num= left(num,2)
rev=rev*10 + num mod 10
num=num/10
num= left(num,1)
rev=rev*10 + num mod 10
msgbox "Reverse Order of the number is "&rev
Else
msgbox "Number, you entered is not a 4 digit number"
End If

one more approach to reverse the number:


Dim num,n
n=Inputbox ("Enter a Vaule")
For num=n to 1 step -1
msgbox num
Next 
 

How to calculate the grade for an examination and display the grade obtained?

The conditions are:

  • If average marks Greater than or equal to 75, the grade is Distinction
  • If average marks Greater than or equal to 60 and less than 75 , then the grade is First
  • If average marks Greater than or equal to 50 and less than 60, then the grade is Second
  • If average marks Greater than or equal to 40 and less than 50 , then the grade is Third
  • Minimum marks 35 for any subject, otherwise ‘no grade fail’)

 

There are several ways to solve this. The most efficient code is to use the Switch statement. I have coded with if else

Dim e,m,p,c, tot
e=inputbox ("Enter english Marks")
m=inputbox ("Enter maths Marks")
p=inputbox ("Enter physics Marks")
c=inputbox ("Enter chemistry Marks")
tot= cdbl(e) + cdbl(m) + cdbl(p) + cdbl(c)
msgbox tot
If cdbl(e) >=35 and cdbl(m) >=35 and cdbl(p) >=35 and cdbl(c) >=35 and tot >=300 Then
msgbox "Grade is Distinction"
else If cdbl(e) >=35 and cdbl(m) >=35 and cdbl(p) >=35 and cdbl(c) >=35 and tot >=240 and tot<300 Then
...
...
End if
End if

How to calculate Even or odd calculation till n(any given number)


Dim num,n
n=Inputbox ("Enter a Vaule")
For num= 1 to n step 2
msgbox num
Next

Write a program for finding out whether the given year is a leap year or not?


Dim xyear
xyear=inputbox ("Enter Year")
If xyear mod 4=0 Then
msgbox "This is a Leap year"
Else 
msgbox "This is NOT"
End If

Read two numbers and display the sum?


Dim num1,num2, sum
num1=inputbox ("Enter num1")
num2=inputbox ("Enter num2")
sum= Cdbl (num1) + Cdbl (num2) 'if we want add two strings conversion require
msgbox ("Sum is " &sum)
 

How to Calculate the odd even number in UFT?


Dim num
num=inputbox ("Enter a number")
If num mod 2=0 Then
msgbox "This is a Even Number"
Else 
msgbox "This is a Odd Number"
End If
 

 

How to Calculate the Simple Interest?


Dim p,t, r, si
p=inputbox ("Enter Principle")
t=inputbox ("Enter Time")
r=inputbox ("Enter Rate of Interest")
si= (p*t*r)/100 ' p= principle amount, t=time in years, r= rate of interest
msgbox ("Simple Interest is " &si)
 

 

How to display natural numbers up to n and write in a text file?


Dim num, n, fso, myfile
n= inputbox ("Enter any Value")
num=1
For num= 1 to n step 1
Set fso= createobject ("scripting.filesystemobject")
set myfile=fso.opentextfile ("D:test.txt", 8, true)
myfile.writeline num
myfile.close
Next

How to display Natural numbers summation up to n? (Using For…Next Loop)


Dim num, n, sum
n= inputbox ("Enter a Value")
sum=0
For num= 1 to n step 1
sum= sum+num
Next
msgbox sum
 

 

How to display Natural numbers sum up to n? (using While…Wend Loop)


Dim num, n, sum
n= inputbox ("Enter a Value")
While num <=cdbl (n)
sum= sum+num
num=num+1
Wend
msgbox sum

 

Display Natural numbers sum up to n? (Using Do…Until…Loop)


Dim num, n, sum
n= inputbox ("Enter a Value")
sum=0
num=1
Do 
sum= sum+num
num=num+1
Loop Until num =cdbl (n+1)
msgbox sum

Write a Function for Natural Numbers sum up to n


Function NNumCou (n)
Dim num, sum
sum=0
For num= 1 to n step 1
sum= sum+num
Next
msgbox sum
End Function

Verify weather the entered 10 digit value is a numeric value or not


Dim a,x,y,z,num
num=Inputbox ("Enter a Phone Number")
d1= left (num,1)
d10=Right (num,1)
d2=mid (num, 2, len (1))
d3=mid (num, 3, len (1))
d4=mid (num, 4, len (1))
d5=mid (num, 5, len (1))
d6=mid (num, 6, len (1))
d7=mid (num, 7, len (1))
d8=mid (num, 8, len (1))
d9=mid (num, 9, len (1))

If isnumeric (d1) = "True" and isnumeric (d2) = "True" and isnumeric (d3) = "True" and isnumeric (d4) = "True"and isnumeric (d5) = "True"and isnumeric (d6) = "True"and isnumeric (d7) = "True"and isnumeric (d8) = "True"and isnumeric (d9) = "True"and isnumeric (d10) = "True" Then
msgbox "It is a Numeric Value"
else
Msgbox "It is NOT Numeric"
End If

Slightly upgraded logic


Dim a,x,y,z,num
num=Inputbox ("Enter a Phone Number")
d1= left (num,1)
d10=Right (num,1)
d2=mid (num, 2, len (1))
d3=mid (num, 3, len (1))
d4=mid (num, 4, len (1))
d5=mid (num, 5, len (1))
d6=mid (num, 6, len (1))
d7=mid (num, 7, len (1))
d8=mid (num, 8, len (1))
d9=mid (num, 9, len (1))
If len (num) =10 Then
If isnumeric (d1) = "True" and isnumeric (d2) = "True" and isnumeric (d3) = "True" and isnumeric (d4) = "True"and isnumeric (d5) = "True"and isnumeric (d6) = "True"and isnumeric (d7) = "True"and isnumeric (d8) = "True"and isnumeric (d9) = "True"and isnumeric (d10) = "True" Then
msgbox "It is a Numeric Value"
End If
End If
If len (num) <> 10 Then
Msgbox "It is NOT valid Number "
End If

 

How to read a number and verify that number Range weather in between 1 to 100 or 101 to 1000?


Option explicit
Dim a,x
a=Inputbox ("Enter a Vaule")
a=cdbl(a)
If a<= 100 Then
For x= 1 to 100
If a=x Then
msgbox "a is in between 1 to 100 range"
End If
Next
else
For x= 101 to 1000
If a=x Then
msgbox "a is in between 101 to 1000 range"
End If
Next
End If

How to check if a given letter is present in the given String ?

Yes, the interviewer wanted to know if I knew how to use the various Vbscript functions. That is why I needed to code in this way. It is not very efficient though but showed that I knew the VBscript inbuilt functions and how to use them.


Dim x
x=Inputbox ("Enter your String")
y=Inputbox ("Enter your search character")
x1=Right(x,1)
x2=Left (x,1)
x3=mid (x,2,Len(1))
x4=mid (x,3,Len(1))
y=len(x)
If y=4 Then
If x1=y or x2=y or x3=y or x4=y Then
msgbox y &" is there"
else
msgbox y &" is Not there"
End If
else
msgbox "Invalid Data"
End If
 

How to work with MSWORD in UFT?

The below snippet will open a word document and write something and save it as test.doc


Dim MyobjWD
Set MyobjWD = CreateObject("Word.Application")
MyobjWD.Documents.Add
MyobjWD.Selection.TypeText "This is some text." & Chr(13) & "This is some more text"
MyobjWD.ActiveDocument.SaveAs "D:test.doc"
MyobjWD.Quit
 

How to count the number of occurance of a word in a given file?

 


sMyFileName="E:test.txt"
sMyString="hello world"
Const FOR_READING = 1
Dim oFso, oTxtFile, sReadTxt, oRegEx, oMatches
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oTxtFile = oFso.OpenTextFile(sMyFileName, FOR_READING)
sReadTxt = oTxtFile.ReadAll
Set oRegEx = New RegExp
oRegEx.Pattern = sMyString
oRegEx.IgnoreCase = bIgnoreCase
oRegEx.Global = True
Set oMatches = oRegEx.Execute(sReadTxt)
MatchesFound = oMatches.Count
Set oTxtFile = Nothing : Set oFso = Nothing : Set oRegEx = Nothing
msgbox MatchesFound

How to Compare two test files in UFT?


Dim f1, f2
f1="e:test1.txt"
f2="e:test2.txt"
Public Function CompareFiles (FilePath1, FilePath2)
Dim FS, File1, File2
Set FS = CreateObject("Scripting.FileSystemObject")
If FS.GetFile(FilePath1).Size <> FS.GetFile(FilePath2).Size Then
CompareFiles = True
Exit Function
End If
Set File1 = FS.GetFile(FilePath1).OpenAsTextStream(1, 0)
Set File2 = FS.GetFile(FilePath2).OpenAsTextStream(1, 0)
CompareFiles = False
Do While File1.AtEndOfStream = False
Str1 = File1.Read
Str2 = File2.Read
CompareFiles = StrComp(Str1, Str2, 0)
If CompareFiles <> 0 Then
CompareFiles = True
Exit Do
End If
Loop
File1.Close()
File2.Close()
End Function
Call Comparefiles(f1,f2)
If CompareFiles(f1, f2) = False Then
MsgBox "Files are identical."
Else
MsgBox "Files are different."
End If

How to implement Mid Function Without Using String Functions?

I tried to implement the mid function here. What I have done is
1.transfer the string to Array
2.then take the size of the array
3.k is the counter to check if it is equal to strtcut that is which position i need to cut and the length is the variable to understand till how much i need to cut.


Spread the love
  • 15
  • 12
  • 6
  • 1
  •  
  •  
  •  
  •  
  •  
  •  
    34
    Shares

9 COMMENTS

  1. You have to offer away for example an e-book or hold a competition. Two significant
    things should be considered when tracing both low quality and high volume joins.

  2. That you need to learn it an individual will apply this strategy soon. Well, I
    checked my own account, and it was not listed on the list of articles Got submitted.

    • Thanks HollisRapke21,
      You are free to take up these strategies. I blog as I encourage people to take up these strategies. Secondly I will surely find out a way to list these articles

      Regards,
      Animesh

  3. I want to hear your triggers for blogging, furthermore the reasons you visit blogs.
    When you start to do a search for a niche for business you should
    start with something that you know.

    • Hello SamualHawker27,
      I do not follow any niche and micro niche as such, I blog as I love to share. But if you are targetting some area and want to stick to that to get better money out of the advertiser, yes you need to find an niche. There are plenty of videos available in youtube.

      Regards,
      Animesh

  4. Start performing some abdominal training methods and some strength training exercises a few days 7 days.
    A) Give subscribers a very important gift as a reward for giving their email address and details.

  5. Wiith Adobe Photoshop, you will be able to boost or decrease contrast,
    brightness, huge, and even color intensity.
    Flowers come in a range of colors, and when you addd stems and
    vines, you may get an incredible custom tattoo design.
    In most cases tthis isn’t an issue as users can order prints completely from
    the sharing site.

  6. Thanks , I have just been looking for information approximately this subject for a while and
    yolurs is thee best I have foujd oout till now. But, what in regards to
    the bottom line? Aree you sure about the source?

  7. Great blog here! Also your web site loads up very fast!
    What web host are you using? Can I get your affiliate link to your host?
    I wish my website loaded up as fast as yours lol

LEAVE A REPLY

Please enter your comment!
Please enter your name here