VF期末考试题表单代码

1表单代码题号:8标签互换如样张所示设计一个名为Form1的表单，表单上有三个标签（Label1、Label2、Label3），标题分别为“选课系统”、“图书管理系统”、“成绩查询系统”，当用鼠标单击任何一个标签时，其他两个标签的标题文本互换。Label1：t=thisform.label2.captionthisform.label2.caption=thisform.label3.captionthisform.label3.caption=tlabel2:t=thisform.label1.captionthisform.label1.caption=thisform.label3.captionthisform.label3.caption=tlabel3:t=thisform.label1.captionthisform.label1.caption=thisform.label2.captionthisform.label2.caption=t题号:12（大小写改换）如样张所示设计一个名为Form1的表单，该表单的功能是：有两个标签（Label1、Label2），分别是“小写”和“大写”。在TEXT1中输入一个小写字母，然后点击“转换”按钮（Command1），就能在TEXT2中输出其大写字母。单击“清除”按钮（Command2），则清除TEXT1和TEXT2中的内容；单击“退出”按钮（Command3）退出程序。转换：ifthisform.text2.value=''thisform.text2.value=upper(thisform.text1.value)endif清除：thisform.text1.value=''thisform.text2.value=''退出：releasethisform题号:16（存款本息和）如样张所示设计一个名为Form1的表单，有三个标签（Label1、Label2、Label3），分别为金额、存期、到期本息和。三个文本框（Text1、Text2、Text3）要求根据用户输入的存款额和存期（月），单击“计算”按钮（Command1），显示到期后应得的本息和。当存期小于12时，2利息为1.8‰；当存期大于等于12小于24时，利息为2.5‰；当存期大于等于24小于36时，利息为2.8‰；当存期大于等于36时，利息为3.2‰，计算结果保留两位小数。计算：x=val(thisform.text1.value)y=val(thisform.text2.value)docasecasey12andy=0x=x*((1+0.0018)^y)thisform.text3.value=str(x,10,2)casey=12andy24x=x*((1+0.0025)^y)thisform.text3.value=str(x,10,2)casey=24andy36x=x*((1+0.0028)^y)thisform.text3.value=str(x,10,2)casey=36x=x*((1+0.0032)^y)thisform.text3.value=str(x,10,2)otherwisethisform.text3.value='存期必须大于等于0'endcasereturn题号:30如样张所示设计一个名为Form1的表单，要求窗体标题为“邮件发送界面”，添加三个标签控件（Label1,Label2,Label3）,标题文本分别是“收件人”，“邮件主题”，“邮件正文”，添加两个文本框控件（text1,text2），一个列表框（List1）。再添加两个按钮（command1,command2），标题文本分别是“发送”、“退出”。当用户点击发送按钮时，弹出一个对话框，内容为“你是否确定发送？”。当点击退出按钮时，退出表单。发送：messagebox('你是否确定发送？')退出：releasethisform题号:32（加一减一运算）如样张所示设计一个名为Form1的表单，包含一个文本框控件（text1）和两个按钮（command1和command2），按钮的标题分别是“加一操作”和“减一操作”，文本框初始值为0，当单击一次“加一操作”按钮时，文本框中的数值加1。当单击一次“减一操作”按钮时，文本框中的数值减1。Text1:过程：initthis.value=03加一操作：x=thisform.text1.valuethisform.text1.value=x+1减一操作：x=thisform.text1.valuethisform.text1.value=x-1题号: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())退出：releasethisform题号:24（登录界面）如样张所示设计一个名称为Form1的登陆界面表单，要求表单上有两个标签（Label1、Label2），一个文本框（Text1）和一个命令按钮（Command1），两个标签的标题属性分别为“请输入登陆密码”和“”，命令按钮的标题属性为“关闭”。运行表单，当文本框输入正确密码“123456”时，第二个标签的标题属性由空值变为“欢迎使用”，当文本框输入为非上述密码时，第二个标签的标题属性由空值变为“对不起，密码错误”。点击关闭按钮结束表单运行。（注意：设置文本框的passwordchar属性为*，使输入密码隐藏）Text1:ifthisform.text1.value='123456'thisform.label2.caption='欢迎使用!'elsethisform.label2.caption='对不起，密码错误!'endif关闭：releasethisform题号:6（n的阶乘）如样张所示设计一个名为Form1的表单，表单上有两个命令按钮（Command1、Command2）、两个文本框（Text1、Text2）和两个标签（Label1、Label2），按钮标题分别为“计算”和“关闭”、两个标签分别显示“请输入N的值”，“N！=”字样，两个文本框分别用来接收4输入的N值和输出N！。运行表单，在第一个文本框中输入N的值，单击“计算”按钮计算N！，并在第二个文框中输出计算结果；单击“关闭”按钮，关闭表单。计算：x=val(thisform.text1.value)fori=x-1to1step-1x=x*iendforthisform.text2.value=str(x)return关闭：releasethisform题号:20（反串显示）如样张所示设计一个表单，表单名为Form1。要求添加两个文本框text1和text2，用来分别显示输入的字符串和反向显示的原字符串；添加两个命令按钮command1和command2，标题文本分别改为“反串显示”和“退出”，先在第一个文本框中输入字符，然后单击“反串显示”按钮，这时在第二个文本框中反向显示输入的原字符串，当单击“退出”按钮时退出表单运行界面。反串显示：x=thisform.text1.valuek=len(thisform.text1.value)m=fori=kto1step-1m=m+substr(x,i,1)endforthisform.text2.value=m退出：releasethisform题号:10（求出1至200之间能被此除数整除的数之和）如样张所示设计一个名为Form1的表单，该表单的功能是：若在TEXT1中输入一个除数（整数），然后点击＇开始＇按钮（Command1），就能求出1至200之间能被此除数整除的数之和，并将结果在TEXT2中输出。单击＇清除＇按钮（Command2），则清除TEXT1和TEXT2中的内容；单击＇退出＇按钮（Command3）退出程序。开始：x=val(thisform.text1.value)s=0fori=1to200ifi%x=05s=s+iendifendforthisform.text2.value=str(s)清除：thisform.text1.value=''thisform.text2.value=''退出：releasethisform题号22（100到500之间能被28整除的数）如样张所示设计一个名称为Form1的表单,求100到500之间能被28整除的数，要求表单上有一个标签（Label1），一个编辑框（Edit1）和两个命令按钮（Command1、Command2），标签的标题属性为“100到500之间能被28整除的数：”，两个按钮的标题属性分别为“开始”和“退出”。运行表单时，通过开始按钮控制，在编辑框显示输出结果，点击退出按钮结束表单运行。开始：k=0forx=100to500ifmod(x,28)=0thisform.edit1.value=thisform.edit1.value+str(x,5)k=k+1ifmod(k,5)=0thisform.edit1.value=thisform.edit1.value+chr(13)endifendifendfor结束：releasethisform补充程序设计题目：从键盘上任意输入2个数，然后将这2个数从大到小显示输*出。（注：中间变量用t，不允许使用max（）函数和min（）*函数）。*请按照题目要求，在下面编写程序代码。*-------------------------------------------------------INPUT输入第1个数：TOn1INPUT输入第2个数：TOn2**********Program**********6答案：IFn1n2t=n1n1=n2n2=t**********End**********ENDIF?n1,n2RETURN*【程序设计】*-------------------------------------------------------*题目：求自然数1至100的和并输出。请将下列程序填写完整。*（用DOWHILE语句）*请按照题目要求，在下面编写程序代码。*-------------------------------------------------------SETTALKOFFS=0I=1**********Program**********答案：DOWHILEI=100S=S+II=I+1ENDDO**********End**********?SSETTALKONRETURN*题目：求S=1!+2!+…+N!。*（提示：利用FOR循环语句实现,i为循环始值变量），将*下列程序填完整。*请按照题目要求，在下面编写程序代码。*-------------------------------------------------------Clears=1y=0input请输入N的值ton**********Program**********fori=1tons=s*iy=y+s7endfor**********End**********?yReturn*题目：从键盘