西北民族大学VF表单代码题库 下载本文

内容发布更新时间 : 2024/3/29 8:20:16星期一 下面是文章的全部内容请认真阅读。

1. 如样张所示设计一个名为Form1的表单,表单上有两个命令按钮(Command1、

Command2):“计算” 和“退出”,两个文本框(Text1、Text2),三个标签(Label1、Label2、Label3),标签 显示内容分别为:“数学”、“物理”和“总分=”,运行表单,单击“计算”按钮,求出数学和物理的和,并在标签三中输出计算结果;单击“退出”按钮,关闭表单。

计算按钮click事件代码:

s=thisform.text1.value+thisform.text2.value thisform.label3.caption=\总分=\退出按钮click事件代码: Release thisform

如样张所示设计一个名为FORM1的表单,表单上有两个命令按钮(COMMAND1、COMMAND2)分别为: “显示”和“关闭”;三个文本框(TEXT1、TEXT2、TEXT3);四个标签(LABEL1、LABEL2、 LABEL3、LABEL4)分别为:“显示日期为:”、“年”、“月”、“日”,运行表单,单击 “显示”按钮,三个文本框中分别输出系统当前的“年、月、日”;单击“关闭”按钮,关闭表单。

显示:click事件

thisform.text1.value=year(date()) thisform.text2.value=month(date()) thisform.text3.value=day(date()) 退出:release thisform

3.如样张所示设计一个名为FORM1的表单,表单上有两个命令按钮(COMMAND1、COMMAND2)、 两个文本框(TEXT1、TEXT2)和两个标签(LABEL1、LABEL2),按钮标题分别为“计算”和 “关闭”、两个标签分别显示“请输入N的值”,“N!=”字样,两个文本框分别用来接收 输入的N值和输出N!。运行表单,在第一个文本框中输入N的值,单击“计算”按钮计算N!, 并在第二个文框中输出计算结果;单击“关闭”按钮,关闭表单。

计算:

x=val(thisform.text1.value) for i=x-1 to 1 step -1 x=x*i endfor

thisform.text2.value=str(x) return

关闭:release thisform

4. 如样张所示设计一个名为FORM1的表单,表单上有三个标签(LABEL1、LABEL2、LABEL3),标题分别为“选课系统”、“图书管理系统”、“成绩查询系统”,当用鼠标单击任何一个标签时,其他两个标签的标题文本互换。

Label1:click事件

t=thisform.label2.caption

thisform.label2.caption=thisform.label3.caption thisform.label3.caption=t label2: click事件

t=thisform.label1.caption

thisform.label1.caption=thisform.label3.caption thisform.label3.caption=t label3: click事件

t=thisform.label1.caption

thisform.label1.caption=thisform.label2.caption thisform.label2.caption=t

5. 如样张所示设计一个名为FORM1的表单,该表单的功能是:若在TEXT1中输入一个除数(整数), 然后点击'开始'按钮(COMMAND1),就能求出1至200之间能被此除数整除的数之和,并将结果 在TEXT2中输出。单击'清除'按钮(COMMAND2),则清除TEXT1和TEXT2中的内容;单击'退出'按钮(COMMAND3)退出程序。

开始:

x=val(thisform.text1.value) s=0

for i=1 to 200 if i%x=0 s=s+i endif endfor

thisform.text2.value=str(s) 清除:

thisform.text1.value='' thisform.text2.value='' 退出:

release thisform

6. 如样张所示设计一个名为FORM1的表单,该表单的功能是:有两个标签(LABEL1、LABEL2),分别是“小写”和“大写”。在TEXT1中输入一个小写字母,然后点击“转换”按钮(COMMAND1),就能在TEXT2中输出其大写字母。单击“清除”按钮(COMMAND2),则清除TEXT1和TEXT2中的内容;单击“退出”按钮(COMMAND3)退出程序。

转换:click事件

if thisform.text2.value=''

thisform.text2.value=upper(thisform.text1.value) endif

清除:click事件

thisform.text1.value='' thisform.text2.value='' 退出:click事件 release thisform

7.如样张所示设计一个名为FORM1的表单,其中3个控件分别是:标签LABEL1、命令按钮(关闭)COMMAND1、复选框(合格)CHECK1。为COMMAND1编写CLICK事件,当单击该命令按钮时释放该表单;为CHECK1编写INTERACTIVECHANGE事件,当选中该复选框时在LABEL1上显示“继续努力!”字样,否则在LABEL1上不显示任何信息。 命令按钮(关闭)CLICK事件:release thisform CHECK1 INTERACTIVECHANGE事件

if this.value=1

thisform.label1.caption=\继续努力!\

else

thisform.label1.caption=\endif

8.如样张所示设计一个名为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)

thisform.text3.value=str(x,10,2) case y>=12 and y<24 x=x*((1+0.0025)^y)

thisform.text3.value=str(x,10,2) case y>=24 and y<36 x=x*((1+0.0028)^y)

thisform.text3.value=str(x,10,2) case y>=36

x=x*((1+0.0032)^y)

thisform.text3.value=str(x,10,2) otherwise

thisform.text3.value='存期必须大于等于0' endcase return

9.如样张所示设计一个表单,表单名FORM1。要求窗体标题为“交换任意两个数”,添加两个 标签LABEL1和LABEL2,标题文本分别改为“第一个数”和“第二个数”;添加两个文本框 TEXT1和TEXT2,用来分别显示输入的第一个数和第二个数;添加两个命令按钮COMMAND1和 COMMAND2,标题文本分别改为“交换”和“退出”,当单击“交换”按钮时两个文本框中的内容相互交换,当单击“退出”按钮时退出表单运行界面。 COMMAND1 CLICK事件

t=thisform.text2.value

thisform.text2.value=thisform.text1.value thisform.text1.value=t

COMMAND2 CLICK事件

Release thisform

10.如样张所示设计一个表单,表单名为FORM1。要求添加两个文本框TEXT1和 TEXT2,用来分别显示输入的字符串和反向显示的原字符串;添加两个命令按钮COMMAND1和 COMMAND2,标题文本分别改为“反串显示”和“退出”,先在第一个文本框中输入字符,然 后单击“反串显示”按钮,这时在第二个文本框中反向显示输入的原字符串,当单击“退出” 按钮时退出表单运行界面。