历年真题解析一.ppt

《历年真题解析一.ppt》由会员分享，可在线阅读，更多相关《历年真题解析一.ppt（31页珍藏版）》请在三一文库上搜索。

1、历年真题解析（一）,2,下面关于过程参数的说法，错误的是 _ 。 （05春28） 过程的形参不可以是定长字符串类型 形参是定长字符串的数组，则对应的实参必须是定长字符串型数组，且长度相同 若形参是按地址传递的参数，形参和实参也能以按值传递方式进行形实结合 按值传递参数，形参和实参的类型可以不同，只要相容即可,长度可以不同,3,执行下面的程序，单击按钮 Command1 ，在窗体上显示的第一行是 _ ，第二行是 _ ，第三行是 _ 。 （05春填空2） Option Explicit Private Sub Command1_Click() Dim x As Single, i As Integ

2、er x = 1.2 For i = 1 To 3 x = x * i Print fun1(x) Next i End Sub Private Function fun1(x As Single) As Single Static y As Single y = y + x fun1 = y / 2 End Function,0.6,1.8,5.4,4,10,27,9,5,4.执行下面的程序，单击按钮 Command1 ，窗体上显示的结果中 I 的值是 _ ， J 的值是 _， K 的值是 _。（05春填空4） Option Explicit Private Sub Command1_Cli

3、ck() Dim i As Integer, j As Integer Dim k As Integer i = 1: j = 2 k = fun(i, fun(i, j) + i + j Print i=; i; j=; j; k=; k End Sub Function fun(a As Integer, ByVal b As Integer) As Integer a = a + b b = a + b fun = a + b End Function,11,2,43,6,29程序中有两个过程Private Sub Fun1(S As String)和Private Sub Fun2(a

4、() As String*6)，在调用过程中用Dim St(6) As String*6定义了一个字符串数组。下面调用语句中正确的是。（05年秋29） Call Fun1(St(3) Call Fun2(St) Call Fun1(St) Call Fun2(St(6) ) A B C D,类型要匹配,7,3运行下面的程序，当单击Command1时，窗体上显示的第一行内容是_，第三行内容是_，第四行内容是_。（05年秋填空题3） Private Sub Command1_Click() Print Test(3) End Sub Private Function Test(t As Integ

5、er) As Integer Dim i As Integer If t = 1 Then Call Test(t - 1) For i = 3 To t Step -1 Print Chr(Asc(A) + i); Next i Print End If Test = t End Function,DCB,D,3,8,4运行下面的程序，当单击窗体时，窗体上显示的第一行内容是_，第三行内容是_，第四行内容是_。（05年秋填空题4） Dim x As Integer, y As Integer Private Sub Form_Click() Dim a As Integer, b As Int

6、eger a = 5: b = 3 Call sub1(a, b) Print a, b Print x, y End Sub Private Sub sub1(ByVal m As Integer, n As Integer) Dim y As Integer x = m + n: y = m - n m = fun1(x, y) n = fun1(y, x) End Sub Private Function fun1(a As Integer, b As Integer) As Integer x = a + b: y = a - b Print x, y fun1 = x + y End

7、 Function,10 8,5 2,12 -10,9,23.下面Sub子过程的各个语句中，正确的是_（06年春23） Private Sub Sub1(A() As string) Private Sub Sub1(A(1 to 10) As string*8) Private Sub Sub1(S As string) Private Sub Sub1(s As string*8) A abcd B abc C acd D ac,除非是形参数组，否则形参不可以是定长字符串类型,10,29.以下有关过程的说法中，错误的是_（06年秋29） A.在Sub或Function过程中不能再定义其他S

8、ub或Function过程 B.调用过程时，形参为数组的参数对应的实参既可以是固定大小数组也可以是动态数组 C.过程的形式参数不能再在过程中用Dim语句进行说明 D.使用ByRef说明的形式参数值形实结合时，总是按地址传递方式进行结合的,11,23.下列定义Sub过程的语句中,正确的是 . (07年春23) A. Private Sub Sub1(A() B. Private Sub Sub1(A as string *5) C. Private sub sub1(ByVal a() as integer) D. Private sub sub1(a(10) as integer),12,27

9、.下面关于对象作用域的说法中，正确的是 _ (07年春27) A.在窗体模块中定义的全局过程，在整个程序中都可以调用它 B.分配给已打开文件的文件号，仅在打开该文件的过程范围内有效 C. 过程运行结束后，过程的静态变量的值仍然保留，所以静态变量作用域是整个模块 D.在标准模块中定义的全局变量的作用域比在窗体模块中定义的全局变量的作用域大,13,27、以下对数组参数的说明中，错误的是 。(07年秋27) A在过程中可以用Dim语句对形参数组进行声明 B形参数组只能按地址传递 C实参为动态数组时，可用ReDim语句改变对应形参数组的维界 D只需把要传递的数组名作为实参，即可调用过程,过程的形式参数

10、不能再在过程中用Dim语句进行说明,14,3.执行下面程序，单击命令按钮Command1后，显示在窗体上第一行的内容是_ ，第二行的内容是_，最后一行的内容是 _ （06年春填空3） Option Explicit Dim N As Integer Private Sub Command1_Click() Dim I As Integer, J As Integer For I = 3 To 1 Step -2 N = Fun(I, N) Print N Next I End Sub Private Function Fun(A As Integer, B As Integer) As Int

11、eger Static X As Integer Dim Sum As Integer, I As Integer X = X + N For I = 1 To A B = B + X + I N = N - I 2 Sum = Sum + B Next I A = A + 1 Fun = Sum + A End Function,11,61,136,15,4.执行下面程序，单击命令按钮Command1后，显示在窗体上第一行的内容是 _ ，A(2,1)的值是_ ，A(3,3)的值是_（06年春填空4）,Option Base 1 Private Sub Command1_Click() Dim

12、 A(3, 3) As Integer, K As Integer Dim I As Integer, J As Integer Call SUB1(A) For I = 1 To 3 For J = 1 To 3 Print Right(0 Next J Print Next I End Sub,Private Sub SUB1(A() As Integer) Dim N As Integer, K As Integer, J As Integer N = UBound(A, 1) For I = 1 To N - 2 For J = I To N - I A(I, J) = K + 1 A

13、(J, N + 1 - I) = K + 2 A(N + 1 - I, N + 1 - J) = K + 3 A(N + 1 - J, I) = K + 4 K = K + 4 Next J Next I If N Mod 2 0 Then A(N + 1) / 2, (N + 1) / 2) = K + 1 End If End Sub,01 05 02,8,3,16,5.执行下面程序，单击命令按钮Command1后，显示在窗体上第一行的内容是_ ， 第二行的内容是_ ，第三行的内容是_. （06年春填空5） Option Explicit Private Sub Command1_Clic

14、k() Dim N As Integer, M As Integer N=2 DO While m3 N=N+2 If Fun(N) Then Print N M=M+1 End If Loop End Sub Private Function Fun(ByVal N As Integer) As Boolean If N/2=Int(N/2)Then Fun=Fun(N/2) Else If N=1 Then Fun=True End If End Function,4,8,16,17,执行下面程序，单击Command1按钮，多行文本框Text1中显示的第一行是_、第三行是_（06年秋填空1

15、） Option Explicit Private Sub Command1_Click() Dim st As String, n As Integer, ast As String St=”Basic” n=Len(st) Do ast = change (st, n) Text1=Text1 sec; thir End Sub Sub look_for(f As Integer, s As Integer, t As Integer) Dim tem As String If 1# * f * s t Then tem = Left(CStr(f), 1) f = Right(CStr(

16、f), 1) a; b Print lcd(a, b); a; b End If End Sub,Private Function lcd(x As Integer, y As Integer) As Integer Dim d As Integer If x y Then d = x: x = y: y = d End If d = x Do If x Mod y = 0 Then lcd = x Exit Do Else x = x + d End If Loop End Function,江苏省计算机等级考试二级VB,12,18,36 12 18,36 36 12,25,3. 运行下面的

17、程序，单击Command1，在窗体上显示的变量b的值为 （7） ，变量c的值为 （8） ，变量z的值为 （9） 。（08春） Option Explicit Private Sub Command1_Click() Dim b As Integer, c As Integer, z As Integer b = 2 c = 1 z = fun(b, fun(b + 1, c) + b - c + 1 Print b, c, z End Sub Private Function fun(x As Integer, ByVal y As Integer) As Integer x = x - y

18、y = x + y + 2 fun = y - x End Function,26,4执行下面的程序，单击Command1，输出的变量i的值是 （10） ，变量j的值是 （11） ，变量k的值是 （12） 。（08春） Option Explicit Private Sub Command1_Click() Dim i As Integer, j As Integer Dim k As Integer i = 10 j = 4 k = Funk(i, j) Print i, j, k End Sub Private Function Funk(ByVal A As Integer, B As

19、Integer) As Integer A = A + B B = B - 2 If B = 0 Or B = 1 Then Funk = 1 Else Funk = A + Funk(A, B) End If End Function,27,5运行下列程序，单击Command1，在窗体上显示的第一行内容是 （13） ，第二行的内容是 （14） ，第三行的内容是 （15） 。（08春） Option Explicit Private Sub Command1_Click() Dim n As Integer, i As Integer n = 2 For i = 7 To 1 Step -1

20、Call sub2(i, n) Print i, n Next i End Sub Private Sub sub2(x As Integer, y As Integer) Static n As Integer Dim i As Integer For i = 2 To 1 Step -1 n = n + x x = x - 1 Next i y = y + n End Sub,28,2执行下面程序，单击Command1，窗体上显示的第一行是 （4） ，第二行是 （5） ，第四行是 （6） 。 (08秋) Option Explicit Private Sub Command1_Click(

21、) Dim a As Integer, b As Integer, i As Integer a = 2: b = 5 For i = a To a * b Step a Call sub1(i, a, b) Print a, b Next i Print a, b, i End Sub Private Sub sub1(i As Integer, a As Integer, b As Integer) i = i + 1 a = a + 1 b = b + 1 End Sub,29,3. 运行下面的程序，单击Command1，在窗体上显示的变量a的值为 （7） ，变量b的值为 （8） ，变量

22、c的值为 （9） 。（08秋） Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 5: b = 10: c = 15 Print fun(a, b, c) + fun(a, b, c) Print a, b, c End Sub Private Function fun(x As Integer, y As Integer, z As Integer) As Integer z = x x = x + y y = y + z fun = x + y End

23、Function,30,4执行下面的程序，单击Command1，窗体上显示的第一行是 （10） ，第二行是 （11） ，第四行是 （12） 。 （08秋） Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer a = 1 : b = 1 Call sub1(a, b) Print a, b End Sub Private Sub sub1(a As Integer, b As Integer) a = a + b: b = b + a Print a, b If a 10 Then a = a +

24、 b b = b + a Else Call sub1(a, b) End If End Sub,31,5运行下列程序，单击Command1，在窗体上显示的第一行内容是 （13） ，第二行的内容是 （14） ，第三行的内容是 （15） 。 Option Explicit （08秋） Private Sub Command1_Click() Dim s As String s = Basic Call trans(s) End Sub Private Sub trans(s As String) Dim j As Integer, t As String Dim k As Integer k = 3 Do j = InStr(s, a) t = LCase(Right(s, j) s = Right(t, Len(s) - k) & Left(s, Len(t) k = k - 1 Print s Loop Until k = 0 End Sub,