不整齐是因为数字位数不同，可以用Tab对齐，比如这样： Print Tab(j * 4); Int(Rnd * 101); 然后，题目当中都提到“数组”这个词了，你怎么不用数组呢？用了数组，才能把产生的数字保存下来，然后用来求外圈的和 外圈就是满足如下条件的元素a(i, j)：i = 1 Or i = m Or j = 1 Or j = n
回复4楼： 你应该使用动态数组，分成这样两句来写： Dim a() As Integer ReDim a(1 To m, 1 To n) 另外提醒一下，m不一定等于n，求外圈数字之和时不能用一个一重循环，要么也用二重循环（在产生数字的循环中同时判断数字位置，决定是否累加该数字），要么写两个并列的一重循环（4条边分成两组求和，注意4个角不要算重复了）
![[泪]](/static/emoticons/u6cea.png)
