Question

用VB编一个程序计算两个数的平方根?

用两个文本框输入两个数a和b,点击按钮,同时计算a,b的平方根.用一个标输出结果,当任一一个为负数时则给出相应提示如:"负数不能开平方",并计另一个数的平方根给出答案.当两当两数同时为负时也给出相应提示.
请高手将程序代码写给我,谢绝!!

Answer 1

用一个标输出结果???
什么是标啊,我用msgbox输出的...你最后还谢绝,我真服了你的语言表达能力了

Private Sub Command1_Click()
        '计算text1
        If IsNumeric(Text1) Then
                If CLng(Text1) < 0 Then
                        MsgBox "text1 内为负数,不能开方"
                Else
                        MsgBox "text1 开方结果:" & Sqr(CDbl(Text1))
                End If
        Else
                MsgBox "text1 内不是数字"
        End If

        '计算text2
        If IsNumeric(Text2) Then
                If CLng(Text1) < 0 Then
                        MsgBox "text2 内为负数,不能开方"
                Else
                        MsgBox "text2 开方结果:" & Sqr(CDbl(Text2))
                End If
        Else
                MsgBox "text2 内不是数字"
        End If
End Sub

Answer 2

在表单添加两个text，一个按钮和一个label
代码：
Private Sub Command1_Click()
If IsNumeric(Text1) Then
If CLng(Text1) < 0 Then
Label1.Caption = "第一个数为负数，不能开方；"
Else
Label1.Caption = "第一个数的开方为：" & Sqr(CDbl(Text1)) & "；"
End If
Else
Label1.Caption = "第一个不是数字；"
End If

If IsNumeric(Text2) Then
If CLng(Text2) < 0 Then
Label1.Caption = Label1.Caption & "第二个数为负数，不能开方"
Else
Label1.Caption = Label1.Caption & "第二个数的开方为：" & Sqr(CDbl(Text2))
End If
Else
Label1.Caption = Label1.Caption & "第二个不是数字"
End If
End Sub