编辑状态
运行状态
制作如图所示表单。
---------------------------------------------------------------------
设置:
1:设置标签(Label1)的标题为“结构化程序
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
的基本结构是:”,15号宋体,粗体。
2:设置复选框(Check1)的标题为“顺序结构”,11号宋体。
3:设置复选框(Check2)的标题为“递归结构”,11号宋体。
4:设置复选框(Check3)的标题为“分支结构”,11号宋体。
5:设置复选框(Check4)的标题为“循环结构”,11号宋体。
6:设置命令按钮(Command1)的标题为“判断”,9号宋体。
要求:
1:当Check1,Check3,Check4同时被选中时,点击Command1按钮,出现“
答案
八年级地理上册填图题岩土工程勘察试题省略号的作用及举例应急救援安全知识车间5s试题及答案
正确!”消息对话框,
否则出现“答案错误!”消息对话框(提示:用if-else语句完成)。
2:表单整体效果美观,比例合适。
答案:
设置:
1:设置标签(Label1)的标题(caption属性)为“结构化程序设计的基本结构是:”,15号宋体(fontsize设为15,fontname设为宋体),粗体(fontbold为.t.)。
2:设置复选框(Check1)的标题为“顺序结构”,11号宋体。(check1的caption为:顺序结构,fontname为:宋体;fontsize:为15)下面类似
3:设置复选框(Check2)的标题为“递归结构”,11号宋体。
4:设置复选框(Check3)的标题为“分支结构”,11号宋体。
5:设置复选框(Check4)的标题为“循环结构”,11号宋体。
6:设置命令按钮(Command1)的标题为“判断”(caption),9号(fontsize)宋体(fontname)。
要求:
1:当Check1,Check3,Check4同时被选中时,点击Command1按钮,出现“答案正确!”消息对话框,
否则出现“回答错误!”消息对话框(提示:用if-else语句完成)。
2:表单整体效果美观,比例合适。
If thisform.check1.value=1 and thisform.check2.value=0 and thisform.check3.value=1 and ;thisform.check4.value=1
Messagebox(“答案正确!”)
Else
Messagebox(“回答错误!”)
endif
题号:5168
在表单form1中完成如下功能:
1、添加标签label1,字号大小为14,显示文字为“请输入用户名”;
添加标签label2,字号大小为14,显示文字为“请输入密码”;
添加两个文本框text1,text2;
添加按钮command1,字号大小为14,显示文字为“登录”;
添加按钮command2,字号大小为14,显示文字为“退出”。
2、假设正确的用户名为“admin”,密码为“123456”,单击“登录”按钮,
若输入正确,则弹出消息框,显示“欢迎使用本系统”,然后关闭表单;
若输入不正确,则弹出消息框,显示“用户名或密码错误”。
3、文本框text2中输入的密码只能为6位的数字,输入时文本框中只显示相同个数的“*”号。
4、单击“退出”按钮关闭表单。
答案:
1、添加标签label1,字号大小为14(fontsize),显示文字为“请输入用户名”(caption);
添加标签label2,字号大小为14(fontsize),显示文字为“请输入密码” (caption);
添加两个文本框text1,text2;
添加按钮command1,字号大小为14(fontsize),显示文字为“登录” (caption);
添加按钮command2,字号大小为14(fontsize),显示文字为“退出” (caption)。
2、假设正确的用户名为“admin”,密码为“123456”,单击“登录”按钮,
若输入正确,则弹出消息框,显示“欢迎使用本系统”,然后关闭表单;
若输入不正确,则弹出消息框,显示“用户名或密码错误”。
If thisform.text1.value=”admin” and thisform.text2.value=”123456”
Messagebox(“欢迎使用本系统”)
Thisform.release
Else
Messagebox(“用户名或密码错误”)
Endif
3、文本框text2中输入的密码只能为6位的数字(inputmask属性:999999),输入时文本框中只显示相同个数的“*”号(passwordchar属性:*)。
4、单击“退出”按钮关闭表单。
Thisform.release
题号:5122
---------------------------------------------------------------------
运行状态
编辑状态
制作如图所示表单。
---------------------------------------------------------------------
根据下列步骤设计表单form1:
1.添加列表框控件list1,并在列表框中添加数值300,350,400,450
2.编写列表框的Interactivechange事件代码,实现如下功能:当选择
列表框中的某个数值时,改变表单的高度和宽度为该数值。
3.添加1个命令按钮command1,修改其caption属性为'退出',编写其事件代码,其功能是关闭表单。
*注:使用顺序结构编程。
*提示:将字符型数字转换成数值型时使用val()函数,如val(thisform.list1.value)为数值型。
答案:
1.添加列表框控件list1,并在列表框中添加数值300,350,400,450 rowsourcetype: 1-值,rowsource:300,350,400,450
2.编写列表框的Interactivechange事件代码,实现如下功能:当选择
列表框中的某个数值时,改变表单的高度和宽度为该数值。
List1的Interactivechange事件
Thisform.width=val(thisform.list1.value)
Thisform.height=val(thisform.list1.value)
3.添加1个命令按钮command1,修改其caption属性为'退出',编写其事件代码,其功能是关闭表单。
Click事件: Thisform.release
题号:5170
---------------------------------------------------------------------
运行状态
编辑状态
制作如图所示表单。
---------------------------------------------------------------------
根据下列步骤设计表单form1:
1.表单的标题为“设置窗口大小”
2.添加一个选项组控件
3.设置optiongroup1的interactivechange事件代码,实现如下功能:
1)当选择400*400时,设置表单的宽为400,高为400;
2)当选择400*300时,设置表单的宽为400,高为300;
3)当选择300*300时,设置表单的宽为300,高为300;
注:要求用do case ……endcase的循环形式,
4.添加一个退出按钮,单击时退出表单。
答案:
1.表单的标题为“设置窗口大小”
Form1的caption
2.添加一个选项组控件optiongroup1,buttoncount属性:3
3.设置事件代码,实现如下功能:
1)当选择400*400(caption)时,设置表单的宽为400,高为400;
2)当选择400*300(caption)时,设置表单的宽为400,高为300;
3)当选择300*300(caption)时,设置表单的宽为300,高为300;
注:要求用do case ……endcase的循环形式,
4.添加一个退出按钮,单击时退出表单。
Do case
Case thisform.optiongroup1.value=1
Thisform.width=400
Thisform.height=400
Case thisform.optiongroup1.value=2
Thisform.width=400
Thisform.height=300
Case thisform.optiongroup1.value=3
Thisform.width=300
Thisform.height=300
endcase
题号:5095
---------------------------------------------------------------------
运行状态
编辑状态
制作如图所示表单。
---------------------------------------------------------------------
根据下列步骤设计表单'form1':
1.设置表单的caption属性为'四则运算演示'
2.添加列表框控件list1。
3.设置列表框的内容为+,-,*,/。
4.编写列表框的Interactivechange事件代码,实现如下功能:单击列表框(list1)中的;
某个运行符后,表单的原始宽度加或减或乘或除2。(请用do case ...endcase实现。)
(说明:先把表单的宽度赋值给变量xx,再在程序中用xx代表表单的原始宽度。)
5.添加1个命令按钮command1,修改其caption属性为'退出',编写其事件代码,其功能是关闭表单。
答案:
1.设置表单的caption属性为'四则运算演示'
Form1的caption属性 四则运算演示
2.添加列表框控件list1。
3.设置列表框的内容为+,-,*,/(rowsourcetype: 1-值 ,rowsource: +,-,*,/) 。
4.编写列表框的Interactivechange事件代码,实现如下功能:单击列表框(list1)中的;
某个运行符后,表单的原始宽度加或减或乘或除2。(请用do case ...endcase实现。)
(说明:先把表单的宽度赋值给变量xx,再在程序中用xx代表表单的原始宽度。)
List1的interactivechange事件中编写
xx=thisform.width
Do case
Case thisform.list1.value=”+”
Thisform.width=xx+2
Case thisform.list1.value=”-”
Thisform.width=xx-2
Case thisform.list1.value=”*”
Thisform.width=xx*2
Case thisform.list1.value=”/”
Thisform.width=xx/2
endcase
5.添加1个命令按钮command1,修改其caption属性为'退出',编写其事件代码,其功能是关闭表单。
command1的click中
thisform.release
题号:5123
根据下列步骤设计表单form1:
1.设置表单的标题为'颜色设置'
2.添加标签控件label1,显示文字为'可选颜色'。
3.添加组合框控件combo1,设置RowSourceType属性为'1-值',style属性为'2-下拉列表框',
RowSource属性为'红色,绿色,蓝色'。
4.添加标签控件label2,显示文字为'众志成城',字体为楷体,文字大小为45。
5.添加命令按钮command1和command2,显示内容为'确定'、'退出'。
6.分别给command1和command2添加程序代码。以实现如下功能:选定组合框中某种颜色后,
点击'确定'按钮,文字'众志成城'颜色变为相应颜色;点击'退出'按钮,关闭表单。
*提示*
*改变颜色属性(forecolor)即可改变文字的颜色。红色、绿色、蓝色的值分别为
rgb(255,0,0)、rgb(0,255,0)、rgb(0,0,255)。
*运行效果见示例图
答案:
1.设置表单的标题为'颜色设置'caption
2.添加标签控件label1,显示文字为'可选颜色'caption。
3.添加组合框控件combo1,设置RowSourceType属性为'1-值',style属性为'2-下拉列表框',
RowSource属性为'红色,绿色,蓝色'。
4.添加标签控件label2,显示文字为'众志成城'caption,字体为楷体fontsize,文字大小为45fontsize。
5.添加命令按钮command1和command2,显示内容为'确定'caption、'退出'caption。
6.分别给command1和command2添加程序代码。以实现如下功能:选定组合框中某种颜色后,
点击'确定'按钮,文字'众志成城'颜色变为相应颜色;点击'退出'按钮,关闭表单click:thisform.release。
*提示*
*改变颜色属性(forecolor)即可改变文字的颜色。红色、绿色、蓝色的值分别为
rgb(255,0,0)、rgb(0,255,0)、rgb(0,0,255)。
*运行效果见示例图
Command1的click事件
Do case
Case thisform.combo1.value=”红色”
Thisform.label2.forecolor=rgb(255,0,0)
Case thisform.combo1.value=”绿色”
Thisform.label2.forecolor=rgb(0, 255 ,0)
Case thisform.combo1.value=”蓝色”
Thisform.label2.forecolor=rgb(0,0, 255)
endcase