Question

这个VB代码表示什么？ Private Sub Command1_Click( ) Dim a,

这个VB代码表示什么？
Private Sub Command1_Click( )

Dim a, i%, max%, imax%, sum%, t%

a=Array(2, 4, 1, 7, 3, 39, 17, 20, 16, 18)

max=a(0): imax=0: sum=a(0)

For i=1 to UBound(a)

sum=sum+a(i)

If a(i)> max Then max=a(i): imax=i

Next i

t=a(0): a(0)=a(imax): a(imax)=t

Print sum，a(0)

End Sub

Answer 1

见下图：

我是在excel的VBA窗口里运行的。可以在图片上点右键，在新窗口中打开，能看的更清楚。或者把图片保存到本地再看，也比较清晰。

Answer 2

运行结果为：
127　　　39
sum用来求数组中所有元素的总和，max记录的是数组中所有元素的最大值，max记录的是数组中所有元素的最大值所在的下标。
循环结束后，把最大值交换到a(0)位置。

Answer 3

按下command_1输出数列的和与最大值,并将最大值交换到第一位

Answer 4

请采纳！代码没问题