VisualFoxPro表单设计及答案

四、VF窗体设计共2题（共计45分）
第1题（15.0分）题号:8
如样张所示设计一个名为Form1的表单，表单上有三个标签（Label1、Label2、Label3），标题分别为“选课系统”、“图书管理系统”、“成绩查询系统”，当用鼠标单击任何一个标签时，其他两个标签的标题文本互换。

Label1:t=bel2.caption bel2.caption=bel3 .caption
bel3.caption=t
label2:t=bel1.caption bel1.caption=bel3 .caption
bel3.caption=t
label3:t=bel1.caption bel1.caption=bel2 .caption
bel2.caption=t
第2题（15.0分）题号:32
如样张所示设计一个名为Form1的表单，包含一个文本框控件text1和两个按钮command1和command2，按钮的标题分别是“加一操作”和“减一操作”，文本框初始值为0，当单击一次“加一操作”按钮时，文本框中的数值加1。

当单击一次“减一操作”按钮时，文本框中的数值减1。

*Text1:过程 Init
this.value=0
*加一操作
x=thisform.text1.value
thisform.text1.value=x+1
*减一操作
x=thisform.text1.value
thisform.text1.value=x-1
第3题（15.0分）题号:16
如样张所示设计一个名为Form1的表单，有三个标签（Label1、Label2、Label3），分别为金额、存期、到期本息和。

三个文本框（Text1、Text2、Text3）要求根据用户输入的存款额和存期（月），单击“计算”按钮（Command1），显示到期后应得的本息和。

当存期小于12时，利息为1.8‰；当存期大于等于12小于24时，利息为2.5‰；当存期大于等于24小于36时，利息为2.8‰；当存期大于等于36时，利息为3.2‰，计算结果保留两位小数。

*计算
x=val(thisform.text1.value)
y=val(thisform.text2.value)
do case
case y<12 and y>=0
x=x*((1+0.0018)^y)
t hisform.text3.value=str(x,10,2)
case y<24 and y>=12
x=x*((1+0.0025)^y)
t hisform.text3.value=str(x,10,2)
case y<36 and y>=24
x=x*((1+0.0028)^y)
t hisform.text3.value=str(x,10,2)
case y>=36
x=x*((1+0.0032)^y)
t hisform.text3.value=str(x,10,2)
otherwise
t hisform.text3.value='存期必须大于等于0'
endcase
return
第4题（15.0分）题号:30
如样张所示设计一个名为Form1的表单，要求窗体标题为“邮件发送界面”，添加三个标签控件（Label1,Label2,Label3）,标题文本分别是“收件人”，“邮件主题”，“邮件正文”，添加两个文本框控件（text1,text2），一个列表框（List1）。

再添加两个按钮（command1,command2），标题文本分别是“发送”、“退出”。

当用户点击发送按钮时，弹出一个对话框，内容为“你是否确定发送？”。

当点击退出按钮时，退出表单。

*发送
messagebox('你是否确定发送？')
*退出
release thisform
第5题（15.0分）题号:12
如样张所示设计一个名为Form1的表单，该表单的功能是：有两个标签（Label1、Label2），分别是“小写”和“大写”。

在TEXT1中输入一个小写字母，然后点击“转换”按钮（Command1），就能在TEXT2中输出其大写字
母。

单击“清除”按钮（Command2），则清除TEXT1和TEXT2中的内容；单击“退出”按钮（Command3）退出程序。

*转换
if thisform.text2.value=''
thisform.text2.value=upper(thisform .text1.value)
endif
*清除
thisform.text1.value=''
thisform.text2.value=''
*退出
release thisform
第6题（15.0分）题号:22
如样张所示设计一个名称为Form1的表单,求100到500之间能被28整除的数，要求表单上有一个标签（Label1），一个编辑框（Edit1）和两个命令按钮（Command1、Command2），标签的标题属性为“100到500之间能被28整除的数：”，两个按钮的标题属性分别为“开始”和“退出”。

运行表单时，通过开始按钮控制，在编辑框显示输出结果，点击退出按钮结束表单运行。

*开始
for x=100 to 500
if mod(x,28)=0
thisform.edit1.value=thisform.edit1 .value+str(x)
endif
endfor
*退出
release thisform
第7题（15.0分）题号:28
如样张所示设计一个名为Form1的表单，要求添加一个标签label1，标题文本改为“今天是”；添加一个文本框text1，用来显示系统当前的日期所对应的年份；要求添加一个标签label2，标题文本改为“年”；添加一个文本框text2，用来显示系统当前的日期对应的月份；要求添加一个标签label3，标题文本改为“月”；要求添加一个标签label4，标题文本改为“日”；添加一个文本框text3，用来显示系统当前的日期对应的日期；添加一个命令按钮command1，标题文本改为“显示”，当单击（click）此按钮时文本框会按要求显示；添加一个命令按钮command2，标题文本改为“退出”，当单击（click）此按钮时关闭当前表单。

*显示
thisform.text1.value=year(date()) thisform.text2.value=month(date()) thisform.text3.value=day(date())
*退出
release thisform
第8题（15.0分）题号:24
如样张所示设计一个名称为Form1的登陆界面表单，要求表单上有两个标签（Label1、Label2），一个文本框（Text1）和一个命令按钮（Command1），两个标签的标题属性分别为“请输入登陆密码”和“ ”，命令按钮的标题属性为“关闭”。

运行表单，当文本框输入正确密码“123456”时，第二个标签的标题属性由空值变为“欢迎使用”，当文本框输入为非上述密码时，第二个标签的标题属性由空值变为“对不起，密码错误”。

点击关闭按钮结束表单运行。

（注意：设置文本框的passwordchar属性为*，使输入密码隐藏）
*text1
if thisform.text1.value='123456'
bel2.caption='欢迎使用!' else
bel2.caption='对不起，密码错误!'
endif
*关闭
release thisform
第9题（15.0分）题号:6
如样张所示设计一个名为Form1的表单，表单上有两个命令按钮（Command1、Command2）、两个文本框（Text1、Text2）和两个标签（Label1、Label2），按钮标题分别为“计算”和“关闭”、两个标签分别显示“请输入N的值”，“N！=”字样，两个文本框分别用来接收输入的N值和输出N！。

运行表单，在第一个文本框中输入N的值，单击“计算”按钮计算N！，并在第二个文框中输出计算结果；单击“关闭”按钮，关闭表单。

*计算
x=val(thisform.text1.value)
for i=i-1 to 1 step -1
x=x*i
endfor
thisform.text2.value=str(x)
return
*关闭
release thisform
第10题（15.0分）题号:20
如样张所示设计一个表单，表单名为Form1。

要求添加两个文本框text1和text2，用来分别显示输入的字符串和反向显示的原字符串；添加两个命令按钮command1和command2，标题文本分别改为“反串显示”和“退出”，先在第一个文本框中输入字符，然后单击“反串显示”按钮，这时在第二个文本框中反向显示输入的原字符串，当单击“退出”按钮时退出表单运行界面。

*反串显示
x=thisform.text1.value
k=len(thisform.text1.value)
m=""
for i=k to 1 step -1
m=m+substr(x,i,1)
endfor
thisform.text2.value=m
*退出
release thisform
第11题（15.0分）题号:26
如样张所示设计表单，文件名为Form1，其中表单标题为“大小写转化”；文本框控件TEXT1实现数据的录入；文本框控件TEXT2完成结果的显示；“转化为小写”按钮（Command1）实现将TEXT1中的内容转为为小写在TEXT2中显示；“转化为大写”按钮（Command2）实现将TEXT1中的内容转为为大写在TEXT2中显示；“退出”按钮（Command3），能实现退出功能。

第13题（15.0分）题号:10
如样张所示设计一个名为Form1的表单，该表单的功能是：若在TEXT1中输入一个除数（整数），然后点击＇开始＇按钮（Command1），就能求出1至200之间能被此除数整除的数之和，并将结果在TEXT2中输出。

单击＇清除＇按钮（Command2），则清除TEXT1和TEXT2中的内容；单击＇退出＇按钮（Command3）退出程序。

友情提示：部分文档来自网络整理，供您参考！文档可复制、编制，期待您的好评与关注！。