求VB计算长方形的周长和面积编程
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/10 22:29:09
求VB计算长方形的周长和面积编程
长方形的周长和面积编程
长方形的周长和面积编程
你只需要编程么?
Private Sub Command1_Click()
If Val(Text1.Text) > 0 And Val(Text2.Text) > 0 Then
Label1.Caption = "长方形的面积为:" & Val(Text1.Text) * Val(Text2.Text)
Label2.Caption = "长方形的周长为:" & 2 * (Val(Text1.Text) + Val(Text2.Text))
Else
MsgBox "您输入的数据不规范,请重新输入!",,"提示"
End If
End Sub 再答: 我的答案保证了边长的符号
再问: 你这个复杂了,我比较喜欢简单点的,不过我编好,如下: TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text) TextBox4.Text = 2 * (Val(TextBox1.Text) + Val(TextBox2.Text))
再答: 但是 你这个 如果我输入的数字是负数或者 符号呢
再问: 可以哈,不信你试试。。。
再答: 没法,我开始就是这样的啊!
Private Sub Command1_Click()
If Val(Text1.Text) > 0 And Val(Text2.Text) > 0 Then
Label1.Caption = "长方形的面积为:" & Val(Text1.Text) * Val(Text2.Text)
Label2.Caption = "长方形的周长为:" & 2 * (Val(Text1.Text) + Val(Text2.Text))
Else
MsgBox "您输入的数据不规范,请重新输入!",,"提示"
End If
End Sub 再答: 我的答案保证了边长的符号
再问: 你这个复杂了,我比较喜欢简单点的,不过我编好,如下: TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text) TextBox4.Text = 2 * (Val(TextBox1.Text) + Val(TextBox2.Text))
再答: 但是 你这个 如果我输入的数字是负数或者 符号呢
再问: 可以哈,不信你试试。。。
再答: 没法,我开始就是这样的啊!