|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
2015年6月江蘇省計算機二級VB考試真題 |
2015年6月份增考 江蘇省計算機等級考試二級VB真題 本套題目詳細的視頻講解見:http://school.njwww.net/kecheng/detail_962307
第1部分 公共基礎(chǔ)知識(共10題) 1.下列關(guān)于信息技術(shù)的敘述中,錯誤的是________ A.信息技術(shù)的發(fā)展歷史不足百年,它是隨著計算機技術(shù)的發(fā)展而逐漸發(fā)展起來的 B.信息技術(shù)已經(jīng)成為當(dāng)今社會最有活力,最有效益的生產(chǎn)力之一 C.現(xiàn)代信息技術(shù)的主要特點之一是以電(光)信號來傳輸信息 D.目前常講的新一代信息技術(shù)包括大數(shù)據(jù)、云計算、移動互聯(lián)網(wǎng)等技術(shù) 2.下列關(guān)于目前臺式PC機的敘述中，錯誤的是______ A.芯片組是PC機各組成部分相互連接和通信的樞紐,它實現(xiàn)了PC機總線的功能 B.大多數(shù)CPU芯片中集成有高速緩沖存儲器(cache),其工作速度很快(與CPU速度相差不大) C.目前PCI-E總線是PC機最為重要的I/O總線之一,大多數(shù)的獨立顯卡使用該總線接口 D.USB3.0與USB2.0的接口連接器相同,區(qū)別在于前者的數(shù)據(jù)傳輸速度是后者的一倍以上 3.下列關(guān)于I//O設(shè)備的敘述中,錯誤的是______ A.目前鍵盤和鼠標等設(shè)備可以通過無線方式與PC主機相連接 B.光學(xué)分辨率是掃描儀的主要性能指標之一,目前普通家用掃描儀的分辨率已達幾千dpi C.傳統(tǒng)顯示器的寬度與高度之比一般是1:1,現(xiàn)在主流的液晶顯示器的寬高之比是4:3 D.目前用于打印數(shù)碼照片的打印機主要是噴墨打印機 4.下列關(guān)于PC機外存儲器,錯誤的是__________ A.移動硬盤通常采用USB接口或eSata接口,可隨時插上或拔下(即支持"熱插拔") B.存儲卡是閃存做成的一種固態(tài)存儲器,所有存儲卡的形狀,大小,接口都是相同的 C.固態(tài)硬盤(簡稱SSD)是基于半導(dǎo)體存儲器芯片的一種存儲設(shè)備,其接口規(guī)范、功能及使用方法與普通硬盤幾乎相同 D.DVD盤片有單面單層、單面雙層、雙面單層和雙面雙層等品種,單面單層的120mm DVD存儲容器約4.7GB 5.從操作系統(tǒng)發(fā)布的時間來看,下列四個Windows操作系統(tǒng)中最早發(fā)布的是________ A.Windows Xp B.Windows 2000 C.Windows Vista D.Windows 7 6.下面給出的四個語言中,不屬于程序設(shè)計語言的是______ A.Lisp語言 B.Matlab語言 C.Html語言 D.Ada語言 7.下列關(guān)于數(shù)字通信技術(shù)的敘述中,錯誤的是________ A.光纖具有通信容量大,傳輸距離遠,不會受高壓線和雷電電磁感應(yīng)影響 B.移動通信技術(shù)的發(fā)展已經(jīng)歷的四代,目前我國所有的智能手機均使用3G C.我國自行研發(fā)的北斗衛(wèi)星導(dǎo)航定位系統(tǒng)日趨成熟,并已逐漸投入商業(yè)運行 D.路由器的主要作用是將兩個或多個計算機網(wǎng)絡(luò)進行互連 8.Internet使用TCP/IP協(xié)議實現(xiàn)了全球范圍的計算機網(wǎng)絡(luò)的互連,連接在 Internet上的每一臺主機都有一個IP地址,目前使用的IPv4標準,其IP地址為_____ A.32位 B.64位 C.96位 D.128位 9.在下列的漢字標準中,不屬于漢字編碼標準的是______ A.GB2312-80 B.GB8566-88 C.GBK D.GB18030-2000 10.由于采用的壓縮編碼方式及數(shù)據(jù)組織方式的不同,聲音文件形成了 多種不同的文件格式,在下列四種文件中,不屬于數(shù)字聲音文件的是_____ A.APE B.WMA C.MP3 D.TIF 程序設(shè)計理論部分 1.單選題 若要正確執(zhí)行顯示Text1.Text=a & vbCrlf & b語句,其中a和b為字符串變量,則須設(shè)置Text1的_________屬性 A.Text B.ScrollBars C.MultiLine D.Alignment 2.以下敘述中錯誤的是_______ A.一個工程可以包括多種類型的文件 B.Visual Basic應(yīng)用程序既能以編譯方式執(zhí)行,也能以解釋方式執(zhí)行 C.程序運行后,在內(nèi)存中只能駐留一個窗體 D.對于事件驅(qū)動的應(yīng)用程序,每次運行時的執(zhí)行順序可以不一樣 3.下列數(shù)據(jù)類型與其類型說明符對應(yīng)錯誤的是__________ A.Integer % B.Double # C.String $ D.Currentcy & 4.假定建立了1個命令按鈕控件數(shù)組Command1包含多個元素,則以下說法中錯誤的是_______ A.數(shù)組中每個命令按鈕的名稱(Name)屬性均為Command1 B.數(shù)組中每個命令按鈕的大小可以不同 C.數(shù)組中每個命令按鈕都是用同一個事件過程 D.使用名稱Command1即可直接訪問數(shù)組中每個命令按鈕 5.下列關(guān)于過程參數(shù)的敘述中，錯誤的是__________ A.實參和形參的個數(shù)、順序、類型必須一致 B.Sub過程調(diào)用可以使用Call或直接使用過程名 C.實參和形參的名稱可以不同 D.形參可以是變量或數(shù)組 6.填空題 執(zhí)行下面的程序后,單擊Command1按鈕后,在彈出的輸入框中輸入"255"后,窗體上顯示的第一行內(nèi)容是_________,第二行內(nèi)容是_______ Option Explicit Private Sub Command1_Click() Dim x As Long, y As Long, s As Long x=InputBox("請輸入一個正整數(shù)","程序",255) Do x=x+h(x) print x Loop Until h(x)=x End Sub Private Function h(Byval x As Long) As Long Do h=h*10+(x Mod 10) x=x\10 Loop Until x=0 End Function 7.填空題 執(zhí)行下面的程序后,單擊Command1按鈕后,在彈出的輸入框中輸入"3"后,在窗體上輸出的數(shù)組元素a(1)的值是______,a(4)的值是_______ Option Explicit Private Sub Command1_Click() Dim a(10) as Integer,i as Integer,j as Integer For i=1 to 10 a(i)=i Next i j=InputBox("輸入","程序",3) For i=1 to j Call jd(a) next i For i=1 to 10 Print a(i); Next i End Sub Private Sub yd(a() As Integer) Dim i as Integer, t As Integer t=a(UBound(a)) For i=Ubound(a) To 2 Step -1 a(i)=a(i-1) Next i a(1)=t End Sub 8.執(zhí)行下面程序,單擊命令按鈕Command1后,窗體顯示的第一行內(nèi)容是_____,第三行內(nèi)容是______,最后一行內(nèi)容是_________ Option Explicit Private Sub Command1_Click() Dim a As Integer,b As Integer, c As Integer a=6 b=18 c=24 Print L(L(a,b),c) Print a End Sub Private Function L(x As Integer, y As Integer) As Integer Dim i As Integer Do i=i+1 x=x*i Loop Until x Mod y=0 L=x Print i End Function 9.執(zhí)行下面程序,在文本框Text1中輸入"54,30"后單擊Command1按鈕,則在窗體上顯示的第一行內(nèi)容是______,第二行內(nèi)容是______,最后一行內(nèi)容是_________ Option Explicit Option Base 1 Private Sub Command1_Click() Dim s As String, i As Integer Dim a as Integer, b As Integer s=Text1.Text i=Instr(s,",") a=Val(Left(s,i-1)) b=Val(Mid(s,i+1)) Print a Print G(a,b) End Sub Private Function G(Byval x As Integer,Byval y As Integer) if y=0 then G=x else G=G(y, x Mod y) Print x End if End Function 操作題 1.程序填空題 【要求】 打開T盤中"P1.vbp"文件,按參考界面形式編輯窗體界面,完善程序后,直接保存所有文件 【題目】本程序的功能是:輸入任意兩個英文單詞,將其分別按字典序列排序,并將二者不重復(fù)的字符合并,要求合并后的字符仍保持字典序。
Option Explicit Option Base 1 Private Sub Command1_Click() Dim s1 As String, s2 As String, s As String s1 = Text1.Text s2 = Text2.Text Sort s1 Sort s2 Text3.Text = __________ End Sub Private Sub Sort(s As String) '排序 Dim i As Integer, j As Integer, a() As String * 1, t As String * 1 ReDim a(Len(s)) For i = 1 To Len(s) a(i) = Mid(s, i, 1) Next i For i = 1 To UBound(a) - 1 For j = i + 1 To UBound(a) If __________ Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i '按字典序重新排列單詞中的字母，并刪除其中的重復(fù)字母 s = a(1) For i = 1 To UBound(a) - 1 If a(i + 1) <> a(i) Then s = s & a(i + 1) Next i End Sub Private Function Combine(s1 As String, s2 As String) As String Dim i As Integer, j As Integer i = 1 j = 1 Do If Mid(s1, i, 1) > Mid(s2, j, 1) Then __________ j = j + 1 ElseIf Mid(s1, i, 1) < Mid(s2, j, 1) Then Combine = Combine & Mid(s1, i, 1) i = i + 1 Else Combine = Combine & Mid(s2, j, 1) i = i + 1 j = j + 1 End If Loop Until __________ If i > Len(s1) Then Combine = Combine & Mid(s2, j) Else Combine = Combine & Mid(s1, i) End If End Function 2.改錯題 【要求】 (1)打開T盤中"P2.vbp"文件,按參考界面形式編輯窗體界面,改正程序中的錯誤后,直接保存所有文件 (2)改錯時,不得增加或刪除語句,但可適當(dāng)調(diào)整語句位置 【題目】本程序的功能是查找滿足下列條件的整數(shù):該數(shù)的三次方是四位數(shù),四次方是六位數(shù),且該數(shù)三次方得到的四位數(shù)和四次方得到的六位數(shù)的各位數(shù)字正好是0--9不重復(fù)的10個數(shù)字組成
Option Explicit Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer For x = 10 To 20 y = x ^ 3 z = x ^ 4 If Len(z) = 6 Then If BT(y + z) Then Text1.Text = Text1.Text & x End If End If Next x End Sub Private Function BT(s As String) As Boolean Dim a(0 To 9) As Boolean Dim i As Integer, j As Integer For i = 1 To Len(s) j = Val(Mid(s, i, 1)) If a(j) = False Then a(j) = True Else Exit For End If Next i BT = True End Function 3.(編程題) 【要求】 (1)打開T盤中"p3.vbp"文件,根據(jù)題目要求編寫和調(diào)試程序后,直接保存所有文件 (2)程序代碼書寫呈鋸齒形,否則適當(dāng)扣分 【題目】編寫程序,找出給定范圍內(nèi)含有三個不同素數(shù)因子的整數(shù),例如204包含 2,3,17三個不同的素數(shù)因子 【編程要求】 1)程序參考界面如圖所示,編程時不得增加或減少界面對象或改變對象的種類, 窗體及界面元素大小適中,且均可見; 2)運行程序,在"a:"文本框中輸入數(shù)據(jù)范圍的起始值,在"b:"文本框中輸入數(shù)據(jù)范圍 的終止值后,單擊"查找"按鈕,若數(shù)據(jù)范圍內(nèi)存在符合要求的整數(shù),則將它們按附圖 參考界面所示的格式輸出到列表框中,否則在列表框中輸出"指定范圍內(nèi)無符合要求的整數(shù)" 的信息;按"清除"按鈕,將所有的文本框與列表框清空,焦點置于"a:"文本框上,按"結(jié)束" 按鈕,結(jié)束程序運行; 3)程序中至少應(yīng)定義一個通用過程,用于判斷一個數(shù)是否為素數(shù)
本套題目詳細的視頻講解見:http://school.njwww.net/kecheng/detail_962307 完善程序答案 (1) Combine(s1,s2) (2)a(i)>a(j)或Asc(a(i)) (3)Combine=Combine & Mid(s2,j,1) (4)i>Len(s1) Or j>Len(s2) 編程題答案 Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer Dim i As Integer, j As Integer Dim js As Integer, st As String a = Val(Text1.Text) b = Val(Text2.Text) For i = a To b js = 0 st = "" For j = 2 To i - 1 If i Mod j = 0 And Prime(j) Then js = js + 1 st = st & j & "," End If Next j If js = 3 Then List1.AddItem i & ":" & Left(st, Len(st) - 1) Next i End Sub Private Function Prime(x As Integer) As Boolean Dim i As Integer For i = 2 To Sqr(x) If x Mod i = 0 Then Exit Function Next i Prime = True End Function Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" List1.Clear Text1.SetFocus End Sub Private Sub Command3_Click() End End Sub |
