vb编写一个程序，输入任意10个数字，从中找出最大和最小的数，并给出最大和最小的书在数组中位置我用vb自己编了一个，因为要求任意十个数，所以max和min的默认值显然会影响我的结果，

Question

vb 编写一个程序，输入任意10个数字，从中找出最大和最小的数，并给出最大和最小的书在数组中位置我用vb自己编了一个，因为要求任意十个数，所以max和min的默认值显然会影响我的结果，但是........我不会改！！！！！！！！！ 求改正 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 Min = s(1): mini = 1: Max = s(1): maxi = 1 For i = 1 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;

Answer 1

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 =...