下面程序段运行后,显示结果是()。Dim xIf x Then

题目

下面程序段运行后,显示结果是()。Dim xIf x Then Print x Else Print x+1

  • A、0
  • B、1
  • C、-1
  • D、显示出错信息
如果没有搜索结果或未解决您的问题,请直接 联系老师 获取答案。
相似问题和答案

第1题:

下面程序段运行后,变量x的值为上 【 】 。

Dim x As Integer

Dim i As Integer

x=O

for i=0 to 50 step 10

X=X+i

next i


正确答案:150
150 解析:这是一个简单的单重循环程序,它的功能是:计算10+20……+50的值,程序运行过程为:为变量x赋初值;循环执行For…Next间的语句,每执行一次,记数变量i的值加上 10。直到i的值超过循环终止值50,退出循环。执行完该程序,循环内的语句非要执行6次(6次循环对应的记数变量的位为0;10,20,30,40,50)。

第2题:

运行下面程序段的输出结果是().

A.Set

B.Setup

C.Setup

D.&39;S&39;&39;e&39;&39;t&39;


正确答案:A

第3题:

下面程序段的运行结果是【 】。

Option Base 1

Private Sub swap(a()As InteSer)

For I=1 to 10\2

t=a(i)

a(i)=a(10-1+1)

a(10-1+1)=t

Next1

End Sub

Private Sub Form_Click()

Dim x(10)As Integer

For I=1 to 10

x(i)=I*2

Next1

Swap x()

For1=1 to 10

Print x (i)

Next I

End Sub


正确答案:20 18 16 14 12 10 8 6 4 2
20 18 16 14 12 10 8 6 4 2 解析:在该事件过程中,定义并生成了x数组,该数组共10个元素,分别是2 4 6 8 10 12 14 16 18 20,接着使用了不带Call的调用语句,实际参数和虚拟参数都是数组,是地址传送,在过程中访问的数组就是事件过程中的x数组。在该过程中,将数组的第一个元素和最后一个元素交换位置,依此类推,返同事件过程后输出交换后的数组全部元素。

第4题:

下面程序的运行结果是( )。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);

}


正确答案:26
26 解析:在主函数中只调用了fun函数,调用时把变量a的地址传递给形参。fun函数的形参x是一个指针,其基类型与主函数中a的类型一致,因此在调用时得到的是a的地址,输出项是++*x,*x代表的就是主函数中变量a的存储单元,++*x就是使主函数中a的值加1,输出26。

第5题:

在窗体上画一个名称为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!”的信息框


正确答案:D
D。【解析】Enum是枚举类型的变量,变量定义时都是要执行的,因此x>4,必然满足4>=3,弹出信息框为pass!。

第6题:

下面程序段运行后,变量X的值为【 】。

Dim x AS Integer

Dim I AS Integer

x=0

for I=0 to 50 step 10

X=X+I。

next I

Print X


正确答案:150
150 解析:这是一个简单的单重循环程序,它的功能是:计算10-4-20……“+50的值。程序运行过程为:为变量x赋初值;循环执行For… Next间的语句,每执行一次,记数变量i的值加上10;直到i的值超过循环终止值50,退出循环。执行完该程序,循环内的语句要执行6次(6次循环对应的记数变量的位为0,10,20, 30,40,50)。

第7题:

下面程序段的运行结果是【 】。

Option Base 1

Private Sub Swap (a() As Integ

For I=1 to 10\2

t=a(I)

a(I)=a(10-I+1)

a(10-I+1)=t

Next I

End Sub

Private Sub Form_Click()

Dim x(10) As Integer

For I=1 to 10

x(I)=I*2

Next I

Swap x()

For I=1 to 10

Print x(I)

Next I

End Sub


正确答案:20 18 16 14 12 10 8 6 4 2
20 18 16 14 12 10 8 6 4 2 解析:本题考查考生数组虚实结合的问题,在该事件过程中,定义并生成了x数组,该数组共10个元素,分别是 2 4 6 8 10 12 14 16 18 20,接着使用了不带Call的调用语句,实际参数和虚拟参数都是数组,是地址传送,在过程中访问的数组就是事件过程中的x数组。在该过程中,将数组的第一个元素和最后一个元素交换位置,依此类推,返回事件过程后输出交换后的数组全部元素。

第8题:

下面程序运行后输出的结果是【】。 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;

}


正确答案:m=100
m=100 解析:在类example中,定义了一个常数据成员m,所以构造函数只能通过初始化列表来初始化它。

第9题:

下面程序段的输出结果是【 】。

For X=1.5 To 5 Step 1.5

Print X;

Next X


正确答案:1.5 3 4.5
1.5 3 4.5

第10题:

下面程序的运行结果是在窗体中显示的:

运行后窗体上显示的是______。


正确答案:2 4 6 0.5
2 4 6 0.5 解析:“k=3 then a=2*k”的语句其作用已经覆盖了“k=1 then a =2+k”和“k=2 then a=2-k”的语句,所以当k=1、2、3时,a分别为“a=2*k=2、4、6”。当“k=4”时,“a=2/4=0.5”。该题的难点就是关系运算符的应用。

更多相关问题