(31) 設(shè)在窗體上有一個(gè)文本框,然后編寫如下的事件過程:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Const Alt=4
Const Key_F2=&H71
altdown%=(Shift And Alt) > 0
f2down%=(KeyCode=Key_F2)
If altdown% And f2down% Then
Text1.Text="abl"
End If
End Sub
程序運(yùn)行后,清除文本框中原有內(nèi)容,如果按Shift+F2鍵,則在文本框中顯示的是
A) Alt+F2
B) abl
C) 隨機(jī)出幾個(gè)數(shù)
D) 不發(fā)生變化
正確答案: D
(32) 設(shè)已經(jīng)在菜單編輯器中設(shè)計(jì)了窗體的快捷菜單,其頂級菜單為Bt,取消其"可見"屬性,運(yùn)行時(shí),在以下事件過程中,可以使快捷菜單相應(yīng)鼠標(biāo)右鍵菜單的是
A) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Button=2 Then PopupMenu Bt, 2
End Sub
B) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PopupMenu Bt
End Sub
C) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PopupMenu Bt,0
End Sub
D) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If (Button=vbLeftButton) Or (Button=vbRightButton) Then PopupMenu Bt
End Sub
正確答案: A
(33) 在窗體上畫一個(gè)通用對話框,其Name屬性為Cont,再畫一個(gè)命令按鈕,Name屬性為Command1,然后編寫如下事件過程:
Private Sub Command1_Click()
Cont.FileName=""
Cont.Flags=vbOFNFileMustExist
Cont.Filter="All Files|*.*"
Cont.FilterIndex=3
Cont.DialogTitle="Open File"
Co nt.Action=1
If Cont.FileName="" Then
MsgBox "No file selected"
Else
Open Cont.FileName For Input As #1
Do While Not EOF(1)
Input #1, b$
Print b$
Loop
End If
End Sub
以下各選項(xiàng),對上述事件過程描述錯(cuò)誤的是
A) 該事件過程用來建立一個(gè)Open對話框,可以在這個(gè)對話框中選擇要打開的文件
B) 選擇后單擊"打開"按鈕,所選擇的文件名即作為對話框的FileName屬性值
C) Open對話框不僅僅用來選擇一個(gè)文件,還可以打開、顯示文件
D) 過程中的"Cont.Action=1"用來建立Open對話框,它與Cont.ShowOpen等價(jià)
正確答案: C
(34) 已知使用Show方法的格式為:[窗體名稱].Show [模式],如果要使窗體是"模態(tài)型"窗體,則"模式"值為
A) True
B) 0
C) 1
D) False
正確答案: C
(35) 下面敘述不正確的是
A) 對順序文件中的數(shù)據(jù)操作只能按一定的順序操作
B) 順序文件結(jié)構(gòu)簡單
C) 能同時(shí)對順序文件進(jìn)行讀寫操作
D) 順序文件中只能知道第一個(gè)記錄的位置
正確答案: C
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |