第二部分 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?23．数学表达式?e2对应的Visual Basic表达式是__________。
4y?lnxA．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 Or B>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
30．以下有关滚动条控件（ScrollBar）的说法中错误的是__________。 A．只能在设计时设置Max与Min属性值
B．Value属性返回滚动条内滑块当前所处位置的值 C．拖动滚动条内滑块时，将触发滚动条的Scroll事件 D．单击滚动箭头时，将触发滚动条的Change事件 二、填空题
1．执行下面程序，单击Command1后，A(1,4)的值是________，A(2,3)的值是________，A(3,2)的值是________。 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（或直接单击“确定”按钮），窗体第一行显示的内容是______，第二行显示的内容是________，第四行显示的内容是__________。 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 fun = 1 Else
fun = 2 * fun(d - 1) + 1 Print d; fun End If End Function
3．执行下面程序，单击Command1后，窗体第一行显示的内容是_________，第三行显示的内容是___________，最后一行显示的内容是_____________。 Option Explicit
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后，则在窗体上显示的第一行内容是_______，第三行内容是________，最后一行的内容是__________。 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
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后，则在窗体上显示的第一行内容是_______，第二行内容是________，最后一行的内容是__________。 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
-5
6．下面程序的功能是求π的近似值，当第n项的绝对值小于10时终止计算。
?1111?1??????(?1)n?1?? 43572n?1Option Explicit
Private Sub Command1_Click()
Dim n As Long, s As Single, t As Single, pi As Single Const eps = 0.00001 n = 1 t = 1 s = 0 Do
s = s + t n = n + 1
t=__________ loop until __________ pi = s * 4
label1.Caption = \π的近似值为：\ text1 = pi
End Sub
7．下面程序的功能是：找出满足以下条件的三位整数，不含数字0；且任意交换数字位置所得到的数，均能被6整除。 Option Explicit
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, st As String Dim a(6) As Integer For i = 100 To 999
If ___________________Then For j = 1 To 6
If a(j) Mod 6 <> 0 Then Exit For Next j
If___________ Then st = st & Str(i) k = k + 1
If k Mod 3 = 0 Then st = st & vbCrLf End If End If Next i Text1 = st End Sub
Private Function fj(a() As Integer, s As String) As Boolean Dim n As Integer, i As Integer, j As Integer If InStr(s, \ ________________ End If
For i = 1 To 3 For j = 1 To 2 n = n + 1
_____________________
s = Left(s, 1) & Right(s, 1) & Mid(s, 2, 1) Next j
s = Right(s, 1) & Left(s, 2) Next i fj = True End Function
8．下面程序的功能是求两个特大整数之和，由于VB中能够表示的整数大小有一定的限制，所以必须用新的方法求特大整数之和。本程序将特大整数使用字符类型进行处理，其中函数add由于求两个1位整数之和，参数c用于保存进位。注意：求和前需先将两个整数按位对齐。 Option Explicit
Private Sub Command1_Click()
Dim s1 As String, s2 As String, s3 As String Dim i As Integer, n1 As Integer, n2 As Integer Dim c As Integer, n As Integer s1 = Text1: s2 = Text2
n = ____________________