急求高手给做两道VB编程题

来源：百度知道 编辑：UC知道 时间：2024/06/16 00:43:32
1。设a为一整数，如果能使a^2=xxa成立，则a称为守形数。例如5^2=25,25^2=625
,则5和25都是守形数。试编写一个FUNCTION过程AUTOMORPHIC，其形参为一正整数，判断其是否为守形数，然后用该过程查找1到1000内的所有守形数。（题中的^代表平方的意思）
2。编写程序，把下面的数据输入一个二维数组中：
25 36 78 13
12 26 88 93
75 18 22 32
56 44 36 58
然后执行以下操作：
（1）输出矩阵两个对角线上的数
（2）分别输出各行各列的和
（3）交换第一 行和第三行的位置
（4）交换第二列和第四列的位置
（5）输出处理后的数组

Private Sub Form_Load()
Dim i As Integer
Form1.AutoRedraw = True
For i = 1 To 1000
AUTOMORPHIC (i)
Next
End Sub
Function AUTOMORPHIC(a As Integer)
If a = Right(CStr(a ^ 2), Len(Cstr(a))) Then Form1.Print a
End Function

Private Sub Form_Load()
Dim i As Integer
Form1.AutoRedraw = True
Dim a(1 To 4, 1 To 4) As Integer
Dim b(1 To 4) As Integer
a(1, 1) = 25: a(1, 2) = 36: a(1, 3) = 78: a(1, 4) = 13
a(2, 1) = 12: a(2, 2) = 26: a(2, 3) = 88: a(2, 4) = 93
a(3, 1) = 75: a(3, 2) = 18: a(3, 3) = 22: a(3, 4) = 32
a(4, 1) = 56: a(4, 2) = 44: a(4, 3) = 36: a(4, 4) = 58
For i = 1 To 4
Print a(i, i),
Next
Print
'各行各列的和
For i = 1 To 4
Sum = Sum + a(1, i)
Next
Print Sum
For i = 1 To 4
Sum = Sum + a(2, i)
Next
Print Sum
For i = 1 To 4
Sum = Sum + a(3, i)
Next
Print Sum
For i = 1 To 4
Sum = Sum + a(4, i)