06春江苏2级VFP.docVIP

2006年春季江苏省计算机等级考试二级VFP考试试题 (填空题加粗部分为答案) 第一部分 计算机基础知识 图1 用户登录表单 设所有的用户名和口令信息均已存储在自由表 KLB 表（含有两个字符型字段＂用户名＂和＂口令＂）中．完善命令按钮组（含两个命令按钮） Click 事件代码，以实现：当用户输入用户名和口令并单击＂确定＂按钮时，若用户名输入错误，则提示＂用户名错误＂；若用户名输入正确而口令输入错误，则提示＂口令错误＂；单击＂取消＂按钮则释放表单． IF this.value ＝１　＆＆单击＂确定＂命令按钮 IF NOT used(“klb”) SELECT 　0 USE klb ELSE SELECT klb ENDIF LOCATE FOR ALLTRIM （用户名）＝＝ ALLTRIM （ THISFROM . Text １ . Value ） IF FOUND （） IF ALLTRIM （口令）＝＝ ALLTRIM （ THISFROM . Text 2 . Value ） WAIT ＂欢迎使用！＂ THISFROM . Release ELSE WAIT ＂口令错误！＂ ENDIF else WAIT ＂用户名错误！＂ ENDIF ELSE THISFROM . Release ENDIF 16. 对于图２所示的表单，当表单运行时，利用微调框（ Spinner １）来调节形状控件（ Shape １）的 Curvature 属性值，使形状控件的角的曲率发生变化．该表单上的标签控件显示为＂曲率（Ｒ）＂，其 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 图３程序运行结果 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