关于vf6.0程序设计的习题

Question

程序实验题
1.求1-1/2+1/3-1/4+.......+1/99-1/100的值.

2.编写一个子程序，判断一个数是否为素数，在主程序中输出3——100之间的所有素数，并按每行5个输出。

Answer 1

cddbc cbdcd bbadb ccdcd ccbcc acccd cdadb cbdbd

选择题

1． VFP中下列表达式中写法错误的是

A) 〃总分〃+[90]

B) 〃AB〃==〃AB〃

C) 〃总分〃+ 90 .

D) 〃x〃＜＞〃y〃

2. 数据库文件工资.DBF共有10条记录，当前记录号为3, 用SUM命令计算工资总和，如果不给出范围短句，那么命令

A) 计算后5条记录工资值之和

B) 计算后6条记录工资值之和

C) 只计算当前记录工资值

D) 计算全部记录工资值之和

3. 要为当前表所有职工增加100元工资应该使用命令

A) CHANGE 工资 WITH 工资+100

B) REPLACE 工资 WITH 工资+100

C) CHANGE ALL工资 WITH工资+100

D) REPLACE ALL 工资 WITH 工资+100

4. 文件CGE.MNX是一个

A) 表单文件

B) 菜单文件

C) 项目文件

D) 报表文件

5. Visual FoxPro关系数据库管理系统能实现的3种基本关系运算是

A) 索引、排序、查找

B) 建库、录入、排序

C) 选择、投影、联接

D) 显示、统计、复制

6. 使用数据库技术进行人事档案管理，是属于计算机的

A) 科学计算应用

B) 过程控制应用

C) 数据处理应用

D) 辅助工程应用

7. 逻辑型字段的宽度固定为

A) 8

B) 1

C) 4

D) 10

8. 当前表中有20条记录，当前记录号是5，Display next 3命令将

A) 显示当前记录

B) 显示第三条记录

C) 显示第6到第8条记录

D) 显示第5到第7条记录

9. 备注型字段的宽度固定为

A) 8

B) 1

C) 4

D) 10

10.执行 ？STR(109.87，7，3)后，屏幕显示的是

A) 109.87

B) 〃109.87〃

C) 109.870

D) 〃109.870〃

11. 在Visual FoxPro中，打开表命令是

A) OPEN TABLE<表名>

B) USE <表名>

C) USE TABLE<表名>

D) OPEN<表名>

12. 假定系统日期是1998年12月20日，有如下命令：MJ=MOD(YEAR(DATE())，100)

执行该命令后，MJ的值是

A) 1998

B) 98

C) 981220

D) 1220

13. 在以下四组函数运算中，结果相同的是

A) LEFT(〃Visual FoxPro〃，4)与SUBSTR(〃Visual FoxPro〃，1，4)

B) YEAR(DATE())与SUBSTR(DTOC(DATE())，7，2)

C) lEN(〃that 〃)与 lEN(〃that 〃)

D) 假定A=〃that 〃，B=〃is a menu〃，A-B与A+B

14. 在VFP中，执行STORE DTOC(DATE()+10) TO B后，变量B的类型为

A) 日期型

B) 数据型

C) 备注型

D) 字符型

15. 如果要创建一个3级数据分组报表，第1个分组表达式是"部门"，第2个分组表达式是"性别"，第3个分组表达式是"基本工资"，则当前索引的索引关键字表达式应该是

A) 部门+性别+基本工资

B) 部门+性别+STR(基本工资)

C) 性别+部门+STR(基本工资)

D) STR(基本工资)+性别+部门

16. 数据表文件CJ.DBF已经打开，共有10条记录，按关键字XM排序，执行命令SORT ON XM TO CJ后，屏幕将显示

A) 10条记录排序完成

B) CJ.DBF已存在，覆盖它吗(Y/N)

C) 文件在使用

D) 出错信息

17. 物理删除记录可用两条命令分两步来完成，这两个命令分别为

A) PACK和ZAP

B) PACK和RECALL

C) DELETE和PACK

D) DELETE和RECALL

18. 在VFP的几种循环语句中，当循环次数为常数时，应选用的语句是

A) DO WHILE

B) SCAN

C) LOOP

D) FOR

19. 关于数据库表和自由表，下列说法正确的是

A) 数据库表可以转换为自由表，反之不能

B) 自由表可以转换为数据库表，反之不能

C) 两者可以相互转换

D) 两者不能相互转换

20. 视图设计器中比查询设计器多出的选项卡是

A) 字段

B) 排序依据

C) 联接

D) 更新条件

选择题

1. 在FoxPro数据库中的常量的类型种类是

A) 4

B) 5

C) 6

D) 3

2. 执行命令STORE 〃3.1416〃 TO TEST

.?TYPE(〃TEST〃)

其结果为

A) D

B) L

C) C

D) N

3. 下列叙述正确的是

A) INPUT语句只能接收字符串

B) ACCEPT命令只能接收字符串

C) ACCEPT语句可以接收任意类型的VFP表达式

D) WAIT只能接收一个字符，而且必须按ENTER键

4. 在使用项目管理器时，如果要移去一个文件，在提示的框中选择"Remove(移去)"按钮，系统将会把所选择的文件移走。选择"Delete(删除)"按钮，这系统将会把该文件

A) 仅仅从项目中移走

B) 仅仅从项目中移走，磁盘上的文件未被删除

C) 不仅从项目中移走，磁盘上的文件也被删除

D) 只是不保留在原来的目录中

5. 要使文件菜单项用"F"作为访问快捷键，定义该菜单标题可用

A) 文件(F)

B) 文件(<\F)

C) 文件(\<F)

D) 文件(/\F)

6. 用户设计菜单系统时，系统默认菜单系统位置

A) 替换原有菜单系统

B) 追加在原有的菜单系统后面

C) 插入到原菜单系统的前面

D) 与原菜单系统无关

7. 打开一个数据表文件的同时打开以"姓名"为关键字的单一索引文件，要求查找姓名为"张伟"的教师，应使用命令

A) GO张伟

B) LOCATE张伟

C) FIND张伟

D) SEEK张伟

8. 在报表设计中打印每条记录的带区是

A) 标题

B) 页标头

C) 细节

D) 总结

9. BOF()是测试函数，当正使用的数据表文件的记录指针已达头部，其函数值为

A) 0

B) 1

C) .T.

D) .F.

10. 数据库文件有30条记录，当前记录是20，执行命令LIST NEXT 5后，所显示记录号是

A)21～25

B)21～26

C)20～25

D)20～24

11. EOF()是测试函数，当正使用的数据表文件的记录指针已达尾部，其函数值为

A) 0

B) 1

C) .T.

D) .F.

12. 统计在校生党员数的正确操作是

A) SUM FOR 党员否

B) COUNT TO 党员否＝.T.

C) SUM 党员否

D) COUNT FOR 党员否

13. 函数LEN(SPACE(20)-SPACE(15))的返回值是

A) 35

B) 19

C) 5

D) 错误信息

14. 关于索引的叙述，下列选项不正确的是

A) VFP支持两种索引文件：复合索引文件和单索引文件

B) 实现索引查询必须满足以下条件：打开数据库；打开索引文件；确定控制索引文件；对于复合索引文件还需确定控制索引

C) 打开和关闭索引文件均使可用SET INDEX TO命令

D) 索引文件不会随着库文件的关闭而关闭

15. 当前目录下有AA.DBF、BB.DBF,其中数据表文件AA.DBF已经打开，共有10条记录，按关键字"学号"排序，执行命令SORT ON 学号 TO BB 后，屏幕将显示

A)10条记录排序完成

B)BB.DBF已存在，覆盖它吗（Y/N）

C)文件在使用

D)出错信息

16. 把当前数据库文件中"性别"字段为"女"的值全部清除，但仍保留该字段与其他各字段内容，应当使用命令

A) MODIFY STRUCTURE

B) DELETE

C) RELACE

D) ZAP

17. SUBSTR(〃ABCDEF〃，3，2)的结果是

A) AB

B) CD

C) FE

D) CB

18. 下列命令中，不能输入字符型数据的命令是

A) ACCEPT

B) WAIT

C) INPUT

D) ...SAY...

19. VF6.0数据库系统是

A)网络型

B)关系型

C)层次型

D)链状型

20. 设VFP的程序中有P1.PRG, P2.PRG ,P3.PRG三层程序嵌套，下面叙述正确的是

A)在P1中用!RUN P2.PRG语句可以调用P2子程序

B)在P2中用RUN P3.PRG语句可以调用P3子程序

C)在P3中用RETURN语句可以返回P1子程序

D)在P3中用RETURN TO MASTER语句可以返回P1子程序

Answer 2

1.
dim x as single,i as integer
x=1
for i=2 to 100
if i mod 2=0 then x=x-1/i else x=x+1/i
next
print x

2.
Private Function IsPrime( num As Integer) As Boolean
Dim I As Integer
IsPrime=True
For I = 2 To CInt(Sqr(num))
If num Mod I =0 Then IsPrime= False :exit for
Next
End Function

Private Sub Command1_Click()
Dim I As Integer
For I = 3 To 100
If IsPrime(I) Then
Print(I);
j=j+1
if j mod 5=0 then print
End If
Next
End Sub本回答被提问者采纳