俺对VB一点都没接触过，不过好想学学，前天有人托我这些题用VB实现，我就那个头麻了，前来这里求求题。各位请标清楚题号啊，如果有人做出了，大家就不要再去写了，当然，如果你的方法更简单优秀，那你一定不能不写啊，呵呵，谢谢大家了。请看二楼的题。再谢谢了啊!三百分，如果人数多的话，我还要加分。
只顶不作题的，给分不多，我准备抽30分给顶的，余下给大虾们。谢谢了!大虾们如果多，我继续加分，只要你出力了，一定有你好分。我刚刚出了300分，好像不让出。呵呵，先出200啦，以后多加分。300之后还可以加。谢谢啊,晕，２00也不能啊？？？？那我分三次发了！！
只顶不作题的，给分不多，我准备抽30分给顶的，余下给大虾们。谢谢了!大虾们如果多，我继续加分，只要你出力了，一定有你好分。我刚刚出了300分，好像不让出。呵呵，先出200啦，以后多加分。300之后还可以加。谢谢啊,晕，２00也不能啊？？？？那我分三次发了！！
编写一个处理二维数组的通用过程（函数或子程序），该过程可以对具有n*n结构的数值型二维数组求它左上三角区中各元素平方根之和（即先求各元素的平方根，然后再对该平方根求和）。已知两个数组A和B（数据附后），编写主程序针对这两个数组分别调用以上过程得到两个结果SA和SB，要求主程序最后输出(2*SA)/(3*SB)。（结果要求保留3位小数）
A数组的数据如下（左上三角区中的元素包括由右上角元素88到左下角元素12这条对角线上的元素和该对角线以上的元素）：
21, 11, 13, 88
56, 34, 69, 37
24, 31, 23, 45
12, 32, 44, 8
B数组的数据如下（左上三角区中的元素包括由右上角元素82到左下角元素43这条对角线上的元素和该对角线以上的元素）：
14, 12, 82
22, 61, 22
43, 12, 89
二、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）
编写一个处理二维数组的通用过程（函数或子程序），该过程可以对具有n*n结构的数值型二维数组求它左下三角区中各元素平方根之和（即先求各元素的平方根，然后再对该平方根求和）。已知两个数组A和B（数据附后），编写主程序针对这两个数组分别调用以上过程得到两个结果SA和SB，要求主程序最后输出(4*SA)/(5*SB)。（结果要求保留3位小数）
A数组的数据如下（左下三角区中的元素包括由左上角元素18到右下角元素16这条对角线上的元素和该对角线以下的元素）：
18, 21, 33, 22
76, 44, 96, 54
24, 38, 27, 31
2, 81, 75, 16
B数组的数据如下（左下三角区中的元素包括由左上角元素14到右下角元素57这条对角线上的元素和该对角线以下的元素）：
14, 12, 82, 33, 51
22, 61, 22, 12, 17
43, 12, 89, 20, 40
32, 76, 23, 15, 26
12, 27, 77, 89, 57
三、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）
编写一个处理二维数组的通用过程（函数或子程序），该过程可以对具有n*n结构的数值型二维数组求它它两条对角线上各元素平方根之和（即先求各元素的平方根，然后再对该平方根求和，注意避免数组元素的重复计算）。已知两个数组A和B（数据附后），编写主程序针对这两个数组分别调用以上过程得到两个结果SA和SB，要求主程序最后输出(4*SA)/(5*SB)。（结果要求保留3位小数）
A数组的数据如下：
18, 21, 33, 22
76, 44, 96, 54
24, 38, 27, 31
2, 81, 75, 16
B数组的数据如下：
14, 12, 82, 33, 51
22, 61, 22, 12, 17
43, 12, 89, 20, 40
32, 76, 23, 15, 26
12, 27, 77, 89, 57四、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）
编写一个处理二维数组的通用过程（函数或子程序），该过程可以对具有n*n结构的数值型二维数组求它右下三角区中各元素平方根之和（即先求各元素的平方根，然后再对该平方根求和）。已知两个数组A和B（数据附后），编写主程序针对这两个数组分别调用以上过程得到两个结果SA和SB，要求主程序最后输出(2*SA)/(3*SB)。（结果要求保留3位小数）
A数组的数据如下（右下三角区中的元素包括由右上角元素88到左下角元素12这条对角线上的元素和该对角线以下的元素）：
21, 11, 13, 88
56, 34, 69, 37
24, 31, 23, 45
12, 32, 44, 8
B数组的数据如下（右下三角区中的元素包括由右上角元素82到左下角元素43这条对角线上的元素和该对角线以下的元素）：
14, 12, 82
22, 61, 22
43, 12, 89
五、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）
编写一个处理二维数组的通用过程（函数或子程序），该过程可以对具有n*n结构的数值型二维数组求它右上三角区中各元素平方根之和（即先求各元素的平方根，然后再对该平方根求和）。已知两个数组A和B（数据附后），编写主程序针对这两个数组分别调用以上过程得到两个结果SA和SB，要求主程序最后输出(2*SA)/(3*SB)。（结果要求保留3位小数）
A数组的数据如下（右上三角区中的元素包括由左上角元素21到右下角元素8这条对角线上的元素和该对角线以上的元素）：
21, 11, 13, 88
56, 34, 69, 37
24, 31, 23, 45
12, 32, 44, 8
B数组的数据如下（右上三角区中的元素包括由左上角元素14到右下角元素89这条对角线上的元素和该对角线以上的元素）：
14, 12, 82
22, 61, 22
43, 12, 89
六、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）
编写一个处理二维数组的通用过程（函数或子程序），该过程可以对任意数值型二维数组求它最后一行和第一列中各元素平方根之和（即先求各元素的平方根，然后再对该平方根求和，注意避免数组元素的重复计算）。已知两个数组A和B（数据附后），编写主程序针对这两个数组分别调用以上过程得到两个结果SA和SB，要求主程序最后输出(3*SA)/(5*SB)。（结果要求保留3位小数）
A数组的数据如下：
33, 41, 53, 63
16, 32, 91, 70
42, 28, 42, 26
82, 22, 14, 56
B数组的数据如下：
14, 12, 82, 33, 51
22, 61, 22, 12, 17
43, 12, 89, 20, 40
七、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）
编写一个处理二维数组的通用过程（函数或子程序），该过程可以对任意数值型二维数组求它最后两行中各元素平方根之和（即先求各元素的平方根，然后再对该平方根求和）。已知两个数组A和B（数据附后），编写主程序针对这两个数组分别调用以上过程得到两个结果SA和SB，要求主程序最后输出(4*SA)/(3*SB)。（结果要求保留3位小数）
A数组的数据如下：
21, 11, 13
56, 34, 69
24, 31, 23
12, 32, 44
B数组的数据如下：
14, 12, 82, 33, 51
22, 61, 22, 12, 17
43, 12, 89, 20, 40
八、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）
编写一个处理二维数组的通用过程（函数或子程序），该过程可以对任意数值型二维数组求它偶数列中各元素平方根之和（即先求各元素的平方根，然后再对该平方根求和）。已知两个数组A和B（数据附后），编写主程序针对这两个数组分别调用以上过程得到两个结果SA和SB，要求主程序最后输出(4*SA)/(3*SB)。（结果要求保留3位小数）
A数组的数据如下：
21, 11, 13
56, 34, 69
24, 31, 23
12, 32, 44
B数组的数据如下：
14, 12, 82, 33, 51
22, 61, 22, 12, 17
43, 12, 89, 20, 40
九、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）
编写一个处理二维数组的通用过程（函数或子程序），该过程可以对任意数值型二维数组求它头两列中各元素平方根之和（即先求各元素的平方根，然后再对该平方根求和）。已知两个数组A和B（数据附后），编写主程序针对这两个数组分别调用以上过程得到两个结果SA和SB，要求主程序最后输出(4*SA)/(3*SB)。（结果要求保留3位小数）
A数组的数据如下：
21, 11, 13
56, 34, 69
24, 31, 23
12, 32, 44
B数组的数据如下：
14, 12, 82, 33, 51
22, 61, 22, 12, 17
43, 12, 89, 20, 40
十、编程题（本题25分，第三、四、五题选做两道，多做按前两道算）
编写一个处理二维数组的通用过程（函数或子程序），该过程可以对任意数值型二维数组求它第一行和最后一列中各元素平方根之和（即先求各元素的平方根，然后再对该平方根求和，注意避免数组元素的重复计算）。已知两个数组A和B（数据附后），编写主程序针对这两个数组分别调用以上过程得到两个结果SA和SB，要求主程序最后输出(3*SA)/(5*SB)。（结果要求保留3位小数）
A数组的数据如下：
33, 41, 53, 63
16, 32, 91, 70
42, 28, 42, 26
82, 22, 14, 56
B数组的数据如下：
14, 12, 82, 33, 51
22, 61, 22, 12, 17
43, 12, 89, 20, 40
Dim strB(1 To 3, 1 To 3) As Integer
Dim sumA As Double
Dim sumB As Double
Dim DouNum As DoubleSub main()
strA(1, 1) = 21
strA(1, 2) = 11
strA(1, 3) = 13
strA(1, 4) = 88
strA(2, 1) = 21
strA(2, 2) = 11
strA(2, 3) = 13
strA(2, 4) = 88
strA(3, 1) = 21
strA(3, 2) = 11
strA(3, 3) = 13
strA(3, 4) = 88
strA(4, 1) = 21
strA(4, 2) = 11
strA(4, 3) = 13
strA(4, 4) = 88
strB(1, 1) = 14
strB(1, 2) = 12
strB(1, 3) = 82
strB(2, 1) = 22
strB(2, 2) = 61
strB(2, 3) = 22
strB(3, 1) = 42
strB(3, 2) = 12
strB(3, 3) = 89
DouNum = Round(2 * AddSqrA(4) / 3 * AddSqrB(3), 3)
MsgBox (DouNum)
End Sub
Private Function AddSqrA(n As Integer) As Double Dim i As Integer
Dim j As Integer
For i = 1 To n
For j = (n + 1) - i To 1 Step -1
sumA = sumA + Sqr(strA(i, j))
Next j
Next i
AddSqrA = sumA
End FunctionPrivate Function AddSqrB(m As Integer) As Double
Dim i As Integer
Dim j As Integer
For i = 1 To m
For j = (m + 1) - i To 1 Step -1
sumB = sumB + Sqr(strB(i, j))
Next j
Next i
AddSqrB = sumB
End Function