2013年3月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷

Visual Basic語(yǔ)言程序設(shè)計(jì)

　　一、單選題。

　　(1)下列數(shù)據(jù)結(jié)構(gòu)中，屬于非線性結(jié)構(gòu)的是

　　(2)在下列鏈表中，能夠從任意一個(gè)結(jié)點(diǎn)出發(fā)直接訪問到所有結(jié)點(diǎn)的是

　　(3)下列與棧結(jié)構(gòu)有關(guān)聯(lián)的是

　　(4)下面對(duì)軟件特點(diǎn)描述不正確的是

　　(5)下面屬于黑盒測(cè)試方法的是

　　(6)下面不屬于軟件設(shè)計(jì)階段任務(wù)的是

　　(7)數(shù)據(jù)庫(kù)管理系統(tǒng)是

　　(8)在E-R圖中，表示實(shí)體的圖元是

　　(9)有兩個(gè)關(guān)系R和T 如下

　　R T

　　A B C A C

　　a 1 2 a 2

　　b 4 4 b 4

　　c 2 3 c 3

　　d 3 2 d 2

　　則由關(guān)系R得到關(guān)系T的操作是

　　(10)對(duì)圖書進(jìn)行編目時(shí)，圖書有如下屬性：ISBN書號(hào)，書名，作者，出版社，出版日期。能作為關(guān)鍵字的是

　　(11)下列關(guān)于Visual Basic標(biāo)準(zhǔn)模塊的描述中，錯(cuò)誤的是

　　(12)下列變量名中合法的是

　　(13)表達(dá)式 66 \ 8 mod 5 & "avg" 的值是

　　(14)下列能正確計(jì)算s=1+2+…… +100的程序段是

　　(15)設(shè)有如下程序：

　　Private Sub Form_Click()

　　a = 10: b = 20

　　x = a = b

　　Print x

　　End Sub

　　程序運(yùn)行后，單擊窗體，輸出結(jié)果為

　　(16)在面向?qū)ο蟮某绦蛟O(shè)計(jì)中，對(duì)象可以執(zhí)行的操作和可被對(duì)象識(shí)別的動(dòng)作分別被稱為

　　(17)下列說(shuō)法中，錯(cuò)誤的是

　　(18)設(shè)有如下程序：

　　Private Sub Command1_Click()

　　Dim i As Integer, j As Integer

　　For i = 1 To 10

　　i = i + j

　　j = j + 1

　　Next i

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕Command1，循環(huán)執(zhí)行的次數(shù)為

　　(19)設(shè)有如下程序：

　　Private Sub Command1_Click()

　　Dim m As Integer, n As Integer

　　m = 1

　　For n = 1 To 5

　　m = m * n

　　If m > 15 Then

　　Exit For

　　Else

　　n = n + 1

　　End If

　　Next n

　　Print m; n

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕Command1，輸出結(jié)果為

　　(20)設(shè)有如下程序：

　　Private Sub Form_Click()

　　Dim a, k As Integer

　　Dim n As Integer, s As Integer

　　a = Array(1, 1, 1, 2, 2, 2)

　　For k = LBound(a) To UBound(a)

　　n = n + k

　　s = s + a(k)

　　Next

　　Print n; s

　　End Sub

　　程序運(yùn)行后，如果單擊窗體，則在窗體上輸出的內(nèi)容為：

　　(21)窗體上有一個(gè)文本框，用于接收正整數(shù)。為保證輸入數(shù)據(jù)的合法性　　(即正整數(shù))，可以在該數(shù)據(jù)輸入結(jié)束后準(zhǔn)備繼續(xù)其他操作時(shí)進(jìn)行數(shù)據(jù)的合法性檢查。為實(shí)現(xiàn)上述目的，應(yīng)選用的事件是

　　(22)設(shè)有如下程序：

　　Private Sub Command1_Click()

　　Dim a(10) As Integer

　　Dim i As Integer, n As Integer

　　n = 6

　　For i = 1 To n

　　a(i) = i * i

　　Next i

　　For i = 1 To n / 2

　　temp = a(i)

　　a(i) = a(n - i)

　　a(n - i) = temp

　　Next i

　　For i = 1 To n

　　Print a(i);

　　Next

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕Command1，輸出結(jié)果為

　　(23)工程中包含F(xiàn)orm1、Form2兩個(gè)窗體，F(xiàn)orm1是啟動(dòng)窗體，兩個(gè)窗體上都有名稱為 Label1的標(biāo)簽和名稱為Command1的命令按鈕，窗體外觀分別如圖1、圖2所示：

　　Form1的事件過程如下：

　　Private Sub Command1_Click()

　　Form2.Show

　　End Sub

　　Form2中的事件過程如下：

　　Private Sub Command1_Click()

　　Label1.Caption = Form1.Label1.Caption

　　End Sub

　　關(guān)于以下程序，下面敘述中錯(cuò)誤的是

　　(24)窗體上有一個(gè)名稱為Dir1的目錄列表框，一個(gè)名稱為File1的文件列表框。當(dāng)改變目錄列表框的內(nèi)容時(shí)，文件列表框的內(nèi)容應(yīng)該與之同步改變。為實(shí)現(xiàn)兩控件同步操作，應(yīng)該使用的事件過程是

　　(25)列表框List1中沒有數(shù)據(jù)項(xiàng)，現(xiàn)編制如下程序：

　　Private Sub Command1_Click()

　　For i = 1 To 6

　　List1.AddItem i

　　Next i

　　For i = 5 To 3 Step -1

　　List1.RemoveItem i

　　Next i

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕Command1，則列表框List1中的數(shù)據(jù)項(xiàng)為

　　(26)一個(gè)工程文件中含有窗體Form1、Form2和標(biāo)準(zhǔn)模塊Model1。如果Form1的聲明部分有語(yǔ)句Private x As Integer，且Model1中有語(yǔ)句Public y As Integer，則下列說(shuō)法中，正確的是

　　(27)下列關(guān)于文件及其操作的描述中，正確的是

　　(28)下列操作說(shuō)明中，錯(cuò)誤的是

　　(29)在窗體上畫一個(gè)名稱為CD1的通用對(duì)話框，并編寫如下程序：

　　Private Sub Command1_Click()

　　CD1.Filter = "所有文件(*.*)|*.*|文本文件(*.txt)|*.txt|Word文檔(*.doc)|*.doc"

　　CD1.FilterIndex = 2

　　CD1.Action = 2

　　End Sub

　　運(yùn)行程序，并單擊命令按鈕Command1，下面描述中正確的是

　　(30)下列關(guān)于Visual Basic菜單的敘述中，錯(cuò)誤的是

　　(31)下列關(guān)于Sub Main過程的描述中，錯(cuò)誤的是

　　(32)設(shè)有如下程序：

　　Private Sub Command1_Click()

　　Dim i As Integer

　　str1 = InputBox("輸入一個(gè)字符串")

　　str2 = ""

　　i = 0

　　Do While i < Len(str1) / 2

　　str2 = str2 + Mid(str1, i + 1, 1)

　　str2 = str2 + Mid(str1, Len(str1) - i, 1)

　　i = i + 1

　　Loop

　　Print str2

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕Command1，在彈出的輸入對(duì)話框中輸入“abcdef”，則輸出結(jié)果為

　　(33)命令按鈕Command1的單擊事件過程如下：

　　Private Sub Command1_Click()

　　Dim x As String

　　Dim y As String

　　x = InputBox("輸入字母", "輸入")

　　y = IIf((ucase9x) <> "A", "表達(dá)式1", "表達(dá)式2")

　　Print y

　　End Sub

　　運(yùn)行程序，單擊命令按鈕，在彈出的輸入對(duì)話框中輸入“ a”，則以下描述中正確的是

　　(34)設(shè)有如下程序：

　　Sub proc(x() As Integer)

　　Static i As Integer

　　Do

　　x(i) = x(i) + x(i + 1)

　　i = i + 1

　　Loop While i < 2

　　End Sub

　　Private Sub Command1_Click()

　　Dim a(5) As Integer, i As Integer

　　For i = 0 To 4

　　a(i) = i + 1

　　Next i

　　Call proc(a)

　　Call proc(a)

　　For i = 0 To 4

　　Print a(i);

　　Next i

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕Command1，輸出結(jié)果為

　　(35)以下程序?qū)㈦S機(jī)產(chǎn)生n個(gè)兩位整數(shù)，并使用冒泡法將它們按遞增順序排序后輸出。

　　Option Base 1

　　Private Sub Command1_Click()

　　Dim a() As Integer

　　Dim i As Integer, j As Integer

　　Randomize

　　n = InputBox("輸入數(shù)據(jù)個(gè)數(shù)")

　　ReDim a(n)

　　For i = 1 To n

　　a(i) = Int(Rnd * 90) + 10

　　Next i

　　For i = 1 To n - 1

　　For j = 1 To n - i

　　If a(j) < a(j - 1) Then

　　temp = a(j): a(j) = a(j - 1): a(j - 1) = temp

　　End If

　　Next j

　　Next i

　　For i = 1 To n

　　Print a(i);

　　Next i

　　End Sub

　　運(yùn)行以上程序，發(fā)現(xiàn)有錯(cuò)誤，需要對(duì)j循環(huán)的開始語(yǔ)句進(jìn)行修改。以下正確的修改是

掃描/長(zhǎng)按二維碼幫助考試通關(guān)

2018年等考報(bào)考資訊

2018等考各科通關(guān)技巧

2018各科最新預(yù)測(cè)試卷

2018等考各科備考資料

微信搜索"考試吧"了解更多考試資訊、下載備考資料

　　相關(guān)推薦：

　　2018年全國(guó)計(jì)算機(jī)等級(jí)考試必做試題匯總(各科目)

　　2018年全國(guó)計(jì)算機(jī)等級(jí)考試復(fù)習(xí)知識(shí)點(diǎn)匯總(各科目)

　　2018計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間|各地報(bào)名入口|報(bào)名條件

　　2018年全國(guó)計(jì)算機(jī)等級(jí)考試時(shí)間|教材目錄（2018年版）

　　2018全國(guó)計(jì)算機(jī)等級(jí)考試備考經(jīng)驗(yàn)及應(yīng)試技巧匯總

　　報(bào)名方法|考試內(nèi)容|考試大綱|2018計(jì)算機(jī)等級(jí)考試科目

　　歷年真題匯總|考試吧策劃：2018年計(jì)算機(jī)等級(jí)考試報(bào)考指南