下面程序代码实现单击命令按钮Command1时输出如下结果：
1 -1 -1
1 1 -1
1 1 1
该程序不完整，请填空。
Private Sub Command1_Click()
DimX(3,3)
For I=1 To 3
ForJ=1 To 3
If______Then
X(I,J)=1
End If
If I＜J Then
X(I,J)=-1
End If
Next J
NextI
ForI=1 To 3
ForJ=1 To 3
PrintX(I.J)；
NextJ
Print
NeXtI
End SUb

下面的8086/8088汇编语言程序中，主程序通过堆栈将有关信息传送给子程序STRLEN。在主程序的 【9】 处填空，使程序能正常运行。 DSEG SEGMENT ARRAY DB’Computer＄’ NUMDW0 DSEG ENDS SSEG SEGMENT STACK DB256 DUP(0) SSEG ENDS CSEG1 SEGMENT ASSUME DS:DSEG,SS:SSEG,CS:CSEG1 START： MOV AX,DSEG MOVDS,AX MOVAX,OFFSET ARRAY PUSH AX CALL 【9】 MOVNUM,AX MOVAH,4CH INT21H CSEG1 ENDS CSEG2 SEGMENT ASSUME DS:DSEG,SS:SSEG,CS:CSEG2． STRLEN PROC FAR PUSH BP MOV BP,SP PUSH SI MOV SI,[BP+6] NEXT: CMP BYTE PTR[SI],’$’ JZ DONE;串尾吗？ INC SI JMP NEXT DONE: MOV AX, SI SUB AX, [BP+6] POP SI POP BP RET 2 STRLEN ENDP CSEG2 ENDS ENDSTART