2004年(春)笔试试卷.doc

2004年（春）二级考试笔试卷（VB） 第二部分 Visual Basic 程序设计 一、选择题21在VB中，下列关于控件的属性或方法中，搭配错误的有_个。1）Timer1.Interval 2)List1.Cls 3) Text1.Print4)List1.RemoveTtem 5)Vscroll1.Value 6) Picture1.PrintA. 0 B. 1 C. 2 D. 322.下面所列的控件中，其值既能在程序设计时设定，又能在程序运行时通过赋值改变的是_。 A.List1.ListCount B.Text1.Index C. Dir1.PathD.Label1.Visible23.下面_语句，可以将列表框List1中的当前选定的列表项的值替换成”ABC”。 A.List1.AddItem”ABC,List1.ListIndexB.List.Text=”ABC” C.List1.List(List.ListIndex)=”ABC”D.前三项均可24函数CInt(-3.5),Int(-3,5),Fix(-3,5)的值分别是_。 A.-3 ,-4 , -3 B.-4 , -4 ,-4 C.-3 , -4 , -4 D.-4, -3 , -325.设整形变量a、b 的当前取值分别为200与20，以下赋值与句中不能正确执行的是_。 A.Text1=a/b*a B. Text1 = a*a/b C. Text1 = “200”*a/b D. Text1 = A & b & a26.对正实数X 的第四位小数四舍五入的VB表达式是_。 A0.001*Int(x+0.005) B.0.001*(1000*x+0.5)C.0.001*Int(1000*x+5) D.0.001*Int(1000*(x+0.0005)27.下列有关数组的说法中,不正确的是_。 A. 在窗体模块中不可以定义全局数组 B. 可以使用Erase语句释放所有数组所占据的存储空间 C. 语句Dim X(3.6+2)As Integer定义了一个维上界是6的一维整型数组 D. 形参数组的类型可以是定长字符串类型28根据控件有下列_属性，就能判断该控件是否可以和数据控件绑定。 1) RecordSource 2)DataSource 3)DataField 4)DatabaseName A. 1) 3) B. 2) 3) C. 3) 4) D. 1) 4)29.窗体上放置有名为Drive1与Dir1的驱动器列表框与文件夹列表框，需要在选定驱动器列表框中的列表项时，文件夹列表框中的内容随之改变，正确的语句及语句的位置是_。 A. Dir1.Path = Drive1.Path 位于Drive1_Change()过程 B. Dir1.Path = Drive1.Path 位于Dir1_Change()过程 C. Dir1.Path = Drive1.Drive 位于Drive1_Change()过程 D. Dir1.Path = Drive1.Drive 位于Dir1_Change()过程30.执行下面的程序段，结果是_。X = Width/2:Y = Height/2Picture1.Line(X,Y)-(X,Y -2000)Picture1.Line(X,Y + 2000)-(X,Y)Picture1.Line (X 2000,Y) A. 在图片框中画形如的交叉直线 B. 在图片框中画形如的交叉直线C. 在图片框中画形如的交叉直线D. 在图片框中画形如的交叉直线二、填空题1执行Command1_Click实践过程后，显示在窗体上的第一行内容是 ，第二行内容是 ，第三行内容是 。Private Sub Command1_Click()S = “TUPMOC”:K = Len(s)For I = 1 To K/2Mid(S,I, K-2*(I1)= Mid(S, I+1, K2*I) & Mid(S,I,1)Print SNext IEnd Sub2运行下面的程序，当单击窗体时，窗体上第一行内容是 ，第三行内容是 ，第四行内容是 。Option ExplicitDim x As Integer, y As IntegerPrivate Sub Form_Click()Dim a As Integer ,b As Integera = 5: b = 3Call sub1(a,b)Print a,bPrint x,yEnd SubPrivate Sub sub1(ByVal m As Integer ,n As Integer)Dim x As Integer , y As Integer x = m + n; y = m-nm = fun1(x,y)n = fun1(y,x) End SubPrivate Function fun1(a As Integer , b As Integer )As Integerx = a + b: y = a bPrint x,yfun1 = x+yEnd Function3.执行Command1_Click事件过程时，共输出 行数据，其中第三行输出结果为 。 Private Sub Command1_Click()dunno 3 End Sub Public Function dunno(M As Integer) Dim value As Integer if M = 0 Then value = 3 Elsevalue = dunno(M1)+5 End If dunno = value Print M, value End Function4执行下面程序，单击命令按钮 Command1 后，窗体上显示的第一行内容是 ，第二行内容是 , 最后一行内容是_。 Private Sub Command1_Click() Dim A As Integer, B As Integer, K As IntegerA = 2: B =4K = Fun(A), B)+Fun(A,B) Print KEnd SubPrivate Function Fun( N As Integer , M As Integer ) As IntegerStatic K As IntegerN = N + MK = K + NM = M + KFun = N + MPrint Fun; N; MEnd Function5执行下面程序，单击命令按钮Command1 后，A(1,3)值是 ，A(2,2)值是 ，A(3,2)值是 。 Private Sub Command1_Click()Dim I As Integer , J As Integer, K As Integer Dim A(1 To 3, 1 To 3) As Integer ,N As IntegerN = 3For I = 1 To 3For J = 1 To 3K = K + 1A(I,J) = K + 10Next JNext ICall Sub1(A,N)End SubPrivate Sub Sub1(A() As Integer, N As Integer)Dim I As Integer, J As Integer , T As Integer, K As IntegerK = N + 1For I = Int(N/2) To 1 Step 1For J = N I To I Step 1T = A(K J,I)A(K J, I ) = A(I,J)A(I,J) = A(J, K-I)A(J,K I)=A(K I, N + 1 J)A(K I,N + 1 J)=TNext JNext IEnd Sub6下面程序是求出所有的幸运数显示在列表框中，并将幸运数的个数显示到文本框中。凡前两位数字之和等于后两位数字之和的四位数称为幸运数。Private Sub Command1_Click()Dim i As Integer ,n As Integer, n1 As Integer , n2 As IntegerFor i = 1000 To 9999_ n2 = i Mod 100 If sum(n1) = sum(n2) Then_ List1.AddItem CStr(i) End If Next iText1 = n End SubPrivate Function sum( s As Integer ) As Integer Dim p As Integer , q As IntegerP = s10_sum = p+qEnd Function 7. 若一个等比数列的首项为2，公比为3，其第n项到第m 项之和为720。下面是求出符合上述要求的n 和m 的程序。 Private Sub Commadn1_Click()Dim Num() As Integer, Q as Integer, A As IntegerDim I as Integer, N As Integer , M As IntegerConst K As Integer = 720ReDim Num(1)A = 2: Q=3Num(1)=A_Do A = A * QI = I+1 _Num(I) = ALoop Until Num(I) =720Call Sum1(Num, N, M , k)Label1 = “第” +Str(N) & ”项第” & Str(M) & “ 项的和是720”End SubPrivate Sub Sum1(Num() As Integer, N As Integer, M As Integer, ByVal k As Integer)Dim Ub As Integer, S As Integer, I As Integer, Idx As Integer_ For I = 1 To Ub_N = I_Do Until S = kS = S + Num ( Idx )Idx = Idx + 1LoopIf s = k ThenM = Idx 1Exit ForEnd IfNext IEnd Sub 8. 以下是一个加密程序，其中r1与r2是两个密钥表，分别对应字母az及空格。加密方法是从原文的字符串中取一个字符，再根据该字符在原文中的排位次序是奇数还是偶数，分别从r1或r2密钥表中查出相应的替代字符。如原文为“meet me at sunset”，其首字符为m，排位为1，则使用密钥表r1，由于在字母表中m为第13个字符，而r1中对应字符为t，故将m替换成t。其余类推。原文中如包含大写字母，则应先全部转换为小写字母。Const r1 As String * 27 = “qzawsxedcrfvtgbyhnujm ikolp”Const r2 As String * 27 = “poi uytrewqasdfghjklmnbvcxz”Private Sub Command1_Click()Dim I As Intrger, , code As String , s As String * 1Dim n As Intrger, , decode As String code = _For i = 1 To Len ( code )s = Mid ( code , i , 1 )If s” then If i Mod 20 then Decode = decode & Mid ( r1,n,1 )Else_End IfElseIf i Mod 20 then _ElseDecode = decode & Mid ( r2, 27, 1 )End IfEnd IfNext iText2 = decodeEnd Sub9. 下面程序的功能是通过键盘输入一个正整数 N ，找出所有分母为N ，找出所有分母为 N ，且数值介于 1/3 和1/4 之间的最简分数 （即分子、分母除1外无公因子）。 Private Sub Command1_Click()Dim I As Integer, J As IntegerDim N As Integer, Flag As BooleanN = Val(Input