vb三道难题

1。
Private Sub Command1_Click()
Dim a(1 To 5, 1 To 5) As Double
Dim sum As Double
Dim max As Double
Dim x, y As Integer
For i = 1 To 5
For j = 1 To 5
Randomize
a(i, j) = Int(Rnd * 900) + 100
Print a(i, j) & " ";
Next j
Print
Next i

max = a(1, 1)
For i = 1 To 5
For j = 1 To 5
'求对角线数据和
If i = j Then sum = sum + a(i, j)
'求最大值和最大值坐标
If a(i, j) > max Then
max = a(i, j)
x = i: y = j
End If
Next j
Next i
Print "矩阵对角线数据和为：" & sum
Print "矩阵最大值=" & max & "; " & "x=" & x; "; " & "y=" & y
End Sub
2。
Private Sub DtoB(n As Long)
Dim s As String
Do While n > 0
s = CStr(n Mod 2) & s
n = n \ 2
Loop
Print s
End Sub

Private Sub command1_click()
Dim a(5, 5) As Integer
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(Rnd * 900 + 100)
Print a(i, j),
Next
Print
Next
Max = a(1, 1)
m = 1
n = 1
For i = 1 To 5
For j = 1 To 5
If a(i, j) > Max Then Max = a(i, j): m = i: n = j
If i = j Then s = s + a(i, j): Print a(i, j)
Next
Next
Print "最大数"; Max; "行："; m; "列："; n
End Sub

来迟了，回答的差不多了.