内容发布更新时间 : 2024/12/25 14:26:49星期一 下面是文章的全部内容请认真阅读。

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，标题文本分别改为“反串显示”和“退出”，先在第一个文本框中输入字符，然 后单击“反串显示”按钮，这时在第二个文本框中反向显示输入的原字符串，当单击“退出” 按钮时退出表单运行界面。