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

一、選擇題((1)一(20)每小題2分，(21)一(30)每小題3分，共30題，70分)
�牐� 下列各題A)、B)、C)、D)四個選項中，只有一個選項是正確的，請將正確選項涂
�牐� 在答題卡的相應位置上，答在試卷上不得分。
�牐� (1)以下不能在“工程資源管理器”窗口中列出的文件類型是
�牐� A)．bas B)．res C)．fnn D)．ocx
�牐� (2)以下關于窗體的描述中，錯誤的是
�牐� A)執行UnloadFoMl語句后，窗體Fonnl消失，但仍在內存中
�牐� B)窗體的Ioad事件在加載窗體時發生
�牐� C)當窗體的Enabled屬性為False時，通過鼠標和鍵盤對窗體的操作都被禁止
�牐� D)窗體的Height、width屬性用于設置窗體的高和寬
�牐� (3)下列可作為V2sualBasic變量名的是
�牐� A)A#A B)4A C)?xY D)constA
�牐� (4)設有如下的記錄類型
�牐� Type Student
�牐� numberAs string
�牐� name As String
�牐� age As Integer
�牐� End Type
�牐� 則正確引用該記錄類型變量的代碼是
�牐� A) Student．name=”張紅” B) Dim As Student
�牐� s．name＝”張紅”
�牐� C) Dim s As Type Student D) Dim s As Type
�牐� S．name=”張紅” s.Dame＝”張紅”
�牐�
�牐� (5)函數String(n，“str”)的功能是
�牐� A)把數值型數據轉換為字符串
�牐� B)返回由n個字符組成的字符串
�牐� C)從字符串中取出n個字符
�牐� D)從字符串中第n個字符的位置開始取子字符串
�牐� (6)將數學表達式Cos2(a+b)+5e2寫成Visual Basic的表達式，其正確的形式是
�牐� A)Cos(a+b)A2十5。exp(2) B)Cos^2(a+b)+5*exp(2)
�牐� C)Cos(a+b)^2十5*ln(2) D)Cos^2(a+b)+5*ln(2)
�牐� (7)在窗體上畫一個命令按鈕，名稱為Commandl。單擊命令按鈕時，執行如下事件過
�牐� 程：
�牐� PrlVate Sub Commandl—C1icko
�牐� a$="software and hardware"
�牐� b$＝Right(a$,8)
�牐� c$=Mid(a$,1，8)
�牐� Msgbox a$,,b$,c$,1
�牐� End Sub
�牐� 則在彈出的信息框的標題欄中顯示的信息是
�牐� A)softWare and hardware B)software C)hardwafe D)1
�牐� (8)執行如下語句：
�牐� a＝inutBox(”Today”，”TomorroW，”Yesterday”,,,"Day before yesterday"，5)
�牐� 將顯示一個輸入對話框，在對話框的輸入區中顯示的信息是
�牐� A)Today B)Tomorrow C)Yesterday D)Day before yesterday
�牐� (9)表示滾動條控件取值范圍最大值的屬性是
�牐� A)Max B)LargeChange C)Value D)Max—Min
�牐� (10)在窗體上畫一個名稱為Listl的列表框，一個名稱為Labell的標簽。列表框中顯示
�牐� 若干城市的名稱。當單擊列表框中的某個城市名時，在標簽中顯示選中城市的名稱。
�牐� 下列能正確實現上述功能的程序是
�牐� A) Private Sub listl_Click() B)Private Sub Listl_C1ick()
�牐� Labell．Caption＝list1.listlndex Labell．Nanle＝Listl．listindex
�牐� End Sub ．End Sub
�牐� 程序運行后，如果單擊命令按鈕，則在窗體上顯示的內容是
�牐� A)空白 B)錯誤提示 C)北京 D)上海
�牐� (15)假定有以下函數過程：
�牐� Function Fun(S As String) As String
�牐� Dim s1 As String
�牐� For i=1 To Len(S)
�牐� s1＝UCase(Mid(S，i，1))十s1
�牐� Next i
�牐� Fun＝s1
�牐� End Function
�牐� 在窗體上畫一個命令按鈕，然后編寫如下事件過程：
�牐� Prlvate Sub Commmldl_Click()
�牐� Dim Str1 As String，Str2 As String
�牐� Strl＝inputbox(”請輸入一個字符串”)
�牐� Str2=Fun(Strl)
�牐� Print Str2
�牐� End Sub
�牐� 程序運行后，單擊命令按鈕，如果在輸入對話框中輸入字符串“abcdefg”，則單擊“確
�牐� 定”按鈕后在窗體上的輸出結果為
�牐� A)abcdefg B)ABCDEFG C)gfedcba D)GFEDCBA
�牐� (16)設有語句
�牐� open "c：\Test．Dat" For OutPut As#1
�牐� 則以下錯誤的敘述是
�牐� A)該語句打開C盤根目錄下一個己存在的文件Test．Dat
�牐� B)該語句在C盤根目錄下建立一個名為Test．Dat的文件
�牐� C)該語句建立的文件的文件號為1
�牐� D)執行該語句后，就可以通過Print#語句向文件Test．Dat中寫入信息
�牐� (17)以下敘述中錯誤的是
�牐� A)用Shell函數可以調用能夠在Windows下運行的應用程序
�牐� B)用Shell函數可以調用可執行文件，也可以調用VisualBasic的內部函數
�牐� C)調用Shell函數的格式應為：<變量名>＝Shell(……)
�牐� D)用Shell函數不能執行DoS命令
�牐� (18)以下關于過程及過程參數的描述中，錯誤的是
�牐� A)過程的參數可以是控件名稱
�牐� B)用數組作為過程的參數時，使用的是“傳地址”方式
�牐� c)只有函數過程能夠將過程中處理的信息傳回到調用的程序中
�牐� D)窗體可以作為過程的參數
�牐� (19)在窗體上畫一個名稱為TxtA的文本框，然后編寫如下的事件過程：
�牐� Private Sub Txta_KeyPress(keyascii as integer)
�牐� End Sub
�牐� 若焦點位于文本框中，則能夠觸發KeyPress事件的操作是
�牐� A)單擊鼠標 B)雙擊文本框
�牐� C)鼠標滑過文本框 D)按下鍵盤上的某個鍵
�牐� (20)目錄列表框的Path屬性的作用是
�牐� A)顯示當前驅動器或指定驅動器上的路徑
�牐� B)顯示當前驅動器或指定驅動器上的某目錄下的文件名
�牐� c)顯示根目錄下的文件名
�牐� D)只顯示當前路徑下的文件
�牐� (21)假定有如下事件過程：
�牐� PriVate Sub Form_MouseDown(button As Integer,Shift As Integer, x As Single，Y As
�牐� Single)
�牐� If Button＝2 then
�牐� PopupMenu popForm
�牐� End if
�牐� End Sub
�牐� 則以下描述中錯誤的是
�牐� A)該過程的功能是彈出一個菜單
�牐� B)popForm 是在菜單編輯器中定義的彈出式菜單的名稱
�牐� C)參數X、Y指明鼠標的當前位置
�牐� D)Button=2 表示按下的是鼠標左鍵
�牐� (22)以下能夠正確計算n!的程序是
�牐� 二級Visual Basic語言程序設計試卷第5頁 (共15頁)
�牐� A) Private Sub Commandl_ClicK()
�牐� n＝5:x＝1
�牐� Do
�牐� X=x*1
�牐� i＝i十1
�牐� Loop While i＜n
�牐� Print x
�牐� End Sub
�牐� B) Private Sub Commandl_Click()
�牐� n＝5: x＝1：i=1
�牐� Do
�牐� X＝X*1
�牐� i＝i十1
�牐� Loop While i＜n
�牐� Print x
�牐� End Sub
�牐� C)Private Sub Commandl_Click()
�牐� n=5：x＝1：i＝1
�牐� Do
�牐� X=X*1
�牐� i＝i十1
�牐� Loop while i<=n
�牐� Print x
�牐� End Sub
�牐� D)Private Sub Commandl_C1ick()
�牐� n＝5：x＝1：i=1
�牐� Do
�牐� X=X*l
�牐� i=i十1
�牐� loop While i＞n
�牐� Print x
�牐� End Sub
�牐� (23)在窗體上畫一個名稱為Commandl的命令按鈕，再畫兩個名稱分別為Labell、Label2
�牐� 的標簽，然后編寫如下程序代碼：
�牐� ． 二級vlsudBM5c語言程序設計試卷第6頁 (共15頁)
�牐� Private x As Integer
�牐� Private Sub Commandl—Click()
�牐� X＝5：Y＝3
�牐� Call proc(x,Y)
�牐� Labell．Caption＝X
�牐� Label2．Caption＝Y
�牐� End Sub
�牐� Private Sub proc(ByVal a As Integer，ByVal b As hteger)
�牐� x＝a* a
�牐� Y=b十b
�牐� End Sub
�牐� 程序運行后，單擊命令按鈕，則兩個標簽中顯示的內容分別是
�牐� A)5和3 B)25和3 C)25和6 D)5和6
�牐� (24)在窗體上畫一個名稱為Commandl的命令按鈕，一個名稱為Labell的標簽，然后
�牐� 編寫如下事件過程：
�牐� Private Sub Commandl_C1ick()
�牐� S＝0
�牐� For i＝1 T0 15
�牐� x＝2*i一1
�牐� 1f x Mod 3＝0 Then s＝s十1
�牐� Nexti
�牐� Labell．Caption=s
�牐� End Sub
�牐� ． 程序運行后，單擊命令按鈕，則標簽中顯示的內容是
�牐� A)1 B)5 C)27 D)45
�牐� (25)在窗體上畫一個名稱為Commandl的命令按鈕和三個名稱分別為Labell、Label2、
�牐� Label3的標簽，然后編寫如下代碼：
�牐� Private x As Integer
�牐� Private Sub Command1_C1ick()
�牐� Static y As Integer
�牐� Dimz As Integer
�牐� n＝10
�牐� z=n十z
�牐� y＝y十z
�牐� X＝X十Z
�牐� Labell.Caption＝x
�牐� Label2．Caption=y
�牐� Label3．Caption＝z
�牐� End Sub
�牐� 運行程序，連續三次單擊命令按鈕后，則三個標簽中顯示的內容分別是
�牐� A)10 10 10 B)30 30 30 C)30 30 10 D)10 30 30(26)設在窗體上有一個名稱為Commandl的命令按鈕，并有以下事件過程：
�牐� PriVate Sub Commandl_C1ick()
�牐� Static b As Variant
�牐� b＝Array(1,3,5,7,9)
�牐� End Sub
�牐� 此過程的功能是把數組b中的5個數逆序存放(即排列為9，7，5，3，1)。為實現此功
�牐� 能，省略號處的程序段應該是
�牐� A)For i＝0 To 5-1＼2
�牐� tmp＝b(i)
�牐� b(i)＝b(5-i-1)
�牐� b(5-i-1)＝tmp
�牐� Next
�牐� B)for i＝0 To 5
�牐� tmp=b(i)
�牐� b(i)＝b(5-i-1)
�牐� b(5-i-1)=tmp
�牐� Next
�牐� C) For i＝0 T0 5＼2
�牐� tmp＝b(i)
�牐� b(i)＝b(5-i-1)
�牐� b(5-i-1)；tmp
�牐� Next
�牐� D)For i＝1 T0 5＼2
�牐� tmp=b(i)
�牐� b(i)＝b(5一i一1)
�牐� b(5—i—1)＝tmp
�牐� Next
�牐� 二級VlsualBM5c語言程序設計試卷第8頁 (共15頁)
�牐� (27)在窗體上畫一個名稱為Drivel的驅動器列表框，一個名稱為Dirl的目錄列表框，
�牐� 一個名稱為Filel的文件列表框，兩個名稱分別為Labell、Label2，標題分別為空白
�牐� 和“共有文件”的標簽。編寫程序，使得驅動器列表框與目錄列表框、目錄列表框
�牐� 與文件列表框同步變化，并且在標簽Labell中顯示當前文件夾中文件的數量。如圖
�牐� 所示。
�牐� 能夠正確實現上述功能的程序是
�牐� A) Private Sub Dirl_Change() B)Private Sub Dir1_Change()
�牐� Filel．Path＝Dir1.path Filel.path=dir1．Path
�牐� End Sub End Sub
�牐� Private Sub Drivel_Change() Private Sub Drive1_Change()
�牐� Dirl．Path＝Drivel．Drive Dirl．Path＝Drivel.Drive
�牐� Labell．Caption＝Filel.listCount Labell．Captlon＝file1.list
�牐� End Sub End Sub
�牐� C)Private Sub Dirl_Change() D) Private Sub Dirl_Change()
�牐� Filel．Path=Dirl．Path filel．Path＝Dir1．Path
�牐� Labell．Caption＝Filel．ListCount Labell．Caption＝Filel．List
�牐� End Sub End Sub
�牐� Private Sub Drivel_Change() Private Sub Drivel_Change()
�牐� Dirl．Path＝Drivel．Drlve Dir1．Path＝Drivel．DrlVe
�牐� Labell．Caption＝Filel．ListCount Labell．Caption＝Filel.list
�牐� End Sub End Sub
�牐� (28)一個工程中包含兩個名稱分別為Forml、Form2的窗體，一個名稱為mdlFunc的標準
�牐� 模塊。假定在Forml、Form2和mdlFunc中分別建立了自定義過程，其定義格式為：
�牐� Forml中定義的過程：
�牐� PriVate Sub frmfunctionl()
�牐� End Sub
�牐� Form2中定義的過程：
�牐� Public Sub frmffunction2()
�牐� End Sub
�牐� mdlFunc中定義的過程：
�牐� PubliC Sub mdlFunction()
�牐� End Sub
�牐� 在調用上述過程的程序中，如果不指明窗體或模塊的名稱，則以下敘述中正確的是
�牐� A)上述三個過程都可以在工程中的任何窗體或模塊中被調用
�牐� B)frmfunction2和mdlfunction過程能夠在工程中各個窗體或模塊中被調用
�牐� C)上述三個過程都只能在各自被定義的模塊中調用
�牐� D)只有mdlFunction過程能夠被工程中各個窗體或模塊調用(29)窗體上有兩個名稱分別為Textl、Text2的文本框，一個名稱為Commandl的命令
�牐� 按鈕。運行后的窗體外觀如圖所示。
�牐� 設有如下的類型聲明
�牐� Type Person
�牐� name As String*8
�牐� major As String*20
�牐� End Type
�牐� 當單擊“保存”按鈕時，將兩個文本框中的內容寫入一個隨機文件Test29．dat中。設
�牐� 文本框中的數據已正確地賦值給Person類型的變量p。則能夠正確地把數據寫入文件
�牐� 的程序段是
�牐� A)0pen”c：＼Test29．dat" For Random As#1
�牐� Put #1，1，p
�牐� Close #1
�牐� B)Open "c:＼Test29.dat" For Random As #1
�牐� Get#1，1，p
�牐� C10se #1
�牐� C)open "c＼Test29．dat" For Random As #1 Len＝Len(p)
�牐� Put #1，1，p
�牐� Close #1
�牐� D)Open "c：＼Test29．dat " For Random As #1=Len(p)
�牐� Get #1，1，p
�牐� CloSe #1
�牐� (30)在窗體上畫一個名稱為CommonDialogl的通用對話框，一個名稱為Commandl的
�牐� 命令按鈕。要求單擊命令按鈕時，打開一個保存文件的通用對話框。該窗口的標題
�牐� 為"Save"，缺省文件名為“SaveFile”，在“文件類型”欄中顯示*.txt。則能夠滿足
�牐� 上述要求的程序是
�牐� A)Private Sub Command_C1ick()
�牐� Commondialogl．FileName=“Savefile”
�牐� Commondialogl.filter＝"All Files|*.*|(*.txt)|*.txt|(*.doc)．|*.doc"
�牐� CommonDialogl．Filterindex=2
�牐� CommonDialogl．Dial0g．title＝"Save"
�牐� CommonDialogl．Action＝2
�牐� End Sub
�牐� B)Private Sub Commandl—Click()
�牐� CommonDialogl．FileName＝"SaveFile"
�牐� CommonDiaLogl．Filter＝"A11 Files|*.*|(*.txt)|*.txt|*．doc|*．doc"
�牐� C0mmonDialogl．FilterIndex＝1
�牐� CommonDialogl．DialogTitle＝"Save"
�牐� CommonDialogl．Action＝2
�牐� End Sub
�牐� C)Private Sub Cmmandl_C1ick()
�牐� COmmonDialogl．FileName＝"Save"
�牐� CommonDialogl．FiLter＝"A11Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"
�牐� CommonDialogl．Filterindex＝2
�牐� C0mmonDialogl．DialogTitle＝"SaveFile"
�牐� CommonDialogl．Action＝2
�牐� End Sub
�牐� D)Private Sub Commandl_C1ick()
�牐� CommonDialogl．FileName＝"SaveFile"
�牐� CommonDialogl．Filter＝"All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"
�牐� CommonDialogl．FilterIndex=1
�牐� CommonDialogl．DialogTitle=“Save”
�牐� CommonDialogl．Action＝1
�牐� End Sub
�牐牰�、填空題(每空2分，共30分)
�牐� 請將每空的正確答案寫在答題卡[1]一[15序號的橫線上，答在試卷上不得分。
�牐� (1)visual Basic中有一種控件組合了文本框和列表框的特性，這種控件是________
�牐� (2)Visual Basic提供的對數據文件的三種訪問方式為隨機訪問方式_____和二進制訪問
�牐� 方式。
�牐� (3)執行下面的程序段后，變量S的值為_______。
�牐� S＝5
�牐� For i ＝2.6 To 4.9 Step 0.6
�牐� S=S十1
�牐� Next i
�牐� (4)為了在運行時把d:\pic文件夾下的圖形文件a.jpg裝入圖片框Picturel，所使用的語
�牐� 句為_______。
�牐� (5)計時器控件能有規律的以一定時間間隔觸發_______事件，并執行該事件過程中的
�牐� 程序代碼。
�牐� (6)以下程序的功能是：生成20個200到300之間的隨機整數，輸出其中能被5整除的
�牐� 數并求出它們的和。請填空。
�牐� Private Sub Commandl_C1ick()
�牐� Fori＝1To 20
�牐� x＝Int(____________*200+100)
�牐� If_______[7] ＝0 Then
�牐� Print x
�牐� 二級VIsualBMic語言程序設計試卷第12頁 (共15頁)
�牐� S＝S十 _________ [83
�牐� End If
�牐� Next i
�牐� Print “Sum＝”：S
�牐� End Sub
�牐� (7)設有如下程序
�牐� Private Sub Form_Click()
�牐� Dim a AS Integer，b As integer
�牐� a＝20：b=50
�牐� pla，b
�牐� p2a，b
�牐� p3a,b
�牐� Print"a＝"；a,"b＝"；b
�牐� End Sub
�牐� Sub pl(x As Integer，ByVal y As Integer)
�牐� x=x十10．
�牐� v＝v十20
�牐� End Sub
�牐� Sub p2(byVal x As Integer, y As Integer)
�牐� x＝x十10
�牐� y＝y十20
�牐� End Sub
�牐� Sub p3(ByValx As Integer, ByVal y As Integer)
�牐� x＝x十10
�牐� y=y十20
�牐� End Sub
�牐� 該程序運行后，單擊窗體，則在窗體上顯示的內容是：a＝______和b=______。
�牐� (8)在窗體上畫一個名稱為Commandl的命令按鈕，編寫如下事件過程
�牐� PRiVate Sub Commandl_C1icK()
�牐� Dim As String
�牐� a=_____[11]
�牐� For i ＝1 To 5
�牐� Print Space(6—i)；Mid$3(a，6—i，2*i—1)
�牐� 二級V1sualBMic語言程序設計試卷第13頁 (共15頁)
�牐� Nexti
�牐� End Sub
�牐� 程序運行后，單擊命令按鈕，要求窗體上顯示的輸出結果為
�牐� 456
�牐� 34567
�牐� 2345678
�牐� 123456789
�牐� 請填空。(9)在窗體上畫一個名稱為Combo1的組合框，畫兩個名稱分別Label1和Label2及Caption
�牐� 屬性分別為“城市名稱”和空白的標簽。程序運行后，當在組合框中輸入一個新項
�牐� 后按回車鍵(ASCII碼為13)時，如果輸入的項在組合框的列表中不存在，則自動
�牐� 添加到組合框的列表中，并在Label2中給出提示“已成功添加輸入項”如圖所示；
�牐� 如果存在，則在Label2中給出提示“輸入項已在組合框中”。請在[12>、[13]和
�牐� [14>處將程序補充完整。
�牐� Private Sub Combol_________<12> (KeyAscii As integer)
�牐� 1f KeyAscii＝13 Then
�牐� Fori＝0 To Combo1．listCount—1
�牐� 1f Combo1．Text＝______ [13] Ihen
�牐� Label2．Caption＝”輸入項己在組合框中”
�牐� ExIt Sub
�牐� End lf
�牐� Next i
�牐� Label2．Caption＝“已成功添加輸入項”
�牐� Combo1．______ [14] CombO1．Text
�牐� End lf
�牐� End Sub
�牐� (10)設有如下程序
�牐� Private sub search(a()As variant，ByVal key As Variant，index%)
�牐� Dim I％
�牐� ForI＝LBound(a)To UBound(a)
�牐� If key＝a(I) Then
�牐� index＝I
�牐� Exit Sub
�牐� End If
�牐� Next I
�牐� Index＝-1
�牐� End Sub
�牐� Private Sub Form_Load()
�牐� Show
�牐� Dtm b() As Variant
�牐� Dim n As Integer
�牐� b＝Array(1，3，5，7，9，11，13，15)
�牐� Call search(b，11，n)
�牐� Printt n
�牐� End Sub
�牐� 程序運行后，輸出結果是________。
轉帖于：計算機等級考試_考試吧