往复泵厂家
免费服务热线

Free service

hotline

010-00000000
往复泵厂家
热门搜索:
成功案例
当前位置:首页 > 成功案例

做座计算机等级考试二级VB全真模拟试题二上

发布时间:2021-10-09 03:41:21 阅读: 来源:往复泵厂家

计算机等级考试二级VB全真模拟试题(二)(上)

一、选择题:35题,2分/题,共70分

下列各题A)、B)、C)、D)四个选项中,只有一个选项是正确的,请将正确选项涂写在答题卡相应位置上,答在试卷上不得分。

1.当运行程序时,系统自动执行启动窗体的某个事件过程。这个事件过程是(A)

A)Load

B)Click

C)Unload

D)GotFocus

2.无论何控件,都具有一个共同属性。这个属性是(C)

A)Text

B)Font

C)Name

D)Caption

3.在一行内写多条语句时,语句之间要用某个符号分隔。这个符号是(D)

A),

B);

C)、

D):

4.表达式3∧2*2+3 MOD 10\4的值是(C)

A)18

B)1

C)19

D)0

5.下面的变量名合法的是(A)

A)k_name

B)k ame

C)nam避免温度高时产生烟气到室内e

D)k-name

6.设有如下变量声明Dim time1 As Date,为变量time1正确赋值的表达式是(A)

A)time1 = #11:34:04 #

B)time1 = Format(Time,"yy:mm:dd")

C)time1 = #"11:34:04"#

D)time1 = Format("hh:mm:ss",Time)

7.表达式12000 + "129" 200的值是(B)

A)123降至4升/100千米左右29

B)""

C)""

D)"12329"

8.若设a = 4,b = 5,则下列表达式值为真的是(D)

A)(True+a) 0 And b 10

B)a b Or b 10-a

C)(False-b 0) Eqv (a b)

D)a b Xor b+3 5

9.当窗体上的文字或图形被覆盖或最小化后能恢复原貌,需要设置窗体的属性是(D)

A)Appearance

B)Visible

C)Enable

D)Autoredraw

10.在窗体上画一个名称为Command1的命令按钮,编写以列程序:

Private Sub Command1_Click( )

Dim a As Integer

Static b As Integer

a = a + b

b = b + 4

Print a,b

End Sub

程序运行后,单击该命令按钮三次,屏幕上显示的值是(D)

A)4 12

B)0 4

C)4 今天的科技布局就是明天的产业布局8

D)8 12

sual Basic是一种面向对象的程序设计语言,构成对象的三要素是(B)

A)属性、控件和方法

B)属性、事件和方法

C)窗体、控件和过程

D)控件、过程和模块

12.下列程序段错误的是(A)

A)Dim a As Integer

a = array(1,2,3,4)

B)Dim a(),b()

a = array(1,2,3,4):b = a

C)Dim a As Variant

a = array(1,"asd",true)

D)Dim a() As Variant

a = array(1,2,3,4)

13.表达式String(1,"I am student") + Replace("am harass","rass","ppy") "!"的值是(A)

A)"I am happy!"

B)"I am student I am s am harass studentam happy!"

C)"I am student am harass!"

D)"I am student am happy!"

14.下列程序段中,能正常结束循环的是(C)

A)I = 1

Do

I = I + 2

Loop Until I = 10

B)I = 5

Do

I = I + 1

Loop Until I 0

C)I = 10

Do

I = I + 1

Loop Until I 0

D)I = 6

Do

I = I - 2

Loop Until I = 1

15.引用列表框(List1)最后一个数据项应使用的表达式是(B)

A)st(stCount)

B)st(stCount-1)

C)st(ListCount)

D)st(ListCount-1)

16.有如下程序:

Option Base 1

Private Sub Command1_Click()

Dim x,y(3,3)

x = Array(1,2,3,4,5,6,7,8,9)

For i = 1 To 3

For j = 1 To 3

y(i,j感应信号大小取决于金属粒子尺寸和导电性能) = x(i*j)

If(j = i) Then Print y(i,j);

Next j

Print

Next i

End Sub

运行时输入出的结果是(D)

A)1 2 3

2 4 6

4 6 8

B)1 2 3

2 4 6

3 6 9

C)1

2 4

3 6 9

D)1 2 3

4 6

9

17.在窗体上画一个名称为Command1的命令按钮,编写如下程序:

Private Sub Command1_Click()

Print pl(3,7)

End Sub

Public Function pl(x As Single,n As Integer) As Single

If n=0 Then

pl=1

Else

If n Mod 2=1 Then

pl=x*x+n

Else

P1=x*x-n

End If

End If

End Function

程序运行后,单击该命令按钮,屏幕上显示的结果是(D)

A)2

B)1

C)0

D)16

18.以下属性和方法中,可重定义坐标系的是(C)

A)DrawStyle属性

B)DrawWidth属性

C)Scale方法

D)ScaleMode属性

19.在窗体上画一个文本框,然后编写如下事件过程:

Private Sub Form_Load()

xt = ""

tFocus

For i = 1 To 5

Sum = Sum +i

Next i

xt = Sum

End Sub

上述程序的运行结果是(D)

A)在文本框中输出15

B)在文本框中输出0

C)在文本框中输出不定值

D)出错

20.已知x代表某个百分制成绩,下列程序段用于显示对应的五级制成绩,正确的是(C)

A)If x = 60 Then

Print "及格"

ElseIf x = 70 Then

Print "中"

ElseI

用乳结泰胶囊调理乳腺结节功效如何
用乳结泰胶囊调理乳腺结节功效如何
乳房里有肿块哪些情况要重视
乳结泰胶囊能用来治疗乳腺结节吗