| 第 1 頁(yè)：?jiǎn)芜x題 |
| 第 5 頁(yè)：基本操作題 |
| 第 6 頁(yè)：簡(jiǎn)單應(yīng)用題 |
| 第 7 頁(yè)：綜合應(yīng)用題 |
| 第 8 頁(yè)：參考答案 |
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事件過(guò)程中不能識(shí)別鍵盤(pán)的按下與釋放
B.在KeyPress事件過(guò)程中不能識(shí)別回車(chē)鍵
C.在KeyDown和KeyUp事件過(guò)程中，將鍵盤(pán)輸入的“A”和“a”視作相同的字母
D.在KeyDown和KeyUp事件過(guò)程中，從大鍵盤(pán)上輸出的“1”和從右側(cè)小鍵盤(pán)上輸入的“1”被視作不同的字符
33.以下關(guān)于文件的敘述中，錯(cuò)誤的是( )。
A.順序文件中的記錄一個(gè)接一個(gè)地順序存放
B.隨機(jī)文件中記錄長(zhǎng)度是隨機(jī)的
C.執(zhí)行打開(kāi)文件的命令后，自動(dòng)生成一個(gè)文件指針
D.LOF函數(shù)返回給文件分配的字節(jié)數(shù)
34.窗體上有1個(gè)名稱(chēng)為L(zhǎng)ist1的列表框，其中已經(jīng)輸入了若干個(gè)項(xiàng)目，如圖所示;還有
2個(gè)文本框，名稱(chēng)分別為T(mén)ext1、Text2，1個(gè)名稱(chēng)為Command1的命令按鈕，并有下列事件過(guò)程。
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="沒(méi)有匹配的項(xiàng)目"
Else
Text2=str
End If
End Sub
程序運(yùn)行時(shí)，在Text1中輸入"京"，單擊命令按鈕，則在Text2中顯示的內(nèi)容是( )。
A.京
B.北京南京
C.南京北京
D.沒(méi)有匹配的項(xiàng)目
35.以下關(guān)于KeyPress事件過(guò)程中參數(shù)KeyAscii的敘述正確的是( )。
A.KeyAscii參數(shù)是所按鍵的ASCII碼
B.KeyAscii參數(shù)的數(shù)據(jù)類(lèi)型為字符串
C.KeyAscli參數(shù)可以省略
D.KeyAscii參數(shù)是所按鍵上標(biāo)注的字符
36.在窗體上畫(huà)1個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)下列程序：
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先后畫(huà)2個(gè)圖片框，名稱(chēng)分別為Picture1和banana，banana中添加了香蕉
圖片，如圖1所示，且將banana.DragMode屬性設(shè)置為1。要求程序運(yùn)行時(shí)，可以用鼠標(biāo)把banana拖拽到Picture1中，如圖2所示。能實(shí)現(xiàn)此功能的事件過(guò)程是( )。
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è)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)下列事件過(guò)程
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ù)后按回車(chē)鍵，則判斷分?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
’回車(chē)符的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
’回車(chē)符的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
’回車(chē)符的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
’回車(chē)符的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.在窗體上畫(huà)2個(gè)命令按鈕，名稱(chēng)分別為Command1、Command2，然后編寫(xiě)下列事件過(guò)程。
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
過(guò)程Command1_Click()的作用是在二維數(shù)組a中存放1個(gè)m行n列的矩陣;過(guò)程Command2 Click()的作用是( )。
A.計(jì)算矩陣外圍一圈元素的累加和
B.計(jì)算矩陣除外圍一圈以外的所有元素的累加和
C.計(jì)算矩陣第1列和最后一列元素的累加和
D.計(jì)算矩陣第1行和最后一行元素的累加和
相關(guān)推薦：
2014年全國(guó)計(jì)算機(jī)二級(jí)VB上機(jī)考試試題匯總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
