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

显示全部楼层 · 2009-8-22 22:15:53

楼上是非标准办法以下是标准【且最简】办法(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 "最大：" & maxend sub(2)定义一个函数swap(x,y)实现两数交换pu...

千问 · 2009-8-22 22:15:53

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

千问 · 2009-8-22 22:15:53

楼上写的是什么，把问题又抄了一遍(1)求数组a=(1,3,5,7,9,11,13)中的最大数Private Sub Form_Load()
Dim a(6) As Integer
a(0) = 1: a(1) = 3: a(2) = 5: a(3) = 7: a(4) = 9: a(5) = 11: a(6) = 13...

千问 · 2009-8-22 22:15:53

求数组a=(1,3,5,7,9,11,13)中的最大数
(2)定义一个函数swap(x,y)实现两数交换...