急！跪求电脑高手前来解决

楼上是非标准办法

以下是标准【且最简】办法

(1)求数组a=(1,3,5,7,9,11,13)中的最大数
private sub form_load()
Dim a(6) As integer,max as integer,i as integer
a(0)=1:a(1)=3:a(2)=5:a(3)=7:a(4)=9:a(5)=11:a(6)=13
for i = 0 to ubound(a)
if a(i)>max then max=a(i)
next
msgbox "最大：" & max
end sub

(2)定义一个函数swap(x,y)实现两数交换
public sub swap(byref x as long,byref y as long)
dim t as long
t=x:x=y:y=t
end sub

private sub form_load()
dim a as long,b as long
a = 10:b=212
msgbox "before swap a=" & a & ",b=" & b
swap a,b
msgbox "afer swap a=" & a & ",b=" & b
end sub

(1)

Dim A()
A=Array(1,3,5,7,9,11,13)
Dim MaxNum
MaxNum=A(LBound(A))
For i=LBound(A)+1 to UBound(A)
MaxNum=IIf(MaxNum<A(i),A(i),MaxNum)
Next i
Msgbox "MaxNumber Is "