11表单练习

11练习题

题号：4829

--------------------------------------------------------------------- 编辑状态

运行状态

--------------------------------------------------------------------- 设置：

1、设置表单名称为“Form1”，标题为“文字”。属性：caption

2、设置文本框名称为“Text1”。

3、设置复选框(Check1)的标题为“斜体”。属性：caption

设置复选框(Check2)的标题为“粗体”。属性：caption

4、设置按钮(Command1)的标题为“清除”。属性：caption

要求：

1、表单标题为“文字”，表单内控件如图中所示。

(2)选中“斜体”复选框时，文字变为斜体，选中“粗体”复选框时，文字为粗体。

check1.Click代码

if thisform.check1.value=1 thisform.text1.fontitalic=.t. endif

if thisform.check1.value=0 thisform.text1.fontitalic=.f. endif check2.Click代码

if thisform.check2.value=1

thisform.text1.fontbold=.t. endif

if thisform.check2.value=0

thisform.text1.fontbold=.f. endif

(3)单击“清除”按钮时，清除文本框中的文字。“清除”按钮Click代码编码：

thisform.text1.value=""

题号：5198

设置：

1：设置标签(Label1)的标题为“结构化程序设计的基本结构是：”，15号宋体，粗体。

属性：caption fontsize fontbold

2：设置复选框(Check1)的标题为“顺序结构”，11号宋体。

3：设置复选框(Check2)的标题为“递归结构”，11号宋体。

4：设置复选框(Check3)的标题为“分支结构”，11号宋体。

5：设置复选框(Check4)的标题为“循环结构”，11号宋体。

6：设置命令按钮(Command1)的标题为“判断”，9号宋体。

要求：

1：当Check1，Check3，Check4同时被选中时，点击Command1按钮，出现“答案正确！”消息对话框，

否则出现“答案错误！”消息对话框(提示：用if-else语句完成)。

“判断”按钮Click代码编码：

if thisform.check1.value=1 and thisform.check3.value=1 and thisform.check4.value=1 and thisform.check2.value=0

messagebox("回答正确！")

else

messagebox(“回答错误！”)

endif

题号：5168

在表单form1中完成如下功能：属性：caption fontsize

1、添加标签label1，字号大小为14，显示文字为“请输入用户名”；

添加标签label2，字号大小为14，显示文字为“请输入密码”；

添加两个文本框text1，text2；

添加按钮command1，字号大小为14，显示文字为“登录”；

添加按钮command2，字号大小为14，显示文字为“退出”。

2、假设正确的用户名为“admin”，密码为“123456”，单击“登录”按钮，

若输入正确，则弹出消息框，显示“欢迎使用本系统”，然后关闭表单；

若输入不正确，则弹出消息框，显示“用户名或密码错误”。

“登录”按钮Click代码编码：

if thisform.text1.value="admin" and thisform.text2.value="123456"

messagebox("欢迎使用本系统")

thisform.release

else

messagebox("用户名或密码错误.")

endif

3、文本框text2中输入的密码只能为6位的数字，输入时文本框中只显示相同个数的“*”号。

Inputmask 999999 Passwordchar *

4、单击“退出”按钮关闭表单。

“退出”按钮Click代码编码：

thisform.release

根据下列步骤设计表单form1:

1.添加列表框控件list1，并在列表框中添加数值300,350,400,450

RowSourece 300,350,400,450

RowSoureceType 1—值

2.编写列表框的Interactivechange事件代码，实现如下功能：当选择

列表框中的某个数值时，改变表单的高度和宽度为该数值。

列表框Interactivechange事件编码：

thisform.width=val(thisform.list1.value)

3.添加1个命令按钮command1,修改其caption属性为＇退出＇，编写其事件代码，其功能是关闭表单。

“退出”按钮Click代码编码：

thisform.release

*注：使用顺序结构编程。

*提示：将字符型数字转换成数值型时使用val()函数，如val(thisform.list1.value)为数值型。

题号：5118

设置：

1：设置表单名称为“Form1”，标题为“Form1”。

2：设置标签(Label1)的标题为“请输入文本内容”。

3：设置标签(Label2)的标题为“请选择字体”。

4：设置文本框控件的名称为“Text1”。

5：设置选项按钮组的名称为“Optiongroup1”。buttonCount 4

设置选项按钮组中的按钮(Option1)的标题为“宋体”，16号字体。

设置选项按钮组中的按钮(Option2)的标题为“隶书”，16号字体。

设置选项按钮组中的按钮(Option3)的标题为“黑体”，16号字体。

设置选项按钮组中的按钮(Option4)的标题为“楷体”，16号字体。

要求：

1：单击选项按钮组中的按钮改变文本框中的字体。

optiongroup1选项组Click代码

do case

case thisform.optiongroup1.value=1

thisform.text1.fontname="宋体"

case thisform.optiongroup1.value=2

thisform.text1.fontname="隶书"

case thisform.optiongroup1.value=3

thisform.text1.fontname="黑体"

otherwise

thisform.text1.fontname="楷体"

endcase