求助一道VB的程序设计题

显示全部楼层 · 2010-6-29 13:45:21

根据直角三角形的两条直角边求直角三角形的面积.
要求:在文本框Text1和Text2中自动输入边长,然后点击计算按钮(cmd1)计算出这个直角三角形的面积,计算结果在标签lab1中显示出来.
在线等~!

千问 · 2010-6-29 13:45:21

Private Sub Command1_Click()
Dim s As Double
Dim x As Double
Dim y As Double
x = Val(Text1.Text)
y = Val(Text2.Text)
s = x * y / 2
Label1.Caption = s
End Sub

千问 · 2010-6-29 13:45:21

private sub cmd1_click()
lab1.caption=sqr(text1.text^2+text2.text^2)end sub

千问 · 2010-6-29 13:45:21

界面和控件自己搞定Option ExplicitPrivate Sub Cmd1_Click()Dim a As Double, b As Doublea = Text1.Textb = Text2.TextLab1.Caption = 0.5 * a * bEnd Sub