print the array values in ascending order?
Answer Posted / rajanikanth
Option Explicit
Dim a,i,b,j,temp
a=Array(30,70,10,60,90,20,50,80)
For i=0 To UBound(a)
For j=0 To UBound(a)
If StrComp(a(i),a(j),1)<0 Then
temp=a(i)
a(i)=a(j)
a(j)=temp
End If
Next
Next
For i=0 To UBound(a)
MsgBox a(i)
Next
Is This Answer Correct ? | 1 Yes | 0 No |
Post New Answer View All Answers
if u ve resrevation for train and u get a number supose 1234xxxokie.after sucessul entering all required fields. now u put that number in search and want to chk wether these ar same or not if both ar same then its okie otherwise test fail.what would be the vb script code for it to compare these two values of different page.
What is the use of the instr function?
Explain few date functions in vbscript?
Please let me Know regarding any material regarding VB Scripting which should be easily understandable for Beginners.
Explain vbscript in detail?
How to create a cookie using vbscript?
Mention how to access array data?
HOw we can apply web service checkpoint in QTP 9.5? I tried it out with net connection also. But not getting success.
Explain about operator precedence in vb script?
Explain about .wsf files?
Sub link() Dim k As Integer Dim rand As Integer Dim URL As String Dim foldernum As Integer Dim folderstring As String Dim filenum As Integer Dim filestring As String k = 1 'for AC Numbers For i = 11 To 40 foldernum = 0 foldernum = 1000 + i folderstring = CStr(foldernum) folderstring = Mid(folderstring, 2, 3) folder = "ac" & folderstring 'folderstring = Sheets(2).Cells(i, 1) ' for Number of Random files For j = 1 To 10 rand = Int(Rnd * (200 - 1) + 1) filenum = 0 filenum = 1000 + rand filestring = CStr(filenum) filestring = Mid(filestring, 2, 3) 'URL = "http://ceobihar.nic.in/PSCDROM/ac" & folderstring & "/i" & folderstring & "0" & filestring & ".pdf" URL = "http://www.elections.tn.gov.in/pdfs/dt1/" & folder & "/" & folder & filestring & ".pdf" ' URL =http://www.wb.nic.in/wbeco/EROLLS/PDF/English/A001/a0010105 .pdf Cells(k, 1) = folderstring Cells(k, 2) = folder Cells(k, 3) = filestring Cells(k, 3) = URL k = k + 1 Next j Next i End Sub plz define it
What is the scope of a constant declared using public?
How will you convert a string to upper case string using vbscript?
How will you get the octal value of the given number in vbscript?
If else for do while select in vb script?