Question

还有3题啊！！ 1、二、编制一个表单，实现在文本框中输入一个起始数，则在编辑框中显示20个从起始位置开始

1、二、编制一个表单，实现在文本框中输入一个起始数，则在编辑框中显示20个从起始位置开始并且是3的倍数正整数，而且要求这20个数字的个位数都是3，利用标签输入这20个数的和。
2、设计一个表单，用于判断用户任意输入的3个正整数能否构成三角形，如果能，则求出此三角形的面积并利用标签进行显示输出。
3、设计一个可以设置文本框中字体格式的表单。表单运行界面如图。

要求：（1）选中一个选项按钮，则文本框中的文字设为相应字体；（2）复选框选中，则文本框中的字体设为相应的字形格式；复选框处于不选中状态，取消文本框中相应的字形格式。（注意：复选框外加了一个形状控件，只起到装饰作用，每个复选框都是独立的，比较与选项按钮组的不同。）

Answer 1

没有图

追问

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、要有图才能做

Answer 2

private sub command1_click()
if text1.text="张三" and text2.text="12345" then
msgbox "登陆成功"
else
msgbox "用户或口令不对，请重新输入"
end if
end sub