[单选题]

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

Private Sub Command1_Click()

x = InputBox("x=")

y = InputBox("y=")

Print x + y

E.nd Sub

运行后,单击命令按钮,先后在两个输入对话框中输入123和321,窗体显示的内容是( )。

A. 444

B. 123321

C. 123+321

D. 出错信息

参考答案与解析:

相关试题

窗体上有一个命令按钮Command1,编写如下事件过程:Private Sub

[单选题]窗体上有一个命令按钮Command1,编写如下事件过程:Private Sub Command1_Click()a = 80: b = 50: c = 30If ac Then b = cIf b = c And ac Then c = a + bPrint a, b, cE.nd Sub运行时,单击按钮,窗体输出的结果是( )。A. 80 50 30B. 80 30 30C. 50 30 80D. 50 30 30

  • 查看答案
  • 窗体上有一个命令按钮Command1,编写如下事件过程:Private Sub

    [单选题]窗体上有一个命令按钮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,编写事件代码如下: 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

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

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

    [单选题]在窗体上有一个命令按钮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,编写事件代码如下: 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,编写事件代码如下: 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 C

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

    [单选题]在窗体上画一个命令按钮,然后编写如下程序 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

  • 查看答案
  • 窗体上有一个命令按钮Command1,编写如下事件过程:Private Sub