VB.NET为用户提供了Math.Sqrt函数用于计算平方根值,但被开方值若为负数则无法得出正确的结果（如,-4的平方根应等于2i）.要求设计一个Function过程解决这一问题.（按钮“计算”和“清除”的Nam
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/26 12:04:16
VB.NET为用户提供了Math.Sqrt函数用于计算平方根值,但被开方值若为负数则无法得出正确的结果（如,-4的平方根应等于2i）.要求设计一个Function过程解决这一问题.（按钮“计算”和“清除”的Nam
VB.NET为用户提供了Math.Sqrt函数用于计算平方根值,但被开方值若为负数则无法得出正确的结果（如,-4的平方根应等于2i）.要求设计一个Function过程解决这一问题.（按钮“计算”和“清除”的Name属性分别为Button1和Button2,文本框的Name的属性为Textbox1,两个标签的属性为Label1,label2）程序运行结果如下图所示：
Public Class Form1
Sub myclear()
TextBox1.Text = ""
TextBox1.Focus()
Label2.Text = ""
End Sub
Function mysqr(ByVal num)
If num >= 0 Then
5
Else
6
End If
End Function
Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
myclear()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
Label2.Text = 7
8 ' 居中显示
End Sub
Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click
9
End Sub
End Class
VB.NET为用户提供了Math.Sqrt函数用于计算平方根值,但被开方值若为负数则无法得出正确的结果（如,-4的平方根应等于2i）.要求设计一个Function过程解决这一问题.（按钮“计算”和“清除”的Nam
5 return strt（num）
6 return strt(-num) & i
7 mysqr(val(textbox1.text))
8 label2..TextAlign =HorizontalAlignment.Center
9 myclear()
问题不是很简单吗？
判断输入的数,大于等于零,则直接开方;小于零则取绝对值开方再加上字符"i",代码我就不写了.