歷年真題解析一-資料下載頁
2025-10-02 21:05本頁面
【導讀】歷年真題解析（一）。２８．下面關于過程參數(shù)的說法，錯誤的是。Ａ．過程的形參不可以是定長字符串類型。參必須是定長字符串型數(shù)組，且長度相同。Ｃ．若形參是按地址傳遞的參數(shù)，形參和實。參也能以按值傳遞方式進行形實結合。不同，只要相容即可。窗體上顯示的第一行是___，第二行是______，，單擊按鈕Command1，窗體上顯示的結。29．程序中有兩個過程PrivateSubFun1(S. String*6)，在調(diào)用過程中用DimStAs. 一行內(nèi)容是____，第三行內(nèi)容是____，第四行內(nèi)容是___。Sub或Function過程中不能再定義其他。既可以是固定大小數(shù)組也可以是動態(tài)數(shù)組。ByRef說明的形式參數(shù)值形實結合時，義Sub過程的語句中,正確的是。對象作用域的說法中，正確的。塊中定義的全局過程，在整個程。序中都可以調(diào)用它。給已打開文件的文件號，僅在打開該。文件的過程范圍內(nèi)有效。C.過程運行結束后，過程的靜態(tài)變量的值仍。然保留，所以靜態(tài)變量作用域是整個模塊
【正文】 ub Private Function Funk(ByVal A As Integer, B As 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 江蘇省計算機等級考試二級VB 27 5．運行下列程序，單擊 Command1， 在窗體上顯示的第一行內(nèi)容是 （ 13） ，第二行的內(nèi)容是 （ 14） ，第三行的內(nèi)容是 （ 15） 。（ 08春） Option Explicit Private Sub Command1_Click() Dim n As Integer, i As Integer n = 2 For i = 7 To 1 Step 1 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 江蘇省計算機等級考試二級VB 28 2．執(zhí)行下面程序，單擊 Command1， 窗體上顯示的第一行是 （ 4） ，第二行是 （ 5） ，第四行是 （ 6） 。 (08秋 ) Option Explicit Private Sub Command1_Click() 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 江蘇省計算機等級考試二級VB 29 3. 運行下面的程序，單擊 Command1， 在窗體上顯示的變量 a的值為 （ 7） ，變量 b的值為 （ 8） ，變量 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 Function 江蘇省計算機等級考試二級VB 30 4．執(zhí)行下面的程序，單擊 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 + b b = b + a Else Call sub1(a, b) End If End Sub 江蘇省計算機等級考試二級VB 31 5．運行下列程序，單擊 Command1， 在窗體上顯示的第一行內(nèi)容是 （ 13） ，第二行的內(nèi)容是 （ 14） ，第三行的內(nèi)容是 （ 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) amp。 Left(s, Len(t)) k = k 1 Print s Loop Until k = 0 End Sub
教學課件相關推薦
鄂ICP備17016276號-1