【程序改错题解析】
1. 题目：在 XSDB.DBF中查找学生徐秋实的记录，如果找到则显示相关信息。答案：
正确的做法是使用`LOCATE`语句来查找记录，然后输出指定字段的值。正确的代码可能是：
```
LOCATE FOR 姓名 = "徐秋实"
IF NOT EOF()
? 系别, 姓名, "计算机=" + STR(计算机), "英语=" + STR(英语)
ELSE
? "查无此人!"
ENDIF
```
注意`STR()`函数用于将数值转换为字符串。
2. 题目：求2!+4!+6!+...+10!的和。答案：
此题要求计算阶乘的累加，应使用循环结构。正确代码如下：
```
T = 1
FOR N = 2 TO 10
T = T * N
NEXT
S = T
```
或者使用累加变量：
```
T = 1
S = 0
FOR N = 2 TO 10
T = T * N
S = S + T
NEXT
```
3. 题目：将字符串"ABC"转换为"A1B2C3"。答案：
使用`SUBSTR()`或`SUBS()`函数配合`STR()`函数完成。正确代码如下：
```
C1 = "ABC"
FOR I = 1 TO LEN(C1)
A = SUBSTR(C1, I, 1)
C2 = C2 + A + STR(I, 1)
NEXT
```
`STR(I, 1)`确保数字前有一个零填充，形成"A1"这样的格式。
4. 题目：从数据库文件中筛选少数民族学生并排序，生成编号。答案：
正确的处理方式是建立索引，然后进行筛选和排序：
```
INDEX ON 民族 + 学号 TO std.idx
SELECT std
FOR 民族 <> "汉"
NUM = 1
WHILE .NOT.EOF()
...
SUBS(学号, 1, 2) + STR(NUM, 1)
...
SKIP
NUM = NUM + 1
ENDSELECT
```
5. 题目：输入5个数，奇数求和，偶数求积。答案：
初始化奇数和`S1`为0，偶数积`S2`为1，使用`MOD()`函数判断奇偶性：
```
S1 = 0
S2 = 1
FOR M = 1 TO 5
...
IF MOD(M, 2) <> 0
S1 = S1 + M
ELSE
S2 = S2 * M
ENDIF
NEXT
```
6. 题目：求0-7这8个数字能组成的奇数个数。答案：
使用`DO WHILE`循环，判断条件是`j < 8`，正确代码：
```
SUM = 0
J = 0
DO WHILE J < 8
SUM = SUM + S
J = J + 1
ENDDO
```
7. 题目：将ASCII码字符逆序输出。答案：
需要确定字符串长度，然后倒序遍历：
```
S = "ABC123"
L = LEN(S)
FOR I = L TO 1 STEP -1
PUT OUTSTR(I) = S[I]
NEXT
```
8. 题目：按年龄显示所有男性职工信息。答案：
首先按索引打开文件，然后使用`DO WHILE`循环遍历记录：
```
USE ZHG INDEX ZHG_SR
DO WHILE .NOT.BOF()
IF 性别 = "男"
? 编号, 姓名, 出生日期
ENDIF
SKIP
END
```
9. 题目：求200到300之间能被3或5整除的数的和与个数。答案：
使用`IF`条件判断和累加器：
```
SUM = 0
COUNT = 0
FOR I = 200 TO 300
IF MOD(I, 3) = 0 OR MOD(I, 5) = 0
SUM = SUM + I
COUNT = COUNT + 1
ENDIF
NEXT
```
10. 题目：计算数列1,-1/2,1/4,-1/8,...的前10项和。答案：
使用`DO WHILE`循环，每次翻倍数列项：
```
SUM = 0
I = 1
C = 1
DO WHILE C <= 10
SUM = SUM + I
I = -I / 2
C = C + 1
ENDDO
```
这些题目涉及的基础知识点包括数据库操作（如`LOCATE`、`INDEX`、`SELECT`）、循环控制（如`FOR`、`DO WHILE`）、条件判断（如`IF`、`MOD`）、字符串处理（如`SUBSTR`、`STR`）以及数值计算（如阶乘、累加）。解题时需注意逻辑判断的准确性、数据类型的匹配以及循环的终止条件。
