vfp试题求答案，上机答辩用，急

一、基本操作题

1、在考生文件夹下建立数据库KSDB。

2、按下面给出的表结构。给数据库添加表STUD

字段 字段名 类型 宽度 小数

1 学号 字符型 2

2 姓名 字符型 8

3 年龄 数值型 2 0

4 性别 字符型 2

5 院系号 字符型 2

3、为表STUD建立主索引，索引名为学号，索引表达式为学号；

二、建立表单myForm，表单中有两个命令按钮，按钮的名称分别为cmdYes和cmdNo，标题分别为“登录”和“退出”。

这个两个的具体操作过程可否详细解说一下

三．读程序写结果
clear
nTotal=1
for i=1 to 5
nTotal=nTotal*i
endfor
?nTotal

四．读程序写结果
clear
i=1
j=0
do while i<50
if i/7=int(i/7)
j=j+i
endif
i=i+2
enddo
?j

五．完善以下程序，对学生某门课程按其笔试成绩进行等级评定“
成绩<60 ——不及格
成绩>=60 and 成绩<75 ——及格
成绩>=75 and 成绩<90 ——良好
其他 ——优秀
学生等级评定表格名为StudLevel， 包含字段“成绩”和“等级”。
clear
①
scan
do case
case 成绩<60
replace 等级 with "不及格"

一、基本操作题

1、在考生文件夹下建立数据库KSDB。
答：
CREATE DATABASE KSDB

2、按下面给出的表结构。给数据库添加表STUD

字段 字段名 类型 宽度 小数

1 学号 字符型 2

2 姓名 字符型 8

3 年龄 数值型 2 0

4 性别 字符型 2

5 院系号 字符型 2

答：
CREATE TABLE STUD (Stud_No C(2), Name C(8), Age N(2,0), Gender C(2), Dept_No C(2))

3、为表STUD建立主索引，索引名为学号，索引表达式为学号；
答：
INDEX ON Stud_No TAG Stud_No ADDITIVE

二、建立表单myForm，表单中有两个命令按钮，按钮的名称分别为cmdYes和cmdNo，标题分别为“登录”和“退出”。
答：
在〔Command〕窗口中敲上：
MODIFY COMMAND MyForm &&& 即进入〔编辑程序〕中，把下面的容贴上，再按〔Ctrl+S｛即：存盘｝〕，退出即可

*** Begin
CLOSE ALL
CLEAR ALL
CLEAR

PUBLIC MyForm1
DO Form_prg1
READ EVENTS

PROCEDURE Form_prg1
MyForm1 = CREATEOBJECT("TForm1")
MyForm1.Visible = .T.
RETURN

DEFINE CLASS TForm1 AS Form
Caption = ""
Width = 575
Height = 450
AutoCenter = .T.