Dim str As String
Dim a() As Integer
Dim i As Integer
Dim j As Integer
i = Val(InputBox("比较个数"))
If i <1 Then
Exit Sub
End If
ReDim a(i) As Integer
For j = 0 To i - 1
a(j) = Val(InputBox("请输入第" &j + 1 &"个数"))
str = str &a(j) &""
Next
MsgBox str &"最大值是: " &max(a)
End Sub
Private Function max(a() As Integer) As Integer
On Error GoTo ex
Dim iCount As Integer
Dim i As Integer
iCount = UBound(a)
max = a(0)
For i = 1 To iCount - 1
If a(i) >max Then max = a(i)
Next
Exit Function
ex:
MsgBox Err.Description
End Function
先编写一个求两个数中最大值的函数，然后输入四个数，利用前面的函数做三次比较，第一次比较num1和num2，第二次比较num3和num4，第三次比较前两次得到的两个较大数，得出最后的四个数中最大的数。楼主说的是这个意思吧？如果是这个意思的话程序如下
#include <iostream.h>
int max(int x,int y){
return x>y?x:y
}
void main(){
cout<<"Please input four numbers:"
int a,b,c,d
cin>>a>>b>>c>>d
cout<<max(max(a,b),max(c,d))<<endl
}
用MATLAB求两个数中的较大值可以参考下面的方法：
1、将两个数组成一个1X2矩阵a，则大的值为a_max=max(a),小的值a_min=min(a)。
2、也可采用以下函数：
max=0
if a>b
max=a
else
max=b
end
扩展资料：
MATLAB参考函数
max 找向量中最大元素
mbuild 产生EXE文件编译环境的预设置指令
mcc 创建MEX或EXE文件的编译指令
mean 求向量元素的平均值
median 求中位数
menuedit 启动设计用户菜单的交互式编辑工具
mesh 网线图
meshz 垂帘网线图
