VF程序题.docx
- 文档编号:2944977
- 上传时间:2022-11-16
- 格式:DOCX
- 页数:80
- 大小:34.26KB
VF程序题.docx
《VF程序题.docx》由会员分享,可在线阅读,更多相关《VF程序题.docx(80页珍藏版)》请在冰豆网上搜索。
VF程序题
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能:
在XSDB.DBF数据表中查找学生王迪,如果找到,则显示:
*学号、姓名、英语,生年月日,否则提示"查无此人!
"。
*请在【】处添上适当的内容,使程序完整。
*-------------------------------------------------------
SETTALKOFF
***********SPACE**********
【?
】
XM="王迪"
***********SPACE**********
【?
】姓名=XM
IFFOUN()
***********SPACE**********
【?
】学号,姓名,英语,生年月日
ELSE
?
"查无此人!
"
ENDIF
USE
SETTALKON
RETURN
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能:
依次显示XSDB.DBF数据表中的记录内容。
请在【】处添上适当
*的内容,使程序完整。
*-------------------------------------------------------
SETTALKOFF
***********SPACE**********
【?
】
***********SPACE**********
DOWHILE【?
】
DISP
***********SPACE**********
【?
】
ENDDO
USE
SETTALKON
RETURN
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能:
求1到50的累加和(S=1+2+3+...+50)并显示。
请在【】处添上
*适当的内容,使程序完整。
*-------------------------------------------------------
SETTALKOFF
***********SPACE**********
【?
】
I=1
***********SPACE**********
DOWHILE【?
】
H=H+I
***********SPACE**********
【?
】
ENDDO
?
H
SETTALKON
RETURN
【程序填空】
*-------------------------------------------------------
*功能:
实现:
求0-100之间的奇数之和,超出范围则退出。
请在【】处
*添上适当的内容,使程序完整。
*-------------------------------------------------------
SETTALKOFF
X=0
Y=0
DOWHILE.T.
X=X+1
DOCASE
***********SPACE**********
CASE【?
】
LOOP
CASEX>=100
***********SPACE**********
【?
】
OTHERWISE
Y=Y+X
ENDCASE
***********SPACE**********
【?
】
?
"0-100之间的奇数之和为:
",Y
SETTALKON
RETURN
【程序填空】
*-------------------------------------------------------
*功能:
实现:
求0-100之间的奇数之和,超出范围则退出。
请在【】处
*添上适当的内容,使程序完整。
*-------------------------------------------------------
SETTALKOFF
X=0
Y=0
DOWHILE.T.
X=X+1
DOCASE
***********SPACE**********
CASE【?
】
LOOP
CASEX>=100
***********SPACE**********
【?
】
OTHERWISE
Y=Y+X
ENDCASE
***********SPACE**********
【?
】
?
"0-100之间的奇数之和为:
",Y
SETTALKON
RETURN
【程序填空】
*-------------------------------------------------------
*功能:
实现:
求0-100之间的奇数之和,超出范围则退出。
请在【】处
*添上适当的内容,使程序完整。
*-------------------------------------------------------
SETTALKOFF
X=0
Y=0
DOWHILE.T.
X=X+1
DOCASE
***********SPACE**********
CASE【?
】
LOOP
CASEX>=100
***********SPACE**********
【?
】
OTHERWISE
Y=Y+X
ENDCASE
***********SPACE**********
【?
】
?
"0-100之间的奇数之和为:
",Y
SETTALKON
RETURN
-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能:
统计300到600之间(包括300和600)能被3整除的数的个数。
*请在【】处添上适当的内容,使程序完整。
*-------------------------------------------------------
SETTALKOFF
GS=0
N=300
***********SPACE**********
DOWHILE【?
】
IFMOD(N,3)=0
***********SPACE**********
【?
】
ENDIF
***********SPACE**********
【?
】
ENDDO
?
"300到600之间(包括300和600)能被3整除的数的个数为",GS
SETTALKON
RETURN
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能:
查找XSDB表中计算机成绩最高分的学生,将其姓名和计算
*机字段的内容显示出来,如:
王迪98。
请在【】处添上适
*当的内容,使程序完整。
*-------------------------------------------------------
SETTALKOFF
USEXSDB
MAX=计算机
***********SPACE**********
【?
】
dowhile.NOT.EOF()
IFMAX<计算机
MAX=计算机
***********SPACE**********
【?
】
ENDIF
***********SPACE**********
【?
】
enddo
?
XM,MAX
USE
SETTALKON
RETURN
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能:
下面程序是计算1+1+2+2+…+n+n之和的平方根的程序。
*-------------------------------------------------------
SETTALKOFF
INPUTTON
***********SPACE**********
【?
】
FORI=1TON
***********SPACE**********
S=【?
】
ENDFOR
***********SPACE**********
?
"结果是",【?
】
RETURN
SETTALKON
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能:
以下程序通过键盘输入4个数字,找出其中最小的数。
*-------------------------------------------------------
SETTALKOFF
***********SPACE**********
【?
】
INPUT"请输入第一个数字"TOX
M=X
DOWHILEI<=3
INPUT"请输入数字"TOX
***********SPACE**********
IF【?
】
M=X
ENDIF
***********SPACE**********
【?
】
ENDDO
?
"最小的数是",M
SETTALKON
RETURN
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能:
以下程序的功能如(图1)。
*-------------------------------------------------------
SETTALKOFF
***********SPACE**********
【?
】
***********SPACE**********
【?
】TON
FORI=0TON
***********SPACE**********
T=T+【?
】
ENDFOR
?
"T的值是:
",T
SETTALKON
RETURN
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能:
显示输出图形:
**
****
******
*请在【】处添上适当的内容,使程序完整。
*---------
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VF 程序