2017计算机二级考试VB基础考试题

2017年计算机二级考试即将在九月份进行，VB是计算机二级考试的科玛之一，你知道计算机二级考试VB科目都考哪些知识吗?为了方便考生备考计算机二级考试VB 科目。下面是小编为大家带来的计算机二级考试VB考试题，欢迎阅读。

　　考试题一：

1. 下面程序是从键盘上输入一个字符串，把该字符串中的大写字母转换成小写字母，输出到文件中，然后从该文件中读出字符串并显示出来。请完善下面的程序：

Private Form_Click( )

Dim Str1 As String * 50 , Str2 As String , FileNo As Integer

FileNo = 【63】

Open “d:” For 【64】As FileNo

Str1 = InputBox ( “请输入一个字符串：” )

Str1 = Lcase ( Str1 )

Seek #FileNo , 1

Put #FileNo, , Str1

【65】#FileNo, 1

Str2 = Input (【66】, #FileNo )

Print Str2

End Sub

【63】(A)Free　　　　　(B)File　　　　　(C)FreeFile　　　 (D)FileFree

【64】(A)Input　　　　 (B)Output　　　　(C)Random　　　 (D)Binary

【65】(A)Loc　 　　 (B)Lof　　 　(C)Eof　 　　 (D)Seek

【66】(A)Len ( Str1 )　　(B)Len ( Str2 )　　(C)StrLen ( Str1 ) (D)StrLen (Str2)

2. 以下程序的功能是：把当前目录下的顺序文件的内容读入内存，并在文本框Text1中显示出来。请填空。

Private Sub Command1_Click()

Dim inData As String

= ""

Open "" 【14】 As #1

Do While 【15】

Input #1, inData

= & inData

Loop

Close #1

End Sub

3. 在窗体上画一个文本框(其Name属性为Text1)，然后编写如下事件过程：

Private Sub Form_Load( )

= “ ”

ocus

For i = 1 to 10

Sum = Sum + i

Next i

= Sum

End Sub

程序运行后，输出结果为( 【67】 )

(A)在文本框Text1中输出55　　　　　　　(B)在文本框Text1中输出0

(C)在文本框Text1中输出不定值　　　　　 (D)出错

4. 在窗体上画一个文本框和一个列表框，然后编写如下两个事件过程：

Private Sub Form_Load( )

tem “123 ”

tem “456 ”

tem “369”

tem “789 ”

= “ ”

End Sub

Private Sub List1_DblClick( )

a =

Print a +

End Sub

程序运行后，在文本框中输入“248”，然后双击列表框中的“369”，则输出结果( 【68】 )

(A)617　　　　(B)248369　　　　(C)369248　　　　(D)0

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

(A)Private Sub Command1_Click()

ion = Str(Val(ion )*Val( ion))

End Sub

(B)Private Sub Command1_Click()

ion = e * e

End Sub

(C)Private Sub Command1_Click()

ion = HScroll1 * HScroll2

End Sub

(D)Private Sub Command1_Click()

ion = HScroll1. Text *

End Sub

6. 阅读下面程序：

Public Sub xy ( a As Integer , b As Integer )

Dim t As Integer

Do

t = a Mod b

a = b : b = t

Loop While t

Print a

End Sub

用Call xy (16 , 40 )调用此通用过程后，输出结果为( 【69】 )

(A)4　　　　　(B)8　　　　　(C)16　　　　　(D)32

7. 在窗体上画一个名称为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

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

(A)15 　　　(B)18 　　　(C)21 　　　(D)24

8. 以下语句的输出结果是( 【70】 )

a = “BeiJing”

b = “ShangHai”

Print a;b

以下结果中，“ □ ”表示空格：

(A)BeiJing□ShangHai　　　　　　(B)BeiJingShangHai

(C)BeiJingShangHai□　　　　　　(D)BeiJing□ShangHai□

9. 下面程序共执行了( 【71】 )次循环。

Dim Intsum As Integer , i As Integer , j As Integer

　　考试题二：

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

Private Sub Command1_Click()

Dim num As Integer

num = 1

Do Until num > 6

Print num;

num = num + 2.4

Loop

End Sub

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

(A)1 3.4 5.8 　　(B)1 3 5　　(C)1 4 7　　(D)无数据输出

2. 有如下函数：

Function Facn ( x As Integer ) As Long

Dim p As Long , i As Integer

p = 1

For i = 1 To x

p = p * i

Next i

Facn = p

End Function

调用它的.事件过程如下：

Private Sub Command1_Click ( )

i = Val ( InputBox ( “请输入数据”))

a = Facn (( i ) ) ‘实参i用圆括号括起，则强制为值传递

Print a

End Sub

若输入数据6，则程序运行结果为( 【73】 )

(A)60　　　　　(B)120　　　　　(C)600　　　　　(D)720

3. 在窗体上画一个名称为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

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

(A) 7 9 (B) 34 0 (C) 9 7 (D)死循环

4. 下列程序的执行结果为( 【74】 )

Dim IntSum As Integer , i As Integer

IntSum = 0

For i = 30.2 To 1 Step -5.3

IntSum = IntSum + i

Next i

Print IntSum

(A)106　　　　(B)105　　　　(C)102　　　　(D)101

5. 在窗体上画一个命令按钮，然后编写如下事件过程，该过程执行结果为( 【75】 )

Option Base 1

Private Sub Command1_Click ( )

Dim a As Variant , s As Integer

a = Array ( 2 , 4 , 6 , 8 )

j = 1

For i = 1 To 4 Step 1

s = s + a ( i ) * j

j = j *10

Next i

Print s

End Sub

(A)0　　　　(B)1110　　　　(C)2468　　　　(D)8642

设有如下通用过程：

Public Function f(x As Integer)

Dim y As Integer

x = 20

y = 2

f = x * y

End Function

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

Private Sub Command1_Click()

Static x As Integer

x = 10

y=5

y = f(x)

Print x; y

End Sub

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

(A)10 5　　　 (B)20 5　　　(C)20 40 　　　(D)10 40

7. 对窗体编写如下代码：

Option Base 1

Private Sub Form_KeyPress( KeyAscii As Integer)

a = Array (123 , 86 , 57 , 248 , 32)

m1 = a ( 1 )

m2 = 1

If KeyAscii = 13 Then

For i=2 To 5

If a ( i ) > m1 Then

m1 = a ( i )

m2 = i

End If

Next i

End If

Print m1 , m2

End Sub

程序运行后，按回车键，输出结果为( 【76】 )

(A)32 5　　　(B)248 4　　　(C)32 1　　　(D)248 5

设有如下通用过程：

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

For i = 1 To 5

x = x + a(i)

Next

End Sub

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

Private Sub Command1_Click()

Dim arr(5) As Variant

For i = 1 To 5

arr(i) = i

Next

n = 10

Call Fun(arr(), n)

= n

End Sub

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

(A)10 　　　　(B)15 　　　　　(C)25 　　　　　(D)24

9. 阅读程序：

Function Func ( a As Integer )

b = 1

Static c As Integer

b = b +1

c = c +1

Func = a + b + c

End Function

Private Sub Command1_Click( )

Dim a As Integer

a = 3

For i =1 to 3

Print Func( a )

Next i

End Sub

运行上面的程序，单击命令按钮后，输出结果为( 【77】 )

(A)6　　　 　 (B)6　 　　　(C)6 (D)6

7 6 8 13

8 6 10 21

10. 在窗体上画一个名称为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

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

(A)89　　　　 (B)99 　　　　(C)23 　　　　(D)77