2014年3月計(jì)算機(jī)二級(jí)考試VF臨考預(yù)測試卷及答案7

　　31.目錄列表框的Path屬性的作用是( )。

　　A.顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的某目錄下的文件名

　　B.顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的目錄結(jié)構(gòu)

　　C.顯示根目錄下的文件名

　　D.顯示該路徑下的文件

　　32.以下敘述中錯(cuò)誤的是( )。

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

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

　　C.在KeyDown和KeyUp事件過程中，將鍵盤輸入的“A”和“a”視作相同的字母

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

　　33.以下關(guān)于文件的敘述中，錯(cuò)誤的是( )。

　　A.順序文件中的記錄一個(gè)接一個(gè)地順序存放

　　B.隨機(jī)文件中記錄長度是隨機(jī)的

　　C.執(zhí)行打開文件的命令后，自動(dòng)生成一個(gè)文件指針

　　D.LOF函數(shù)返回給文件分配的字節(jié)數(shù)

　　34.窗體上有1個(gè)名稱為List1的列表框，其中已經(jīng)輸入了若干個(gè)項(xiàng)目，如圖所示;還有

　　2個(gè)文本框，名稱分別為Text1、Text2，1個(gè)名稱為Command1的命令按鈕，并有下列事件過程。

　　Private Sub Command1_Click()

　　Dim str As String，S As String.k As Integer

　　s=Text1

　　str =""

　　For k=Listl.ListCount-1 To 0 Step-1

　　If InStr(List1.List(k)，s)>0 Then

　　str=str & List1.List(k)&""

　　End If

　　Next k

　　If str=""Then

　　Text2="沒有匹配的項(xiàng)目"

　　Else

　　Text2=str

　　End If

　　End Sub

　　程序運(yùn)行時(shí)，在Text1中輸入"京"，單擊命令按鈕，則在Text2中顯示的內(nèi)容是( )。

　　A.京

　　B.北京南京

　　C.南京北京

　　D.沒有匹配的項(xiàng)目

　　35.以下關(guān)于KeyPress事件過程中參數(shù)KeyAscii的敘述正確的是( )。

　　A.KeyAscii參數(shù)是所按鍵的ASCII碼

　　B.KeyAscii參數(shù)的數(shù)據(jù)類型為字符串

　　C.KeyAscli參數(shù)可以省略

　　D.KeyAscii參數(shù)是所按鍵上標(biāo)注的字符

　　36.在窗體上畫1個(gè)名稱為Command1的命令按鈕，然后編寫下列程序：

　　Private Sub Command1_Click()

　　Print fun("ABCDEFG")

　　End Sub

　　Function fun(st As String)As string

　　stlen=Len(st)

　　temp=""

　　For k=1 To stlen/2

　　temp=temp+Mid(st，k，1)+Mid(st，stlen-k+1，1)

　　Next k

　　fun=temp

　　End Function

　　程序運(yùn)行時(shí)，單擊命令按鈕，則在窗體上顯示的是( )。

　　A.ABCDEFG

　　B.AGBFCE

　　C.GFEDCBA

　　D.AGBFCED

　　37.在窗體E先后畫2個(gè)圖片框，名稱分別為Picture1和banana，banana中添加了香蕉

　　圖片，如圖1所示，且將banana.DragMode屬性設(shè)置為1。要求程序運(yùn)行時(shí)，可以用鼠標(biāo)把banana拖拽到Picture1中，如圖2所示。能實(shí)現(xiàn)此功能的事件過程是( )。

　　A.Private 3ub Form—DragDrop(Source As Control，X As Single，Y As Single)

　　banana.Move Picture1.Left+X，Picture1.Top+Y

　　End Sub

　　B.Private Sub banana_DragDrop(Source As Control，X As Single，Y As Single)

　　Source.Move Picture1.Left+X，Picture 1.Top+Y

　　End Sub

　　C.Private Sub Picturei_DragDrop(Source As Control，X As Single，Y As Single)

　　Source.Move Picture1.Left+X，Picture1.Top+Y

　　End Sub

　　D.Private Sub Picture1_DragDrop(Source As Control，X As Single，Y As Single)

　　banana.Move banana.Left+X，banana.Top +Y

　　End Sub

　　38.在窗體上面1個(gè)名稱為Command1的命令按鈕，然后編寫下列事件過程

　　Option Base 1

　　Private Sub，Command1 Click()

　　Dim a(5，5)ks Integer

　　For i=1 To j

　　For j=1 To 5

　　a(i，j)=(i+j)*5\10

　　Next j

　　Next i

　　S=0

　　For i=1 To j

　　s=s+a(i，i)

　　Next i

　　Print s

　　End Sub

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

　　A.15

　　B.13

　　C.11

　　D.9

　　39.在窗體上從仨到右有Text1、Text2兩個(gè)文本框，如圖所示，要求程序運(yùn)行時(shí)，在Text1 中輸入1個(gè)分?jǐn)?shù)后按回車鍵，則判斷分?jǐn)?shù)的合法性，若分?jǐn)?shù)為0～100中的1個(gè)數(shù)，則光標(biāo)移到Text2中;否則光標(biāo)不動(dòng)，并彈出對(duì)話框顯示“分?jǐn)?shù)錯(cuò)”。下列程序中正確的是( )。

　　A. Private Sub Text1_KeyPress(KeyAscii As Integer)

　　If KeyAscii==13 Then

　　’回車符的ASCIl碼是13

　　a=Val(Text1)

　　If a>=0 Or a<=100 Then

　　Text2.SetFocus

　　Else

　　Text1.SetFocus：MsgBox("分?jǐn)?shù)錯(cuò)")

　　End If

　　End If

　　End Sub

　　B. Private Sub Textl—KeyPress(KeyAscii As Integer)

　　If KeyAseii=13 Then

　　’回車符的ASCIl碼是13

　　a=Val(Text1)

　　If a>=0 And a<=100 Then

　　Textl.SetFocus

　　Else

　　Text2.SetFocus：MsgBox("分?jǐn)?shù)錯(cuò)")

　　End If

　　End If

　　End Sub

　　C.Private Sub Text1_KeyPress(KeyAscii As Integer)

　　If KeyAscii=13 Then

　　’回車符的ASCII碼是13

　　a=Val(Text1)

　　If a<0 And a>100 Then

　　Text2.SetFocus

　　Else

　　Text1.SetFocus：MsgBox("分?jǐn)?shù)錯(cuò)")

　　End If

　　End If

　　End Sub

　　D.Private Sub Text1_KeyPress(KeyAscii As Integer)

　　If KevAscii=13 Then

　　’回車符的ASCII碼是13

　　a=Val(Textl)

　　If a>=0 Aad a<=100 Then

　　Text2.SetFocus

　　Else

　　Text1.SetFocus：MsgBox("分?jǐn)?shù)錯(cuò)")

　　End If

　　End If

　　End Sub

　　40.在窗體上畫2個(gè)命令按鈕，名稱分別為Command1、Command2，然后編寫下列事件過程。

　　Const n=5.m=4

　　Dim a(m，n)

　　Private Sub+Command1 Click()

　　k=1

　　For i=1 To m

　　For j=1 To n

　　a(i，j)=k

　　k=k+1

　　Next j

　　Next i

　　End Sub

　　Private Sub Command2 Click()

　　summ=0

　　For i=1 To m

　　For j=1 To n

　　If i=1 Or i=m Then

　　summ=summ+a(i，j)

　　Else

　　If j=1 Or j=n Then

　　summ=summ+a(i，j)

　　End If

　　End If

　　Next j

　　Next i

　　Print summ

　　End Sub

　　過程Command1_Click()的作用是在二維數(shù)組a中存放1個(gè)m行n列的矩陣;過程Command2 Click()的作用是( )。

　　A.計(jì)算矩陣外圍一圈元素的累加和

　　B.計(jì)算矩陣除外圍一圈以外的所有元素的累加和

　　C.計(jì)算矩陣第1列和最后一列元素的累加和

　　D.計(jì)算矩陣第1行和最后一行元素的累加和

　　相關(guān)推薦：

　　2014年全國計(jì)算機(jī)二級(jí)考試VF上機(jī)沖刺試卷匯總

　　考試吧考后首發(fā)2014年3月計(jì)算機(jī)二級(jí)真題及答案通知

　　考試吧推薦：2014年3月計(jì)算機(jī)二級(jí)考前沖刺備考專題