Question

vfp数据库制作表单，设计界面、运行界面如图所示。

设计一个表单，当用户在文本框中输入矩阵的维数N后，
按＇显示＇按钮则会在编辑框中输出对角线为0的N维矩阵，
输入数据不符合要求时显示提示信息。
用变量i、j分别控制矩阵的行和列。
N=VAL(ALLTRIM(THISFORM.Text1.Value))
DIMENSION A(N,N)
CH=""
FOR I=1 TO N(挂起之后他说嵌套错误，我不知道错在哪里）
FOR J=1 TO N
IF I=J OR I+J=N+1
A(I,J)=0
ELSE
A(I,J)=1
ENDIF
CH=CH+CHR(13)
ENDFOR
THISFORM.EDit1.Value=CH
THISFORM.TEXT1.SetFocus
THISFORM.Refresh

Answer 1

你少了一个endfor, 仔细检查下

另外,第一句无需VAL(ALLTRIM(THISFORM.Text1.Value))

因为文本框可以输入数字的, 只要在表单的init中加一句:
THISFORM.Text1.Value=0
那么以后输入的都是数字

第一句就改成
N=THISFORM.Text1.Value