表单设计练习

《表单设计练习》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、表单设计表单设计是我们的考试的重点，复习课件的表单设计及应用部分，考试时要求学生熟练的写出事件中的代码。举例：1.标准邮费为0.05元/克，超出100克后，超出部分按0.1元收费。设计“邮费收取”表单，计算邮费，结果显示在文本框中。“计算”command1.Click代码g=thisform.text1.valueifg<=100Cost=0.05*gelseCost=0.05*100+(g-100)*0.1endifthisform.text2.value=Cost在Form1的Init事件中初始化：Thisform.text1.value=0This

2、form.text2.value=0（注意text1，text2的数据类型）2．计算阶乘表单。表单中输入阶乘终值，单击“计算”按钮，text2显示计算结果；单击“重置”按钮，清除text1、text2中的内容，使焦点回到text1，以便重新输入。9提示：初始设置txet2.enabled=.f.Text2属性设置为：Enabled=.F.command1.Click代码：thisform.text2.enabled=.t.y=1fori=1TOthisform.text1.valuey=y*iendforthisform.text2.value=ythi

3、sform.text1.setfocuscommand2.Click代码：thisform.text1.value=0thisform.text2.value=09thisform.text2.enabled=.f.thisform.text1.setfocus3．如下图所示，用标签、文本框、命令按扭构成一个表单Form1。在文本框中单击左键将显示当前系统日期，单击右键将显示当前系统时间；单击“清除”按钮，文本框中的结果将被清除；单击“退出”按钮，将退出表单的运行。“清除”按钮的CLICK事件代码是```Thisform.text1.value；“退出”

4、按钮的CLICK事件代码是thisform.release；文本框的CLICK事件代码是this.value=date0，而RightClick的事件代码是this.value=time0。答案：Thisform.text1.value=””thisform.releasethis.value=date()RightClickthis.value=time()94.如图(a)(b)所示的表单，用户分别在Text1和Text2中输入初值和终值，单击“计算”按钮可计算出初值和终值之间连续整数的和，结果显示于Text3中。如：输入12和15，可计算出12+13

5、+14+15的和。表单运行时Text3不可用，当单击“计算”按钮，Text3成为可用文本框并显示结果；单击“清除”按钮，将三个文本框的内容清零，同时Text3重新置为不可用。请完成下面的设计。Text1Text2Text3（b）(a)表单设计步骤如下：l在空白表单上加入三个标签、三个文本框和三个命令按钮，它们的Name属性均取系统默认值。表单、标签、按钮的Caption属性如图。l表单的Init事件代码：Thisform.text1.Value=0Thisform.text2.Value=0Thisform.text3.Value=0Thisform.t

6、ext3.Enabled=.f.l“计算”按钮的Click代码：9x=Thisform.text1.Valuey=Thisform.text2.ValueThisform.Text3.Enable=.t.S=0Fori=xToyS=S+iEngforThisform.Text.Value=S①l“清除”按钮Click事件代码：Thisform.Text1.Value=0lThisform.Text2.Value=0lThisform.Text3.Value=0lThisform.Text1.SetfocuslThis.Text3.Enable=f②l“退

7、出”按钮Click事件代码：Thisform.Release③②Thisform.Text1.Value=0Thisform.Text2.Value=0Thisform.Text3.Value=09Thisform.Text1.SetfocusThisform.Text3.Enabled=.f.③Thisform.Release5、设计一个能够浏览或编辑3个数据表（Xsjbxx，cj，kc）的表单。用户可选择其中一个数据表，并且选定是否能够对表中数据进行编辑，然后单击“确定”按钮，浏览或编辑该表中的数据。通过数据环境添加三个表：Xsjbxx,cj,kc;

8、“确定”按钮的Click事件中加入：ifthisform.check1.valu