还有3题啊!! 1、二、编制一个表单,实现在文本框中输入一个起始数,则在编辑框中显示20个从起始位置开始
1、二、编制一个表单,实现在文本框中输入一个起始数,则在编辑框中显示20个从起始位置开始并且是3的倍数正整数,而且要求这20个数字的个位数都是3,利用标签输入这20个数的...
1、二、编制一个表单,实现在文本框中输入一个起始数,则在编辑框中显示20个从起始位置开始并且是3的倍数正整数,而且要求这20个数字的个位数都是3,利用标签输入这20个数的和。
2、设计一个表单,用于判断用户任意输入的3个正整数能否构成三角形,如果能,则求出此三角形的面积并利用标签进行显示输出。
3、设计一个可以设置文本框中字体格式的表单。表单运行界面如图。
要求:(1)选中一个选项按钮,则文本框中的文字设为相应字体;(2)复选框选中,则文本框中的字体设为相应的字形格式;复选框处于不选中状态,取消文本框中相应的字形格式。(注意:复选框外加了一个形状控件,只起到装饰作用,每个复选框都是独立的,比较与选项按钮组的不同。) 展开
2、设计一个表单,用于判断用户任意输入的3个正整数能否构成三角形,如果能,则求出此三角形的面积并利用标签进行显示输出。
3、设计一个可以设置文本框中字体格式的表单。表单运行界面如图。
要求:(1)选中一个选项按钮,则文本框中的文字设为相应字体;(2)复选框选中,则文本框中的字体设为相应的字形格式;复选框处于不选中状态,取消文本框中相应的字形格式。(注意:复选框外加了一个形状控件,只起到装饰作用,每个复选框都是独立的,比较与选项按钮组的不同。) 展开
展开全部
没有图
追问
1
追答
2、三个文本框都要点右键-生成器,将类型设为"数值型",按钮加上代码:
a=thisform.text1.value
b=thisform.text2.value
c=thisform.text3.value
if a+b>c and a+c>b and b+c>a
p=(a+b+c)/2
s=sqrt(p*(p-a)*(p-b)*(p-c))
thisform.label1.caption=alltrim(str(s))
else
messagebox("不能组成三角形")
endif
3、要有图才能做
来自:求助得到的回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询