更多"在窗体上有一个命令按钮Command1,编写事件代码如下: Priv"的相关试题:
[单项选择]在窗体上有一个命令按钮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 a(10),p(3)As Integer
k=5
For i=1 To 10
a(i)=i*i
Next i
For i=1 To 3
P(i)a(i*1)
Next i
For i=1 To 3
K=k+p(i)*2
Next i
MsgBox k
End sub
打开窗体运行后,单击命令按钮,消息框中输出的结果是______。
[单项选择]在窗体上画一个命令按钮,名称为Command1。
Private Sub Command1 Click( )
Dim x As Integer,y As Integer
x=10:y:0
Do
x=x+2:y=y+x
Print "x=", x; "y=",y
If y>20 Then Exit Do
Loop Until x=18
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是 ______。
A. x=12y=12
B. x=12 y=12
C. x=12 y=12
D. x= 12 y=12
[填空题]在窗体上有一个命令按钮Command1,编写事件代码如下:
Private Sub Command1_Click( )
Dim a(10),P(3) As Integer
k=5
For i=1 To 10
a(i)=i * i
Next i
For i=1 To 3
P(i)=a(i * i)
Next i
For i=1 To 3
k=k+p(i) *2
Next i
MsgBox k
End Sub
打开窗体运行后,单击命令按钮,消息框中输出的结果是______。