精编江苏省秋二级计算机考试VB笔试试题

2009秋计算机等级考试（二级）

Visual Basic程序设计 第二部分

第二部分 Visual Basic 程序设计 一．单选题

21.要将焦点设置在某个控件上，以下四个选项中正确的是 21 。 A. 只能使用鼠标直接点击控件

B. 只能使用Tab键将焦点移到该控件

C. 只能在程序中调用该控件的SetFocus方法 D. A、B、C三选项中涉及的方法均可使用

22.在下列属性中，属于CommandButton控件、ListBox控件共有的是 22 。 A. Caption、Text B. Visible、Font C. Caption、Visible D. List、Visible 23. 数学表达式

Sin(30?)?lnx?y2??ex?y对应的Visual Basic表达式是 23 。

A. Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y) B. (Sin(30*π/180)+Sqr(Ln(x)+y))/(2*π+Exp(x+y)) C. Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+e^(x+y)) D. (Sin(30*3.14159/180)+Sqr(Log(x)+y))/(2*3.14159+Exp(x+y))

24. 下面的关系表达式中，运算结果为True的是 24 。 A. CInt(1.5)=Int(1.5) B. Fix(1.5)=Int(1.5) C. Fix(-1.5)=CInt(-1.5) D. Fix(-1.5)=Int(-1.5)

25. 下面有关数组的叙述中，不正确的是 25 。

① 在过程中用ReDim语句定义的动态数组，其下标的上下界可以是变量 ② 数组作为形式参数时，传递的是每个数组元素的值

③ 在窗体模块的通用声明处可以用Public 说明一个全局数组

④ 数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值 A. ②③ B. ①③④ C. ①②③④ D. ③④

26. 以下关于文件的叙述中，错误的是 26 。

A. 用Output模式打开一个顺序文件，即使不对它进行写操作，原来的内容也被清除 B. 可以用Print #语句或 Write# 语句将数据写到顺序文件中

C. 若以Output、Append、Random、Binary 方式打开一个不存在的文件，系统会出错 D. 顺序文件或随机文件都可以用二进制访问模式打开

27. 下列有关控件数组的说法中，错误的是 27 。

A. 控件数组由一组具有相同名称和相同类型的控件组成，不同类型的控件无法组成控件数组

B. 控件数组中的所有控件不得具有各自不同的属性设置值

C. 控件数组中的所有控件共享同一个事件过程

D. 控件数组中每个元素的下标由控件的Index属性指定

28. 以下Case语句中，能正确描述Y的绝对值大于6的是 28 。 A. Case Abs(Y)>6 B. Case -6 To 6

C. Case Not(-6 To 6) D. Case Is<-6，Is>6 29．若在模块中用Private Function Fun(A as Single,B as Integer) As Integer 定义了函数Fun。调用函数Fun的过程中定义了I、J和K三个Integer型变量，则下列语句中不能正确调用函数Fun的语句是___________。

A．Fun 3.14,J B． Call Fun(I,365) C．Fun(I),(J) D． K=Fun(“24”,”35”)

30. 若需要在同一窗体内安排两组相互独立的单选按钮（OptionButton），可使用 30 控件做容器将它们分开。

①TextBox ②PictureBox ③ Image ④ Frame

A. ①或② B. ②或③ C. ②或④ D. ③或④

二．填空题

1. 执行下面的程序,单击Command1,则数组元素a(1,2)的数值是_______,数组元素a(2,3)的数值是_______,数组元素a(4,3)的数值是_______. Option Explicit

Private Sub Command1_Click() Dim a(4, 4) As Integer, i As Integer

Dim j As Integer, k As Integer, n As Integer n = 16: k = 2 Do

For i = 1 To 4 For j = 1 To 4 If i + j = k Then a(i, j) = n n = n - 1 End If Next j Next i k = k + 1

Loop Until k > 8 For i = 1 To 4 For j = 1 To 4

Print Right(\ \ Next j Print Next i End Sub

2.运行下面的程序,单击Command1,窗体上显示的第一行内容是__________,第三行内容是__________,最后一行内容是__________. Option Explicit

Private Sub Command1_Click() Dim i As Integer, s As Integer For i = 1 To 9 Step 3 s = fun((i)) + fun(i) Print s Next i End Sub

Private Function fun(m As Integer) As Integer Static a As Integer If m Mod 2 = 0 Then a = a + 1 m = m + 1 Else

a = a + 2 m = m + 2 End If

fun = a + m Print fun End Function

3.运行下面的程序,单击Command1,窗体上显示的第一行内容是__________,第二行内容是__________,最后一行内容是__________. Option Explicit

Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = 1 b = 2

Print fun(a + 2, fun(2 * a, b)) Print a; b End Sub

Private Function fun(x As Integer, ByVal y As Integer) As Integer x = x + 2 y = x - y + 3 fun = x + y Print x; y; fun End Function

4.执行下面的程序,单击Command1,窗体上显示的第二行内容是__________,第三行内容是__________,第四行内容是__________.

Option Explicit

Private Sub Command1_Click() Dim n As Integer, k As Integer n = 36: k = 5 Print trans(n, k) End Sub

Private Function trans(n As Integer, k As Integer) as string Dim r As Integer If n <> 0 Then r = n Mod k If r < 10 Then

trans = trans(n \\ k, k) & r Print n Else

trans = trans(n \\ k, k) & Chr(55 + r) End If End If End Function

5.运行下列程序,单击Command1,窗体上显示的第一行内容是__________,第二行内容是__________,第三行内容是__________. Option Explicit

Private Sub Command1_Click() Dim s As String, k As Integer Dim key As String s = \ key = \ k = 1 Do

Call encrypt(s, key) Print s

s = Right(s, k) & Left(s, 4 - k) & Mid(s, 4, 2) k = k + 1

Loop Until k > 3 End Sub

Private Sub encrypt(a As String, b As String) Dim sp As String, n As Integer, i As Integer sp = \

n = Len(b) - Len(a)

If n > 0 Then a = Right(sp & a, Len(b)) For i = 1 To Len(b)

If Mid(a, i, 1) = Mid(b, i, 1) Then Mid(a, i, 1) = \ Else