VB编程中根号怎么表示

是用(-b+-spr(b^-4ac))/2a算的吧那就这样：dimresultassingleresult=spr(b^-4ac)ifresult=0thenprint"念行x1=x2="&-b/2aelseifint(result)=resultthenprint"x1="&(-b-spr(b^-4ac))/2aprint"x2="&(-b+spr(b^4ac))/2a'结果直接输出elseprint"x1="&"("&-b&"+"&result&"^(0.5))/"&2aprint"x2="&"("&-b&"困源-"&result&"^(0.5))/"&2a'^(0.5)表示根号endif我初中刚毕业，VB也很菜，以上方法没试验过，不知道行不行当然，"^(0.5)"可以换作根号字符会好一点，汪高态道理一样的但是我不知道怎么打上去。。。就是这样了吧，给点分啊

Private Sub Command1_Click()

Dim x As Double

Dim y1 As Double

Dim y2 As Double

Dim y3 As Double

Dim y4 As Double

If Not IsNumeric(Text1.Text) Then

MsgBox "请正确输入如早逗睁袜一个渣卖数字！"

Exit Sub

End If

x = Val(Text1.Text)

y1 = x ^ 2

y2 = x ^ (1 / 2)

y3 = x ^ 3

y4 = x ^ (1 / 3)

Label1.Caption = ""

Label1.Caption = Label1.Caption &Format(y1, "#.0000")

Label1.Caption = Label1.Caption &vbCrLf &Format(y2, "#.0000")

Label1.Caption = Label1.Caption &vbCrLf &Format(y3, "#.0000")

Label1.Caption = Label1.Caption &vbCrLf &Format(y4, "#.0000")

End Sub

---