文档详情

江苏省计算机等级考试二级VFP考试试题.doc

发布:2018-01-15约7.22万字共63页下载文档
文本预览下载声明
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
显示全部
相似文档