更多"在窗体上有一个命令按钮Command1,通用过程fun和命令按钮的事件"的相关试题:
[单项选择]在窗体上有一个命令按钮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
[单项选择]在窗体上有一个命令按钮Command1,编写下列程序:
Private Sub Command1_Click( )
Print pp1(3,7)
End Sub
Public Function pp1(x As Single,n As Integer)As Single
If n=0 Then
pp1=1
Else
If n Mod 2=1 Then
pp1=x*x+n
Else
pp1=x*x-n
End If
End If
End Function
程序运行后,单击该命令按钮,屏幕上显示的是( )。
A. 2
B. 1
C. 0
D. 16
[单项选择]在窗体上有一个命令按钮Command1,编写如下程序:
Private Sub Command1_Click( )
Print pp1(3, 7)
End Sub
Public Function pp1(x As Single, n As Integer) As Single
If n = 0 Then
pp1 = 1
Else
If n Mod 2=1 Then
pp1=x*x+n
Else
pp1=x*x-n
End If
End If
End Function
程序运行后,单击该命令按钮,屏幕上显示的是( )。
A. 2
B. 1
C. 0
D. 16
[单项选择]在窗体上有一个命令按钮Command1,编写事件代码如下:
Private Sub Command1_Click( )
Dim x As Integer,y As Integer
x=12:y=32
Call Proc(x,y)
Debug.Print x;y
End Sub
Public Sub proc(n As Integer,ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
打开窗体运行后,单击命令按钮,窗口上输出的结果是( )。
A. 2 32
B. 12 3
C. 2 2
D. 12 32