Question

使用VBScript脚本语言编写一个函数，用来比较三个数字的大小，并返回最大值。

Answer 1

dim a,b,c,d
a=inputbox("请输入第一个数")
b=inputbox("请输入第二个数")
c=inputbox("请输入第三个数")
if a>=b and a>=c then d=a
if b>=a and b>=c then d=b
if c>=a and c>=b then d=c
msgbox "最大的数是" & d

Answer 2

Function TheMax(num1,num2,num3)

dim temp

if num1-num2>0 then
temp=num1
elseif num1-num2<0 then
temp=num2
elseif num1-num2=0 then
temp=num1
end if

if temp-num3>0 then
TheMax=temp
elseif temp-num3<0 then
TheMax=num3
elseif temp-num3=0 then
TheMax="equal"
end if

end Function

msgbox "which is the max? (2,9,1)"
msgbox TheMax(2,9,1)

Answer 3

<script language="VBScript">
Function big3(a,b,c)
Dim t
If a > b Then t = a Else t = b
If c > t Then t = c
big3 = t
End Function

Msgbox big3(1,2,3)
</script>