2010计算机等级考试二级VB预测题

1、能够获得一个文本框中被选取文本的内容的属性是______。

A：SelStart

B：SelLength

C：SelText

D：Text

参考答案：C

2、在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应当使用的语句为：______。

A：Text1.Enabled = False

B：Text1.Hide

C：Text1.Clear

D：Text1.Visible = False

参考答案：D

3、对于语句If x=1 Then y=1, 下列说法正确的是____。

A：x=1和y=1 均为赋值语句

B：x=1和y=1 均为关系表达式

C：x=1为赋值语句，y=1为关系表达式

D：x=1为关系表达式，y=1 为赋值语句

参考答案：D

4、以下变量名中，______是不符合Visual Basic的命名规范的。

A：_mnu_Open_234

B：Abc901

C：price_

D：K

参考答案：A

5、MsgBox 函数返回值的类型是__________。

A：数值或字符串

B：字符串

C：变体

D：整型数值

参考答案：D

6、VB一共有设计、运行和中断三种模式，要使用调试工具应该______。

A：进入中断模式

B：进入运行模式

C：进入设计模式

D：不用进入任何模式

参考答案：A

7、设a=6，则执行

x=IIF(a>5,-1,0)

后，x的值为______。

A：-1

B：6

C：0

D：5

参考答案：A

8、可以同时删除字符前导和尾部空白的函数是______。A：Mid

B：Rtrim

C：Trim

D：Ltrim

参考答案：C

9、以下语句的输出结果是______。

Print Format$("32548.5","000,000.00")

A：32,548.5

B：32548.5

C：032,548.50

D：32,548.50

参考答案：C

10、设有如下声明：

Dim X As Integer

如果Sgn(X)的值为-1，则X的值是______。

A：等于0的整数

B：大于0的整数

C：整数

D：小于0的整数

参考答案：D

11、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()

For i = 1 To 4

x = 4

For j = 1 To 3

x = 3

For k = 1 To 2

x = x + 6

Next k

Next j

Next i

Print x

End Sub

程序运行后，单击命令按钮，输出结果是______。

参考答案：15# 15 #15 #15

12、执行下面的程序段后，S的值为______。

s=5

For i=2.6 To 4.9 Step 0.6

s=s+1

Next i

参考答案：9

13、下列表达式有错误,正确的写法应该是______。

[(a+b)+c]/80-5÷(d+e)

参考答案：(a+b+c)/80-5/(d+e)#（a+b+c）/80-5/（d+e）

14、表示x 是5的倍数或是9的倍数的逻辑表达式为__________

参考答案：x Mod 5 = 0 Or x Mod 9 = 0#x Mod 9 = 0 Or x Mod 5 = 0

15、以下程序的功能是:从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。

Private Sub Form_click()

Dim x, y As Single

Dim z As Integer

x = InputBox("Enter a score")

Do while x>=0

y = y + x

z = z + 1

x = InputBox("Enter a score")

Loop

If z = 0 Then

z = 1

End If

y = ______

Print y

End Sub

参考答案：y/z

VB考试二

1、列表框中的列表项的数目可以通过以下哪个属性的值获得______。

A：ListIndex

B：ListCount

C：Count

D：Index

参考答案：B

2、在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。

A：Private Sub List1_Click()

Label1.Caption=List1.Text

End Sub

B：Private Sub List1_Click()

=List1.ListIndex

End Sub

C：Private Sub List1_Click()

=List1.Text

End Sub

D：Private Sub List1_Click()

Label1.Caption=List1.ListIndex

End Sub

参考答案：A

3、在列表框中当前被选中的列表项的序号是由下列哪个属性表示______。

A：Listindex

B：Index

C：List

D：Tabindex

参考答案：A

4、为了清除列表框中的所有内容，应使用的方法是：______。

A：Clear

B：Remove

C：RemoveItem

D：Cls

参考答案：A

5、在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为______。

A：For i=1 To List1.ListCount

……

NEXT

B：For i=0 To List1.Count-1

……

NEXT

C：For i=0 To List1.ListCount-1

……

NEXT

D：For i=1 To List1.Count

……

NEXT

参考答案：C

6、设有如下程序：

Option Base 0

Private Sub Form_Click()

Dim a

Dim i As Integer

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

For i = 0 To 3

Print a(5 - i);

Next

End Sub

程序运行后，单击窗体，则在窗体上显示的是______。

A：6 5 4 3

B：5 4 3 2

C：4 3 2 1

D：7 6 5 4

参考答案：A

7、设执行以下程序段时依次输入1、3、5，执行结果为______。

Dim a(4) As Integer, b(4) As Integer

For K = 0 To 2

a(K + 1) = Val(InputBox("请输入数据"))

b(3 - K) = a(K + 1)

Next K

Print b(K)

A：0

B：3

C：5

D：1

参考答案：D

8、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click()

Dim i As Integer,j As Integer

Dim a(10,10) As Integer

For i=1 To 3

For j=1 To 3

a(i,j)=(i-1)*3+j

Print a(i,j);

Next j

Print

Next i

End Sub

程序运行后，单击命令按钮，窗体上显示的是______。

A： 1 2 3

4 5 6

7 8 9

B： 2 3 4

3 4 5

4 5 6

C： 1 4 7

2 5 8

3 6 9

D： 1 2 3

2 4 6

3 6 9

参考答案：A

9、用下面的语句所定义的数组的元素个数是：______。

Dim arr(3 To 5,-2 to 2)

A：24

B：12

C：15

D：20

参考答案：C

10、下列______语句可以为动态数组分配实际元素个数。

A：static语句

B：Dim语句

C：public语句

D：ReDim语句

参考答案：D

11、假定程序中有以下语句：

answer = MsgBox("String1",,"String2","String3",2)

执行该语句后，将显示一个信息框，此时如果单击"确定"按钮，则answer的值为：______。A：String3

B：String2

C：String1

D：1

参考答案：D

12、设有语句

x=InputBox("输入数值","0","示例")

程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是______。

A：0是默认值

B：变量X的值是字符串"10"

C：在InputBox对话框标题栏中显示的是"示例"

D：变量X的值是数值10

参考答案：B

13、以下程序段运行的结果是：______。

Dim a(-1 To 5) As Boolean

Dim flag As Boolean

flag = False

Dim i As Integer

Dim j As Integer

Do Until flag = True

For i = -1 To 5

j = j + 1

If a(i) = False Then

a(i) = True

Exit For

End If

If i = 5 Then

flag = True

End If

Next

Loop

Print j

A：20

B：7

C：8

D：35

参考答案：D

14、设a=5，b=6，c=7，d=8，则执行下列语句后，x的值为：______。

x= IIF((a>b) And (c<d),10,20)

A：300

B：20

C：30

D：10

参考答案：B

15、要将一个组合框设置为简单组合框（Simple Combo），则应将其Style属性设置为______。A：0

B：1

C：3

D：2

参考答案：B

VB考试三

1、设组合框Combo1中有3个项目，则以下能删除最后一项的语句是______。

A：Combo1.RemoveItem Combo1.Listcount

B：Combo1.RemoveItem 2

C：Combo1.RemoveItem 3

D：Combo1.RemoveItem Text

参考答案：B 题分：6

2、在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：

Function Func(ByVal x As Integer, y As Integer)

y = x * y

If y > 0 Then

Func = x

Else

Func = y

End If

End Function

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 3

b = 4

c = Func(a, b)

Print "a="; a

Print "b="; b

Print "c="; c

End Sub

程序运行后，单击命令按钮，其输出结果为：______。A：a= 3

b= 4

c= 12

B：a= 13

b= 12

c= 12

C：a= 3

b= 4

c= 3

D：a= 3

b= 12

c= 3

参考答案：D 题分：6

3、单击命令按钮时，下列程序代码的执行结果为______。Public Sub Procl(n As Integer, ByVal m As Integer) n = n Mod 10

m = m / 10

End Sub

Private Sub Command1_Click()

Dim x As Integer, y As Integer

x = 12: y = 34

Call Procl(x, y)

Print x; y

End Sub

A：12 3

B：2 3

C：12 34

D：2 34

参考答案：D 题分：6

4、以下关于函数过程的叙述中，正确的是______。

A：在函数过程中，过程的返回值可以有多个

B：函数过程形参的类型与函数返回值的类型没有关系

C：当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D：如果不指明函数过程参数的类型，则该参数没有数据类型

参考答案：B 题分：6

5、以下说法错误的是______。

A：函数过程可以带参数

B：子过程没有返回值

C：函数过程没有返回值

D：子过程可以带参数

参考答案：C 题分：6

6、在窗体上画一个命令按钮（名称为Command1），然后编写如下事件过程：Private Sub Command1_Click()

Dim b As Integer

b = b + 1

End Sub

运行程序，三次单击命令按钮后，变量b的值是：______。

A：2

B：1

C：0

D：3

参考答案：B 题分：6

7、假定有以下函数过程：

Function Fun(S As String) As String

Dim s1 As String

For i = 1 To Len(S)

s1=UCase(Mid(S,i,1))+s1

Next i

Fun = s1

End Function

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim Str1 As String,Str2 As String

Str1 = InputBox("请输入一个字符串")

Str2= Fun(Str1)

Print Str2

End Sub

程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"则单击"确定"按钮后在窗体上的输出结果为______。

A：GFEDCBA

B：ABCEDFG

C：gfedcba

D：abcdefg

参考答案：A 题分：6

8、Sub过程与Function过程最根本的区别是______。

A：两种过程参数的传递方式不同

B：Function过程可以有参数，Sub过程不可以

C：Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以

D：Sub过程的过程名不能返回值，而Function过程能通过过程名返回值

参考答案：D 题分：6

9、在代码中定义了一个子过程：

Sub P(a,b)

...

End Sub

下面______调用该过程的格式是正确的。

A：Call P

B：Call P 10,20

C：P(10,20)

D：Call P(10,20)

参考答案：D 题分：6

10、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

Private Sub Command1_Click()

Static X As Integer

Static Y As Integer

Cls

Y = 1

Y = Y + 5

X = 5 + X

Print X, Y

End Sub

程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为______。

A：15 15

B：15 6

C：15 16

D：5 6

参考答案：B 题分：6

11、设有以下循环结构

Do

循环体

Loop While<条件>

则以下叙述中错误的是______。

A：循环体中可以使用Exit Do语句

B："条件"可以是关系表达式、逻辑表达式或常数

C：若"条件"是一个为0的常数，则一次也不执行循环体

D：如果"条件"总是为True，则不停地执行循环体

参考答案：C 题分：6

12、在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：

Private Function fun(ByVal m As Integer)

If m Mod 2 = 0 Then

fun = 2

Else

fun = 1

End If

End Function

Private Sub Command1_Click()

Dim i As Integer, s As Integer

s = 0

For i = 1 To 5

s = s + fun(i)

Next

Print s

End Sub

程序运行后，单击命令按钮，在窗体上显示是______。

A：7

B：6

C：8

D：9

参考答案：A 题分：6

VB考试四

1、某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值：

Private Sub Command1_Click()

Dim a(10) As Integer,max As Integer

For k=1 To 10

a(k)=InputBox("输入一个整数")

Next k

max=0

For k=1 To 10

If a(k)>max Then

max=a(k)

End If

Next k

Print max

End Sub

运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改。下面的修改中可以得到正确运行结果的是______。

A：把max=a(k)改为a(k)=max

B：把If a(k)>max Then改为If a(k)<max Then

C：把第2个循环语句For k=1 To 10改为For k=2 To 10

D：把max=0改为max=a(10)

参考答案：D

2、设有语句：Open "d:\Test.txt" For Output As #1，以下叙述中错误的是______。

A：执行该语句后，就可以通过Print#语句向文件Test.txt中写入信息

B：用该语句建立的文件的文件号为1

C：该语句打开d盘根目录下一个已存在的文件Test.txt，之后就可以从文件中读取信息D：若d盘根目录下无Test.txt文件，则该语句创建此文件

参考答案：C

3、工程中有2个窗体，名称分别为Form1、Form2，Form1为启动窗体，该窗体上有命令按钮Command1。要求程序运行后单击该命令按钮时显示Form2，则按钮Click事件过程应该是______。

A：Private Sub Command1_Click()

Form2.Load

End Sub

B：Private Sub Command1_Click()

Form2.Visible

End Sub

C：Private Sub Command1_Click()

Load Form2

End Sub

D：Private Sub Command1_Click()

Form2.Show

End Sub

参考答案：D

4、在窗体上画一个名为Command1的命令按钮，然后编写如下代码：

Option Base 1

Private Sub Command1_Click()

Dim a

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

j=1

For i=4 To 1 Step -1

s=s+a(i)*j

j=j*10

Next i

Print s

End Sub

运行上面的程序，其输出结果是______。

A：12

B：1234

C：34

D：4321

参考答案：B

5、设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图）。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是______。

A：Private Sub Command1_Click()

List1.Clear List1.ListIndex

End Sub

B：Private Sub Command1_Click()

List1.Clear

End Sub

C：Private Sub Command1_Click()

List1.RemoveItemList1.ListIndex

End Sub

D：Private Sub Command1_Click()

List1.RemoveItem

End Sub

参考答案：C

6、窗体上有一个名称为Frame1的框架（如图），若要把框架上显示的"Frame1"改为汉字"框架"，下面正确的语句是______。

A：Frame1.Caption="框架"

B：="框架"

C：Frame1.Text="框架"

D：Frame1.Value="框架"

参考答案：A

7、设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是______。

A：Call LoadPicture("File1.jpg")

B：Picture1.Picture=LoadPicture("File1.jpg")

C：LoadPicture("File1.jpg")

D：Picture1.Picture="File1.jpg"

参考答案：B

8、在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是______。

A：Timer1.Interval=50

B：Timer1.Interval=5

C：Timer1.Interval=0.5

D：Timer1.Interval=500

参考答案：D

9、在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：

Private Sub Command1_Click()

CommonDialog1.Filter="All Files(*.*)|*.*|Text Files" &_

"(*.txt)|*.txt|Executable Files(*.exe)|*.exe"

CommonDialog1.FilterIndex=3

CommonDialog1.ShowOpen

MsgBox CommonDialog1.FileName

End Sub

程序运行后，单击命令按钮，将显示一个"打开"对话框，此时在"文件类型"框中显示的是______。

A：Text Files(*.txt)

B：AllFiles(*.*)

C：Executable Files(*.exe)

D：不确定

参考答案：C

10、在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

c = "ABCD"

For n = 1 To 4

Print ______

Next

End Sub

程序运行后，单击命令按钮，要求在窗体上显示如下内容

D

CD

BCD

ABCD

则在______处填入的内容为。

A：Left(c,n)

B：Right(c,n)

C：Mid(c,n,n)

D：Mid(c,n,1)

参考答案：B

11、在窗体上画一个名称为Label1、标题为"VisualBasic考试"的标签，两个名称分别为Command1和Command2、标题分别为"开始"和"停止"的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。

编写如下程序：

Private Sub Form_Load()

Timer1.Enabled=False

End Sub

Private Sub Command1_Click()

Timer1.Enabled=True

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

If Label1.Left<Width Then

Label1.Left = Label1.Left + 20

Else

Label1.Left=0

End If

End Sub

程序运行后，单击"开始"按钮，标签在窗体中移动。

对于这个程序，以下叙述中错误的是______。

A：单击"停止"按钮后再单击"开始"按钮，标签从停止的位置继续移动

B：标签的移动方向为自右向左

C：当标签全部移出窗体后，将从窗体的另一端出现并重新移动

D：标签按指定的时间时隔移动

参考答案：B

12、执行下列语句

strInput=InputBox("请输入字符串","字符串对话框","字符串")

将显示输入对话框。此时如果直接单击"确定"按钮，则变量strInput的内容是______。A："请输入字符串"

B：空字符串

C："字符串"

D："字符串对话框"

参考答案：C

13、假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是______。

A：执行语句Picture1.Picture =""

B：执行语句Picture1.Picture = LoadPicture ("")

C：选择图片框，然后按Del键

D：选择图片框，在属性窗口中选择Picture属性条，然后按回车键

参考答案：B

14、在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：

Private Sub Command1_Click()

a=InputBox("请输入日期（1～31）")

t="旅游景点：" _

& IIf ( a > 0 And a <= 10,"长城","") _

& IIf ( a >10 And a <= 20,"故宫","") _

& IIf ( a > 20 And a <= 31,"颐和园","")

Text1.Text = t

End Sub

程序运行后，如果从键盘上输入16，则在文本框显示的内容是______。

A：旅游景点：长城颐和园

B：旅游景点：长城故宫

C：旅游景点：颐和园

D：旅游景点：故宫

参考答案：D

15、若变量a未事先定义而直接使用（例如：a=0），则变量a的类型是______。

A：Variant

B：String

C：Boolean

D：Integer

参考答案：A

16、有如下程序：：

Private Sub Form_Click()

Dim i As Integer, sum As Integer

sum = 0

For i = 2 To 10

If i Mod 2 <> 0 And i Mod 3 = 0 Then

sum = sum + i

End If

Next i

Print sum

End Sub

程序运行后，单击窗体，输出结果为______。

A：30

B：12

C：24

D：18

参考答案：B

17、以下能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数是______。

A：String

B：Mid

C：Left

D：Instr

参考答案：B

18、设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是______。

A：List1.ListIndex

B：List1.List

C：List1.Text

D：List1.Index

参考答案：C

19、设a=5,b=10，则执行c = Int((b - a) * Rnd + a) + 1后，c值的范围为______。

A：6~10

B：6~9

C：5~10

D：5~9

参考答案：A

20、在窗体上有1个名为Cd1的通用对话框，为了在运行程序时打开保存文件对话框，则在程序中应使用的语句是______。

A：Cd1.Action=2

B：Cd1.ShowSave=True

C：Cd1.Action=1

D：Cd1.ShowSave=0

参考答案：A

21、下面可以正确定义2个整型变量和1个字符串变量的语句是______。

A：Dim a As Integer,b,c As String

B：Dim a%,b$,c As String

C：Dim n,m As Integer,s As String

D：Dim x%,y As Integer,z As String

参考答案：D

22、在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：

Private Sub Command1_Click()

a = InputBox("Enter an integer")

b = InputBox("Enter an integer")

Text1.Text = b + a

End Sub

程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。

A：出错

B：18

C：810

D：108

参考答案：D

23、在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令

本文来源：https://www.bwwdw.com/article/ch2m.html