比如a(0)=7 a(1)=6 a(2)=7则n=7怎么样用一个最简单效率最高的方式得出这样的结果。谢谢。
解决方案 »
- 请问:什么是MIS?
- 有关VB开发的软件在WinXP下的安装问题?
- treeview递归算法
- vb图片处理问题
- 请问vb那种控件能实现QQ那种聊天的功能(可改变字体颜色,贴图)。用textbox能实现吗?
- 我想购买一个可以VB编程的手持条形码扫描设备,各位有什么好的介绍?
- command控件上的字的颜色怎么改
- 怎样用vb实现将“html格式“的文件另存为一个“txt格式“的文件?
- 请问大家谁知道TREEVIEW控件怎样用2,3个的键来循环添加子级吗????
- 请问怎么用命令方式在ACCESS中创建查询,和运行ACCESS中已创建的查询?
- 一个极其简单的问题。
- 关于VB6远程连接数据库不耽误其他部件运行的问题,求教!
if x1>x2 then
max=x1
else
max=x2
end if
end function调用:dim mMax as long
mMax=max(max(x1,x2),x3)
Dim n As Integer, i As Integer
For i = LBound(x) To UBound(x)
If x(i) > n Then n = x(i)
Next i
MaxItem = n
End FunctionPrivate Sub Command1_Click()
Dim a(2) As Integera(0) = 7
a(1) = 6
a(2) = 7MsgBox MaxItem(a)
End Sub
很显然,你需要遍历所有的元素,且需要记录其中最大者。实际上,不需要两两比较,因为元素很多时会使逻辑很混乱。
arry(0) = 7
arry(1) = 6
arry(2) = 7Dim Max As Integer
Max = 0Dim l
For l = 0 To UBound(arry)
If arry(l) > Max Then
Max = arry(l)
End If
NextMsgBox "最大数是=" & Max