2016計(jì)算機(jī)二級(jí)VB程序設(shè)計(jì)模擬試題「程序題」

　　一、程序題

　　1.寫(xiě)出下面程序的運(yùn)行結(jié)果(10分)

　　1. Private Sub Command1_Click()

　　x = 0

　　n = InputBox("")

　　For i = 1 To n

　　For j = 1 To i

　　x = x + 1

　　Next j

　　Next i

　　Print x

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，如果輸入3，則在窗體上顯示的內(nèi)容是:

　　2. Private Function f(m As Integer)

　　If m Mod 2 = 0 Then

　　f = m

　　Else

　　f = 1

　　End If

　　End Function

　　Private Sub Command1_Click()

　　Dim i As Integer

　　s = 0

　　For i = 1 To 5

　　s = s + f(i)

　　Next i

　　Print s

　　End Sub

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

　　1、6

　　2、9

　　二、填空題

　　1. 有如下程序：

　　Private Function func(ByVal a As Integer, ByVal b As Integer)

　　func = a + b

　　End Function

　　Private Sub Command1_Click( )

　　Dim x As Integer, y As Integer

　　Dim z As Integer, r As Integer

　　x = 2 : y = 5 : z = 8

　　r = func(func(x,y),z)

　　Print r

　　End Sub

　　當(dāng)在Command1按鈕上單擊，該程序的輸出結(jié)果是(　　　)

　　(A)12 (B)13 　(C)14 (D)15

　　2. 設(shè)有如下通用過(guò)程：

　　Public Sub Fun(a( ), ByVal x As Integer)

　　For i = 1 To 5

　　x = x + a(i)

　　Next

　　End Sub

　　在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)ext1的文本框和一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：

　　Private Sub Command1_Click( )

　　Dim art(5) AsVariant

　　For i = 1 To 5

　　art(i) = i

　　Next i

　　n = 10

　　Call Fun(art( ), n)

　　Text1.Text = n

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的內(nèi)容為(　　　)

　　(A)10 (B)15 (C)25 (D)24

　　3. 要為工程添加一個(gè)過(guò)程，可執(zhí)行“(　　　)”菜單中的“添加過(guò)程”

　　(A)文件 (B)視圖 (C)工程 (D)工具

　　4. 以一關(guān)于鍵盤(pán)事件中，敘述錯(cuò)誤的是(　　　)

　　(A) 在KeyUp和KeyDown事件過(guò)程中，從鍵盤(pán)上輸入A或a被視作相同的字母(即具有相同的KeyCode)

　　(B) 在KeyUp和KeyDown事件過(guò)程中，將鍵盤(pán)上的“1”和右側(cè)小鍵盤(pán)上的“1”視作不同的數(shù)字(即具有不同的KeyCode)

　　(C) KeyPress事件中不能識(shí)別鍵盤(pán)上某個(gè)鍵的按下與釋放

　　(D) KeyPress事件中可以識(shí)別鍵盤(pán)上某個(gè)鍵的按下與釋放

　　5. 以下關(guān)于菜單的敘述中錯(cuò)誤的是(　　　)

　　(A) 在同一個(gè)窗體的菜單項(xiàng)中，不允許出現(xiàn)標(biāo)題相同的菜單項(xiàng)

　　(B) 在菜單的標(biāo)題欄中，“&”所引導(dǎo)的字母指明了訪問(wèn)該菜單項(xiàng)的鍵盤(pán)訪問(wèn)鍵

　　(C) 程序運(yùn)行過(guò)程中，可以重新設(shè)置菜單的“Visual”屬性

　　(D) 彈出式菜單也在菜單編輯器中定義

　　6. 有一個(gè)菜單項(xiàng)名為Menu123，若想在程序運(yùn)行的過(guò)程中選中該菜單項(xiàng)，即在該菜單項(xiàng)前面顯示“√”，可執(zhí)行下面的(　　　)語(yǔ)句

　　(A)Menu123.Enabled = True (B)Menu123.Enabled = False

　　(C)Menu123.Checked = True (D)Menu123.Checked = False

　　7. 可通過(guò)“打開(kāi)”對(duì)話框的(　　　)屬性設(shè)置對(duì)話框中所顯示文件的類(lèi)型

　　(A)FileName (B)Filter (C)FilterIndex (D)InitDir

　　8. 以一關(guān)于通用對(duì)話框控件的敘述中錯(cuò)誤的是(　　　)

　　(A) 在程序運(yùn)行時(shí)，通用對(duì)話框控件是不可見(jiàn)的.

　　(B) 在同一個(gè)程序中，用不同的方法(如ShowOpen或ShowSave等)打開(kāi)的通用對(duì)話框具有不同的作用

　　(C) 調(diào)用通用對(duì)話框控件的ShowOpen方法，可以直接打開(kāi)在該通用對(duì)話框中指定的文件

　　(D) 調(diào)用通用對(duì)話框控件的ShowColor方法，可以打開(kāi)顏色對(duì)話框

　　9. 在顯示顏色對(duì)話框之前必須設(shè)置(　　　)屬性，否則將發(fā)生不存在字體的錯(cuò)誤

　　(A)FontName (B)FontSize (C)Max (D)Flags

　　10. 以一敘述中錯(cuò)誤的是(　　　)

　　(A) 一個(gè)工程中只能有一個(gè)Sub Main過(guò)程

　　(B) 窗體的Show方法的作用是將指定的窗體裝入內(nèi)存并顯示該窗體

　　(C) 窗體的Hide方法和Unload方法的作用完全相同

　　(D) 若工程文件中有多個(gè)窗體，可以根據(jù)需要指定一個(gè)窗體為啟動(dòng)窗體