第一范文网 - 专业文章范例文档资料分享平台

VFP习题(全) - 大字体

来源:用户分享 时间:2025/5/29 0:35:29 本文由loading 分享 下载这篇文档手机版
说明:文章内容仅供预览,部分内容可能不全,需要完整文档或者需要复制内容,请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ:xxxxxx 处理(尽可能给您提供完整文档),感谢您的支持与谅解。

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——

搜索更多关于: VFP习题(全) - 大字体 的文档
VFP习题(全) - 大字体.doc 将本文的Word文档下载到电脑,方便复制、编辑、收藏和打印
本文链接:https://www.diyifanwen.net/c4emm10g4wh55mbv22qre_9.html(转载请注明文章来源)
热门推荐
Copyright © 2012-2023 第一范文网 版权所有 免责声明 | 联系我们
声明 :本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
客服QQ:xxxxxx 邮箱:xxxxxx@qq.com
渝ICP备2023013149号
Top