窗体上有一个命令按钮Command1，编写如下事件过程：

Private Sub Command1_Click()

a = 80: b = 50: c = 30

If a< b Or b >c Then b = c

If b = c And a< c Then a = a - 30

If a = b And b >c Then c = a + b

Print a, b, c

E．nd Sub

运行时，单击按钮，窗体输出的结果是( )。

A． 80 50 30

B． 80 30 30

C． 50 30 80

D． 50 30 30

[单选题]窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click()x = InputBox("x=")y = InputBox("y=")Print x + yE．nd Sub运行后，单击命令按钮，先后在两个输入对话框中输入123和321，窗体显示的内容是( )。A． 444B． 123321C． 123+321D． 出错信息

[单选题]窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click()Sum = 0F．or m = 1 To 3Select Case mC．ase 1a = 1C．ase 2a = 2C．ase 3a = 3E．nd SelectPrint a,Sum = Sum + aNext mPrint SumE．nd Sub运行时，单击按钮，输出结果是( )。A． 3 3 3 9B． 3 2 1 6C． 1 1 1 3D． 1 2 3 6

[单选题]在窗体上有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click() Dim y As Integer y=0 Do y=InputBox("y=") If(y Mod 10)+Int(y/10)=10 Then Debug.Print y； Loop Until y=0 End Sub 打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是( )。A．37 55 64 28 1

[单选题]在窗体上有一个命令按钮Command1，编写事件代码如下： Private Sub Command 1_Click() Dim x As Integer，y As Integer x=12:y=32 Call Proe(X，Y) Debug.Print x；y End Sub Public Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=in Mod 10 End Sub 打开窗体运行后，单击命令按钮，立即窗口上输出的结果是( )。A

[单选题]在窗体上有一个命令按钮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 程序运行后，单击该命令按

[单选题]在窗体上有一个命令按钮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 程序运行后，单击该命令按钮，屏幕上显示的是(

[单选题]在窗体中有一个命令按钮command1，编写事件代码如下： Private Sub Command1_Click() Dim s As Integer s=P(1)+P(2)+P(3)+P(4) Debug.Print s End Sub Public Function P(N As Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+1 Next i P=Sum End Function 打开窗体运行后，单击命令按钮，输出的结果是( )

[单选题]在窗体上有一个命令按钮Command1，编写事件代码如下： Prirate Sub Command1_Click() Dim d1 AS Date Dim d2 As Date d1=#12/25/2009# d2=#1/5/2010# MsgBox DateDiff("ww"，d1，d2) End Sub 打开窗体运行后，单击命令按钮，消息框中输出的结果是( )。A．1B．2C．10D．11

[单选题]在窗体上有一个命令按钮Command1，编写下列程序：Private Sub Command1_Click()Print pp1(3,7)E．nd SubPublic Function pp1(x As Single,n As Integer)As SingleIf n=0 Thenpp1=1E．lseIf n Mod 2=1 Thenpp1=x*x+nE．lsepp1=x*x-nE．nd IfE．nd IfE．nd Function程序运行后，单击该命令按钮，屏幕上显示的是( )。A．2B．1

[单选题]在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command1_Click( ) Dim a As Integer，b As hiteger a=1 b=2 Print N(a，B)End Sub Function N(x As Integer，y As Integer)As Integer N=IIf(x>y，x，y) End Function 程序运行后，单击命令按钮，输出结果为A．1B．2C．5D．8