2013年计算机专业模拟试题

Private sub command1_click( )

X=inputbox(“输入：”,”输入整数”)

Msgbox “输入的数据是：”,,”输入数据：”+X

End sub

程序运行 后，单击command1，从键盘上输入数据10，则以下叙述中错误的是（ ）

A、X的值是数值型数据10                                   B、输入对话框的标题是“输入整数”

C、信息框的标题是“输入数据：10”                  D、信息框中的显示是“输入的数据是：”

13、运行以下程序段后，输出结果为

X%=1/4

Y%=11/4

Print x%;y%

A、0.25  0.75           B、1  3        C、0  2             D、0  3

14、若变量X＝1，则执行语句if x then x=0 else x=1后，X的值是（ ）

A、0             B、1             C、实时错误               D、编译错误

15、设a=2,b=3,c=4,d=5,下列表达式的值是  3>2*b  OR a=c AND b<>c OR c>d （ ）

A、1    B、 True    C、False     D、-1

16、运行下面程序段时，若从键盘输入－5，则变量Y的值是（ ）

X=-5

A=val(inputbox(“请输入A的值：”))

Select case a

       Case is>0

              Y=x+1

       Case is =0

              Y=x+2

       Case else

              Y=x+3

End select

A、－5          B、－2          C、－4          D、－3

17、有如下程序段

X=2

For I = 1 to 10 step 2

       X=x+i

Next  运行程序后，X的值是（ ）

A、26           B、27           C、38           D、57

18、已知X和Y是字符型变量，运行下面程序段后，变量Y的值是（ ）

X=”ABCDEFG”

For I =4 to 1 setp -1

       Y=y+mid(x,I,1)

Next

A、ABCD              B、DCBA              C、DEFG              D、GFED

19、以下程序段的输出结果是

        x=1

        y=4

        Do  Until  y>4

                x=x*y

                y=y+1

        Loop

        Print  x

A、1        B、4        C、8        D、20

20、假定有以下两个过程：

Sub S1(ByVal x As Integer,ByVal y As Integer)

    Dim t As Integer

    t=x：x=y：y=t

End Sub

Sub S2(x As Integer,y As Integer)

    Dim t As Integer

    t=x： x=y： y=t