在窗体上有一个命令按钮,然后编如下事件过程:
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】 。
第1题:
在窗体上有一个命令按钮,然后编写如下事件过程。 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.ABCDE
B.1 2 3 4 5
C.abcde
D.出错信息
第2题:
在窗体上有一个命令按钮,然后编如下事件过程:
程序运行后,单击命令按钮,在输入对话框内输入-1,输出结果是 。
第3题:
窗体上有一个名为Button1的命令按钮和一个标签框,然后编写如下事件过程: 程序运行后,单击命令按钮,则在标签框上显示的内容是()
A5.8
B5
C7
D无数据
第4题:
在窗体上有个命令按钮,然后编写如下事件过程
程序运行后,单击命令按钮,先后在两个输入框中分别输入”1”和”5”,则输出结果为
A.1
B.51
C.6
D.15
第5题:
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Textl),然后编写如下事件过程: