计算机二级VB语言程序设计试题4

1.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：

Private Sub Command1_Click( )

n = Val(Text1.Text)

If n2 = n/2 Then

f = f1(n)

Else

f = f2(n)

End If

Print f; n

End Sub

Public Function f1(ByRef x)

x=x*x

f1=x+x

End Function

Public Function f2(ByVal x)

x=x*x

f2=x+x+x

End Function

程序运行后，在文本框中输入3，然后单击命令按钮，窗体上显示的是(D)(单)

A.72 36

B.108 36

C.72 6

D.27 3

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

Private Sub Command1_Click( )

c = "1234"

For i = 1 To 4

c1 = Trim(Str( ))

Print　c1

Next i

End Sub

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

1

12

123

1234

则在下划线处应填入的内容为(B)(单)

A.Right(c1,i)

B.Left(c1,i)

C.Mid(c1,i,1)

D.Mid(c1,i,i)

3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：

Private Sub Command1_Click( )

n = Val(Text1.Text)

For i = 2 To n

For j = 2 To sqr(i)

If i Mod j = 0 Then Exit For

Next j

If j >Sqr(i) Then Print i

Next i

End Sub

该事件过程的功能是(C)(单)

A.输出n以内的奇数

B.输出n以内的偶数

C.输出n以内的素数

D.输出n以内能被j整除的数

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

Private Function f(m As Integer)

If m Mod 2 = 0 Then

f = m

Else

f = 1

End If

End Function

Private Sub Command1_Click( )

Dim i As Integer

s = 0

For i = 1 To 5

s = s + f(i)

Next

Print s

End Sub

程序运行后，单击命令按钮，在窗体上显示的是(C)(单)

A.11

B.10

C.9

D.8

5.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click( )

Dim array1(10, 10) As Integer

Dim i As Integer, j As Integer

For i = 1 To 3

For j = 2 To 4

array1(i, j) = i + j

Next j

Next i

Text1.Text = array1(2, 3) + array1(3, 4)

End Sub

程序运行后，单击命令按钮，在文本框中显示的值是(D)(单)

A.15

B.14

C.13

D.12

6.Visual Basic应用程序中标准模块文件的扩展名是【BAS或.BAS】(注意不要写点)。

7.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。

Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button=2 Then

popupmenu mnuEdit

End If

End Sub

8.在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。

Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button=2 Then

【popupmenu】 mnuEdit

End If

9.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【Interval】属性设置为500。

10.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的Interval属性设置为【500】。

11.与数学表达式ln(a+b)/(3x)+5 对应的Visual Basic表达式是【log(a+b)/(3*x)+5或(log(a+b)/(3*x))+5】

12.将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【】

13.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。

Private Sub Option1_Click(Index As Integer)

Select Case 【Index】

Case 0

a = "宋体"

Case 1

a = "黑体"

Case 2

a = "楷体_GB2312"

End Select

text1.fontname=a

End Sub

14.在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。

Private Sub Option1_Click(Index As Integer)

Select Case index

Case 0

a = "宋体"

Case 1

a = "黑体"

Case 2

a = "楷体_GB2312"

End Select

text1.【fontname】=a

End Sub

15.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2。程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。

Private Sub Combo1_Click( )

Call ShowItem(Combo1, Label1)

End Sub

Private Sub Combo2_Click( )

Call ShowItem(Combo2, Label2)

End Sub

Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)

【tmplabel】.Caption =tmpCombo.Text

End Sub

16.在窗体上画两个组合框，其名称分别为Combo1、Combo2，然后画两个标签，名称分别为Label1、Label2，程序运行后，如果在某个组合框中选择一个项目，则把所选中的项目在其下面的标签中显示出来。

Private Sub Combo1_Click( )

Call ShowItem(Combo1, Label1)

End Sub

Private Sub Combo2_Click( )

Call ShowItem(Combo2, Label2)

End Sub

Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)

tmpLabel.Caption =【tmpcombo】.Text

End Sub

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

Private Sub Command1_Click( )

n = 5

f = 1

s = 0

For c = 1 To n

f = f*【7】

s = s + f

Next c

Print s

End Sub

该事件过程的功能是计算1!+2!+3!+…+n!的值。

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

Option Base 1

Private Sub Command1_Click( )

Dim a(10) As Integer

For I = 1 To 10

a(I) = I

Next I

Call【swap】a( )

For I = 1 To 10

Print a(I);

Next

End Sub

Sub swap(b( ) As Integer)

n = ubound(b)

For I = 1 To n / 2

t = b(I)

b(I) = b(n)

b(n) = t

n=n-1

Next I

End Sub

上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。

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

Option Base 1

Private Sub Command1_Click( )

Dim a(10) As Integer

For I = 1 To 10

a(I) = I

Next I

Call swap(a( ))

For I = 1 To 10

Print a(I);

Next

End Sub

Sub swap(b( ) As Integer)

n =【ubound(b)】

For I = 1 To n / 2

t = b(I)

b(I) = b(n)

b(n) = t

n=n-1

Next I

End Sub

上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。

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

Option Base 1

Private Sub Command1_Click( )

Dim a(10) As Integer

For I = 1 To 10

a(I) = I

Next I

Call swap(a( ))

For I = 1 To 10

Print a(I);

Next I

End Sub

Sub swap(b( ) As Integer)

n = ubound(b)

For I = 1 To n / 2

t = b(I)

b(I) = b(n)

b(n) = t

n=【n-1】

Next I

End Sub

上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。

21.以下能判断指针是否指向文件尾的函数是(D)(单)

A.BOF

B.LOC

C.LOF

D.EOF

22.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是(B)(单)

A.如果工程中含有Sub Main过程，则程序一定首先执行该过程

B.不能把标准模块设置为启动模块

C.用Hide方法只是隐藏一个窗体,不能从内存中清除该窗体

D.任何时刻最多只有一个窗体是活动窗体

23.窗体的过程Form_MouseDown (Button As Integer, Shift As Integer, X As Single, YAs Single) ，有4个参数，关于这些参数，正确的描述是(D)(单)

A.通过Button参数判定当前按下的是键盘上哪一个键

B.Shift参数只能用来确定是否按下Shift键

C.Shift参数只能用来确定是否按下Alt和Ctrl键

D.参数x,y用来设置鼠标当前位置的坐标

24.设组合框Combo1中有3个项目，则以下能删除最后一项的语句是(B)(单)

A.Combo1.RemoveItem Text

B.Combo1.RemoveItem 2

C.Combo1.RemoveItem 3

D.Combo1.RemoveItem Combo1.Listcount

25.以下关于焦点的叙述中，错误的是(A)(单)

A.如果文本框的Enabled属性为False，能接收从键盘上输入的数据

B.当文本框失去焦点时，触发LostFocus事件

C.当文本框的Enabled属性为False时，其Tab顺序不起作用

D.可以用TabIndex属性改变Tab顺序

26.如果要在菜单中添加一个分隔线，则应将其Caption属性设置为(D)(单)

A.=

B.*

C.&

D.-

27.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：

Private Sub Command1_Click( )

n = val(Text1.Text )

Select Case n

Case 1 To 20

x = 10

Case 2, 4, 6

x = 20

Case Is < 10

x = 30

Case 10

x = 40

End Select

Text2.Text = x

End Sub

程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是(A)(单)

A.10

B.20

C.30

D.40

28.设有以下循环结构

Do

循环体

Loop While <条件>

则以下叙述中错误的是(A)(单)

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

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

C.循环体中可以使用Exit Do语句

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

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

Private Sub Command1_Click( )

Dim num As Integer

num = 1

Do Until num > 6

Print num;

num = num + 2.4

Loop

End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是(B)(单)

A.1 3.4 5.8

B.1 3 5

C.1 4 7

D.无数据输出

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

Private Sub Command1_Click( )

Dim a As Integer, s As Integer

a = 8

s = 1

Do

s = s + a

a = a-1

Loop While a <= 0

Print s; a

End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是(C)(单)

A.7 9

B.34 0

C.9 7

D.死循环

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

有如下通用过程：

Public Function f(x As Integer)

Dim y As Integer

x = 20

y = 2

f = x * y

End Function

Private Sub Command1_Click( )

Static x As Integer

x = 10

y=5

y = f(x)

Print x; y

End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是(C)(单)

A.10 5

B.20 5

C.20 40

D.10 40

32.设有如下通用过程：

Public Sub Fun(a( ), ByVal x As Integer)

For i = 1 To 5

x = x + a(i)

Next I

End Sub

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：

Private Sub Command1_Click( )

Dim arr(5) As Variant

For i = 1 To 5

arr(i) = i

Next I

n = 10

Call Fun(arr( ), n)

Text1.Text = n

End Sub

程序运行后，单击命令按钮，则在文本框中显示的内容是(A)(单)

A.10

B.15

C.25

D.24

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

Option Base 1

Private Sub Command1_Click( )

d = 0

c = 10

x = Array(10, 12, 21, 32, 24)

For i = 1 To 5

If x(i) > c Then

d = d + x(i)

c = x(i)

Else

d = d-c

End If

Next i

Print d

End Sub

程序运行后，如果单击命令按钮，则在窗体上输出的内容为(C)(单)

A.89

B.99

C.23

D.77

34.在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2;六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label 4、Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示Hscroll1、Hscroll2滚动条的数值，Label3显示A*B的计算结果。当移动滚动条时，在相应的标签中显示滚动条的值。当单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是(C)(单)

A.Private Sub Command1_Click( )

Label3.Caption = =Str(Val(Label1.Caption)*Val( Label2.Caption))

End Sub

B.Private Sub Command1_Click( )

Label3.Caption = HScroll1.Value *HScroll2.Value

End Sub

C.Private Sub Command1_Click( )

Label3.Caption = HScroll1 * HScroll2

End Sub

D.Private Sub Command1_Click( )

Label3.Caption = HScroll1. Text *HScroll2.Text

End Sub

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

Private Sub Command1_Click( )

For n = 1 To 20

If n Mod 3 <> 0 Then m = m + n 3

Next n

Print n

End Sub

程序运行后，如果单击命令按钮，则窗体上显示的内容是(C)(单)

A.15

B.18

C.21

D.24

36.在窗体上画一个名称为Text1的文本框，并编写如下程序：

Private Sub Form_Load( )

Show

Text1.Text = ""

Text1.SetFocus

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X AsSingle, Y As Single)

Print "程序设计"

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

Print "Visual Basic";

End Sub

程序运行后，如果按"A"键，然后单击窗体，则在窗体上显示的内容是(A)(单)

A.Visual Basic

B.程序设计

C.A程序设计

D.Visual Basic程序设计

37.设有如下程序：

Private Sub Command1_Click( )

Dim sum As Double, x As Double

sum = 0

n = 0

For i = 1 To 5

x = n / i

n = n + 1

sum = sum + x

Next

End Sub

该程序通过For循环计算一个表达式的值，这个表达式是(C)(单)

A.1+1/2+ 2/3+3/4+4/5

B.1+1/2+2/3+3/4

C.1/2+2/3+3/4+4/5

D.1+1/2+1/3+1/4+1/5

38.以下有关数组定义的语句序列中，错误的是(D)(单)

A.Static arr1(3) ：arr1(1) = "100" ：

arr1(2) = "Hello" ：arr1(3) = "123.45"

B.Dim arr2( ),size As Integer

Private Sub Command2_Click( )

size =InputBox("输入：") ReDim arr2(size) ......

End Sub

C.Option Base 1 Private Sub Command3_Click( )

Dim arr3(3) As Integer ......

End Sub

D.Dim n As Integer Private Sub Command4_Click( )

Dim arr4(n) As Integer......

End Sub

39.执行下面的程序段后，I的值为【5.6】

s = 2

For I = 3.2 To 4.9 Step 0.8

s = s + 1

Next I

Print i

52170.执行下面的程序段后，S的值为【5】

Private Sub Command1_Click( )

s = 2

For c = 3.2 To 4.9 Step 0.8

s = s + 1

Next c

Print s