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

　　A.顯示當前驅動器或指定驅動器上的某目錄下的文件名

　　B.顯示當前驅動器或指定驅動器上的目錄結構

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

　　D.顯示該路徑下的文件

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

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

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

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

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

　　33.以下關于文件的敘述中，錯誤的是( )。

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

　　B.隨機文件中記錄長度是隨機的

　　C.執行打開文件的命令后，自動生成一個文件指針

　　D.LOF函數返回給文件分配的字節數

　　34.窗體上有1個名稱為List1的列表框，其中已經輸入了若干個項目，如圖所示;還有

　　2個文本框，名稱分別為Text1、Text2，1個名稱為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="沒有匹配的項目"

　　Else

　　Text2=str

　　End If

　　End Sub

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

　　A.京

　　B.北京南京

　　C.南京北京

　　D.沒有匹配的項目

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

　　A.KeyAscii參數是所按鍵的ASCII碼

　　B.KeyAscii參數的數據類型為字符串

　　C.KeyAscli參數可以省略

　　D.KeyAscii參數是所按鍵上標注的字符

　　36.在窗體上畫1個名稱為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

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

　　A.ABCDEFG

　　B.AGBFCE

　　C.GFEDCBA

　　D.AGBFCED

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

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

　　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個名稱為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

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

　　A.15

　　B.13

　　C.11

　　D.9

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

　　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("分數錯")

　　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("分數錯")

　　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("分數錯")

　　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("分數錯")

　　End If

　　End If

　　End Sub

　　40.在窗體上畫2個命令按鈕，名稱分別為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()的作用是在二維數組a中存放1個m行n列的矩陣;過程Command2 Click()的作用是( )。

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

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

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

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

　　相關推薦：

　　2014年全國計算機二級考試VF上機沖刺試卷匯總

　　考試吧考后首發2014年3月計算機二級真題及答案通知

　　考試吧推薦：2014年3月計算機二級考前沖刺備考專題