历年真题解析一.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
4、Fun2(a() 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
5、 Integer) 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,
6、b As Integer 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
7、 + y End 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过程中
8、不能再定义其他Sub或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 intege
9、r),12,27.下面关于对象作用域的说法中,正确的是 _ (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
11、) As Integer 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_Cli
12、ck() Dim 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)
13、 = K + 1 A(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 Com
14、mand1_Click() 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中显示的第一行是_、第三行
15、是_(06年秋填空1) 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 & ast & vbCrlf n=n-1 Loop Until n=1 End Sub Private Function change(st As String ,n As Integer) As String Static p As Integer p=p+1 change=R
16、ight(st,n-1) & Left(st,p) End Function,asicB,icBas,18,3.执行下面的程序,单击Command1按钮,窗体上显示的第一行是_、第二行是_、第三行是_(06年秋填空3) Option Explicit Private Sub Command1_Click() Dim I As Integer, n As Integer For I = 5 To 15 Step 2 n = fun1(I, I) Print n Next I Print I End Sub Private Function fun1(ByVal a As Integer, b A
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 历年 题解
链接地址:https://www.31doc.com/p-2584882.html