下面程序段运行后，显示的结果是 。 Dim x% If x Then MsgBox（x) Else MsgBox（x + 1)A．1B．0C．2D．-1E．显示出错信息
下面程序段运行后，显示的结果是 。 Dim x% If x Then MsgBox（x) Else MsgBox（x + 1)
A．1
B．0
C．2
D．-1
E．显示出错信息
参考答案和解析
A
相关考题：
有下面程序段: a:=false;b:=false;c:=false; x:=15; if a then x:=x0 else if b then x:=x－5 else if c then x:=20 else x:=25; 假设所有变量均已说明,程序运行后x的值是( ) 。 A25B20C15D5
有如下事件程序，运行该程序后输出结果是Private Sub Command33_Click()Dim X As Integer，y As Integerx=1：Y=0Do Until y=25y=y+X*XX=X+1 ‘Loop ’ 。MsgBox“x一”＆X＆,“y=”＆yEnd SubA．x=1，y=0B．x=4，y=25C．x=5，y=30D．输出其他结果
（ 15 ）下面不能在信息框中输出 “ VB ” 的是A ） MsgBox "VB"B ） x=MsgBox （ "VB" ）C ） MsgBox （ "VB" ）D ） Call MsgBox "VB"
在窗体中添加一个命令按钮(名为Command1)，然后编写如下代码：Public x as integerPrivate Sub Command1_Click( )x=5Call s1Call s2MsgBox xEnd SubPrivate Sub s1( )x=x+10End SubPrivate Sub s2( )Dim x as integerx=x+10End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是______
在窗体上画一个命令按钮，然后编写如下程序：Dim x As IntegerSub inc(a As Integer)x=x+aEnd SubPrivate Sub Command1_Click()inc 2inc 3inc 4Msgbox x；End Sub程序执行后，单击Command1命令按钮，消息框显示结果是【 】。
当a=1,b=3,c=5,d=4时,执行下面一段程序后,x的值为______。if (ad) x=1;else if(a 当a=1，b=3，c=5，d=4时，执行下面一段程序后，x的值为______。if (a＜6) if(c＞d) x=1； else if(a＜c) if (b＞l) x=2； else x=3； else x=6； else x=7；A．1B．2C．3D．6
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Public Enum S a=4 b=3 End Enum Private Sub Command1 Click（ ） Dim x As Integer x=a If x=3 Then MsgBox"Pass!" End Sub 运行程序，其结果是（ ）。A.运行错误．因为Enum定义有错B.运行错误．因为x=a类型不匹配C.运行正常结束，不显示任何信息D.运行正常．显示内容为“Pass!”的信息框
运行下面程序后，正确的输出结果是 ______。Private Sub Command1_ Click() x = 6 if x ＞6 then Print "x＞6": Else if x ＜8 then Print "x＜8"; Else if x = 6 then Print "x=6": End if End if End ifEnd SubA．x＜8 x=6B．x＜8C．x=6D．x＜8或x=6
运行下列程序： Private Sub Command1_Click() x = 0 Do While x＜10 x=x * x + 1 y=y+x Loop MsgBox y End Sub 单击Command1命令按钮后，弹出的消息对话框中会显示A．5B．8C．26D．34
当a=4，b=5，c=7，d=6时，执行下面一段程序： if(a＜B)if(c＜D)x=1； else if(a＜C)if(b＜C)x=2： else x=3； else x=4； else x=5； 程序执行后，x的值为( )。A．1B．2C．3D．4
执行下面的程序段，x的值为 Private Sub Commandl_Click() For i=1 To 5 a=a+i Next i x=Val(i) MsgBox x End SubA．5B．6C．7D．8
有如下事件程序，运行该程序后输出结果是（ ）。 PrivateSub Command33_click Dim x AsInteger，Y AsInteger x=1：y=0 Do Untily=25y=y+x*xx=x+1 Loop MsgBox”x=＆x＆”，y="Y End SubA.x=1，y=0B.x=4，y=25C.x=5，y=30D.输出其他结果
当a=1、b=2、c=3、d=4时，执行下面程序段后，x的值是( )。 if(a＜B)if(c＜D)x=1； else if(a＜C)if(b＜D)x=2： else x=3： else x=6： else x=7：A．1B．6C．3D．2
运行下列程序，窗体中的显示结果是：（ ）。 OptionCompare Database Dim X AsInteger PrivateSub Form_Load x=3 EndSubPrivate Sub Commandll_click Static aAs Integer Dim b AsInteger b=x^2 funl x，b funl x．b MsgBox”x=‘’x End Sub Subfunl(ByRef Y As Integer，ByVal z AS Integer) y=y+z z=y-z End SubA.x=3B.x=2C.x=21D.x=12
执行下面的程序段，x的值为 Private Sub Command1_Click( ) For i=1 To 5 a=a+i Next i x=Val(i) MsgBox x End SubA．5B．6C．7D．8
以下是某个窗体的模块代码，请分析单击窗体后程序运行至"*"号位置时变量X、Y和Z的值分别是【 】。DIM X AS INTEGERDIM Y AS INTEGERPRIVATE SUB FORM_CLICK()DIM X AS INTEGERX=1Y=1CALL AA(Y+1)Z=BB(X)'* * * * * * *MSGBOX "X="X"/Y="Y"/Z="ZEND SUBPRIVATE SUB AA(BYVAL Z AS INTEGER)Y=Z+XZ=X+YEND SUBPRIVATE FUNCTION BB(BYREF Y AS INTEGERY=Y+1BB=X+YEND FUNCTION
单选题下列程序段：Dim x If x Then Print x Else Print x+1运行后，显示的结果是（）。A1B0C-1D出错