填空题

请填写下列空白，以实现运行后形成一个主对角线上元素值为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 　　　　　　　【 】 　　　　　Else 　　　【 】 　　　End If 　　　Print 【 】 　　　Next j 　　　Print 　　　Next i 　　End Sub

【参考答案】

s(i，j)=1
<上一题 目录 下一题>
热门 试题

填空题
以下程序的功能是：将一维组A中的100个元素分别赋给二维数组B的每个元素并打印出来,要求把A(1)到A(10)依次赋给B(1,1)到B(1,10),把A(11)到A(20)依次赋给B(2,1)到B(2,10),……,把A(91)到A (100)依次赋给B(10,1)到B(10,10)。请填空。Option Base 1Private Sub Form_Click()Dim i As Integer,J As IntegerDim A(1 To 100)As Integer Dim B(1 To 10,1 To 10)As IntegerFor i=1 To 100A(i)=Int(Rnd*100)Next iFor i=1 To 【 】For J=1 To【 】B(i,j)= 【 】Print B(i,j)；Next jPrintNext iEnd Sub
填空题
下列事件过程的功能是：通过Form _ Load事件给数组赋初值为35、48、15、22、67，Form_ Click事件找出可以被3整除的数组元素并打印出来。请在空白处填入适当的内容，将程序补充完整。Dim Arr ( )Private Sub Form _ Load( )【 】 End SubPrivate Sub Form _ Click( )【 】 If Int(x 3)=x 3 ThenPrint xEnd IfNext xEnd Sub
相关试题