使用vbs编写以下程序：

'没理解你说的“随机读取”是什么意思，希望我写的这个程序能满足你的要求。
'将下列代码粘贴到记事本中，另存为 ReadWritetext.vbs （注意：保存类型选择“所有文件”）
Dim words(99), l, i, j, temp
Set objDialog = CreateObject("UserAccounts.CommonDialog")

'选择要读取的文本文件
objDialog.Filter = "txt Files|*.txt"
If objDialog.ShowOpen = 0 Then Wscript.Quit

'从文件中逐行读取，不超过100行
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile (objDialog.FileName, 1)
l=0
Do Until objTextFile.AtEndOfStream Or l>=100
words(l) = objTextFile.ReadLine
l = l + 1
Loop
objTextFile.Close
l=l-1

'排序
for i = l - 1 To 0 Step -1
for j= 0 to i
if words(j)>words(j+1) then
temp=words(j+1)
words(j+1)=words(j)
words(j)=temp
end if
next
next

'选择要写入的文本文件
objDialog.Filter = "txt Files|*.txt"
If objDialog.ShowOpen = 0 Then Wscript.Quit

'写入文本文件
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile (objDialog.FileName, 2, True)
For i = 0 To l
objTextFile.WriteLine(words(i))
Next
objTextFile.Close