更多"在窗体上有一个命令按钮，然后编如下事件过程：
Function "的相关试题:
[填空题]在窗体上有一个命令按钮，然后编如下事件过程：
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，输出结果是【 】。
[单项选择]窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是
Private Sub Command1_Click( )
Dim a
a = Array(1,2,3,4,5)
For k = 1 To4
s=s+a(k)
Next
Print S
End Sub
A. 10
B. 14
C. 15
D. 120
[单项选择]窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。
Private Sub Command1_Click（ ）
Dim a
a=Array(1,2,3,4,5)
For k=1 To 4
S=S+a(k)
Next k
Print S
End Sub
A. 10
B. 14
C. 15
D. 120
[单项选择]在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下：
Private Function fun(ByVal m As Integer)
If m Mod 2=0 Then
fun=2
Else
fun=1
End If
End Function
Private Sub Command1_Click（ ）
Dim i As Integer,s As Integer
s=0
For i=1 To 5
s=s+fun(i)
Next
Print s
End Sub
程序运行后，单击命令按钮，则窗体上输出( )。
A. 6
B. 7
C. 8
D. 9
[单项选择]窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是______。
Private Sub Command1_Click（ ）
Dim a
a=Array(1，2，3，4，5)
For k=1 To 4
s=s+a(k)
Next
Print S
End Sub
A. 10
B. 14
C. 15
D. 120
[单项选择]在窗体上有一个命令按钮Commandl，编写事件代码如下： PrivateSubCommandl_Click（） DimdlAsDate Dimd2AsDate d1＝#12/25/2009# d2＝#1/5/2010# MsgBoxDateDiff（"WW"，d1，d2） EndSub 打开窗体运行后，单击命令按钮，消息框中输出的结果是（）。
A. 1
B. 2
C. 10
D. 11
