點擊查看：2018年全國計算機(jī)二級VB考試必做試題及答案匯總

　　1.設(shè)有如下程序段：

　　x=2

　　For c=1 To 4 Step 2

　　x=x+c

　　Next c

　　運(yùn)行以上程序后，x的值是(A)

　　A.6

　　B.7

　　C.8

　　D.9

　　2.以下敘述中錯誤的是(A)

　　A.在KeyPress事件過程中不能識別鍵盤鍵的按下與釋放

　　B.在KeyPress事件過程中不能識別回車鍵

　　C.在KeyDown和KeyUp事件過程中，從鍵盤輸入的字母"A"和字母"a"對應(yīng)的KeyCode視作相同的字母

　　D.在KeyDown和KeyUp事件過程中，從大鍵盤上輸入的"1"和從右側(cè)小鍵盤上輸入的"1"被視作不同的字符

　　3.執(zhí)行如下兩條語句，窗體上顯示的是(C)

　　A=9.8596

　　Print Format(a,"000.00")

　　A.0,009.86

　　B.9.86

　　C.009.86

　　D.0,009.86

　　4.在窗體上畫一個名稱為CommandDialog1 的通用對話框，一個名稱為Command1的命令按鈕。然后編寫如下事件過程：

　　Private Sub Command1_Click( )

　　CommonDialog1.FileName =""

　　CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"

　　CommonDialog1.FilterIndex=1

　　CommonDialog1.DialogTitle="VBTest"

　　CommonDialog1.Action=1

　　End Sub

　　對于這個程序，以下敘述中錯誤的是(D)

　　A.該對話框被設(shè)置為"打開"對話框

　　B.在該對話框中指定的文件名為空

　　C.該對話框的標(biāo)題為VBTest

　　D.在該對話框中指定的默認(rèn)文件類型為文本文件(*.Txt)

　　5.設(shè)一個工程由兩個窗體組成，其名稱分別為Form1和Form2，在Form1上有一個名稱為Command1的命令按鈕。窗體Form1的程序代碼如下：

　　Private Sub Command1_Click( )

　　Dim a As Integer

　　a=10

　　Call g(Form2,a)

　　End Sub

　　Private Sub g(f As Form,x As Integer)

　　y=Iif(x>10,100,-100)

　　f.Show

　　f.Caption=y

　　End Sub

　　運(yùn)行以上程序，正確的結(jié)果是(B)

　　A.Form1的Caption屬性值為100

　　B.Form2的Caption屬性值為-100

　　C.Form1的Caption屬性值為-100

　　D.Form2的Caption屬性值為100

　　6.在窗體上畫一個名稱為Command1的命令按鈕，并編寫如下程序：

　　Private Sub Command1_Click( )

　　Dim x As Integer

　　Static y As Integer

　　x=10

　　y=5

　　Call f1(x,y)

　　Print x,y

　　End Sub

　　Private Sub f1(ByRef x1 As Integer, y1 As Integer)

　　x1=x1+2

　　y1=y1+2

　　End Sub

　　程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是(D)

　　A.10 5

　　B.12 5

　　C.10 7

　　D.12 7

　　7.Option Base 1

　　Private Sub Command1_Click( )

　　Dim a(10) As Integer

　　Dim n As Integer

　　n=3

　　If n<10 Then

　　Call GetArray(a,n)

　　End If

　　End Sub

　　Private Sub GetArray(b( ) As Integer,n As Integer)

　　Dim c(10) As Integer

　　j=0

　　For t=1 To n

　　b(t)=Rnd*100

　　If b(t)/2=b(t)\2 Then

　　j=j+1

　　c(j)=b(t)

　　End If

　　Next t

　　Print j

　　End Sub

　　以下敘述中錯誤的是(C)

　　A.數(shù)組b中的數(shù)范圍為0-100

　　B.c數(shù)組下標(biāo)的下界從1開始

　　C.GetArray過程的參數(shù)n是按值傳送的

　　D.語句If b(t)/2=b(t)\2 Then 是判斷數(shù)組b中元素的值是否為整數(shù)

　　8.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：

　　Option Base 1

　　Private Sub Command1_Click( )

　　Dim a

　　a= Array(1,2,3,4,5)

　　For c=1 To Ubound(a)

　　a(c) = a(c)+c-1

　　Next c

　　Print a(3)

　　End Sub

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

　　A.4

　　B.5

　　C.6

　　D.7

　　9.閱讀程序：

　　Option Base 1

　　Private Sub Form_Click( )

　　Dim arr

　　Dim Sum%

　　Sum = 0

　　arr = Array(1, 3, 5, 7, 9)

　　For t = 1 To 5

　　Sum = Sum + arr(t)

　　Next t

　　Print Sum

　　End Sub

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

　　A.5

　　B.9

　　C.25

　　D.15

　　10.在窗體上畫一個名稱為File1的文件列表框，并編寫如下程序：

　　Private Sub File1_DblClick( )

　　x=Shell(File1.FileName,1)

　　End Sub

　　以下關(guān)于該程序的敘述中，錯誤的是(A)

　　A.x沒有實際作用，因此可以將該語句寫為：Call Shell(File1,FileName,1)

　　B.雙擊文件列表框中的文件，將觸發(fā)該事件過程

　　C.要執(zhí)行的文件的名字通過File1.FileName指定

　　D.File1中顯示的是當(dāng)前驅(qū)動器、當(dāng)前目錄下的文件

　　11.在窗體上畫一個名稱為Label1、標(biāo)題為"VisualBasic考試"的標(biāo)簽，兩個名稱分別為Command1和Command2、標(biāo)題分別為"開始"和"停止"的命令按鈕，然后畫一個名稱為Timer1的計時器控件，并把其Interval屬性設(shè)置為500。編寫如下程序：

　　Private Sub Form_Load( )

　　Timer1.Enabled=False

　　End Sub

　　Private Sub Command1_Click( )

　　Timer1.Enabled=True

　　End Sub

　　Private Sub Timer1_Timer( )

　　If Label1.Left< Form1.Width Then

　　Label1.Left = Label1.Left + 20

　　Else

　　Label1.Left=0

　　End If

　　End Sub

　　程序運(yùn)行后，單擊"開始"按鈕，標(biāo)簽在窗體中移動。 對于這個程序，以下敘述中錯誤的是(A)

　　A.標(biāo)簽的移動方向為自右向左

　　B.單擊"停止"按鈕后再單擊"開始"按鈕，標(biāo)簽從停止的位置繼續(xù)移動

　　C.當(dāng)標(biāo)簽全部移出窗體后，將從窗體的另一端出現(xiàn)并重新移動

　　D.標(biāo)簽按指定的時間時隔移動

　　12.規(guī)范地說，VB是一種(A)的開發(fā)工具

　　A.面向?qū)ο?/P>

　　B.面向用戶

　　C.面向屏幕

　　D.面向窗體

　　13.VB6設(shè)計界面包含多個視窗，控制這些視窗顯示或關(guān)閉的命令包含在(D)下拉菜單中

　　A.文件

　　B.工程

　　C.編輯

　　D.視圖

　　14下面(D)操作不是激活或顯示屬性列表框的操作

　　A.按快捷鍵F4

　　B.點擊工具欄中的"屬性列表框"按鈕

　　C.選擇"視圖"下拉菜單的"屬性窗口"項

　　D.雙擊窗體中的某一對象

　　15.Visual Basic程序中分隔各語句的字符是(B)

　　A.′

　　B.:

　　C.\

　　D._

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

2018年等考報考資訊

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

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

2018等考各科備考資料

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

　　相關(guān)推薦：

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

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

　　2018計算機(jī)等級考試報名時間|各地報名入口|報名條件

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

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

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

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