发布时间 : 星期五 文章计算机二级VFP上机模拟考试题更新完毕开始阅读82be9a4e767f5acfa1c7cdac
a(i) = 1 For j = i-1 To 2 Step -1 (2) next For j = 1 To i @i,j*5 say str(a(j),4) Next j Next i
第七套：
试题一 属性设置及程序改错题（20分）
gc338.scx的功能是：该表单包含1个标签Label1、1个选项按钮组Optiongroup1和3个文本框Text1、Text2、Text3。该表单刚运行时，标签不显示，通过选择选项按钮组中不同选项，使从文本框输入的3个数字分别以“从小到大排列”和“从大到小排列”的方式在标签位置输出，要求标签能自动调整大小；双击该表单，则释放该表单。
要求：(1)依题目要求，设置标签Label1的两处属性；
(2)在选项按钮组Optiongroup1的Click事件代码和表单Form1的Dblclick事件代码中分别有一个错误，请调试改正，并不得增删语句。 Optiongroup1的Click事件代码如下： a=VAL(THISFORM.Text1.Value) b=VAL(THISFORM.Text2.Value) c=VAL(THISFORM.Text3.Value) If b>a d=a a=b b=d ENDIF If c>a d=a a=c c=d ENDIF If b>c d=b b=c c=d ENDIF If THIS.Value=1 THISFORM.Label1.Caption=STR(c,5)+\ THISFORM.Text1.SetFocus Else THISFORM.Label1.Caption=STR(a,5)+\ THISFORM.Text1.SetFocus ENDIF Form1的Dblclick事件代码如下: THISFORM.Refresh 试题二 程序填空题（20分）
tk338.scx的功能是：该表单包含1个标签Label1(要求在表单中居中，标签文本对齐方式为居中)，3个命令按钮command1“暂停”、command2“继续”和command3“退出”。Label1用来显示系统的当前时间；单击命令按钮command1，时钟停止；单击命令按钮command2，时钟继续显示系统的当前时间；单击命令按钮command3，关闭表单。
请在计时器Timer1的过程代码Timer1.Timer()的空白 (1) 处和command1的过程代码command1.Click()的空白 (2) 处，填上适当的代码，将其补充完整，以便得到正确答案，但不得增删原语句。 Timer1的timer过程代码如下： If THISFORM.Label1.Caption !=time( ) THISFORM.Label1.Caption = (1) ENDIF Command1的click事件代码如下： (2) 第八套：
试题一 程序改错题(20分)
gc374.scx的功能是：将一个二进制字符串压缩，其中结果保留该字符串的首字符，然后将连续的0或1用其数目来表示，当遇到不同字符时用“*”表示。
例如：字符串\压缩后为“14*5*9*3*5*4”。请修改程序中2处错误，并调试该程序，使之正确运行，不得增加或删除程序行。
Command1的click事件代码如下： cString=\cResult=LEFT(cString,1) nCount=1 FOR n=2 TO LEN(cString) IF SUBSTR(cString,n,1)=SUBSTR(cString,n-1,1) &&比较前后两个字符是否相同，同则计字符数，否则记* nCount=nCount+1 ELSE cResult=cResult+ALLTRIM(STR(nCount))+\ nCount=nCount+1 ENDIF ENDIF cResult=cResult+ALLTRIM(STR(nCount)) WAIT WINDOWS \压缩后为\试题二 程序填空题(20分)
tk374.scx的功能是：对于数列1,1,2,3,5, 8,??(从第3项开始，每一数列项的值为前2项之和)，求前多少项的和刚好不大于1000。程序中有两处空，请补充完整，使之能正确运行。
在(1)和(2)中填入正确的内容，去掉(1)和(2)符号，使之正确运行，不得增加或删除程序行。
Command1的click事件代码如下： a1=1 a2=1 nSum=a1+a2 &&第1、2项之和 nCount=2 &&项数，初值为2 DO WHILE nSum<=1000 x=(1) &&此处有一空(1) a1=a2 a2=x+a1 nSum=nSum+a2 nCount=nCount+1 ENDDO nCount=(2) &&此处有一空(2) WAIT WINDOWS \前\项的和刚好不大于1000\
第九套：
试题一 属性设置及程序改错题(20分)
gc375.scx表单的功能是：设计一个表单，当单击“加密”按钮时将文本框Text1中的字符串进行加密，加密后的结果显示在文本框Text2中；当单击“退出”按钮时释放表单。初始时表单的标题为“数据加密”，Text2中的内容为只读。 具体要求：
①设置文件文本框Text2和表单的属性。
②在编写的“加密”按钮事件代码和“退出”按钮的事件代码中各有一处错误，请调试改正。
调试改正时，每个事件代码只能改一处，并不得增删语句。
“加密”按钮的click事件代码如下： *加密算法说明: *对输入的每个英文字符(区分大小写)将其向右移动5个位置,其它字符不变 *即a→f,b→g,c→h,??,z→e *结果超过z的向前移，即z→e oldstr=ThisForm.Text1.Value length=len(oldstr) enstr=\