关于VB的两道题，请知道的朋友解答一下，谢谢啦！

1. 定义一个10*10的二维整型数组，产生100个随机数保存在数组中，编写程序求二维数组的上三角之和与下三角之和的差（不包括主对角线上的元素）？
2.有若干个国名：China，Canada，Korea，Thailand，Vietnam，Singapore，India，请按字典顺序排序输出。

1.
option explicit
dim a(10，10),i,k as integer
private sub command1_click()
randomize
for i=1 to 10
for k=1 to 10
a（i,k)=int((100 * Rnd) + 1)
next k
next i
end sub

2.

1:
Private Sub command1_click()
Dim a(10, 10), i, k As Integer, sh As Integer, xh As Integer, tt As Integer, cha As Integer
Dim da As String
Randomize
For i = 1 To 10
For k = 1 To 10
a(i, k) = Int((100 * Rnd) + 1)
Next k
Next i
For i = 1 To 10
For k = 1 To 10
If j <= 10 - i Then sh = sh + a(i, k) Else xh = xh + a(i, k)
If i = j Then tt = tt + a(i, k)
Next k
Next i
cha = sh - xh + tt
End Sub
2:
Dim gjm(6) As String
gjm(0) = "China"
gjm(1) = "Canada"
gjm(2) = "Korea"
gjm(3) = "Thailand"
gjm(4) = "Vietnam"
gjm(5) = "Singapore"
gjm(6) = "India"