黄色在线观看视频-黄色在线免费看-黄色在线视频免费-黄色在线视频免费看-免费啪啪网-免费啪啪网站

網站首頁
分類導航
試題中心
下載中心
英語學習
繽紛校園
考試論壇
網站留言
客服中心
 計算機等級考試二級VB全真模試題(三)
【字體:
計算機等級考試二級VB全真模試題(三)
http://www.top-99.com.cn 來源:chinaitlab 點擊: 更新:2005-6-30

(26) 下列不能打開菜單編輯器的操作是 。

A)按Ctrl+E
B)單擊工具欄中的“菜單編輯器”按鈕
C)執行“工具”菜單中的“菜單編輯器”命令
D)按Shift + Alt + M

(27) 假定有一個菜單項,名為MenuItem,為了在運行時使該菜單項失效(變灰),應使用的語句為 。

A) MenuItem. Enabled=False
B) MenuItem. Enabled=True
C) MenuItem. Visible=True
D) Menultem. Visible=False

(28) 在程序運行期間,如果拖動滾動條上的滾動塊,則觸發的滾動條事件是 。

A) Move B) Change C) Scroll D) GetFocus

(29) 假定窗體上有一個標簽,名為Labell,為了使該標簽透明并且沒有邊框,則正確的屬性設置為 。

A) Label1. BackStyle=0
Label1.Borderstyle=0
B) Label1.BackStyle=1
Label1.Borderstyle=1
C) Label1.BackStyle=True
Label1.BorderStyle=True
D) Label1.BackStyle=False
Label1.Borderstyle=False

(30) 在窗體上畫一個列表框和一個文本框,然后編寫如下兩個事件過程:

Private Sub Form_Load ()
List1.AddItem"357"
List1.AddItem"246"
List1.AddItem"123"
Listl.AddItem"456"
Text1.Text=""
End Sub

Private Sub List1_ DblClick ( )
a =List1.Text
Print a+Text1.Text
End Sub
程序運行后,在文本框中輸入“789”(見圖1),然后雙擊列表框中的"456",則輸出結果為 。

A) 1245 B) 456789 C) 789456 D) 0

(31) 為了暫時關閉計時器,應把該計時器的某個屬性設置為False ,這個屬性是 。

A) Visible B) Timer C) Enabled D) Interval

(32) 為了把一個記錄型變量的內容寫入文件中指定的位置,所使用的語句的格式為 。

A)Get文件號,記錄號,變量名
B)Get文件號,變量名,記錄號
C)Put文件號,變量名,記錄號
D)Put文件號,記錄號,變量名

(33) 對窗體編寫如下事件過程:

Private Sub Form _MouseDown(Button As Integer, _
Shift As Integer, X As Single Y As Single)
If Button =2 Then
Print "AAAAA"
End If
End Sub

Private Sub Form _ MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Print "BBBBB"
End Sub
程序運行后,如果單擊鼠標右鍵,則輸出結果為    。

A) AAAAA B) BBBBB C) AAAAA D) BBBBB
BBBBB AAAAA

(34) 為了在運行時能顯示窗體左上角的控制框(系統菜單),必須    。

A) 把窗體的Contro1Box 屬性設置為Fale,其他屬性任意
B) 把窗體的ControlBox 屬性設置為True,并且把Boder Style屬性設置為1-5
C) 把窗體的ControlBox 屬性設置為False,同時把BoderStyle屬性調協為非0值
D) 把窗體的ControlBox 屬性設置為True,同時把BoderStyle屬性設置為0值

(35) 對窗體編寫如下代碼:
Option Base 1
Private Sub Form_KeyPress(KeyAscii As Integer)
a = Array(237,126,87,48,498)
m1 = a(1)
m2 = 1
If KeyAscii = 13 Then
For i =2 To 5
If a(i)>ml Then
m1 =a(j)
m2 =i
End If
Next i
End If
Print m1
Print m2
End Sub
程序運行后,按回車鍵,輸出結果為

A) 48 B) 237 C) 498 D) 498
4 1 5 4

二、填空題(每空2分,共30分)

請將每空的正確答案寫在答題卡[1]—[15]序號的橫線上,答在試卷上不得分。

(1)設有如下的Visual Basic表達式:

5 * x^2 – 3 * x – 2 * Sin(a)/3
它相當于代數式【1】 。

(2)執行下面的程序段后,s的值為 【2】 。
s = 5
For i = 2.6 To 4.9 Step 0.6
s = s+1
Next i

(3)表達式Fix(-32.68)+Int(-23.02)的值為 【3】 。

(4)為了在運行時把圖形文件picfile. jpg裝入圖片框Picture1,所使用的語句為【4】 。

(5)在窗體上畫一個命令按鈕,然后編寫如下事件過程:

Private Sub Command1_Click()
a = InputBox("請輸入一個整數")
b = InputBox("請輸入一個整數")
Print a + b
End Sub
程序運行后,單擊命令按鈕,在輸入對話框中分別輸入321和456,輸出結果為 【5】 。

(6) 執行下面的程序段后,b的值為【6】 。

a=300
b=20
a=a+b
b=a-b
a=a-b

(7) 以下程序段的輸出結果是【7】 。

num=0
While num<=2
num=num+1
Print num
Wend

(8) 在窗體畫一個命令按鈕,然后編寫如下事件過程:

Private Sub Command1_Click()
Dim a(1 To 10)
Dim p(1 To 3)
k=5
For i=1 To 10
a(i)=i
Next i
For i=1 To 3
p(i)=a(i*i)
Next i
For i=1 To 3
k=k+p(i)*2
Next i
Print k

End Sub
程序運行后,單擊命令按鈕,輸出結果是【8】 。

(9) 下面的程序用“冒泡”法將數組a中的10個整數按升序排列,請在【9】、【10】、【11】處將程序補充完整。

Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(678,45,324,528,439,387,87,875,273,823)
For i=【9】
For j=【10】
If a(i) 【11】 a(j) Then
a1=a(i)
a(i)=a(j)
a(j)=a1
End If
Next j
Next i
For i=1 To 10
Print a(i)
Next i
End Sub

(10) 在窗體畫一個命令按鈕,然后編寫如下過程:

Function fun(ByVal num As Long)As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num Mod 10)
num=num\10
Loop
fun=k
End Function

Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n=InputBox("請輸入一個數")
n=CLng(n)
r=fun(n)
Print r
End Sub
程序運行后,單擊命令按鈕,在輸入對話框中輸入234,輸出結果為【12】 。

(11) 如果要將某個菜單項設計為分隔線,則該菜單項的標題應設置為【13】 。

(12) 假定建立了一個工程,該工程包括兩個窗體,其名稱(Name 屬性)分別為Form1和Form2,啟動窗體為Form1。在Form1畫一個命令按鈕Command1,程序運行后,要求當單擊該命令按鈕時,Form1窗體消失,顯示窗體Form2,請在【14】和【15】處將程序補充完整。
Private Sub Command1_Click()
【14】 Form1
Form2. 【15】
End Sub


答案

一、選擇題

(1) C (2) D (3) B (4) C (5) B

(6) C (7) C (8) D (9) B (10) A

(11) D (12) A (13) B (14) A (15) C

(16) C (17) C (18) B (19) D (20) A

(21) D (22) D (23) D (24) B (25) A

(26) D (27) A (28) C (29) A (30) B

(31) C (32) D (33) A (34) B (35) C

二、填空題

(1) [1]
(2) [2] 9
(3) [3] 56
(4) [4] Picturel.Picture = LoadPicture("picfile.jpg")
(5) [5] 321456
(6) [6] 300
(7) [7] 1
2
3
(8) [8] 33
(9) [9] a To 9
[10] i+1 To 10
[11] >=
(10) [12] 24
(11) [13] -
(12) [14] Unload
[15] Show

上一頁  [1] [2] 

文章錄入:ak47    責任編輯:ak47  
 版權聲明
   如果本網站所轉載內容不慎侵犯了您的權益,請與我們聯系,我們將會及時處理。如轉載本網內容,請注明出處。
 發表評論
關于本站 網站聲明 廣告服務  聯系方式  付款方式  站內導航  客服中心  友情鏈接   
Copyright © 2004-2006 考試吧 (Exam8.com) All Rights Reserved 
中國科學院研究生院中關村園區(北京市海淀區)
主站蜘蛛池模板: 最近免费中文字幕完整5 | 伊人色综合琪琪久久社区 | 免费国产成人高清在线观看麻豆 | 中文字幕亚洲国产 | 老司机精品99在线播放 | 成人欧美一区二区三区视频xxx | 日韩欧美卡一卡二卡新区 | 中文有码视频 | 中文字幕在线导航 | 日本人与亚洲人hd | 欧洲成人在线视频 | 午夜无码国产理论在线 | 一个人看的www视频免费 | 一个人看的视频www在线 | 国产视频观看 | 国产区一区二区三 | 日韩欧美一二三区 | 亚洲无线一二三四区手机 | 国产女人伦码一区二区三区不卡 | 亚洲妇人成熟性成熟网站 | 国外免费精品视频在线观看 | 天天摸夜夜摸爽爽狠狠婷婷97 | aaa一级片 | 91欧美在线 | 免费搞黄网站 | 亚洲高清一区二区三区久久 | 青青草官网| 黄色片一级黄色片 | 精品综合一区二区三区 | 97天天摸天天碰天天爽 | 日韩一区二区三区在线免费观看 | 亚洲 欧美 成人日韩 | 欧美日本综合一区二区三区 | 一级毛片免费观看 | 久久精品国产999久久久 | 欧美另类综合 | 日韩免费在线观看视频 | 天天摸天天澡天天碰天天弄 | 亚洲欧美日韩在线观看二区 | 精品国偷自产在线不卡短视频 | 狠狠色狠狠色综合日日五 |