7,763
社区成员
发帖
与我相关
我的任务
分享
Dim arr(2,2)
For i=lbound(arr,1) To ubound(arr,1)
For j=lbound(arr,2) To ubound(arr,2)
arr(i,j) = inputbox("请输入数组中(" & i & "," & j & ")的值:")
Next
Next
s = "输入的数组: " & vbcrlf
msgbox printarray(arr,s)
s = "主对角线的和: "
sum = 0
For i=lbound(arr,1) To ubound(arr,1)
sum = sum + CInt(arr(i,i))
Next
msgbox s & sum
s = "次对角线的和: "
sum = 0
For i=lbound(arr,1) To ubound(arr,1)
sum = sum + CInt(arr(ubound(arr,1)-i,i))
Next
msgbox s & sum
s = "交换1,3行的数组: " & vbcrlf
m = 0
n = 2
For i=lbound(arr,2) To ubound(arr,2)
temp = arr(m,i)
arr(m,i) = arr(n,i)
arr(n,i) = temp
Next
msgbox printarray(arr,s)
s = "交换行与列后的数组: " & vbcrlf
For i=lbound(arr,1) To ubound(arr,1)
For j=i To ubound(arr,2)
temp = arr(i,j)
arr(i,j) = arr(j,i)
arr(j,i) = temp
Next
Next
msgbox printarray(arr,s)
Function PrintArray(ByVal arr(), ByVal s)
For i=lbound(arr,1) To ubound(arr,1)
For j=lbound(arr,2) To ubound(arr,2)
s = s & arr(i,j)
If j < ubound(arr,2) Then
s = s & ","
End If
Next
If i < ubound(arr,1) Then
s = s & vbcrlf
End If
Next
PrintArray = s
End Function