题目

生成之形矩阵：在文本框中输入之形矩阵的行数n（3≤n≤10），点击“生成”按钮Command1后，在List1中显示结果，程序运行界面如图所示。 实现程序的代码如下，但加框处代码有误，请改正。 Private Sub Command1_Click( )   Dim n，t As Integer，s As String   n=Val（Text1.Text）   For i=1 To n       s=""       If       Then     ‘①         For j=1 To n             t=t+1             s=s+ads（t）         Next j       Else         For j=1 To n-i             s=s+"  "         Next j         t=t+1               ‘②       End If       List1.AddItem s   Next i End Sub Function ads（n As Integer）As String   Dim a As Integer   a=Len（CStr（n））    ‘函数CStr( )和Str( )功能类似，但输出字符时没有前导空格   If a=1 Then       ads="0"+CStr（n）   Else       ads=CStr（n）   End If End Function 以上程序段运行时，为了实现上述功能，加框处代码应改正为：①；②。 答案：【1】Di=1 Or i=n【2】s=s+ ads（t）

查看本题答案和解析