[单项选择]在窗体上有一个命令按钮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

更多"在窗体上有一个命令按钮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

查看答案

我来回答:

提交