江苏省计算机等级考试二级VFP考试试题.doc
文本预览下载声明
2006年春季江苏省计算机等级考试二级VFP考试试题
(填空题加粗部分为答案) 第一部分 计算机基础知识
图1 用户登录表单
设所有的用户名和口令信息均已存储在自由表 KLB 表(含有两个字符型字段"用户名"和"口令")中.完善命令按钮组(含两个命令按钮) Click
事件代码,以实现:当用户输入用户名和口令并单击"确定"按钮时,若用户名输入错误,则提示"用户名错误";若用户名输入正确而口令输入错误,则提示"口令错误";单击"取消"按钮则释放表单.
IF this.value =1 &&单击"确定"命令按钮
IF NOT used(“klb”)
SELECT 0
USE klb
ELSE
SELECT klb
ENDIF
LOCATE FOR ALLTRIM (用户名)== ALLTRIM ( THISFROM . Text 1 . Value )
IF FOUND ()
IF ALLTRIM (口令)== ALLTRIM ( THISFROM . Text 2 . Value )
WAIT "欢迎使用!"
THISFROM . Release
ELSE
WAIT "口令错误!"
ENDIF
else
WAIT "用户名错误!"
ENDIF
ELSE
THISFROM . Release
ENDIF
16. 对于图2所示的表单,当表单运行时,利用微调框( Spinner 1)来调节形状控件( Shape 1)的 Curvature 属性值,使形状控件的角的曲率发生变化.该表单上的标签控件显示为"曲率(R)",其 Caption 属性值应为 曲率(\ .为了实现表单中"微调框控件的值发生变化时形状控件的角的曲率也随之变化"的功能,微调框控件( Spinner1 )的Interactivechange 事件代码为:
THISForM.Shape1.Curvature=THIS.Value
图2 形状控件的曲率实验
17. 完善下列程序 , 使程序的运行结果如图 3 所示 .
SET TALK OFF
CLEAR
x=space(0)
For i=1 to 9
x=x+allt(str(i))
?STR(VAL(x))+*9++ allt(str(I+1)) +=+ ALLT(STR(VAL(x)*9+ i+1))
ENDFOR
1*9+2=11
12*9+3=111
123*9+4=1111
1234*9+5=11111
12345*9+6=111111
123456*9+7=1111111
1234567*9+8 9+9=111111111
123456789*9+10=1111111111
图3程序运行结果
18. 运行下列程序后,显示的运行结果为 FoxPro .
?TT(123E%n w$O4q*5n6)
FUNCTION TT
PARA cstr
cResult=space(0)
FOR n=1 to LEN(ALLT(cStr))
c=SUBSTR(cStr,n,1)
IF !BETWEEN(c,A,Z) and !BETWEEN(c,a , z)
LOOP
ENDIF
cResult=cResult+CHR(ASC(c)+1)
ENDFOR
显示全部