填空题

请填写下列空白，以实现运行后形成一个主对角线上元素值为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
<上一题 目录 下一题>
热门 试题

填空题
下面程序是用来打印九九乘法表的，请补充完整。Dim i As Integer，j As Integer，Strl$Strl= For i=1 To 9Forj=1 To 9If 【 】 ThenStrl=Strl + Str$(j)+ X +Str$(i)+ = +Str$(Val(i * j))ElseStrl=Strl & Chr(13)【 】 End IfNext jNext iPrint Str
填空题
以下是一个计算矩形面积的程序，调用过程计算矩形面积，请将程序补充完整。Sub RecArea(L，W)Dim S As DoubleS=L*WMsgBox Total Area is & Str(S)End SubPrivate Sub Command1_Click()Dim M，NM=InputBox( What is the L )M=Val(M)【 】 N=Val(N)【 】 End Sub
相关试题