网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
4、下面程序段运行后，显示的结果是 。 Dim x% If x Then MsgBox（x) Else MsgBox（x + 1)
A．1
B．0
C．2
D．-1
E．显示出错信息
参考答案和解析
D
更多 “4、下面程序段运行后，显示的结果是 。 Dim x% If x Then MsgBox（x) Else MsgBox（x + 1)A．1B．0C．2D．-1E．显示出错信息” 相关考题
考题
有下面程序段: 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!”的信息框
考题
当a=1、b=3、c=5、d=4时，执行下面一段程序后，x的值为______。if (a＜b) if (c＜d) x=1； elseif (a＜c)if (b＜d) x=2；else x=3；else x=6；else x=7；A．1B．2C．3D．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的值是 a=d=c=0;x=35; if(! a) x=-1, else if(b) ; if(c) x=3； else x=4；A．34B．4C．35D．3
考题
下面程序段的运算结果正确的是( )。 Dim x As Single Dim y As Single If x ＜ 0 Then y=3 Elself x ＜ 1 Then y=2*x Else: y= -4 * x+6 End IfA．当x=2时，y=-2B．当x=1时，y=3C．当x=0.5时，y=-4D．当x=-2.5时，y=11
考题
当a=1、b＝3、c＝5、d＝4时，执行下面一段程序： if(a＜B) if(c＜D) x＝1； else if(a＜C) if(b＜D) x＝2； else x＝3； eles x＝6； else x＝7；程序执行后，x的值为( )A．1B．2C．3D．6
考题
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() Dim a As Integer,b As Integer,c As Integer If a=0 Then x=x-1 Else If b＜＞0 Then End If End If If c＜＞0 Then x=3 Else x=4 End If Print x End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。A．34B．4C．35D．3
考题
执行下面的程序段，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运行后，显示的结果是（）。A
1B
0C
-1D
出错
热门标签
最新试卷