程式設計]
3靜態宣告一個維陣列,輸入和輸出該陣列各元素的值( 20分)要求: 1計算并輸出陣列主對角線和次對角線元素的和。
2.交換1、3行后輸出整個陣列的值
3.交換陣列的行與列后輸出整個陣列的值(行變數用i列變數用
uj5u.com熱心網友回復：
用vbs寫的,vb6應該也能用:
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
運行示例:
下載地址:
鏈接：https://pan.baidu.com/s/1xBire-oVnploWI1xlm5H2w
提取碼：01p2
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/33374.html
標籤：VB基礎類
上一篇：VB關聯Excel
下一篇：R在安裝包的時候總是無法打開?