编写程序解数组之间的关系

设有如下两组数据：

（1）2，8，7，6，4，28，70，25

（2）79，27，32，41，57，66，78，80

编写一个程序，把上面两组数据分别读入两个数据中，然后把两个数组中对应下标的元素相加，即2+79，8+27，·····，25+80，并把相应的结果放入第三个数组中，最后输出第三个数组的值。（用VB编写）

------------保护自己的领地，保护电脑--------
计算机木马程序已经严重影响到各类计算机使用者的切身利益，当前最重要的是如何有效的防范木马的攻击。
　　1.使用防火墙阻止木马侵入
　　防火墙是抵挡木马入侵的第一道门，也是最好的方式。绝大多数木马都是必须采用直接通讯的方式进行连接，防火墙可以阻塞拒绝来源不明的TCP数据包。防火墙的这种阻塞方式还可以阻止UDP，ICMP等其他IP数据包的通讯。防火墙完全可以进行数据包过滤检查，在适当规则的限制下，如对通讯端口进行限制，只允许系统接受限定几个端口的数据请求，这样即使木马植入成功，攻击者也是无法进入到你的系统，因为防火墙把攻击者和木马分隔开来了。
　　2.避免下载使用免费或盗版软件
　　电脑上的木马程序，主要来源有两种。第一种是不小心下载运行了包含有木马的程序。绝大多数计算机使用者都习惯于从网上下载一些免费或者盗版的软件使用，这些软件一方面为广大的使用者提供了方便，节省了资金，另一方面也有一些不法分子利用消费者的这种消费心理，在免费、盗版软件中加载木马程序，计算机使用者在不知情的情况下贸然运行这类软件，进而受到木马程序的攻击。还有一种情况是，“网友”上传在网页上的“好玩”的程序。所以，使用者定要小心，要弄清楚了是什么程序再运行。
　　3、安全设置浏览器
　　设置安全级别，关掉Cookies。Cookies是在浏览过程中被有些网站往硬盘写入的一些数据，它们记录下用户的特定信息，因而当用户回到这个页面上时，这些信息就可以被重新利用。但是关注Cookies的原因不是因为可以重新利用这些信息，而是关心这些被重新利用信息的来源:硬盘。所以要格外小心，可以关掉这个功能。步骤如下:选择“工具”菜单下的“Internet选项”，选择其中的“安全”标签，就可以为不同区域的Web内容指定安全设置。点击下面的“自定义级别”，可以看到对Cookies和Java等不安全因素的使用限制。
　　4.加强防毒能力
　　“常在河边走，哪有不湿脚”，只要你上网就有可能受到木马攻击，但是并不是说没有办法来解决。在计算机上安装杀毒软件就是其中一种方法，有了防毒软件的确会减少受伤的几率。但在防毒软件的使用中，要尽量使用正版，因为很多盗版自身就携带有木马或病毒，且不能升级。新的木马和病毒一出来，唯一能控制它蔓延的就是不断地更新防毒软件中的病毒库。除了防毒软件的保护，还可以多运行一些其他软件。如天网，它可以监控网络之间正常的数据流通和不正常的数据流通，并随时对用户发出相关提示；如果我们怀疑染了木马的时候，还可以从网上下载木马克星来彻底扫描木马，保护系统的安全。..

Option Base 1  Private Sub Form_Click()   Dim A, B, C(8) As Integer   A = Array(2, 8, 7, 6, 4, 28, 70, 25)   B = Array(79, 27, 32, 41, 57, 66, 78, 80)   For i = 1 To 8   C(i) = A(i) + B(i)   Next i   Print "第一个数组为：";   For i = 1 To 8   Print A(i);   Next i   Print   Print "第二个数组为：";   For i = 1 To 8   Print B(i);   Next i   Print   Print "第三个数组为：";   For i = 1 To 8   Print C(i);   Next i   Print  End Sub  8．6 有一个n×m的矩阵，编写程序，找出其中最大的那个元素所在的行和列，并输出其值及行号和列号。  解：  Option Base 1  Private Sub Form_Click()   Dim Mat() As Integer   Dim N, M As Integer   N = InputBox("请输入矩阵的行数")   M = InputBox("请输入矩阵的列数")   ReDim Mat(N, M) As Integer   For i = 1 To N   For j = 1 To M   Mat(i, j) = InputBox("请输入数组第" & Str(i) & "行第" & Str(j) & "列元素值")   Next j   Next i   Print "所建立的矩阵为："   For i = 1 To N   For j = 1 To M   Print Mat(i, j); " ";   Next j   Print   Next i   Max = Mat(1, 1)   For i = 1 To N   For j = 1 To M   If Max < Mat(i, j) Then   Max = Mat(i, j)   col = j   row = i   End If   Next j   Next i   Print   Print "矩阵最大的元素的值为："; Mat(row, col)   Print "它所在的行号为："; row; ",列号为："; col  End Sub