<b id="glvx9"></b> 
| 第 1 頁：選擇題 |
| 第 5 頁：操作題 |
| 第 8 頁：參考答案 |
31.目錄列表框的Path屬性的作用是( )。
A.顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的某目錄下的文件名
B.顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的目錄結(jié)構(gòu)
C.顯示根目錄下的文件名
D.顯示該路徑下的文件
32.以下敘述中錯誤的是( )。
A.在KeyPress事件過程中不能識別鍵盤的按下與釋放
B.在KeyPress事件過程中不能識別回車鍵
C.在KeyDown和KeyUp事件過程中，將鍵盤輸入的“A”和“a”視作相同的字母
D.在KeyDown和KeyUp事件過程中，從大鍵盤上輸出的“1”和從右側(cè)小鍵盤上輸入的“1”被視作不同的字符
33.以下關(guān)于文件的敘述中，錯誤的是( )。
A.順序文件中的記錄一個接一個地順序存放
B.隨機文件中記錄長度是隨機的
C.執(zhí)行打開文件的命令后，自動生成一個文件指針
D.LOF函數(shù)返回給文件分配的字節(jié)數(shù)
34.窗體上有1個名稱為List1的列表框，其中已經(jīng)輸入了若干個項目，如圖所示;還有
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中顯示的內(nèi)容是( )。
A.京
B.北京南京
C.南京北京
D.沒有匹配的項目
35.以下關(guān)于KeyPress事件過程中參數(shù)KeyAscii的敘述正確的是( )。
A.KeyAscii參數(shù)是所按鍵的ASCII碼
B.KeyAscii參數(shù)的數(shù)據(jù)類型為字符串
C.KeyAscli參數(shù)可以省略
D.KeyAscii參數(shù)是所按鍵上標注的字符
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屬性設(shè)置為1。要求程序運行時，可以用鼠標把banana拖拽到Picture1中，如圖2所示。能實現(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個名稱為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
程序運行后，單擊命令按鈕，輸出結(jié)果是( )。
A.15
B.13
C.11
D.9
39.在窗體上從仨到右有Text1、Text2兩個文本框，如圖所示，要求程序運行時，在Text1 中輸入1個分數(shù)后按回車鍵，則判斷分數(shù)的合法性，若分數(shù)為0～100中的1個數(shù)，則光標移到Text2中;否則光標不動，并彈出對話框顯示“分數(shù)錯”。下列程序中正確的是( )。
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("分數(shù)錯")
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("分數(shù)錯")
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("分數(shù)錯")
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("分數(shù)錯")
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()的作用是在二維數(shù)組a中存放1個m行n列的矩陣;過程Command2 Click()的作用是( )。
A.計算矩陣外圍一圈元素的累加和
B.計算矩陣除外圍一圈以外的所有元素的累加和
C.計算矩陣第1列和最后一列元素的累加和
D.計算矩陣第1行和最后一行元素的累加和
相關(guān)推薦：
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
