控件工具栏在哪
如果没有出现的话,可以在View菜单中选择ToolBox
表单在哪
如果没有出现的话,可以在View菜单中选择Object
第三个标签按照你的意思应该是“周长”吧Private
Sub
Command1_Click()
Text3.Text
=
(Val(Text1.Text)
+
Val(Text2.Text))
*
2
End
Sub
Private
Sub
Form_Load()
Me.Caption
=
"计算四边形周长"
Label1.Caption
=
"长"
Label2.Caption
=
"宽"
Label3.Caption
=
"周长"
End
Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)