點(diǎn)擊查看：2018年12月計(jì)算機(jī)二級(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.以下敘述中錯(cuò)誤的是(A)

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

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

　　C.在KeyDown和KeyUp事件過程中，從鍵盤輸入的字母"A"和字母"a"對(duì)應(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.在窗體上畫一個(gè)名稱為CommandDialog1 的通用對(duì)話框，一個(gè)名稱為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

　　對(duì)于這個(gè)程序，以下敘述中錯(cuò)誤的是(D)

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

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

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

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

　　5.設(shè)一個(gè)工程由兩個(gè)窗體組成，其名稱分別為Form1和Form2，在Form1上有一個(gè)名稱為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.在窗體上畫一個(gè)名稱為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

　　以下敘述中錯(cuò)誤的是(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.在窗體上畫一個(gè)名稱為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.在窗體上畫一個(gè)名稱為File1的文件列表框，并編寫如下程序：

　　Private Sub File1_DblClick( )

　　x=Shell(File1.FileName,1)

　　End Sub

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

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

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

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

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

　　11.在窗體上畫一個(gè)名稱為Label1、標(biāo)題為"VisualBasic考試"的標(biāo)簽，兩個(gè)名稱分別為Command1和Command2、標(biāo)題分別為"開始"和"停止"的命令按鈕，然后畫一個(gè)名稱為Timer1的計(jì)時(shí)器控件，并把其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)簽在窗體中移動(dòng)。 對(duì)于這個(gè)程序，以下敘述中錯(cuò)誤的是(A)

　　A.標(biāo)簽的移動(dòng)方向?yàn)樽杂蚁蜃?/P>

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

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

　　D.標(biāo)簽按指定的時(shí)間時(shí)隔移動(dòng)

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

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

　　B.面向用戶

　　C.面向屏幕

　　D.面向窗體

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

　　A.文件

　　B.工程

　　C.編輯

　　D.視圖

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

　　A.按快捷鍵F4

　　B.點(diǎn)擊工具欄中的"屬性列表框"按鈕

　　C.選擇"視圖"下拉菜單的"屬性窗口"項(xiàng)

　　D.雙擊窗體中的某一對(duì)象

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

　　A.′

　　B.:

　　C.\

　　D._

　　16.假定窗體的名稱(Name屬性)為Form1，則把窗體的標(biāo)題設(shè)置為"VB Test"的語句為(B)

　　A.Form1 = "VB Test"

　　B.Caption ="VB Test"

　　C.Form1.Text = "VB Test"

　　D.Form1.Name ="VB Test"

　　17.下列不能打開代碼窗口的操作是(D)

　　A.雙擊窗體上的某個(gè)控件雙擊

　　B.雙擊窗體

　　C.按F7鍵

　　D.單擊窗體或控件

　　18.Visual Basic程序中語句行的續(xù)行符是(D)

　　A.′

　　B.:

　　C.\

　　D. _

　　19.Visual Basic程序中的注釋所使用的字符是(A)

　　A.′

　　B.:

　　C.\

　　D._

　　20.下列說法中正確的是：為了保存一個(gè)Visual Basic應(yīng)用程序，應(yīng)當(dāng)(D)

　　A.只保存窗體模塊文件(.frm)

　　B.只保存工程文件(.vbp)

　　C.分別保存工程文件和標(biāo)準(zhǔn)模塊文件(.bas)

　　D.分別保存工程文件、窗體文件和標(biāo)準(zhǔn)模塊文件

　　21.為了使窗體的大小可以改變，必須把它的BorderStyle屬性設(shè)置為(B)

　　A.1

　　B.2

　　C.3

　　D.4

　　22.下列說法中正確的是：為了載入一個(gè)只有一個(gè)工程(此工程下有三個(gè)窗體)的Visual Basic應(yīng)用程序，應(yīng)當(dāng)(B)

　　A.只裝入窗體模塊文件(.frm)

　　B.先裝入工程文件(.vbp)即可

　　C.分別裝入工程文件和標(biāo)準(zhǔn)模塊文件(.bas)

　　D.分別裝入工程文件、窗體文件和標(biāo)準(zhǔn)模塊文件

　　23.要使一個(gè)標(biāo)簽?zāi)軌蝻@示所需要的文本，應(yīng)設(shè)置該標(biāo)簽的(A)屬性的值

　　A.Caption

　　B.Name

　　C.Text

　　D.AutoSize

　　24.要使一個(gè)命令按鈕上有圖形，應(yīng)該設(shè)置該按鈕的(A)屬性值，同時(shí)設(shè)置它的style屬性為1

　　A.Picture

　　B.Style

　　C.DownPicture

　　D.DisabledPicture

　　25.為使計(jì)時(shí)器對(duì)象每隔5秒鐘產(chǎn)生一個(gè)時(shí)鐘事件(Timer事件)，則其Interval屬性值應(yīng)設(shè)置為(D)

　　A.5

　　B.300

　　C.500

　　D.5000

　　26一個(gè)標(biāo)準(zhǔn)的VB應(yīng)用程序至少要包含一個(gè)(C)對(duì)象

　　A.文本框

　　B.標(biāo)簽框

　　C.窗體

　　D.命令按鈕

　　27.要使一個(gè)文本框?qū)ο竽軌蝻@示多行文字，應(yīng)設(shè)置該對(duì)象的(B)屬性值為True

　　A.Text

　　B.MultiLine

　　C.Style

　　D.Visible

　　28.下列的(A)對(duì)象支持KeyPress事件

　　A.文本框

　　B.命令按鈕

　　C.標(biāo)簽框

　　D.圖像框

　　29.若要將窗體從內(nèi)存中卸載，其實(shí)現(xiàn)的方法或語句是(B)

　　A.Show

　　B.Unload

　　C.Load

　　D.Hide

　　30.以下選項(xiàng)中，不是VB標(biāo)準(zhǔn)控件的是(C)

　　A.命令按鈕

　　B.定時(shí)器

　　C.通用對(duì)話框

　　D.單選框

　　相關(guān)推薦：

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

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

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