下面这段程序是从3个数中找出最小值

Dim x%,y%,z%,min%

X=val(inputbox(“请输入X的值”))

Y=val(inputbox(“请输入Y的值”))

Z=val(inputbox(“请输入Z的值”))

If then

    Min=y

Else

    Min=x

End if

If z<min then

Print “最小值是：”;min