(16) 下列符號(hào)常量的聲明中,不合法的是
A) Const a As Single=1.1
B) Const a="OK"
C) Const a As Double=Sin(1)
D) Const a As Integer="12"
答案:C
(17) 在Visual Basic中,要強(qiáng)制用戶對(duì)所用的變量進(jìn)行顯式聲明,這可以在哪里設(shè)置?
A) "屬性"對(duì)話框
B) "程序代碼"窗口
C) "選項(xiàng)"對(duì)話框
D) 對(duì)象瀏覽器
答案:C
(18) 下列語(yǔ)句中,獲得列表框List1中項(xiàng)目個(gè)數(shù)的語(yǔ)句是
A) x=List1.ListCount
B) x=ListCount
C) x=List1.ListIndex
D) x=ListIndex
答案:A
(19) 要獲得當(dāng)前驅(qū)動(dòng)器應(yīng)使用驅(qū)動(dòng)器列表框的屬性是
A) Path
B) Drive
C) Dir
D) Pattern
答案:B
(20) 如果將文本框的MaxLength屬性設(shè)置為0,則文本框中的字符不能超過
A) 8K
B) 16K
C) 32K
D) 64K
答案:C
(21) 當(dāng)在滾動(dòng)條內(nèi)拖動(dòng)滾動(dòng)塊時(shí)觸發(fā)
A) KeyUp事件
B) KeyPress事件
C) Scroll事件
D) Change事件
答案:C
(22) 設(shè)有聲明語(yǔ)句
Dim b(-1 To 10, 2 To 9, 20) As Integer
則數(shù)組b中全部元素的個(gè)數(shù)
A) 2310
B) 2016
C) 1500
D) 1658
答案:B
(23) 設(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="BBBBB"
End If
End Sub
上述程序運(yùn)行后,如果按 【Shift+F2】 ,則在文本框中顯示得是
A) Alt+F2
B) BBBBB
C) 隨機(jī)出幾個(gè)數(shù)
D) 文本框平均內(nèi)容無(wú)變化
答案:D
(24) 設(shè)已經(jīng)在"菜單編輯器"中設(shè)計(jì)了窗體的快捷菜單,其頂級(jí)菜單為Bs,取消其"可見"屬性,運(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 Bs, 2
End Sub
B) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PopupMenu Bs
End Sub
C) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PopupMenu Bs,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 Bs
End Sub
答案:A
(25) 下列程序的功能是調(diào)用字體對(duì)話框來設(shè)置文本框字體,單擊按鈕彈出對(duì)話框后,按Cancel鍵退出對(duì)話框,則
Private Sub Command1_Click()
CommonDialog1.CancelError=True
CommonDialog1.Flags=cdlCFEffects Or cdlDFBoth
CommonDialog1.Action=4
CommonDialog1.ShowFont
Text1.Font.Name=CommonDialog1.FontName
Text1.Font.Size=CommonDialog1.FontSize
Text1.Font.Bold=CommonDialog1.FontBold
Text1.Font.Italic=CommonDialog1.FontItalic
Text1.Font.Underline=CommonDialog1.FontUnderline
Text1.FontStrikethru=CommonDialog1.FontStrikethru
Text1.ForeColor=CommonDialog1.Color
End Sub
A) Text1的字體不發(fā)生變化
B) Text1的字體發(fā)生變化
C) Text1的字體和顏色發(fā)生變化
D) 程序出錯(cuò)!
答案:D
(26) 要將名為MyForm的窗體顯示出來,正確的使用方法是
A) MyForm.Show
B) Show.MyForm
C) MyForm Load
D) MyForm Show
答案:A
(27) 下列程序段的執(zhí)行結(jié)果為
a=5
For k=1 To 0
a=a + k
Next k
Print k; a
A) -1 6
B) -1 16
C) 1 5
D) 11 21
答案:C
(28) 下列程序段的執(zhí)行結(jié)果為
a=3
b=1
For I=1 To 3
f=a + b
a=b
b=f
Print f
Next I
A) 4 3 6
B) 4 5 9
C) 6 3 4
D) 7 2 8
答案:B
(29) 下列程序段的執(zhí)行結(jié)果為
I=9
x=5
Do
I=I + 1
x=x + 2
Loop Until I >=7
Print "I="; I
Print "x="; x
A) I=4x=5
B) I=7x=15
C) I=6x=8
D) I=10x=7
答案:D
(30) 以下程序段運(yùn)行時(shí)從鍵盤上輸入字符"-",則輸出結(jié)果為
op$=InputBox("op=")
If op$="+" Then a=a + 2
If op$="-" Then a=a - 2
Print a
A) 2
B) -2
C) 0
D) +2
答案:B
希望與更多計(jì)算機(jī)等級(jí)考試的網(wǎng)友交流,請(qǐng)進(jìn)入計(jì)算機(jī)等級(jí)考試論壇
更多信息請(qǐng)?jiān)L問:考試吧計(jì)算機(jī)等級(jí)考試欄目
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |