2007年秋季vb考试真题21.下列语句中，正确的是__________A．Textl．SetFocus B．Forml．Clear C．Labell．SetFocus D．Listl．Cls22．创建一个名为“文件”的菜单项，欲使其可用Alt+F方式访问，则在菜单编辑器的标题文本框中应输入_________。
A．文件($F) B．文件(&F) C．文件(#F) D．文件(％F)23．数学表达式的VB算术表达式为_______ 。
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．以下说法不正确的是____________。
A．使用不带关键字Preserve的ReDim语句可以重新定义数组的维数B．使用不带关键字Preserve的ReDim语句可以改变数组各维的上、下界c．使用不带关键字Preserve的ReDim语句可以改变数组的数据类型D．使用不带关键字Preserve的ReDim语句可以对数组中的所有元素进行初始化25．下列____________是合法的变量名。
A．abs B．-al C．cdc d D．Abe_1026．要向文件datal．txt添加数据，正确的文件打开命令是_____________。
A．Open”datal．txt”For Output As #1B．Open”datal．txt”For Input As #1C．Open”datal．txt”For Append As #5D．Open“datal．txt“For Write As #527．以下对数组参数的说明中，错误的是___________ 。
A．在过程中可以用Dim语句对形参数组进行声明B．形参数组只能按地址传递c．实参为动态数组时，可用ReDim语句改变对应形参数组的维界D．只需把要传递的数组名作为实参，即可调用过程28．设a=3，b=2，c=1，运行print a>b>c的结果是____________。
A．True B．False C．1 D．出错29．下列选项中，所包含的所有表达式能够将两位整数x的个位数与十位数对调(如将78转换为87)的是_______________。
①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．下列______是正确的VB常量。
A．D-6 B．E-6 C．5D D．5E-6二、填空题(请将答案填写在答题纸的相应答题号内，每个答案只占一行)1．执行下面程序，单击Commandl，则窗体上显示的第一行是(1) ，第二行是(3) ，第三行是(3) 。
Private Sub Commandl—Click()Dim a As String，i As IntegerDim X As String，z As Stringa=‟‟iamstudent‟‟i=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．执行以下程序，单击Commandl，则在Picturel上显示的第一行是(4) ，第二行是(5) ，第三行是(6) 。
Option ExplicitPrivate Sub Commandl_Click()Dim A(3，3)As Integer，i As Integer，J As IntegerDim k As Integeri=3：j=2：A(i，j)=l：k=1Do Until k>9k=k+1If i+1>3 Aod j+1<=3 Theni=1：J=j+1ElseIf i+1<=3 And j+1>3 Theni=i+1：j=1Elself 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 JNext IEnd Sub3．执行下面的程序，单击Commandl，则窗体上第一行显示的是(7) ，第二行显示的是(8) 。
Dim X As IntegerPrivate Sub Commandl_Click()Dim Y as IntegerX=10：Y=2Call process(Y)Print X，YCall process((Y))Print X，YEnd SubPrivate Sub process(n As Integer)Dim Y As IntegerIf n>0 ThenX=X—nY=XElseX=X+nY=X+2End Ifn=-nEnd Sub4．执行下面的程序，连续三次单击命令按钮Commandl之后，A数组共有(9) 个元素；数组元素A(2)的值是(10) ，A(4)的值是．(11) 。
Option ExplicitOption Base 1Private Sub Commandl_Click()Static A()As Integer，n As IntegerDim i As Integer，k As Integerk=n …n=n +2ReDim Preserve A(n)For i=k+1 To nA(i)=i*n+1Next iFor i=1 To nPrint A(i)；Next iPrintEnd Sub5．执行下面的程序，单击Commandl，在窗体界面上显示的第一行是(12) ，第二行是(13) ，第三行是(14) ，第四行是(15) 。
Option ExplicitPrivate Sub Commandl_Click()Dim a As Integer，b As Integer，i As Integeri=1218a=i\100b=i Mod 100If b<>0 ThenPrint aPrint b．Print Lcd((a)，(b))；a；bPrint Lcd(a，b)；a；bEnd IfEnd SubPrivate Function Lcd(x As Integer，Y As Integer)As IntegerDim d As Integer ‟If xd=x：x = Y：Y = dEnd Ifd=XDoIf x Mod Y=0 ThenLcd=xExit DoElseX=x+dEnd IfLoopEnd Function6.本程序的功能是利用无穷级数求cos(x)的近似值,已知:当第n项的绝对值小于等于10^-7时计算终止。
Option ExplicitPrivate Sub Commandl_Click()Dim X As Single，n As Integer，sum As SingleDim a As Singlex=Textl( 16 )a=1n=1Doa=-aa=( 17 )sum=sum+an=n+1Loop Until( 18 )Text2=sumEnd Sub7．定义方阵的一种范数为该方阵各列元素的绝对值之和中的最大值。
以下程序的功能是求一个4×4方阵的范数。
该方阵的数据是随机生成的-20～20之间的整数。
Option ExplicitOption Base 1Private Sub Commandl_Click()Dim a(4，4) As IntegerDim i As Integer，j As IntegerFor i=1 T0 4For j=1 To 4a(i，j)= ( 19 )Picturel．Print Right(" "&Str(a(i，j))，4)；Next jPicturel．PrintNext iTextl.Text= ( 20 )End SubPrivate Function fan(a()As Integer)As IntegerDim b(4) As Integer，max As IntegerDim i As Integer，j As IntegerFor i=1 To 4For j=1 To 4b(j)=( 21 )Next JNext imax=b(1)For i=2 To 4If maxNext ifan=maxEnd Function8．下面程序的功能是：找出仅由数字1、2、3、4组成的4位素数，要求每个素数由4个不同数字组成。
算法提示：函数V alidate用于验证一个4位数是否由4个不同数字组成。
在函数中用A数组的各个元素分别对应数字0～9，只要某数字出现在四位数中，无论几次，均将该数字对应的数组元素值置为1。
Option ExplicitPrivate Sub Commandl_Click()Dim i As Integer，Flg As BooleanFor i=1234 To 4321( 22 )Call Prime(i，Flg)If Flg ThenIf Validate(i)ThenTextl=Textl & i & vbCrLf．End IfEnd IfNext iEnd SubPrivate Sub Prime(n As Integer，f As Boolean)Dim k As IntegerFor k=2 To Sqr(n)( 23 )Next kf=TrueEnd SubPrivate Function Validate(n As Integer)As BooleanDim A(0 To 9)As Integer，s As String，i As IntegerDim sl As String*1．( 24 )For i=1 To Len(s)sl=Mid(s，i，1)( 25 )Next iIf A(1)+A(2)+A(3)+A(4)=4 Then( 26 )End IfEnd Function9．下面程序的功能是：首先生成一个由小到大已排好序的整数数组，再输入一个数据，单击“插入”按钮会自动把这个数据插人到原数组适当的位置，并保持数组的有序性。