求一个数组中最大数，最小数及最大数与最小数的差值

来源：百度知道 编辑：UC知道 时间：2024/05/15 17:33:23
要求（1）用户输入（2）单击窗体，弹出输入数据对话框，对数据进行初始化，输入结束，在窗体中显示原数组内容最大数，最小数及最大数与最小数差值的位置

Dim x(4) As Integer
For i = 0 To 4
x(i) = Val(InputBox("Enter Data" & i))
Print x(i)
Next

Min = x(0)
Max = x(0)

For i = 1 To 4
If x(i) < Min Then Min = x(i)
If x(i) > Max Then Max = x(i)
Next

Print "最大数="; Max & vbCrLf & "最小数 ="; Min
Print "最大数与最小数差值="; Max - Min

连这个都要问的话 就不要学编程了！
自己去查资料

换个马甲上来问个问题,都不知道你还记不记得刚刚注册的密码,还能指望你选出最佳答案,回答这样的问题,简直是浪费时间!!

对试用期一级的问题,没有兴趣,路过....