2007年春季真题.docVIP

一、 选择题（用答题卡答题，答案依次填在21～30答题号内） 21．下列语句中，正确的是( )。 A. Text1.SetFocus B. Form1.Clear C. Label1.SetFocus D. List1.Cls 22．创建一个名为“文件”的菜单项，使其可用Alt+F方式访问，则在菜单编辑器的标题文本框中应输入( 22) 。 A. 文件($F) B. 文件(F) C. 文件(#F) D. 文件(%F) 23．数学表达式的VB算术表达式为 (23) 。 A. Sin(27) + Sqr(x + Exp3)/(x + y) B. Sin(27 * 3.14159 / 180) + Sqr(x + Exp(3)) / Abs(x + y) C. Sin(27 * 3.14159 / 180) + Sqr(x + e ^ 3) / Abs(x + y) D. Sin(27 * pi / 180) + Sqr(x + Exp(3) / Abs(x + y) 24．以下说法不正确的是( 24) 。 A. 使用不带关键字Preserve的ReDim语句可以重新定义数组的维数 B. 使用不带关键字Preserve的ReDim语句可以改变数组各维的上、下界 C. 使用不带关键字Preserve的ReDim语句可以改变数组的数据类型 D. 使用不带关键字Preserve的ReDim语句可以对数组中的所有元素进行初始化 25．下列( 25 )是合法的变量名。 A. abs B. -a1 C. cdc d D. Abc_10 26. 以下对数组参数的说明中，错误的是 (26) 。 A. 在过程中可以用Dim语句对形参数组进行声明 B. 形参数组只能按地址传递 C. 实参为动态数组时，可用ReDim 语句改变对应形参数组的维界 D. 只需把要传递的数组名作为实参，即可调用过程 28．设a = 3，b = 2，c = 1，运行print a b c的结果是 (28 )。 A. True B. False C. 1 D. 出错 29．能够将任意一个两位整数X的个位数与十位数对调（例如将78 转换为87）的表达式是 (29) 。 ① Val(Right(X, 1) Left(X, 1)) ② Val(Right(Str(X), 1) Left(Str(X), 1)) ③ Val(Right(CStr(X), 1) Left(CStr(X), 1)) ④ Val(Mid(X, 2, 1) + Mid(X, 1, 1)) A. ③ B. ②③ C. ①④ D. ①③④ 30．下列 30 是正确的VB常量。 A. D-6 B. E-6 C. 5D D. 5E-6 二、 填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行） 1．执行下面程序，单击Command1，则窗体上显示的第一行是 （1） ，第二行是 （2） ，第三行是 （3） 。 Option Explicit Private Sub Command1_Click() Dim a As String, i As Integer Dim x As String, z As String a = iamstudent i = InStr(5, a, d) Do x = Mid(a, i, 3) z = Right(x, 1) z = UCase(x z) i = i – 2 Print z Loop Until i = 1 End Sub 2. 执行以下程序，单击Command1，则在Picture1上显示的第一行是 （4） ，第二行是（5） ，第三行是 （6） 。 Option Explicit Private Sub Command1_Click() Dim A(3, 3) As Integer, i As Integer, j As Integer Dim k As Integer i = 3 : j = 2 : A(i, j) = 1 : k = 1 Do Until k 9 k = k + 1 If i + 1 3 And j + 1 = 3 Then i = 1 : j = j + 1 ElseIf i + 1 = 3 And j + 1