2012江苏省计算机二级VB试题库及答案(4)

Private Sub form_Click()

x = InputBox(\请输入一个数：\ Select Case x

Case Is > 0: y = x + 1: x = y + 1 Case Is = 0: y = x + 2: x = y + 2 Case Else: y = x + 3: x = y + 3 End Select Print x; y End Sub

从键盘输入1，输出的结果是 27 。

A．3 2 B．2 3 C．2 2 D．1 4 28．在当前窗体有一个文本框Text1，在D盘的根目录存在数据文件data.txt，数据文件的内容是

abc 10 20 30 efg 40 50 60

若运行程序，要在文本框中显示的内容是 28 。

Private Sub Form_Click()

Open \ Do Until EOF(10)

Line Input #10, lines

Text1.Text = Text1.Text + Mid(lines, 5, 2) Loop Close #10 End Sub A．abc B．1040 C．efg D．10 20 29．运行下列程序：

Private Sub form_Click() Dim x x = 0

Do While x < 10 x = x + 3 Loop

MsgBox x End Sub

单击窗体后，则在窗体上显示的结果是 29 。

A．0 B．3 C．10 D．12 30．运行下列程序：

Private Sub form_Click()

s = InputBox(\请输入一个字符A：\ Select Case Asc(s) Case Is > 65

n = String(3, UCase(s)) Case Is = 65

n = String(3, LCase(s)) Case Else n = s End Select Print n End Sub

从键盘输入A，输出的结果是 30 。

A．aaa B．AAA C．65 D．a 二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）（每空1分，

共30分）

1．由Visual Basic系统中，引发事件的对象叫做 （1） 。 2．在VB6.0中，CInt(-3.4)的函数值是 （2） 。 3．Stretch的属性只使用于 （3） 控件。

4．在用Open语句打开文件时，设定为二进制访问模式是 （4） 。

5．指示复选框处于选定、未选定或禁止状态(暗淡的)中的属性是 （5） 。 6．下列程序运行时，单击鼠标的右键时，窗体上打印出的数值是 （6） 。

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As

Single)

Cls

Print Button End Sub

7．下列程序运行后，输出的图形是一个 （7） 。

Private Sub Form_Click() Dim Cx, Cy

Cx = ScaleWidth / 2 Cy = ScaleHeight / 2

Line (Cx, 0)-(Cx, ScaleHeight) Line (0, Cy)-(ScaleWidth, Cy) End Sub

8．运行下列程序,单击Command1命令按钮后，则在窗体上显示第一行和第二行的结果分别是 （8） 和 （9） 。

Private Sub Command1_Click() t = 1: x = 2: y = 3: z = 4

If t > 0 Or t = x And x <> y Or y > z Then t = fun1(t, z) Print t Else

t = fun1(x, y) Print t End If

Print x Print y End Sub

Function fun1(ByVal x As Integer, ByVal y As Integer) As Integer Do While y <> 0 t = x \\ y x = y y = t Loop fun1 = x End Function 9．当下列程序运行，单击窗体后，分别输入72和24，信息框上显示的结果是 （10） 。

Private Sub Form_Click()

Dim x As Integer, y As Integer x = Val(InputBox(\输入整数72\ y = Val(InputBox(\输入整数24\

z = fun1(x, y) MsgBox Str(z) End Sub

Private Function fun1(ByVal a As Integer, ByVal b As Integer) As Integer Do

r = a Mod b a = b b = r

Loop Until r = 0 fun1 = a End Function 10．运行下列程序，单击窗体后，则在窗体上显示第一行和第二行的结果分别是 （11） 和 （12） 。

Private Sub Form_Click() x = 3: y = 7: z = 2: t = 5 Do

y = y + x x = x + y

Call sub1(x, y, z, t) Print x; z; t Loop While x < 54 End Sub

Private Sub sub1(x, y, z, ByVal w) z = x y = z

w = x + y + z x = w End Sub 11．下列程序运行后，在窗口显示结果的第二行和第三行分别是 （13） 和 （14） 。

Option Base 1

Private Sub Command1_Click() Dim a

a = Array(1, 2, 3, 4, 5) Call sub1(a, 3) For i = 1 To 5 Print a(i) Next i End Sub

Public Sub sub1(x, n) If n > 1 Then t = x(1)

x(1) = x(n - 1) x(n - 1) = t

Call sub1(x, n - 1) End If End Sub

12．下列程序的窗口上有一个列表框List1，程序运行单击窗体后列表框最后一行的值为 （15） ，List1.ListCount的值为 （16） 。

Option Base 1

Private Sub form_Click()

For i = 1 To 10

List1.AddItem i Next i Sum = 0

For i = 0 To List1.ListCount - 1 Sum = Sum + List1.List(i) Next i

List1.AddItem Sum End Sub

13．下列程序运行后，在对话框内输入4后，结果如图2所示。给定的程序不完整，将程序补充完整。

图2

Private Sub form_Click() Dim s()

t = Val(InputBox(\请输入整数4\ k = 2 * t （17） For i = 0 To 2 * t Select Case i

Case Is = 0, 2 * t

s(i) = String(2 * t, \ （18） Case Is < t

s(i) = String(k, \ Case Else

s(i) = String(i, \ End Select （19） Next i

For i = 0 To 2 * t Print s(i) Next i End Sub

14．有下列程序，利用下列公式，即级数求和的方法，求cos(x)值。

x2x4x6cos(x)?1?????2!4!6!

计算精度为1×106。程序运行后的结果如图3所示。给定的程序不完整，将程序补充

完整。

－

图3

Option Base 1

Private Sub Command1_Click()

Dim x As Single, n As Long, sum As Single x = Val(Text1.Text) sum = 1 k = -1 n = 2

（20） Do

s = s * x * x t = s / fun1(n) sum = sum + k * t n = n + 2

k = （21） Loop Until t < 0.000001 Text2.Text = sum End Sub

Private Function fun1(n As Long) As Long Dim i As Long

If n = 0 Or n = 1 Then （22） Else

fun1 = n * fun1(n - 1) End If End Function 15．将1～20的自然数围成一圈，使其相邻的两数之和均为素数。程序中数组a存放1～20中的奇数，数组b存放1～20中的偶数，c数组存放最后结果(即有上述性质的圈)。程序实现将1(奇数)放入c，从b中选一偶数放入c，使该两数之和为素数，然后再从a中选一奇数放入c，使相邻两数之和为素数，重复此过程直至c中放到20个为止。程序运行后的结果如图4所示。给定的程序不完整，将程序补充完整。

图4

Option Base 1

Private Sub Command1_Click()

Dim a(10) As Integer, b(10) As Integer, c(21) As Integer Dim i, j, k, m, n For i = 1 To 10 a(i) = 2 * i - 1 b(i) = 2 * i

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库2012江苏省计算机二级VB试题库及答案(4)在线全文阅读。