...找出最大和最小的数,并给出最大和最小的书在数组中位置

发布网友 发布时间：2024-10-24 09:32

我来回答

共4个回答

热心网友 时间：2024-10-25 07:48

更好的办法是排序，先把数字在数组中原来的位置记录下来，然后排序后找到最大、最小数，输出结果，排序大概这么写：

For i = Min To UBound(Vimt) - 1
For j = i + 1 To UBound(Vimt)
ReDim SerAim(i)
If Vimt(i) > Vimt(j) Then '这个语句是以小到大排序，数组的第一个就是最小数
If Vimt(i) < Vimt(j) Then '这个语句是以大到小排序，数组的第一个就是最大数
'注意上面的二个语句只能用一个！！
Num = Vimt(i)
Vimt(i) = Vimt(j)
Vimt(j) = Num
End If

有疑问可以追问

热心网友 时间：2024-10-25 07:43

........For i = 1 To 10
s(i) = Val(InputBox("请输入第" & Str(i) & "个元素"))if i=1 then Max = s(i): maxi = i:Min = s(i): mini = iIf s(i) < Min Then Min = s(i): mini = i
If s(i) > Max Then Max = s(i): maxi = i
Next.......

热心网友 时间：2024-10-25 07:43

Option Base 1
Private Sub Command1_Click()
Dim s(10) As Integer
Dim Max As Integer, maxi As Integer, Min As Integer, mini As Integer
s(1) = Val(InputBox("请输入第1个元素"))
Min = s(1): mini = 1: Max = s(1): maxi = 1
For i = 2 To 10
s(i) = Val(InputBox("请输入第" & Str(i) & "个元素"))
If s(i) < Min Then Min = s(i): mini = i
If s(i) > Max Then Max = s(i): maxi = i
Next
Print "数组中最大值为第"; maxi; "个数"; Max;
Print "最小值为第"; mini; "个数"; Min;

热心网友 时间：2024-10-25 07:42

max=0
min=32767