量在未压缩时大约为____________。 A．64KB B．128KB C．1MB D．2MB
20．数字图像文件有多种文件类型，不同类型的文件各有特点。在下列4中文件类型中，能够将多张图片保存在一个文件中且能产生动画效果的是____________。 A．BMP B．JPG C．GIF D．PNG
第二部分 Visual Basic程序设计
21．VB应用程序设计的一般步骤是____________。 A．分析?设计?界面?编码?调试 B．界面?设计?编码?分析?文档 C．分析?界面?编码?设计?调试 D．界面?编码?调试?分析?文档
22．若在程序运行时，需要将焦点主动设置到指定的对象上，应调用该对象的________方法。 A．Move B．SetFocus C．Refresh D．Drag
23．窗体通用声明部分的“Option Base 1”语句，决定本窗体中数组下标____________。 A．维下界必须为1 B．缺省的维下界为1 C．维下界不能为0 D．缺省的维下界为0 24．Select Case X结构中（X为Integer类型），如果判断条件为X=5，正确的Case语句应该是____________。 A．Case X=5 B．Case Is 5 C．Case 5 D．Case =5 25．表达式3 * 5 ^ 2 mod 23 \\ 3的值是____________。 A．2 B．5 C．6 D．10 26．数学表达式a?b对应的VB表达式是____________。 xc?d?e?ln(y)A．a*b/(sqr(c*d)*e^x*log(y)) B．a*b/(sqr(c*d)*exp(x)*log(y)) C．a*b/(sqr(c*d)*exp(x)*log(y)/log(10)) D．a*b/(sqr(c*d)*e^x*log(y) /log(10)) 27．以下说法中错误的是____________。
A．在过程中用dim、static声明的变量都是局部变量
B．执行过程时，给所有局部变量分配内存并执行初始化，过程执行结束，释放它们所占的内存 C．局部变量可与模块级或全局变量同名，且在过程中，其优先级高于同名的模块级或全局变量 D．在模块通用声明部分，可使用dim声明模块级变量或数组 28．以下有关数组的说法中，错误的是____________。 A．定义固定大小数组时，维界定义中不可以包含变量 B．可以使用常数或已经定义的符号常数说明数组的维界 C．定长字符串类型的数组不可以作为过程的形式参数 D．只能在标准模块中用public语句定义一个全局数组
29．下面有关自定义过程的说法中，错误的是____________。
A．可以用call语句调用自定义函数，也可以用函数名直接调用自定义函数 B．可以定义没有形式参数的sub过程和function过程
C．调用过程时，可以用常数或表达式作为实在参数与被调过程的按地址传递的形参结合
D．主调程序与被调用的函数过程之间，只能依靠函数名把被调用过程的处理结果传递给主调程序 30．以下关于msgbox函数的说法中，正确的是____________。 A．msgbox函数有返回值，且返回值类型为数值型 B．msgbox函数没有返回值
C．msgbox函数有返回值，且返回值类型为字符型
D．通过msgbox函数中的第一个参数，可以设置信息框中的图标以及按钮的个数与类型 二、填空题
1．执行下面程序，单击命令按钮command1，窗体上显示的第一行内容是_________，第二行内容是
___________，第三行内容是____________。 Option Explicit
Private Sub Command1_Click()
Dim a As Integer, b As Integer, i As Integer a = 1 b = 5
For i = b To a Step -1 a = a + i b = b + a
If b > 30 Then Exit For Print a, b Next i Print a, b End Sub
2．执行下面程序，单击命令按钮command1，最终a(2,2)的值是__________，a(3，1)的值是__________，a(4,2)的值是__________。 Option Explicit Option Base 1
Private Sub Command1_Click()
Dim a(4, 4) As Integer, i As Integer, j As Integer, k As Integer For i = 1 To 4 For j = 1 To 4 k = k + 1 a(i, j) = k Next j Next i
Call transform(a) For i = 1 To 4 For j = 1 To 4
Text1 = Text1 & Right(\ \ Next j
Text1 = Text1 & vbCrLf Next i End Sub
Private Sub transform(a() As Integer)
Dim i As Integer, j As Integer, n As Integer, t As Integer, k As Integer n = UBound(a, 1) k = n + 1
For i = 1 To n / 2 For j = 1 To n
If i <> j And j <> k - i Then t = a(i, j)
a(i, j) = a(k - i, k - j) a(k - i, k - j) = t End If Next j
Next i End Sub
3．执行下面程序，单击命令按钮command1后，窗体上显示的第一行内容是_________，第二行内容是___________，第三行内容是____________。 Option Explicit
Private Sub Command1_Click()
Dim st As String, ch As String * 1, t As Integer Dim i As Integer
st = \ For i = 1 To Len(st) ch = Mid(st, i, 1)
If ch <> \ t = t * 10 + Val(ch) Else
If pd(t) Then Print t t = 0 End If Next i End Sub
Private Function pd(ByVal n As Integer) As Boolean Do While n <> 1
If n Mod 2 <> 0 Then Exit Function End If n = n \\ 2 Loop pd = True End Function
4．执行下面程序，单击命令按钮command1后，图片框picture1第一行显示内容是______，第二行显示内容是__________，最后一行显示内容是__________。 Option Explicit
Private Sub Command1_Click() Dim N As Integer, M As Integer M = 135 N = 8
Picture1.Print Fun(M, N) End Sub
Private Function Fun(ByVal N As Integer, ByVal R As Integer) As String Dim L As Integer If N < R Then Fun = N Else
L = N \\ R
Fun = Fun(L, R)
Fun = Fun & N Mod R End If
Picture1.Print N End Function
5．执行下面程序，单击命令按钮command1后，文本框text1中的第一行显示内容是______，第二行显示内容是__________，第三行显示内容是__________。 Option Explicit
Private Sub Command1_Click()
Dim s As String, Subs As String, P As Integer s = \ Do
P = InStr(s, \ If P <> 0 Then
Subs = Left(s, P - 1) Else
Subs = s End If
s = Mid(s, P + 1)
Text1 = Text1 & complement(Subs) & vbCrLf Loop Until Len(s) = 0 Or P = 0 End Sub
Private Function complement(s As String) As Integer Dim P As Integer, L As Integer L = Len(s)
If Left(s, 1) = 1 Then complement = -32 End If P = 1
Do Until P = 0
P = InStr(P + 1, s, \ If P <> 0 Then
complement = complement + 2 ^ (L - P) End If Loop End Function
6．本程序的功能是按公式求S的近似值（计算到第n项的绝对值小于等于10-7为止）。
1x31?3x51?3?5x7x2n?1n1?3?5?(2n?1)S?x?????????(?1)???
232?452?4?672?4?6?(2n)(2n?1)请完善程序。
Option Explicit
Private Sub Command1_Click()
Dim x As Single, n As Single, T As Single, S As Single x = Val(Text1) S = x Do
________________ T = afun(x, n)
S = S + T
Loop Until __________________ Text2 = Format(S, \End Sub
Private Function afun(x As Single, n As Single) As Single Dim i As Single, p As Single p = 1
For i = 1 To n
p =_______________________ Next i
afun = (-1) ^ n * p * x ^ (2 * n + 1) / (2 * n + 1) End Function
7．本程序的功能是找出10到60之间所有不可以表示成两个平方数之和的数，请完善程序。 Option Explicit
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer Dim p As Integer, q As Integer For i = 10 To 60
For j = 1 To Int(Sqr(i)) _________________ q = i - p
If q <> 0 And judge(q) Then Exit For Next j
If __________________ Then k = k + 1
Text1 = Text1 & i & \
If k Mod 5 = 0 Then Text1 = Text1 & vbCrLf End If Next i End Sub
Public Function judge(ByVal x As Integer) As Boolean If ___________________ Then judge = True Else
judge = False End If End Function
8．本程序的功能是：找出所有满足各位数字之和正好是其所有质因子之和的三位数。例如378，各位数字之和为18，而其质因子2，3，3，3，7之和也是18，所以378是满足条件的数。 Option Explicit
Private Sub Command1_Click()
Dim i As Integer, p As String, st As String, st1 As String For i = 100 To 999 ___________
If csum(i) = zyz(i, st) Then p = CStr(i)