【急】visual foxpro 编程题!!!在线等!!!
运行visual foxpro,新建一个程序文件,该程序文件内容如下:
set default to c:\test
use 学生成绩
do while .t.
@2,2 say “1.添加新记录”
@4,2 say “2.删除当前记录”
@6,2 say “3.退出”
@8,2 say “请选择?(1或2)”to selectit
if selectit="1"
endit
endif
if selectit="2"
insert
endif
if selectit="3"
break
endif
exit
enddo
use
2。调试该程序,使其实现以下功能:
(1)在屏幕上显示一个菜单
(2)由用户输入数字
(3)若数字为1,则添加一条新记录;若数字为2,则删除当前记录;若数字为3,则退出该程序
3。写下调试好的程序
答案:SET DEFAULT TO C:/TEST
USE 学生成绩
DO WHILE .T.
@2,2 SAY "1.添加新记录"
@4,2 SAY "2.删除当前记录"
@6,2 SAY "3.退出"
@8,2 SAY "请选择?(1或2)" GET SELECTIT
READ
IF SELECTIT="1"
EDIT
ENDIF
IF SELECTIT="2"
DELETE &&这里删除
ENDIF
IF SELECTIT="3"
EXIT &&选择3时退出
ENDIF
ENDDO
USE
上一个:visual foxpro学来有什么用?
下一个:Visual Foxpro 题, 在线等,求高手解答