|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2018年春江蘇省計算機(jī)二級VB考試真題第1套 |
第1部分 公共基礎(chǔ) 略 第2部分 VB部分 1（單選題）： 可以作為VB應(yīng)用程序啟動對象的是______。 A. ①④ B. ①② C. ③④ D. ②③ D 解析:在VB中,能作為啟動對象的包括窗體模塊,sub main過程。 3 表達(dá)式37.6 Mod 5的結(jié)果數(shù)據(jù)類型為______。 A. 整型 B. 長整型 C. 單精度 D. 雙精度 B 解析:Mod運(yùn)算符的作用是取余數(shù),要求Mod左右兩邊都是整型或長整型,首先將雙精度類型37.6轉(zhuǎn)換為長整型38,然后再執(zhí)行38 Mod 5,根據(jù)VB約定,兩個不同的類型的數(shù)值運(yùn)算時返回的是占字節(jié)多的類型,因為長整型數(shù)值38占4個字節(jié),整型5占2個字節(jié),所以得到結(jié)果長整型3,如果直接寫 37 mod 5因為37與5都是整型,所以返回結(jié)果整型2 。 3 在多窗體程序中，僅用于將窗體Form2從內(nèi)存中卸載的語句是______。 A. Form2.Unload B. Unload Form2 C. End D. Form2.Hide B 解析:A選項沒有這種寫法,C選項是結(jié)束整個程序運(yùn)行,D選項是Form2隱藏。 2 下列關(guān)于Len函數(shù)的敘述，錯誤的是________。 A. 該函數(shù)可以接收數(shù)值型常量作為其參數(shù) B. 該函數(shù)可以接收數(shù)值型變量作為其參數(shù) C. 該函數(shù)可以接收字符型常量作為其參數(shù) D. 若該函數(shù)的參數(shù)為非字符型變量，則其返回該類型變量所占用的存儲空間的大小 A 解析: 該函數(shù)不可以接收數(shù)值型常量作為其參數(shù) 。 3 Sub過程與Function過程最根本的區(qū)別是____。 A. Sub過程使用Call語句或直接使用過程名調(diào)用，而Function過程不可以 B. Function過程可以有參數(shù)，Sub過程不可以 C. 兩種過程參數(shù)的傳遞方式不同 D. Sub過程的過程名不能返回值，而Function可以 D 解析: Sub過程的過程名不能返回值，而Function過程名可以返回值是兩者最根本的區(qū)別。 7 6 （填空題 <2空> ） ： 執(zhí)行下面程序，單擊Command1按鈕，則a(1)的值是____________ ，a(4)的值是____________ 。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim a(4) As Integer, i As Integer For i = 1 To 4 a(i) = F1(a, i) + a(i) Next i For i = 1 To 4 Print a(i) Next i End Sub Private Function F1(a() As Integer, x As Integer) As Integer Dim i As Integer If i Mod 2 <> 0 Then a(x) = x Else F1 = F1 + x End If End Function 1@4 解析: 因為文字描述不如視頻清晰,具體見視頻詳細(xì)講解 7 7 （填空題 <2空> ） ： 執(zhí)行下面程序，單擊Command1按鈕，則窗體上顯示的數(shù)組元素a(2)的值是____________ ，a(3)的值是____________ 。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim a(3) As Integer, b As Integer, i As Integer For i = 1 To 3 a(i) = i Next i b = UBound(a) Call sub1(a, b) For i = 1 To 3 Print a(i); Next i End Sub Private Sub sub1(m() As Integer, n As Integer) If n > 1 Then m(n) = m(n) + n Call sub1(m, n - 1) End If End Sub 4@6 解析: 因為文字描述不如視頻清晰,具體見視頻詳細(xì)講解 7 8 （填空題 <3空> ） ： 執(zhí)行下面程序，單擊命令按鈕Command1，窗體上顯示的第一行內(nèi)容是____________ ，a數(shù)組元素的個數(shù)是____________ ，其中a(2)的值是____________ 。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim St As String, i As Integer Dim a() As String, j As Integer, k As Integer St = "abcd" Call Sub1(St) Print St For i = 1 To Len(St) For j = i + 1 To Len(St) If Mid(St, i, 1) = Mid(St, j, 1) Then Exit For Next j If j <= Len(St) Then k = k + 1 ReDim Preserve a(k) a(k) = Mid(St, i, 1) Print a(k) End If Next i End Sub Private Sub Sub1(S As String) Dim i As Integer For i = 1 To Len(S) \ 2 Mid(S, i, 1) = Mid(S, Len(S) - i + 1, 1) Next i End Sub dccd@2@c 解析: 因為文字描述不如視頻清晰,具體見視頻詳細(xì)講解 7 9 （填空題 <3空> ） ： 執(zhí)行下面程序，單擊命令按鈕Command1，則a(1,2)的值是____________ ，a(2,3)的值是____________ ，a(3,3)的值是____________ 。 Option Explicit Option Base 1 Private a(3, 3) As Integer Private Sub Form_Activate() Dim i As Integer, j As Integer, k As Integer k = 1 For i = 1 To 3 For j = 1 To 3 a(i, j) = k k = k + 1 Next j Next i End Sub Private Sub Command1_Click() Dim b(4) As Integer, i As Integer, j As Integer, t As Integer b(1) = 2 For i = 2 To 4 b(i) = i - 1 Next i t = a(b(1), b(4)) a(b(1), b(4)) = a(b(2), b(1)) a(b(2), b(1)) = a(b(3), b(2)) a(b(3), b(2)) = a(b(4), b(3)) a(b(4), b(3)) = t For i = 1 To 3 For j = 1 To 3 Print a(i, j); Next j Print Next i End Sub 4@2@9 解析: 因為文字描述不如視頻清晰,具體見視頻詳細(xì)講解 7 1（完善程序）： 【要求】 1)打開T盤中“P1.vbp”文件，完善程序后，直接保存所有文件。 【題目】 下面程序的功能是，隨機(jī)生成10個不含數(shù)字0且由5位不同數(shù)字組成的整數(shù)，再將所生成的五位整數(shù)轉(zhuǎn)換為由組成該數(shù)的數(shù)字構(gòu)成的最小整數(shù)后輸出。
Option Explicit Private Sub Command1_Click() Dim a(1 To 10) As Long, b(0 To 9) As Boolean, c(1 To 5) As Integer Dim i As Integer, j As Integer, k As Integer, n As Long For i = 1 To 10 n = Int(Rnd * 90000) + 10000 Erase b b(0) = True For j = 1 To 5 c(j) = Mid(n, j, 1) If b(c(j)) = False Then b(c(j)) = True Else (1) End If Next j If j = 6 Then Call Sort(c) For k = 1 To 5 a(i) = a(i) * 10 + c(k) Next k List1.AddItem a(i) Else (2) End If Next i End Sub Private Sub Sort(a() As Integer) Dim i As Integer, t As Integer, ub As Integer, f As Boolean ub = UBound(a) f = True Do While f (3) ub = ub - 1 For i = 1 To ub If a(i) > a(i + 1) Then f = True (4) a(i) = a(i + 1) a(i + 1) = t End If Next i Loop End Sub Exit For@i=i-1@f=false@t=a(i) (1)Exit For (2)i=i-1 (3)f=false (4)t=a(i) 因為文字描述不如視頻清晰,請查看自帶的本題目的視頻詳細(xì)講解 2（改錯題）： 【要求】 (1)打開T盤中“P2.vbp”文件，按參考界面形式編輯窗體界面，改正程序中的錯誤后，直接保存所有文件； (2)改錯時，不得增加或刪除語句，但可適當(dāng)調(diào)整語句位置。 【題目】本程序的功能是：生成一個4×4的數(shù)組，并根據(jù)數(shù)組中元素的大小生成一個標(biāo)記數(shù)組。在標(biāo)記數(shù)組中字母“L”表示數(shù)組的對應(yīng)位置元素為最大，字母“S”表示隨組的對應(yīng)位置元素為最�。ㄈ舸嬖诙鄠�相等的最大或最小元素也用字母“L”與“S”標(biāo)記），其他非最大最小元素均用“0”表示。
Option Explicit Dim a(4, 4) As Variant, i As Integer, j As Integer Private Sub Command1_Click() For i = 1 To 4 For j = 1 To 4 a(i, j) = Int(Rnd * 90) + 10 Next j Next i Call printsz(Picture1) End Sub Private Sub Command2_Click() Dim Max As Integer, Min As Integer, a(4, 4) As Integer Max = 0 Min = 0 For i = 1 To 4 For j = 1 To 4 If a(i, j) > Max Then Max = a(i, j) If a(i, j) < Min Then Min = a(i, j) Next j Next i Call bj(Max, Min) End Sub Private Sub bj(m As Integer, n As Integer) For i = 1 To 4 For j = 1 To 4 If a(i, j) = m Then a(i, j) = L ElseIf a(i, j) = n Then a(i, j) = S Else a(i, j) = "0" End If Next j Next i Call printsz(Picture2) End Sub Private Sub printsz(pic As Control) pic.Cls For i = 1 To 4 For j = 1 To 4 pic.Print a(i, j); " "; Next j pic.Print Next i End Sub Dim Max As Integer, Min As Integer, a(4, 4) As Integer修改為Dim Max As Integer, Min As Integer@ Max = 0修改為Max=a(1,1) Min = 0修改為Min=a(1,1)@ a(i, j) = L修改為a(i, j) = “L”@ a(i, j) = S修改為a(i, j) = “S” (1)Dim Max As Integer, Min As Integer, a(4, 4) As Integer修改為Dim Max As Integer, Min As Integer@ (2)Max = 0修改為Max=a(1,1) Min = 0修改為Min=a(1,1) (3)a(i, j) = L修改為a(i, j) = “L” (4)a(i, j) = S修改為a(i, j) = “S” 因為文字描述不如視頻清晰,請查看自帶的本題目的視頻詳細(xì)講解 3（編程題）： 【要求】 (1)打開T盤中“P3.vbp”文件，根據(jù)題目要求編寫和調(diào)試程序后，直接保存所有文件； (2)程序代碼書寫應(yīng)呈鋸齒形，否則適當(dāng)扣分。 【題目】 找出任意給定的兩個自然數(shù)的相同因子（因子中不包含1和該數(shù)本身）。 【編程要求】 (1)程序參考界面如圖所示，編程時不得增加或減少界面對象或改變對象的種類，窗體及界面元素大小適中，且均可見； (2)運(yùn)行程序，單擊“查找”按鈕，根據(jù)文本框1和文本框2中給定的數(shù)字，分別求出它們除1和本身外的因子，并最終求出這兩個數(shù)的相同因子輸出在文本框3中，若兩個數(shù)沒有相同因子，則在文本框3中輸出”沒有相同因子”；單擊“退出”按鈕，則結(jié)束程序運(yùn)行； (3)程序中必須包含一個求因子的通用過程。
Option Explicit Option Base 1 Private Sub Command1_Click() Dim a() As Integer, b() As Integer, c() As Integer Dim n1 As Integer, n2 As Integer Dim i As Integer, j As Integer, k As Integer n1 = Text1.Text n2 = Text2.Text Call yinzi(n1, a) Call yinzi(n2, b) For i = 1 To UBound(a) For j = 1 To UBound(b) If a(i) = b(j) Then k = k + 1 ReDim Preserve c(k) c(k) = a(i) End If Next j Next i Text3.Text = n1 & "的因子: " For i = 1 To UBound(a) Text3.Text = Text3.Text & a(i) & " " Next i Text3.Text = Text3.Text & vbCrLf Text3.Text = Text3.Text & n2 & "的因子: " For i = 1 To UBound(b) Text3.Text = Text3.Text & b(i) & " " Next i Text3.Text = Text3.Text & vbCrLf If k = 0 Then Text3.Text = Text3.Text & "沒有相同的因子數(shù):" Else Text3.Text = Text3.Text & "相同的因子數(shù):" For i = 1 To UBound(c) Text3.Text = Text3.Text & c(i) & " " Next i End If End Sub Private Sub Command2_Click() End End Sub Private Sub yinzi(n As Integer, c() As Integer) Dim i As Integer, k As Integer For i = 2 To n - 1 If n Mod i = 0 Then k = k + 1 ReDim Preserve c(k) c(k) = i End If Next i End Sub 因為文字描述不如視頻清晰,請查看自帶的本題目的視頻詳細(xì)講解
|
