2007年春季真题.doc

一、 选择题（用答题卡答题，答案依次填在2130答题号内）21下列语句中，正确的是( )。A. Text1.SetFocus B. Form1.Clear C. Label1.SetFocus D. List1.Cls22创建一个名为“文件”的菜单项，使其可用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_1026. 以下对数组参数的说明中，错误的是 (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 ExplicitPrivate Sub Command1_Click()Dim a As String, i As IntegerDim x As String, z As Stringa = iamstudenti = InStr(5, a, d)Dox = Mid(a, i, 3)z = Right(x, 1)z = UCase(x & z)i = i 2Print zLoop Until i = 1End Sub2. 执行以下程序，单击Command1，则在Picture1上显示的第一行是 （4） ，第二行是（5） ，第三行是 （6） 。Option ExplicitPrivate Sub Command1_Click()Dim A(3, 3) As Integer, i As Integer, j As IntegerDim k As Integeri = 3 : j = 2 : A(i, j) = 1 : k = 1Do Until k 9k = k + 1If i + 1 3 And j + 1 = 3 Theni = 1 : j = j + 1ElseIf i + 1 3 Theni = i + 1 : j = 1ElseIf i + 1 3 And j + 1 3 Theni = i 1ElseIf i + 1 = 3 And j + 1 = 3 And A(i + 1, j + 1) 0 Theni = i 1Elsei = i + 1 : j = j + 1End IfA(i, j) = kLoopFor i = 1 To 3For j = 1 To 3Picture1.Print A(i, j)Next jPicture1.PrintNext iEnd Sub3. 执行下面程序，单击Command1，则窗体上显示的第一行是 ，第三行是 ，最后一行是 。Option ExplicitPrivate Sub Command1_Click()Dim X As Integer, Y As IntegerX = 12: Y = 0Do While X 0 If X Mod 4 = 0 Then Y = Y + X Else Y = Y - X End If X = X - 3 Print X, YLoopEnd Sub4. 执行下面的程序，单击Command1，窗体上显示的第一行是 ，第二行是 ，第三行是 。Option Base 1Private Sub Command1_Click() Dim sa(3, 3) As String * 1, i As Integer, j As Integer, k As Integer k = 1 For i = 1 To 3 For j = 1 To 3 sa(i, j) = Chr(Asc(A) + (k + i + j) Mod 26) Print sa(i, j); ; k = k + 3 Next j Print Next iEnd Sub5.用以下公式求Sin(x)的值。当级数通项的绝对值小于eps=10-7时停止计算，x的值由键盘输入。 n=0,1,2,请完善如下程序：Option ExplicitPrivate Sub Form_Click() Dim x As Double, t As Double, n As Integer, sum As Double Const eps = 0.