1.在一个长度为10的一维有序整数X中插入一个元素.设数组元素初始值只有9个,插入后数组各元素仍然有序.2.输入一个3行4列的二维数组,分别求出每一行、每一列元素之和.

Question

1.在一个长度为10的一维有序整数X中插入一个元素.设数组元素初始值只有9个,插入后数组各元素仍然有序.
2.输入一个3行4列的二维数组,分别求出每一行、每一列元素之和.

Answer 1

1,
Private Sub Command1_Click()
Dim a(1 To 10) As Integer, i%, j%, num%
For i = 1 To 9 '生成9个有序数
a(i) = i * 2
Print CStr(a(i)) + " ";
Next
Print
Randomize
num = Int(Rnd * 18) '生成要插入的数
Print "插入" + CStr(num)
For i = 1 To 10 '此循环依次比较数列中的数和要插入的数
If num < a(i) Then
For j = 9 To i Step -1 '此循环将大于num的数依次后移一位
a(j + 1) = a(j)
Next
a(i) = num
Exit For
End If
Next
For i = 1 To 10
Print CStr(a(i)) + " ";
Next
End Sub
2,
Private Sub Command1_Click()
Dim a(2, 3) As Integer, i%, j%, sOfColumn%, sOfRow%
For i = 0 To 2
For j = 0 To 3
Randomize
a(i, j) = Int(Rnd * 100) '随机生成数组的各元素
Print CStr(a(i, j)) + vbTab;
Next
Print
Next
For i = 0 To 2
For j = 0 To 3
sOfColumn = sOfColumn + a(i, j) '求各行数值和
Next
Print "第" + CStr(i) + "行数值和" + CStr(sOfColumn)
sOfColumn = 0
Next
For j = 0 To 3
For i = 0 To 2
sOfRow = sOfRow + a(i, j) '求各列数值和
Next
Print "第" + CStr(j) + "列数值和" + CStr(sOfRow)
sOfRow = 0
Next
End Sub