UC知道VBS求最大数的问题!!!
来源：百度知道 编辑：UC知道 时间：2024/06/30 18:40:16
代码如下
a=Array(a,b,c,d)
b=Array(1,2,3,4)
For i=0 To 3 step 1
a(i)=InputBox("请输入第"+CStr(b(i)) +"个数")
Next
'求最大值
If a(0)>a(1) Then s=a(0) Else s=a(1) End If
If s<a(2) Then s=a(2) End If
If s<a(3) Then s=a(3) End If
'求最小值
If a(0)<a(1) Then t=a(0) Else t=a(1) End If
If t>a(2) Then t=a(2) End If
If t>a(3) Then t=s(3) End If
MsgBox("最大的数是"+CStr(s)+","+"最小的数是"+CStr(t))
-----------------
我没用自己写函数
运行之后可以求出最大值和最小值,但输入的数大于999就会错误!
请问为什么啊,怎样才能不出错!
a=Array(a,b,c,d)
b=Array(1,2,3,4)
For i=0 To 3 step 1
a(i)=InputBox("请输入第"+CStr(b(i)) +"个数")
Next
'求最大值
If a(0)>a(1) Then s=a(0) Else s=a(1) End If
If s<a(2) Then s=a(2) End If
If s<a(3) Then s=a(3) End If
'求最小值
If a(0)<a(1) Then t=a(0) Else t=a(1) End If
If t>a(2) Then t=a(2) End If
If t>a(3) Then t=s(3) End If
MsgBox("最大的数是"+CStr(s)+","+"最小的数是"+CStr(t))
-----------------
我没用自己写函数
运行之后可以求出最大值和最小值,但输入的数大于999就会错误!
请问为什么啊,怎样才能不出错!
dim arr(3)
imin = 0
imax = 0
For i = 0 To 3
a(i)=val(InputBox("请输入第" & (i+1) & "个数"))
if arr(i)>arr(imax) then imax = i
if arr(i)<arr(imin) then imin = i
Next
MsgBox "最大的数是" & CStr(arr(imax)) & "," & "最小的数是" & CStr(arr(imin))