[IT认证]计算机二级VB 历年真题解析过程1.pptVIP

历年真题解析（一） ２８．下面关于过程参数的说法，错误的是 ____________ 。 （05春28） Ａ．过程的形参不可以是定长字符串类型 Ｂ．形参是定长字符串的数组，则对应的实参必须是定长字符串型数组，且长度相同　　 Ｃ．若形参是按地址传递的参数，形参和实参也能以按值传递方式进行形实结合 Ｄ．按值传递参数，形参和实参的类型可以不同，只要相容即可 ２．执行下面的程序，单击按钮 Command1 ，在窗体上显示的第一行是 ___ ，第二行是 ______ ，第三行是 _____ 。 （05春填空2）　　 Option Explicit Private Sub Command1_Click() Dim x As Single, i As Integer 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 3.执行下面的程序后，单击按钮 Command1 ，则 N 的值是 ___ ， A 的值是 ___， B 的值是 ____ （05春填空3） Option Explicit Dim n As Integer Private Sub Command1_Click() Dim a As Integer, b As Integer a = 2: b = 3 For n = 1 To 6 If n Mod 2 = 0 Then b = fun(n, a) + a Else a = fun(b, n) + b End If Next n Print n, a, b End Sub Private Function fun(x As Integer, y As Integer) As Integer x = y - 1 + n y = x + y - n fun = x + y End Function 4.执行下面的程序，单击按钮 Command1 ，窗体上显示的结果中 I 的值是 _____ ， J 的值是 ____， K 的值是 _____。（05春填空4） Option Explicit Private Sub Command1_Click() 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 29．程序中有两个过程Private Sub Fun1(S As String)和Private Sub 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．②④ 3．运行下面的程序，当单击Command1时，窗体上显示的第一行内容是____，第三行内容是____，第四行内容是___。（05年秋填空题3） Private Sub Command1_Click() Print Test(3) End Sub Private Function Test(t As 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