VFP习题(全) - 大字体

内容发布更新时间 : 2024/11/13 3:39:15星期一 下面是文章的全部内容请认真阅读。

procedure sub3 k=k*k return

77.阅读程序,写出运行结果 set talk off clear a=1 b=10

do while a<5 c=1 do while c<=2*a-1 @ a,b say “*” c=c+1 b=b+1 enddo b=10 a=a+1

——33——

enddo

set talk on return

78.阅读程序,写出运行结果 SET TALK OFF I=1 X=0

DO WHILE I<=4

X=X+I I=I+1 ENDDO ?X

SET TALK ON

79.

——34——

如图所示,文字”计算机”所在的文本框为TEXT1,字符”*”所在下拉列表框为COMBO1,右侧文本框为TEXT2,按钮”=>”CLICK事件中的代码如下: a=trim(thisform.text1.value) store thisform.combo1.value to b,c for n=1 to len(a) step 2 c=c+substr(a,n,2)+b if n!=len(a)-1

——35——

c=c+b endif endfor

thisform.text2.value=c

保持表单中各控件内容不变,点击”=>”按钮,写出文本框TEXT2中显示的内容。

80.

如图所示:文字”拼音ABC”所在文本框为TEXT1,文字””智能”所在文本框为TEXT2,按钮”=>”的CLICK事件中代码如下:

——36——

If len(thisform.text1.value)!=0 thisform.text2.value=thisform.text2.value+subs(thisform.text1.value,1,2) thisform.text1.value=subs(thisfor.text1.value,3) endif

保持TEXT1和TEXT2中的文字不变,点击”=>”按钮3次后,写出TEXT1和TEXT2中的文字。

——37——

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4 ceshi