江苏省2019年春二级计算机考试VB笔试试卷7页word

2019春计算机等级考试（二级） Visual Basic程序设计 第二部分

一、 选择题

21.关于窗体，以下叙述中正确的是___________。

A 仅当窗体上没有可以获得焦点的控件时，窗体才可以获得焦点 B 一个VB工程只能从某个指定的窗体开始启动 C 只有窗体可以作为控件的容器

D Unload Me和End语句的效果总是等同的

22 若a为长整型变量，则执行a=12；Print Len(a)；Len(Str(a));Len(CStr(a))后，在窗体上看到的是__________。

A 4 2 3 B 2 3 2 C 4 3 2 D 2 2 3

cos30。223 数学表达式＋e对应的Visual Basic表达式是___________

4y?InxA Cos(30*3.14159/180)/(4*y+Ln(x))+Exp(2) B Cos(30*3.14159/180)/(4*y+Log(x))+Exp(2) C Cos(30*3.14159/180)/(4*y+Ln(x))+e^2 D Cos(30)/(4*y+Log(x))+e^2

24 表达式Fix(-2.5)+Int(-3.5)+CInt(-2.5)的值是_________________。 A -8 B -7 C -6 D -5

25．以下说法中，错误的是_________________。

A．使用缺省Preserve关键字的ReDim语句可以改变数组的维数和大小 B．ReDim语句只能出现在过程中

C．使用ReDim语句重新定义的动态数组，只能比原数组大 D．使用ReDim语句可以对动态数组的所有元素进行初始化 26 下列关于菜单的说法中，错误的是_____________。 A 可以为菜单项选定快捷键

B 若在“标题”文本框中键入连字符（－），则可在菜单的两个菜单命令项之间加一条分隔线

C 除了Click事件之外，菜单项还可以影响其他事件 D 菜单编辑器的“名称”文本框用于输入菜单项的名称

27 以下有关过程中形式参数的描述中，错误的是_____________。 A 函数过程可以没有形式参数 B 事件过程一定没有形式参数

C 形参数组只能按地址与实参数组结合 D 窗体与控件也可以作为过程的参数

28 以下表达式中，可以表示“A和B之一大于0”的是_______________。 ①A*B<=0 ②A>0 Xor B>0 ③A>0 OrB>0 ④A>0 And B<=0 Or B>0 And A<=0 A ①③ B ③④ C ②④ D ①②④

29 设变量A为长整型，则下面不能正常执行的语句是__________。 A A=32768*2 B A=2*1.5*16384 C A=16384*2 D A=190^2

第 1 页

30 以下有关滚动条控件(ScrollBar)的说法中错误的是______________。 A 只能在设计时设置Max与Min属性值

B Value属性返回滚动条内滑块当前所处位置的值 C 拖动滚动条内滑块时，将触发滚动条的Scroll事件 D 单击滚动箭头时，将触发滚动条的Change事件 二、 填空题

1 执行下面程序，单击Command1后，A（1，4）的值是__ (1)____,A（2，3）的值是___(2)___，A（2，3）的值是____(3)_______。 Option Explicit Option Base 1

Private Sub Command1_Click()

Dim A(4, 4) As Integer, UB As Integer

Dim i As Integer, j As Integer, n As Integer UB = UBound(A, 1) n = 0

For i = UB To 1 Step -1 For j = 1 To UB + 1 - i n = n + 1

A(j, j + i - 1) = n Next j Next i

For i = UB To 2 Step -1 For j = UB To i Step -1

A(j, j - i + 1) = A(5 - j, 4 - j + i) Next j Next i

For i = 1 To UB For j = 1 To UB

Picture1.Print A(i, j); Next j

Picture1.Print Next i End Sub

2 执行下面的程序，单击Command1后，在InputBox函数对话框中输入4（或直接单击“确定”按钮），窗体第一行显示的内容是___(4)______，第二行显示的内容是____(5)_____，第四行显示的内容是_____(6)_________。 Option Explicit

Private Sub Command1_Click() Dim Days As Integer

Days = InputBox(\输入正整数\ Print fun(Days) End Sub

Private Function fun(D As Integer) As Integer If D = 1 Then

第 2 页

fun = 1 Else

fun = 2 * fun(D - 1) + 1 Print D; fun End If End Function

3. 执行下面程序，单击Command1后，窗体第一行显示的内容是___(7)______，第三行显示的内容是___(8)______，最后一行显示的内容是___(9)______。 Private Sub Command1_Click() Dim I As Integer, K As Integer For I = 1 To 5 K = Fun(I) + I Print K Next I Print I End Sub

Function Fun(N As Integer) As Integer Static M As Integer Dim J As Integer M = M + N N = N + 1

For J = 1 To M J = J + 2 Fun = Fun + J Next J

Fun = Fun + N End Function

4 执行下面程序，单击Command1后，窗体第一行显示的内容是___(10)______，第三行显示的内容是___(11)______，最后一行显示的内容是___(12)______。 Option Explicit

Private Sub Command1_Click() Dim S As String, N As Integer S = \ N = 14

Print Convert(S, N) End Sub

Private Function Convert(S As String, N As Integer) As Long Dim St As String, L As Integer, I As Integer L = Len(S)

Do While L >= 1 St = Left(S, 1) If St > \

St = Asc(St) - 55 '\的ASCII码为65 End If

第 3 页

Convert = Convert + Val(St) * N ^ (L - 1) Print Val(St) * N ^ (L - 1) L = L - 1

S = Right(S, L) Loop

End Function

5 执行下面程序，单击Command1后，窗体第一行显示的内容是___(13)______，第三行显示的内容是___(14)______，最后一行显示的内容是___(15)______。 Option Explicit

Private Sub Command1_Click()

Dim s As String, k As Integer, ch() As String Dim p As String, i As Integer

s = UCase(\ For i = 1 To Len(s)

If Mid(s, i, 1) <= \ p = p & Mid(s, i, 1) ElseIf p <> \ k = k + 1

ReDim Preserve ch(k) ch(k) = p p = \ End If Next i

For i = 1 To UBound(ch) If Len(ch(i)) <= 2 Then Call move_c(ch(i), 1) Else

Call move_c(ch(i), 2) End If

Print ch(i) Next i End Sub

Private Sub move_c(s As String, k As Integer) Dim i As Integer, j As Integer, p As String * 1 For i = 1 To k p = Right(s, 1)

For j = Len(s) - 1 To 1 Step -1 Mid(s, j + 1, 1) = Mid(s, j, 1) Next j

s = p & Right(s, Len(s) - 1) Next i End Sub

6. 下面程序的功能是求π的近似值，当第n项的绝对值小于10

?5 时终止计算

第 4 页