下面程序段运行后，显示结果是（）。Dim xIf x Then Print x Else Print x+1A、0B、1C、－1D、显示出错信息
下面程序段运行后，显示结果是（）。Dim xIf x Then Print x Else Print x+1
- A、0
- B、1
- C、－1
- D、显示出错信息
相关考题：
下面程序段的运行结果是【 】。Option Base 1Private Sub swap(a()As InteSer)For I=1 to 10\2t=a(i)a(i)=a(10-1+1)a(10-1+1)=tNext1End SubPrivate Sub Form_Click()Dim x(10)As IntegerFor I=1 to 10x(i)=I*2Next1Swap x()For1=1 to 10Print x (i)Next IEnd Sub
下面程序运行后输出的结果是【】。 include using namespace std; class example{ const 下面程序运行后输出的结果是【 】。include ＜iostream＞using namespace std;class example{const int m;public:example(int i):m(i){}void pr(){cout＜＜"m="＜＜m＜＜endl'}};int main(){example x(100);x.pr();return 0;}
下面程序段的运行结果是【 】。Option Base 1Private Sub Swap (a() As IntegFor I=1 to 10\2t=a(I)a(I)=a(10-I+1)a(10-I+1)=tNext IEnd SubPrivate Sub Form_Click()Dim x(10) As IntegerFor I=1 to 10x(I)=I*2Next ISwap x()For I=1 to 10Print x(I)Next IEnd Sub
在窗体上画一个名称为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!”的信息框
下面程序的运行结果是( )。include main(){int a=25; fun(A); }fun(int *x){ print 下面程序的运行结果是( )。include＜stdio.h＞main(){int a=25;fun(A);}fun(int *x){ printf("%d\n",++*x);}
下列程序段运行结果是______。Dim c As Integer,num As IntegerNum=29483Doc=num Mod 10Print c；num=num\10Loop While num＜＞0
以下程序运行后，单击命令按钮，窗体显示的结果是 ______。 Private Function p1(x As Integer，y As Integel，z As Integer) p1=2*x+y+3*z End Function Private Function p2(x As Integer，y As Integer，z As Integer) p2=p1(2，y，x)+x End Function Private SubCommandl_Click() Dim a As Integer Dim b As Integer Dim c As Integer a=2:b=3:c=4 Print p2(c，b，A)End SubA．19B．21C．22D．23
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Public Enum Sa=4b=3End EnumPrivate Sub Command1 Click（ ）Dim x As Integerx=aIf x=3 Then MsgBoxPass!End Sub运行程序，其结果是（ ）。A.运行错误．因为Enum定义有错B.运行错误．因为x=a类型不匹配C.运行正常结束，不显示任何信息D.运行正常．显示内容为“Pass!”的信息框
下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End SubA．3B．9C．5D．6
运行下列程序:Private Sub Form_Click( )Dim x As Integer, y As String, z As Stringy = 12345For x = 1 To Len(y)z = Mid(Left(y, x), 1)Next xPrint zEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.1B.11111C.55555D.12345
运行下列程序:Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x > 20x 运行下列程序：Private Sub Form_Click( )Dim y As Integer, x As IntegerDo Until x 20x = x + 10y = y + xIf x 20 Then Exit DoLoopPrint x, yEnd Sub单击窗体后，则在窗体上显示的结果是( )。A.10 20B.30 60C.10 30D.20 60
下列程序段运行后,其运行结果是( )。Dim a(3) As Integer, b(3) As IntegerFor k = 0 To 3a(k) = k*k +kb(k) = a(k)-kNext kPrint a(2) + b(1)A. 5B. 6C. 7D. 8
下列程序段运行后输出的结果是（）。 Private Sub Form_Click Dim X#, Y# X = 5: Y = 6 Print X + Y = 11 End SubA、X+Y=11B、5+6=11C、11D、True
单选题下列程序段运行后输出的结果是（）。 Private Sub Form_Click Dim X#, Y# X = 5: Y = 6 Print X + Y = 11 End SubAX+Y=11B5+6=11C11DTrue