从键盘输入5个数,输出最大值和最小值~

存到一个数组里，用任何一种排序法都可以做的

数组这段内容,老师跳过去了, 没有教啊!

当然可以用你"比大小"那张帖子里说的那样做，再加两条if语句就可以做。
老师把那段内容跳过不讲，不代表数组内容很难，所以可以看看书，相信你可以看懂并且做出程序来的。

数组这部分你们老师跳过去了，说明它很简单。把书上这部分内容仔细看30分钟，肯定就会了。

那我试试吧,不管怎么样,还是先谢谢了~~~

书和实践才是最好的老师！

private sub command1_click()
dim a(4) as integer
print "原来的五位数是："
for i = 0 to 4
a(i)=val(inputbox("请输入数据："))
print a(i);
next i
max=a(0):min=a(0)
for i = 1 to 4
if a(i)>a(0)then
max=a(i)
elseif a(i)<a(0) then
min=a(1)
end if
next i
print "最大数是："；max;"最小数是：";min
end sub

楼上比知道是不是B5……给你改了下。。。

Private Sub command1_click()
Dim a(4) As Integer
Dim i As Integer
Print "原来的五位数是："
For i = 0 To 4
a(i) = Val(InputBox("请输入数据："))
Print a(i);
Next i
max = a(0):min = a(0)
For i = 1 To 4
If a(i) > max Then
max = a(i)
ElseIf a(i) < min Then
min = a(i)
End If
Next i
Print "最大数是："；max;"最小数是：";min
End Sub

[此贴子已经被作者于2007-5-6 14:10:17编辑过]

谢谢各位啊!!!