write a vb script to display the code "vbscripting" alphabet
by alphabet(i e 1st v then b and up to g)
Answer Posted / sooraj
vstr="vbscripting"
for i=1 to len(vstr)
msgbox mid(vstr,i,1)
next
| Is This Answer Correct ? | 1 Yes | 0 No |
Post New Answer View All Answers
Explain sga memory structures?
what types of bugs will we find out in banking projects for automation testing?
What is vbscript?
how to increasing the numbers in a given text box please write a vb script
what is the use of QCUtil? explain with one example?
What is variant in vb script?
Can anyone send me a vb script function for verifying the functionality of active links on a web page
Which keyword is used to declare a variable in the vbscript language?
Mention what is byref and byval parameters in vbscript?
What is the difference between javascript and vbscript?
what is event handling?
Explain the .wsf files?
why variable name should not exceed 255 characters?
Explain about scrrun.dll?
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