在vbscript中查找10个数字中最大的一个

我刚刚创建了vbscript代码，从10个输入数字中找出最大的数字。它只适用于1到10之间的数字。为什么?

输入10个数字以查找最大的数字
昏暗的n1
暗n2
昏暗的n3
尺寸n4
尺寸n5
尺寸n6
尺寸n7
尺寸n8
尺寸n9
尺寸n10
暗淡的最大的
n1=输入框（“请输入数字1”，“数字1”）
n2=输入框（“请输入数字2”，“数字2”）
n3=输入框（“请输入数字3”，“数字3”）
n4=输入框（“请输入数字4”，“数字4”）
n5=输入框（“请输入数字5”，“数字5”）
n6=输入框（“请输入数字6”，“数字6”）
n7=输入框（“请输入数字7”，“数字7”）
n8=输入框（“请输入数字8”，“数字8”）
n9=输入框（“请输入数字9”，“数字9”）
n10=输入框（“请输入数字10”，“数字10”）
如果（n1>n2和num1>vnum3和n1>n4和n1>n5和n1>n6和n1>n7和n1>n8和n1>n9和n1>n10），则
document.write（“这是最大的数字”&n1&”，请使用VBscript）
ElseIf（n2>n1和n2>n3和n2>n4和n2>n5和n2>n6和n2>n7和n2>n8和n2>n9和n2>n10），然后
document.write（“这是最大的数字”&n2&”，请使用VBscript）
ElseIf（n3>n1和n3>n2和n3>n4和n3>n5和n3>n6和n3>n7和n3>n8和n3>n9和n3>n10），然后
document.write（“这是最大的数字”&n3&”，请使用VBscript）
ElseIf（n4>n1和n4>n3和n4>n2和n4>n5和n4>n6和n4>n7和n4>n8和n4>n9和n4>n10），然后
document.write（“这是最大的数字”&n4&”，请使用VBscript）
ElseIf（n5>n1和n5>n3和n5>n4和n5>n2和n5>n6和n5>n7和n5>n8和n5>n9和n5>n10），然后
document.write（“这是最大的数字”&n5&”，请使用VBscript）
ElseIf（n6>n1和n6>n3和n6>n4和n6>n5和n6>n2和n6>n7和n6>n8和n6>n9和n6>n10），然后
document.write（“这是最大的数字”&n6&”，请使用VBscript）
ElseIf（n7>n1和n7>n3和n7>n4和n7>n5和n7>n6和n7>n2和n7>n8和n7>n9和n7>n10），然后
document.write（“这是最大的数字”&n7&”，请使用VBscript）
ElseIf（n8>n1和n8>n3和n8>n4和n8>n5和n8>n6和n8>n7和n8>n2和n8>n9和n8>n10），然后
document.write（“这是最大的数字”&n8&”，请使用VBscript）
ElseIf（n9>n1和n9>n3和n9>n4和n9>n5和n9>n6和n9>n7和n9>n8和n9>n2和n9>n10），然后
document.write（“这是最大的数字”&n9&”，请使用VBscript）
如果（n10>n1和n10>n3和n10>n4和n10>n5和n10>n6和n10>n7和n10>n8和n10>n9和n10>n2），则
document.write（“这是最大的数字”&n10&”，请使用VBscript）
其他的
document.write（“这是最大的数字是”&number10&“，享受VBscript”）
如果结束

这将事物放入循环中，并使用一个对象进行排序

'Getting the 10 numbers
Dim Thing(10)
For x = 0 to 9
    Thing(x) = InputBox("Something")
Next

Set rs = CreateObject("ADODB.Recordset")
With rs
    'Setting up a one field database containing a single precision field called Numbers
    .Fields.Append "Number", 4 
    .Open

    'Adding the data
    For x = 0 to 9
        .AddNew
        .Fields("Number").value = Thing(x)
        .UpDate
    Next

    'Sorting descending on number field
    .Sort = "Number DESC"

    'Now write it
    MsgBox .Fields("Number").Value
    'And the second one
    .MoveNext
    MsgBox .Fields("Number").Value

    'And all the rest
    For x = 0 to 7
        .MoveNext
        MyStr = MyStr & .Fields("Number").Value & vbcrlf
    Next
    MsgBox MyStr
End With

---

最简单的方法是在内存中只保留两个数字：前一个较大的值和新读取的值。如果读取的数字大于上一个较大的值，则覆盖上一个值，否则放弃该值并请求另一个数字。因为您是在比较字符串，而不是数字。使用字符串比较“5”>“10”不确定询问用户10次（inputbox）的确切要求，但您可以查看解决方案