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

2025-02-12 11:57:54

推荐回答（1个）

回答1：

一、基本操作题

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.
MaxButton = .F.
MinButton = .F.
TitleBar = 0

ADD OBJECT CmdYes As CommandButton WITH;
FontSize = 16, ;
Width = 85, ;
Height = 37, ;
Top = 156, ;
Left = 36, ;
Caption = "\ FontName = "Arial", ;
FontBold = .T.

ADD OBJECT CmdNo As CommandButton WITH;
FontSize = 16, ;
Width = 85, ;
Height = 37, ;
Top = 156, ;
Left = 204, ;
Caption = "E\ FontName = "Arial", ;
FontBold = .T.
PROCEDURE CmdNo.Click
ThisForm.Release
CLEAR EVENTS
ENDPROC
ENDDEFINE

*** End

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

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

答：
CLEAR &&& 清屏
nTotal = 1 &&& 定义变量 nTotal 并赋值 1，数字不加引号，即将该变量定义为数字型
FOR i = 1 TO 5 &&& 循环开始，范围从 1 到 5
nTotal = nTotal*i &&& 每循环一次，变量 nTotal 将被重新赋值一次，新值为：（上一次的）nTotal 乘以 i
ENDFOR &&& 循环结束
?nTotal &&& 将变量nTotal中的值（120）显示在屏幕上

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

答：
CLEAR &&& 清屏
i = 1 &&& 定义变量 i 并赋值 1，数字不加引号，即将该变量定义为数字型
j = 0 &&& 定义变量 j 并赋值 0，数字不加引号，即将该变量定义为数字型
DO WHILE i < 50 &&& 循环开始，i >= 50 时则退出循环
IF i/7 = INT(i/7) &&& 条件开始：若 i/7 等於 i/7 取整后的情况时，则：
j = j+i &&& 每循环一次，且满足条件时变量 j 将被重新赋值一次，新值为：（上一次的）j 加上（上一次的）i
ENDIF &&& 条件结束
i = i+2 &&& 每循环一次，变量 i 将被重新赋值一次，新值为：（上一次的）i 加上 2
ENDDO
?j &&& 将变量 j 中的值（112）显示在屏幕上

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

答：
(1): USE StudLevel
(2): REPLACE 等级 WITH "及格"
(3): OTHERWISE 或：CASE 成绩 >= 90

注意：我不习惯将表名或字段名用中文来命名！

最新问答

日语ショットブラスト是什么意思？

2020年11月乘高铁需要扫健康码吗？

现在我在上大学，专业是建筑环境与能源应用工程专业(暖通工程专业，主修中央空调)，我想研究生以后出国