(7) 請填寫下列空白，以實現運行后形成一個主對角線上元素值為1，其他元素為0的6×6階矩陣。

　　Private Sub Command1_Click()

　　Dim s(6, 6)

　　For i=1 To 6

　　For j=1 To 6

　　If i=j Then

　　【7】

　　Else

　　【8】

　　End If

　　Print 【9】

　　Next j

　　Print

　　Next i

　　End Sub

　　正確答案: 1.(s(i, j) = 1) 2.(s(i, j) = 0) 3.(s(i, j))

　　(8) 以下過程的作用是將26個小寫字母逆序打印出來，請補充完整。

　　Sub Inverse()

　　For i=122 To 【10】

　　Print 【11】 ;

　　Next i

　　End Sub

　　正確答案: 1.(97 Step -1) 2.(Chr$(i))