在窗体上有一个命令按钮，然后编如下事件过程：Function SR（x As Double） As DoubleSelect Case Sgn（x）Case 1SR=Sqr（x）Exit FunctionCase 0SR=0Case -1SR=-1End SelectEnd FunctionPrivate Sub Command1_Click（）Dim Msg, SRNDim N As DoubleN=InputBox（"请输入要计算平方根的数"）Msg=N "的平方根"Select Case SR（N）Case 0Msg=Msg "是0"Case -1Msg=Msg "是一个虚数"Case ElseMsg=Msg "是" SR（N）End SelectMsgBox MsgEnd Sub程序运行后，单击命令按钮，在输入对话框内输入-1，输出结果是 【15】 。
在窗体上有一个命令按钮，然后编如下事件过程：
Function SR（x As Double） As Double
Select Case Sgn（x）
Case 1
SR=Sqr（x）
Exit Function
Case 0
SR=0
Case -1
SR=-1
End Select
End Function
Private Sub Command1_Click（）
Dim Msg, SRN
Dim N As Double
N=InputBox（"请输入要计算平方根的数"）
Msg=N & "的平方根"
Select Case SR（N）
Case 0
Msg=Msg & "是0"
Case -1
Msg=Msg & "是一个虚数"
Case Else
Msg=Msg & "是" & SR（N）
End Select
MsgBox Msg
End Sub
程序运行后，单击命令按钮，在输入对话框内输入-1，输出结果是 【15】 。
相关考题：
在窗体上有一个命令按钮,然后编写如下事件过程。Private Sub Command1_Click()Dim a(5)As StringFOR i=1 To 5a(i)=Chr(Asc("A")+ (i-1))NextFor Each b In aPrint b;NextEnd Sub程序运行后,单击命令按钮,输出结果是A．ABCDEB．1 2 3 4 5C．abcdeD．出错信息
在窗体上有一个命令按钮，然后编写如下事件过程： Private Sub Command1Click（ ） Dim a(5)As String For i=1，To 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b； Next End Sub 程序运行后，单击命令按钮，输出结果是（ ）。A.ABCDEB.1 2 3 4 5C.abcdeD.出错信息
在窗体上有一个命令按钮，然后编写如下事件过程。 Private Sub Command1_Click() Dim a(5)As String FOR i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next For Each b h a Print b； Next End Sub 程序运行后，单击命令按钮，输出结果是A．ABCDEB．1 2 3 4 5C．abcdeD．出错信息
窗体上有一个名为Button1的命令按钮和一个标签框，然后编写如下事件过程： 程序运行后，单击命令按钮，则在标签框上显示的内容是（）A5.8B5C7D无数据