亚洲欧洲国产欧美一区精品,激情五月亚洲色五月,最新精品国偷自产在线婷婷,欧美婷婷丁香五月天社区

計算機二級VB語言程序設(shè)計考試題及答案

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

　　x=2

　　For c=1 To 4 Step 2

　　x=x+c

　　Next c

　　運行以上程序后，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

　　運行以上程序，正確的結(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

　　程序運行后，單擊命令按鈕，在窗體上顯示的內(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

　　程序運行后，單擊命令按鈕，則在窗體上顯示的內(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

　　程序運行后，單擊窗體，輸入結(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)前目錄下的文件