vbscript - Vb 脚本 - 排序最高的

Question

我用VB脚本编写了一个简单的程序来排序最高。有两个版本的程序，第一个正在工作，但第二个在运行时输入数组值的地方不起作用。

谁能帮我解决这个问题。

版本#1：

dim arr(5)
arr(0)= 25
arr(1)= 12
arr(2)= 30
arr(3)= 45
arr(4)= 10
arr(5)=  5
dim Buffer
Buffer = 0
dim i

for i=0 to 5
  if arr(i) > Buffer Then Buffer = arr(i)
Next

Msgbox "The Highest is" &Buffer

版本 2（此版本不适用于数据 - (25,12,30,45,10,5) - 它表示 5 为最高值。

dim arr(5)
dim j
for j=0 to 5
  arr(j)=inputbox("Enter Data")
Next

dim Buffer
Buffer = 0
dim i

for i=0 to 5
  if arr(i) > Buffer Then Buffer = arr(i)
Next

Msgbox "The Highest is" &Buffer

Answer 1

问题：当您在第一个样本中比较数字时，您在第二个样本中比较字符串（来自 InputBox()）。“5”（按字母顺序）大于“49999999”。使用 CInt() 或 CLng() 将输入的字符串转换为数字。