第一篇：VB筆試復(fù)習(xí)題

學(xué)參教育東北林業(yè)大學(xué)考研網(wǎng)http://

筆試復(fù)習(xí)題

筆試占總分的50％、平時占10％、上機占40％。

筆試時間為1小時。四道大題為：程序填空、程序運行結(jié)果、程序段功能、編程題

復(fù)習(xí)范圍

隨機整數(shù)[A,B]

公式：Int(Rnd*(B-A+1)+A)1． 循環(huán)

（1）打印三角形 方法一：用單重循環(huán) Private Sub Form_Click()For i = 1 To 8

Print Tab(151, “*”)Next i End Sub

方法二：用多重循環(huán) Private Sub Form_Click()For i = 1 To 8 Print Tab(151 Print “*”;Next j Print Next i End Sub

（2）求積數(shù)部分和

P88 例4.18p268習(xí)題3Private Sub Form_Click()Dim s!,i%,t!i=1:t=2:s=

1Do while 1/t>0.0001

s=s+1/t i=i+1 t=t+iLoop

Print “共計算”;i-1;“項”Print “s=”;s End Sub

（3）求100到200之間的所有素數(shù)。Private Sub Form_Click()Dim t As Boolean

For x = 101 To 200 Step 2 t = True

For i = 2 To xx * 100)/ 10)z = iy * 10

If i = x * x * x + y * y * y + z * z * z ThenPrint i, End If Next i End Sub

(6)最大值、最小值。2． 數(shù)組(1)排序

P106 例5.5 從小到大排序

Private Sub Form_Click()

學(xué)參教育東北林業(yè)大學(xué)考研網(wǎng)http://

Dim a()As Integer n = Val(InputBox(“n”))ReDim a(1 To n)As Integer Randomize For i = 1 To n

a(i)= Int(Rnd * 101 + 100)Print a(i);

If i Mod 10 = 0 Then Print Next i

For i = 1 To n1

s(i, j)= s(i1)+ s(i2 * i + 4 * j);s(i, j);Next j

Picture1.Print Next i End Sub 3． 過程

（1）s=4!+5!+6!

Private Sub Form_Click()Print fax(4)+ fax(5)+ fax(6)End Sub

Private Function fax(k As Integer)As Single t = 1

For i = 2 To k t = t * i Next i fax = t

End Function

（2）回文數(shù)P2784

Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then

If Not IsNumeric(Text1)Then

MsgBox “輸入非數(shù)字串，重新輸入”Text1.Text = “"Text1.SetFocusElse

If IsH(Text1)Then

Picture1.Print Text1;” ★ “Else

Picture1.Print Text1End IfText1 = ”"End IfEnd If End Sub

Function IsH(ss As String)As BooleanDim i%, Ls%IsH = Truess = Trim(ss)Ls = Len(ss)

For i = 1 To Ls 2

If Mid(ss, i, 1)<> Mid(ss, Ls + 1-i, 1)ThenIsH = FalseExit FunctionEnd IfNext i End Function

4． 文件(要求掌握隨機文件)講稿中例題

第二篇：VB復(fù)習(xí)題(含答案)

綜 合 測 試 題

一、單選題

1.窗體的標(biāo)題欄顯示內(nèi)容由窗體對象的(D)屬性決定。

A.BackColor

B.BackStyle

C.Text

D.Caption 2.下列不能作為VB中的變量名的符號是(C)。

A.A45

B.P12

C.89Ta

D.x 3.只能刪除字符串尾部空格的函數(shù)是(B)。

A.Ltrim

B.Rtrim

C.Trim

D.Mid 4.如果在菜單欄中添加１條分隔線，則應(yīng)將其Caption屬性設(shè)置為(D)。

A.＝

B.*

C.&

D.-5.用下面語句定義的數(shù)組的元素個數(shù)是(D)。

Dim A(-3 To 5)As Integer A.6

B.7

C.8

D.9 6.設(shè)a=2，b=3，c=4，d=5，下列表達式的值是(B)。

a>b And c<=d Or 2*a>c A.True

B.False

C.-1

D.1 7.下列關(guān)于控件畫法的敘述錯誤的是(D)。

A.單擊一次工具箱中的控件圖標(biāo)，只能在窗體上畫出一個相應(yīng)的控件

B.按住CTRL鍵后單擊一次工具箱中的控件圖標(biāo)，可以在窗體上畫出多個相同類型的控件

C.雙擊工具箱中的控件圖標(biāo)，所畫控件的大小和位置是固定的D.我們使用的控件只能是工具箱中的標(biāo)準(zhǔn)控件

8.應(yīng)用程序設(shè)計完成后，應(yīng)將程序保存，保存的過程是（D)。

A.只保存窗體文件即可

B.只保存工程文件即可

C.先保存工程文件，之后保存窗體文件

D.先保存窗體文件(或標(biāo)準(zhǔn)模塊文件)，之后還要保存工程文件 9.假定有一個菜單項，名為MenuItem，為了在運行時使該菜單項失效(變灰)，應(yīng)使用的語句為（A)。

A.MenuItem.Enabled=False

B.MenuItem.Enable=True C.MenuItem.Visible=True

D.MenuItem.Visible=False 10.在一個語句內(nèi)寫多條語句時，每個語句之間用(B)符號分隔。

A.，B.：

C..D.；

11.已知A$=”abcdefghijklmn”,則表達式Left$(A$,4)+Mid$(A$,4,2)的值為(B A.abcdef

B.abcdde

C.abccde

D.abcdefg 12.賦值語句:a=123+MID(”123456”,3,2)執(zhí)行后,a變量中的值是(D)。

A.”1234”

B.123

C.12334

D.157 13.下面程序運行后，顯示的結(jié)果是(B)。Dim x X=true If x Then Print x+1 A.1

B.0

C.true

D.顯示出錯信息 14.下面程序段，顯示的結(jié)果是(A)。

Dim x X=1 X=int(Rnd)+5 Select Case x

Case 5

Print“優(yōu)秀”

Case 4

Print“良好”

Case 3

Print“通過”

Case Else

Print“不通過” End Select A.優(yōu)秀

B.良好

C.通過

D.不通過)。

15.VB 提供了結(jié)構(gòu)化程序設(shè)計的三種的基本機構(gòu)，三種基本結(jié)構(gòu)是(D)。

A.遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu) B.選擇結(jié)構(gòu)、過程結(jié)構(gòu)、順序結(jié)構(gòu) C.過程結(jié)構(gòu)、輸入、輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu) D.選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu)

16.下列循環(huán)語句能夠正常結(jié)束循環(huán)的是(C)。

A.I=5 Do

I=I+1 Loop until I<0 B.I=1 Do

I=I+2 Loop until I=10 C.I=10 Do

I=I-1 Loop until I<0 D.I=6 Do

I=I-2 Loop until I=1 17.以下程序輸出結(jié)果是(A)。

Option Base 1 Private Sub Command1_click()Dim a%(3, 3)For i = 1 To 3 For j = 1 To 3 If j > 1 And i > 1 Then a(i, j)= a(a(i1), a(i, j-1))+ 1 Else a(i, j)= i * j End If Print a(i, j);“";Next j Print Next i End Sub A.1 2 3

B.1 2 3

C.1 2 3

D.1 1 1 3 1 2 3

4 6

2 2 2 3 2 3

6 9

3 3 18.定時器的Interval屬性以（C)為單位指定Timer事件之間的時間間隔。

A．分

B．秒

C．毫秒

D．微秒

19.可以惟一標(biāo)識控件數(shù)組中的每一個控件的屬性是(A)。

A．Name

B．Caption

C．Index

D．Enabled 20.在下列關(guān)于通用對話框的敘述是錯誤的是(B)。

A.CommonDialog1.ShowFont顯示字體對話框

B.在打開或另存為對話框中，用戶選擇的文件名可以經(jīng)FileTitle屬性返回

C.在文件找開或另存為對話框中，用戶選擇的文件名及其路徑可以經(jīng)FileName屬性返回

D.通用對話框可以用來制作和顯示幫助對話框 21.InputBox函數(shù)返回值的類型為(B)。

A.數(shù)值 B.字符串

C.變體 D.數(shù)值或字符串(視輸入的數(shù)據(jù)而定)22.下面關(guān)系表達式的值為真的是(C)。

A.”A“>”a“ B.”9“>”a“ C.”That“>”Thank" D.12>12.1 23.為了把焦點移到某個指定的控件，所使用的方法是（A)。

A.SetFocus B.Visible C.Refresh D.GetFocus 24.設(shè)a=6，則執(zhí)行x=IIF(a>5,-1,0)后，x的值為（D)。

A.5 B.6 C.0 D.-1 25.以下語句錯誤的是(B)。

A.If a=1 And b=2 then C=3 End If B.If a=1 Then C=2 ElseIf a=2 Then C=3 C.c=IIF(a=1,2,3)D.If a=1 Then C=2 ElseIf a=2 Then C=3 End If 26.有如下程序：

Sub sub1(x,y)X=2*x Y=3*y End sub Private sub command1_click()A=1:b=1 Call sub1(a,b)Print “A=”;a;”,B=”;b

End sub 程序運行后的輸出結(jié)果是（B)。

A.A＝1，B＝B.A＝2，B＝3 C.A＝1，B＝3 D.A＝2，B＝1

二、填空題

1.Visual Basic中工程文件的擴展名是(vbp)；窗體文件的擴展名是(frm)。2.為了使標(biāo)簽?zāi)茏詣诱{(diào)整大小以顯示全部文本內(nèi)容，應(yīng)把標(biāo)簽的(autosize)屬性設(shè)置為True。

3.能將字符串中的小寫字母轉(zhuǎn)換成大寫字母的函數(shù)是（ucase)。4.數(shù)學(xué)表達式 3x+2^3，寫成VB表達是（3*x+2^3)。

5.過程和函數(shù)中的參數(shù)的傳遞方式有(byval)和(byref)兩種。

6.若要終止窗體的運行，可使用(unload)命令；若要將窗體Form1顯示出來，可使用方法(Form1.show)來實現(xiàn)。

三、寫成程序結(jié)果

1.在窗體上畫一個命令按鈕，然后編寫如下事件過程：

Private Sub Command1_Click()b=1 a=2 Do While b<10 B=2*a+b Loop Print b End Sub 程序運行后，輸出的結(jié)果是（）。2.有如下程序：

Private Sub Command1_Click()S=0 Do s=(s+1)*(s+2)N=N+1 Loop Until s>=10 Print N；s End Sub 運行后的輸出結(jié)果是(2 12)。3.有如下函數(shù)過程

Function gys(byval x as integer, byval y as integer)as integer do while y<>0 remainder=x/y x=y y=remainder loop gys=x End function 以下是調(diào)用該函數(shù)的事件過程，該程序的運行結(jié)果是什么(Private sub command7_click()Dim a as integer Dim b as integer A=10 B=2 X=gys(a, B)Print x End sub)。

第三篇：政工師筆試復(fù)習(xí)題

政工師筆試復(fù)習(xí)題

1、黨章對黨的群眾路線的表述：“黨在自己的工作中實行群眾路線，一切為了群眾，一切依靠群眾，從群眾中來，到群眾中去，把黨的正確主張變?yōu)槿罕姷淖杂X行動?！?/p>

2、黨的群眾路線教育實踐活動的指導(dǎo)思想是什么？

答：高舉（中國特色社會主義偉大旗幟），堅持以（馬克思列寧主義）、（毛澤東思想）、（鄧小平理論）、（“三個代表”）重要思想、（科學(xué)發(fā)展觀）為指導(dǎo)，緊緊圍繞（保持黨的先進性和純潔性），以（為民務(wù)實清廉）為主要內(nèi)容，以（縣處級以上領(lǐng)導(dǎo)機關(guān)、領(lǐng)導(dǎo)班子和領(lǐng)導(dǎo)干部）為重點，切實加強(全體黨員馬克思主義群眾觀點)教育，把(貫徹落實中央八項規(guī)定)作為切入點，進一步突出(作風(fēng))建設(shè)，堅決反對(形式主義、官僚主義、享樂主義和奢靡之風(fēng))，著力解決(人民群眾反映強烈的突出問題)，提高(做好新形勢下群眾工作)的能力，保持(黨同人民群眾的血肉聯(lián)系)，發(fā)揮(黨密切聯(lián)系群眾)的優(yōu)勢，為推動(經(jīng)濟持續(xù)健康發(fā)展)、(全面建成小康社會)、(實現(xiàn)中華民族偉大復(fù)興的中國夢)提供堅強保證。

3、在全黨深入開展黨的群眾路線教育實踐活動的重大意義是(實現(xiàn)黨的十八大確定的奮斗目標(biāo))的必然要求，是(保持黨的先進性和純潔性、鞏固黨的執(zhí)政基礎(chǔ)和執(zhí)政地位)的必然要求，是(解決群眾反映強烈的突出問題)的必然要求。

4、開展黨的群眾路線教育實踐活動的總要求是要落實(“照鏡子、正衣冠、洗洗澡、治治病”)的總要求

5、開展黨的群眾路線教育實踐活動必須突出(“為民務(wù)實清廉”)這個主題；必須緊緊圍繞(“保持黨的先進性和純潔性”)這條主線。

6、教育實踐活動的主要目標(biāo)任務(wù)是什么？

答：教育引導(dǎo)黨員干部(樹立群眾觀點)，弘揚(優(yōu)良作風(fēng))解決(突出問題)，保持(清廉本色)，使(干部作風(fēng))進一步轉(zhuǎn)變，(干群關(guān)系)進一步密切，(為民務(wù)實清廉)形象進一步樹立。

7、開展教育實踐活動要求牢牢把握的基本原則是：（正面教育）（批評和自我批評）（講求實效）（分類指導(dǎo)）（領(lǐng)導(dǎo)帶頭）

8、在新的歷史條件下，我們黨面臨“四大考驗”是（執(zhí)政）（改革開放）（市場經(jīng)濟）（外部環(huán)境）

9、在新的歷史條件下，我們黨面臨“四大危險”是（精神懈?。芰Σ蛔悖?脫離群眾)（消極腐敗）

10、黨的作風(fēng)建設(shè)包括（思想作風(fēng)）（學(xué)風(fēng)）（工作作風(fēng)）（領(lǐng)導(dǎo)作風(fēng)）（干部生活作風(fēng)）建設(shè)。

11、黨的群眾路線教育實踐活動主要任務(wù)聚焦到（作風(fēng)建設(shè)）上

12、深入開展黨的群眾路線教育實踐活動要解決的突出問題是要著力解決（形式主義）(官僚主義)(享樂主義)和(奢靡之風(fēng))“四風(fēng)”問題。

13、黨的作風(fēng)狀況，關(guān)系黨的形象，關(guān)系人心向背，還關(guān)系著(黨的生死存亡)，關(guān)系(國家的前途命運)。

14、黨的群眾路線包括哪兩層含義？

答：一是(人民群眾)是歷史的創(chuàng)造者；二是黨必須(傾聽群眾的意見)、(了解群眾的要求)、(集中群眾的智慧)，形成(正確的理論和政策)，然后，再(宣傳群眾)、(發(fā)動群眾)、(組織群眾)，在人民群眾的實踐中實現(xiàn)(人民群眾的根本利益)。

15、這次黨的群眾路線教育實踐活動為什么聚焦到“四風(fēng)”方面？

答：因為這“四風(fēng)”是違背我們黨的性質(zhì)和宗旨的，是當(dāng)前群眾深惡痛絕、反映最強烈的問題，也是損害黨群干群關(guān)系的重要根源。黨內(nèi)存在的其他問題都與這“四風(fēng)”有關(guān)，或者說是這“四風(fēng)”衍生出來的?！八娘L(fēng)”問題解決好了，黨內(nèi)其他一些問題解決起來也就有了更好條件

16、反對形式主義要著重解決什么問題？ 答：反對形式主義，要著重解決工作不實的問題，教育引導(dǎo)黨員、干部改進學(xué)風(fēng)文風(fēng)會風(fēng)，改進工作作風(fēng)，在大是大非面前敢于擔(dān)當(dāng)、敢于堅持原則，真正把心思用在干事業(yè)上，把功夫下到察實情、出實招、辦實事、求實效上。

17、形式主義的實質(zhì)和根源是什么？

答:形式主義實質(zhì)是主觀主義、功利主義，根源是政績觀錯位、責(zé)任心缺失，用轟轟烈烈的形式代替了扎扎實實的落實，用光鮮亮麗的外表掩蓋了矛盾和問題。

18、反對官僚主義要著重解決什么問題？

答：反對官僚主義，要著重解決在人民群眾利益上不維護、不作為的問題，教育引導(dǎo)黨員、干部深入實際、深入基層、深入群眾，堅持民主集中制，虛心向群眾學(xué)習(xí)，真心對群眾負(fù)責(zé)，熱心為群眾服務(wù)，誠心接受群眾監(jiān)督，堅決整治消極應(yīng)付、推諉扯皮、侵害群眾利益的問題。

19、官僚主義的實質(zhì)和根源是什么？

答:官僚主義實質(zhì)是封建殘余思想作祟，根源是官本位思想嚴(yán)重、權(quán)力觀扭曲，做官當(dāng)老爺，高高在上、脫離群眾，脫離實際。

20、反對享樂主義要著重解決什么問題？

答：反對享樂主義，要著重克服及時行樂思想和特權(quán)現(xiàn)象，教育引導(dǎo)黨員、干部牢記“兩個務(wù)必”，克己奉公，勤政廉政，保持昂揚向上、奮發(fā)有為的精神狀態(tài)。

21、享樂主義的實質(zhì)和根源是什么？

答:享樂主義實質(zhì)是革命意識衰退、奮斗精神消減，根源是世界觀、人生觀、價值觀不正確，拈輕怕重，貪圖安逸，追求感官享受。

22、反對奢靡之風(fēng)要著重解決什么問題？

答：反對奢靡之風(fēng)，要著重狠剎揮霍享樂和驕奢淫逸的不良風(fēng)氣，教育引導(dǎo)黨員、干部堅守節(jié)約光榮、浪費可恥的思想觀念，做到艱苦樸素、精打細算，勤儉辦一切事情。

23、奢靡之風(fēng)的實質(zhì)和根源是什么？

答:奢靡之風(fēng)實質(zhì)是剝削階級思想和腐朽生活方式的反映，根源是思想墮落、物欲膨脹，燈紅酒綠，紙醉金迷。

24、教育實踐活動要調(diào)動(領(lǐng)導(dǎo)干部)和(廣大群眾)兩個積極性

25、教育實踐活動要打牢(學(xué)習(xí)教育)和(查擺問題)兩個基礎(chǔ)

26、教育實踐活動要抓住(整改落實)和(建章立制)兩個關(guān)鍵

27、各級領(lǐng)導(dǎo)干部在教育實踐活動中的身份地位是什么？

答：各級領(lǐng)導(dǎo)干部既是活動的組織者、推進者、監(jiān)督者，更是活動的參與者。

28、群眾路線教育實踐活動中如何調(diào)動領(lǐng)導(dǎo)干部和廣大群眾兩個積極性？

答：調(diào)動領(lǐng)導(dǎo)干部和廣大群眾兩個積極性，首先是領(lǐng)導(dǎo)干部要有正確的態(tài)度和明確的姿態(tài)，讓群眾看到(自己敢于正視并解決問題的決心)，看到(自己拜群眾為師、向群眾求教的襟懷)，看到(自己以身作則、發(fā)揮示范帶頭作用的行動)。同時要(加強對群眾的領(lǐng)導(dǎo))，激發(fā)群眾關(guān)心黨的形象)，(關(guān)心黨的事業(yè))，(關(guān)心領(lǐng)導(dǎo)干部健康成長)的責(zé)任感，自覺打消顧慮，把想講的話講出來，把該提的意見提出來，真心幫助領(lǐng)導(dǎo)干部改進提高。

29、教育實踐活動“四個進一步”的目標(biāo)，主要讓領(lǐng)導(dǎo)干部從思想上明白自己的公仆身份，自覺擺正自己的位置，站穩(wěn)群眾立場，增進同群眾的感情，克服一切脫離群眾、違背群眾意愿、損害群眾利益的私心雜念。

30、教育實踐活動“四個進一步”的目標(biāo)，主要從行動上解決問題是：要端正作風(fēng)，端正行為，做一個堂堂正正的人，做一個合格的共產(chǎn)黨員，做一個稱職的干部。

31、在教育實踐活動中自始至終做到“三嚴(yán)”是指嚴(yán)的標(biāo)準(zhǔn)、嚴(yán)的措施、嚴(yán)的紀(jì)律

32、對“四風(fēng)”方面存在的突出問題，要從理想信念、宗旨意識、黨性修養(yǎng)、道德品行等方面認(rèn)清實質(zhì)、深挖根源。

33、中央提出的“八項規(guī)定”主要內(nèi)容是什么？（1）改進調(diào)查研究（2）精簡會議活動3）精簡文件簡報（4）規(guī)范出訪活動（5）改進警衛(wèi)工作（6）改進新聞報道7）嚴(yán)格文稿發(fā)表8）厲行勤儉節(jié)約

34、十八大報告中提出的兩個百年奮斗目標(biāo)是什么？

答：中國共產(chǎn)黨成立一百年時全面建成小康社會，在新中國成立一百年時建成富強民主文明和諧的社會主義現(xiàn)代化國家。

35、中國特色社會主義事業(yè)“五位一體”總體布局是經(jīng)濟建設(shè)、政治建設(shè)、文化建設(shè)、社會建設(shè)、生態(tài)文明建設(shè)。

36、黨的建設(shè)“五位一體”總體布局是思想建設(shè)、組織建設(shè)、作風(fēng)建設(shè)、反腐倡廉建設(shè)、制度建設(shè)。

37、社會主義的核心價值觀的內(nèi)涵是什么？

答：：富強、民主、文明、和諧是國家層面；自由、平等、公正、法治是社會層面；愛國、敬業(yè)、誠信、友善是個人層面。

38、科學(xué)發(fā)展觀的精神實質(zhì)是解放思想、實事求是、與時俱進、求真務(wù)實。

39、黨的十八大提出建設(shè)“三型”政黨，分別是學(xué)習(xí)型、服務(wù)型、創(chuàng)新型的馬克思主義執(zhí)政黨。

40、中共靜?？h委十屆六次全會的主要任務(wù)是什么？

答：認(rèn)真貫徹黨的十八大、十八屆三中全會和市委十屆三次、四次全會精神，總結(jié)2013年工作，部署2014年任務(wù)，進一步動員全縣廣大干部群眾，搶抓機遇，攻堅克難，為加快建設(shè)美麗靜海、實現(xiàn)靜海崛起而努力奮斗。41、2013年，靜?？h的主要經(jīng)濟指標(biāo)是：實現(xiàn)生產(chǎn)總值476億元，增長23%；財政收入106.6億元，增長25.4%。一般預(yù)算收入42.2億元，增長25.6%；全社會固定資產(chǎn)投資500億元，增長25%；農(nóng)民人均可支配收入14987元，增長16%。

42、到2016年和2020年，靜海縣發(fā)展的預(yù)期目標(biāo)是：到2016年，地區(qū)生產(chǎn)總值突破1000億元，財政收入達到220億元，農(nóng)民人均可支配收入超過2萬元，萬元生產(chǎn)總值能耗和二氧化碳排放比“十一五”末分別下降20%和18%，林木綠化率達到48%，水污染問題得到根本治理，天藍地綠水清的生態(tài)環(huán)境基本形成，整體發(fā)展步入全市前列。經(jīng)過全縣人民的不懈奮斗，到2020年，把靜海建設(shè)成為經(jīng)濟更加繁榮、社會更加文明、科教更加發(fā)達、設(shè)施更加完善、環(huán)境更加優(yōu)美的現(xiàn)代化中等城市，實現(xiàn)市委、市政府對靜海的發(fā)展定位。

43、2013年，靜?？h獲得了哪些國家級榮譽稱號（請列舉三個以上）？

答：子牙產(chǎn)業(yè)區(qū)被國務(wù)院批準(zhǔn)為國家級循環(huán)經(jīng)濟區(qū)，林海循環(huán)經(jīng)濟示范區(qū)被林業(yè)部確定為國家林下經(jīng)濟示范基地，靜?？h五金制品示范基地被商務(wù)部命名為國家級五金制品出口基地，靜?？h榮獲全國基層文化先進縣稱號，自行車產(chǎn)業(yè)園被國家自行車協(xié)會命名為中國自行車(電動車)產(chǎn)業(yè)基地。44、2013年，靜海縣新增科技型中小企業(yè)252家、科技“小巨人”企業(yè)21家。

45、2013年，靜?？h建成市級“億元樓宇” 5 座，注冊企業(yè)達到1205家 46、2013年，靜?？h新建設(shè)施農(nóng)業(yè)6000畝、規(guī)?；瘶?biāo)準(zhǔn)養(yǎng)殖項目15個，發(fā)展市級以上農(nóng)業(yè)龍頭企業(yè)5家。47、2013年靜?？h新發(fā)展農(nóng)民專業(yè)合作社481個，全縣農(nóng)民專業(yè)合作社累計達到1083個

48、截止到2013年底，靜海縣林木覆蓋率45%，位居天津平原區(qū)縣之首。

49、2013年，靜?？h升級改造了哪些道橋基礎(chǔ)設(shè)施建設(shè)？

答：2013年，靜?？h完成了東方紅路地道改建、津王公路團泊大橋改造等16項重大路橋工程。靜海新城新建改造宇緯路、瑞合道、星華路等7條道路，硬化改造27條胡同里巷。團泊新城建成中央大道二期等17條主支干路。50、2013年，靜?？h7個國家級美麗鄉(xiāng)村試點全面啟動，18個市級美麗鄉(xiāng)村試點、32個清 潔村莊試點初步建成。

7個國家級美麗鄉(xiāng)村試點全面啟動：陳官屯鎮(zhèn)東釣臺村、西釣臺村，靜海鎮(zhèn)范莊子村，臺頭鎮(zhèn)南二堡村、中二堡村、北二堡村，唐官屯鎮(zhèn)趙官屯村。

18個市級美麗鄉(xiāng)村試點：梁頭鎮(zhèn)肖民莊、蔡公莊鎮(zhèn)惠豐前，中旺鎮(zhèn)團瓢村、羅莊子村，獨流鎮(zhèn)南肖樓，唐官屯鎮(zhèn)鄭家莊等。

32個清潔村莊試點：雙塘鎮(zhèn)東雙塘、董莫院，陳官屯鎮(zhèn)潭村、西長屯，唐官屯鎮(zhèn)前小屯、后小屯等。51、2013年靜海縣實施了以“一線、兩路、兩街、三節(jié)點”為重點的市容改造提升工程。

52、2013年，用于民生領(lǐng)域的財政性投入達到43.5億元。

53、2013年，靜?？h級養(yǎng)老服務(wù)中心主體完工，新建擴建6所老年日間照料中心，西雙塘楓林灣老年城一期完工。54、2013年，靜海縣新改擴建46所幼兒園和中小學(xué)，完成55所學(xué)校和165所村辦幼兒園達標(biāo)提升，連續(xù)三年培養(yǎng)出全市高考狀元。

55、2013年，靜?？h衛(wèi)生服務(wù)項目有什么新進展？

答：縣醫(yī)院改擴建二期和疾控中心、婦女兒童保健中心新建項目穩(wěn)步推進，110所標(biāo)準(zhǔn)化村級衛(wèi)生室投入使用。

56、2013年，靜?？h黨員干部走訪群眾19.2萬戶次，解決問題5.6萬件次，提供幫扶資金4100萬元。57、2013年靜?？h舉辦了哪些市級和國家級的重大活動？

答：薩馬蘭奇紀(jì)念館成功開館，圓滿完成了第6屆東亞運動會57場賽事協(xié)辦任務(wù)，成功舉辦了第四屆環(huán)中國國際公路自行車賽天津健康產(chǎn)業(yè)園賽段賽事及頒獎儀式和天津市第五屆環(huán)團泊湖自行車賽。58、2013年，靜?？h嚴(yán)格落實中央八項規(guī)定，深入開展正風(fēng)肅紀(jì)活動取得了哪些成效？

答：全縣精簡會議活動86次，精簡文件簡報1007件；對全部違規(guī)借用、調(diào)用、換用、占用公務(wù)用車進行了清理封存，違規(guī)辦公用房得到了全部清退；公務(wù)和出國出境考察費用同比下降22.5%和33.8%；會員卡做到了“零持有、零報告”。59、2013年靜?？h民營投融資企業(yè)達到16家，縣域企業(yè)融資規(guī)模達到35億元。60、2013年，靜?？h新增總部企業(yè)150家，總部經(jīng)濟實現(xiàn)稅收8.5億元。61、靜海縣2014年工作指導(dǎo)思想和目標(biāo)要求是什么？

答：高舉中國特色社會主義偉大旗幟，以鄧小平理論、“三個代表”重要思想、科學(xué)發(fā)展觀為指導(dǎo)，全面貫徹落實黨的十八大和十八屆二中、三中全會、中央經(jīng)濟工作會議和市委十屆三次、四次全會精神，堅持穩(wěn)中求進、改革創(chuàng)新，著力穩(wěn)增長、調(diào)結(jié)構(gòu)、護生態(tài)、惠民生、保穩(wěn)定，全面推進社會主義經(jīng)濟、政治、文化、社會、生態(tài)文明和黨的建設(shè)，加快建設(shè)美麗靜海，加快推進崛起進程，努力實現(xiàn)更高水平的發(fā)展。

62、2014年靜?？h主要經(jīng)濟目標(biāo)是什么？

答：生產(chǎn)總值571億元，增長20%；三級財政收入130億元，增長22%，其中一般預(yù)算收入51.5億元，增長22%；固定資產(chǎn)投資625億元，增長25%；農(nóng)民人均可支配收入17235元，增長15%。

63、建設(shè)美麗靜海，必須堅持“四個理念”是堅持綠色、循環(huán)、低碳、健康發(fā)展理念、瞄準(zhǔn)“四大定位”是全面建設(shè)國家級循環(huán)經(jīng)濟區(qū)、區(qū)域物流中心、健康產(chǎn)業(yè)基地和生態(tài)宜居城市，這是靜海發(fā)展的總目標(biāo)；完善“四層布局”是強化“兩城三區(qū)六園一帶”主戰(zhàn)場作用，這是靜海發(fā)展的總布局；、培育“六大產(chǎn)業(yè)”是培育和壯大（先進制造）、（循環(huán)經(jīng)濟）、（現(xiàn)代物流）（都市農(nóng)業(yè)）、（健康產(chǎn)業(yè)）、（文化旅游）六大產(chǎn)業(yè)，這是靜海發(fā)展的總抓手。64、建設(shè)美麗靜海，必須堅持 “三大發(fā)展”是（持續(xù)發(fā)展）、（特色發(fā)展）、（科學(xué)發(fā)展）。65、2014年，靜?？h要突出抓好的六項重點工作是

一、全力抓招商上項目；

二、大力調(diào)整產(chǎn)業(yè)結(jié)構(gòu)

三、加快推進新型城鎮(zhèn)化

四、積極推進重點領(lǐng)域改革

五、強力推進生態(tài)治理。

六、著力保障和改善民生。66、2014年，靜?？h重點園區(qū)、鄉(xiāng)鎮(zhèn)的投資、稅收指標(biāo)分別是多少？

答：年內(nèi)開發(fā)區(qū)要確保完成投資131億元，稅收13.5億元；子牙產(chǎn)業(yè)區(qū)投資93.7億元，稅收11億元；大邱莊鎮(zhèn)投資91億元，稅收14億元；靜海鎮(zhèn)投資67.3億元，稅收5.5億元。67、2014年，靜?？h重點培育壯大哪幾個產(chǎn)業(yè)？

答：循環(huán)產(chǎn)業(yè)、健康產(chǎn)業(yè)、現(xiàn)代物流業(yè)、先進制造業(yè)、文化旅游業(yè) 68、2014年，靜?？h全年用于改善民計民生的財政性投入56億元，增長30%。著力推進民生改善，著力發(fā)展社會事業(yè)，優(yōu)化公共衛(wèi)生服務(wù)，著力加強道德建設(shè)，著力強化社會管理。69、如何加快產(chǎn)業(yè)轉(zhuǎn)型升級，增強經(jīng)濟發(fā)展內(nèi)生動力？

答：

一、全力抓好招商引資和項目建設(shè)。

二、大力發(fā)展循環(huán)經(jīng)濟和現(xiàn)代物流業(yè)。

三、加快發(fā)展先進制造業(yè)。

四、培育發(fā)展健康產(chǎn)業(yè)和文化旅游產(chǎn)業(yè)。

五、積極發(fā)展都市農(nóng)業(yè)。70、靜?？h計劃在三年內(nèi)把優(yōu)質(zhì)鋼材、高檔自行車（電動車）、汽車零部件（整車）產(chǎn)業(yè)打造成千億級、百億級產(chǎn)業(yè) 71、2014年，靜?？h將重點加快哪些物流項目建設(shè)？

答：翰吉斯國際農(nóng)產(chǎn)品交易市場（一期）和義烏商貿(mào)城（一期）開業(yè)運營，翰吉斯拓展區(qū)和義烏商貿(mào)城配套商業(yè)街開工建設(shè)。紅星美凱龍一期完成主體封頂，二期開工建設(shè)。金朝陽電動自行車交易市場一期竣工，利達糧油二期完成基礎(chǔ)施工。鐵路貨場建成并投入運營，盛唐物流項目總部區(qū)一期竣工。

72、靜海縣加強體制機制創(chuàng)新的具體措施：一是深化重點領(lǐng)域和關(guān)鍵環(huán)節(jié)改革。二是轉(zhuǎn)變政府職能。三是推進金融體制改革。73、2014年，靜海縣要構(gòu)建“（兩城）、（重點鎮(zhèn)）、（示范鎮(zhèn)）、（新型社區(qū)）、（美麗鄉(xiāng)村）五位一體的城鎮(zhèn)發(fā)展格局。74、2014年，靜?？h將新建4座、改造提升2座污水處理廠，建成年處理30萬噸的廢酸處置中心3個。

75、靜?？h要怎樣統(tǒng)籌城鄉(xiāng)一體發(fā)展，提升新型城鎮(zhèn)化質(zhì)量？

答：

一、完善區(qū)域規(guī)劃布局。

二、加快城市功能開發(fā)。

三、加快示范小城鎮(zhèn)和美麗鄉(xiāng)村建設(shè)。

四、加快城鄉(xiāng)基礎(chǔ)設(shè)施建設(shè)。76、2014年，靜?？h將構(gòu)建什么樣的旅游產(chǎn)業(yè)鏈？

答：以“林河湖泉”為載體，整合文化旅游資源，積極打造以光合谷為主的田園綜合體、以薩馬蘭奇紀(jì)念館為主的文化創(chuàng)意綜合體、以林海為主的生態(tài)旅游綜合體，加快開發(fā)團泊湖及環(huán)湖地區(qū)旅游觀光，培育“食住行游購娛”為一體的旅游產(chǎn)業(yè)鏈。77、2014年，靜?？h提出的“四園一帶”具體指林海、南海、團泊、大邱莊農(nóng)業(yè)園區(qū)和龍海產(chǎn)業(yè)帶。

78.、2014年，靜?？h計劃新增設(shè)施農(nóng)業(yè)5000畝，改造提升5000畝，新增5000畝以上林下經(jīng)濟。

79、“美麗天津?一號工程”的具體內(nèi)容是：“四清一綠”，即：（清新空氣）、（清水河道）（清潔村莊）、（清潔社區(qū)）和（綠化美化）。

80、靜海縣加快推進“美麗天津?一號工程”的具體措施是：

一、搞好污染治理。

二、推進節(jié)能減排。

三、推進植樹綠化。

四、提升城鄉(xiāng)市容環(huán)境。81、2014年，靜?？h全面開展清新空氣行動中，將扎實推進 “控煤”、“控污”、“控塵”、“控車”、“控點”五控工程。

82、2014年，靜?？h將建成325個清潔村莊 83、2014年，靜海縣將投入15億元，用于污染治理和環(huán)境改造。

84、政府工作報告中指出，加強政府自身建設(shè)，要做到執(zhí)政為民、履職盡責(zé)、轉(zhuǎn)變作風(fēng)、依法行政、廉潔從政。

85、靜海縣高度關(guān)注改善民生，具體措施有

一、辦好人民滿意的教育。

二、提高人民健康水平。

三、千方百計增加居民收入。

四、推進社會保障體系建設(shè)。86、2014年，靜?？h10項民心工程包括(1)加強生態(tài)環(huán)境建設(shè)(2)著力促進農(nóng)民增收(3)方便城鄉(xiāng)居民出行(4)完善市政公用設(shè)施(5)提升城鄉(xiāng)人居環(huán)境(6)積極拓寬就業(yè)渠道(7)健全社會保障體系(8)辦好人民滿意教育(9)發(fā)展文化體育事業(yè)(10)優(yōu)化公共衛(wèi)生服務(wù)。

87、2014年，靜?？h加強生態(tài)環(huán)境建設(shè)將采取哪些舉措？

答：(1)實施有色金屬熔煉企業(yè)煙塵、餐飲業(yè)油煙和建筑工地?fù)P塵污染治理。(2)全面禁止秸稈露天焚燒。綜合整治馬路餐桌和露天燒烤。(3)完成17座加油站油氣回收治理和35臺鍋爐煤改燃任務(wù)。(4)新建污水處理廠4座、改造2座。新建3座廢酸處理中心，完成18個廢棄酸坑治理。(5)重點涉污企業(yè)全部實現(xiàn)在線視頻監(jiān)控。(6)搞好294家重點排污企業(yè)源頭治理。治理規(guī)?；B(yǎng)殖場22家。(7)更新改造揚水站4座，清淤河道5條41公里。(8)植樹造林8萬畝。完成運東排干、港團河、團泊大道、205國道、津文路綠化工程。加快農(nóng)田林網(wǎng)和片林建設(shè)，進一步提高綠化覆蓋率。88、2014年，靜海縣促進農(nóng)民增收的具體措施有哪些？

答：(1)新建設(shè)施農(nóng)業(yè)5000畝。建設(shè)放心菜基地1.6萬畝、蔬菜標(biāo)準(zhǔn)園1500畝。(2)發(fā)展特色種植7萬畝，推廣中藥材種植1萬畝。(3)新建9個標(biāo)準(zhǔn)化規(guī)模養(yǎng)殖場和18個肉雞養(yǎng)殖基地。(4)新增高效節(jié)水灌溉面積2萬畝、高標(biāo)準(zhǔn)農(nóng)田2.2萬畝。(5)新發(fā)展農(nóng)民專業(yè)合作社100家，規(guī)范提升50家。89、2014年，靜?？h方便城鄉(xiāng)居民出行有哪些具體舉措？

答：(1)實施靜海新城21個舊樓區(qū)和30條街道里巷改造。啟動?xùn)|方紅路西段拓寬改造工程，實施旭華道、朝陽道等8條道路新建改建，實現(xiàn)城區(qū)部分道路與環(huán)線貫通。(2)完成團泊新城20條主干道路建設(shè)，規(guī)劃建設(shè)公交場站。(3)實施新104國道北段改建等18項道路和綠化工程。大修鄉(xiāng)村公路100公里，改造橋梁2座。(4)增加公交線路車次，規(guī)范客運、貨運出租車市場。鞏固電動三輪車治理成果。

90、2014年，靜?？h完善市政公用設(shè)施具體有哪些舉措？

答：(1)完成聯(lián)盟大街、南緯二路雨污分流工程，新建于莊子、劉官莊雨水泵站。(2)建成團泊新城西區(qū)供水加壓泵站和唐官屯物流園供水站。(3)實施靜海500千伏、子牙產(chǎn)業(yè)區(qū)220千伏等8項輸變電新建增容工程。(4)加快燃氣管網(wǎng)建設(shè)，擴大燃氣覆蓋面，新建燃氣場（站）4個，鋪設(shè)管網(wǎng)276.48公里，新增燃氣居民用戶11960戶。(5)加快城區(qū)供熱設(shè)施建設(shè)，提高熱源保障能力。91、2014年，靜?？h提升城鄉(xiāng)人居環(huán)境具體有哪些舉措？

答：(1)整治聯(lián)盟大街和火車站周邊環(huán)境，完善東方紅路燈光夜景。(2)實現(xiàn)城區(qū)居委會和物業(yè)管理全覆蓋。搞好3個示范居委會建設(shè)和13個社區(qū)環(huán)境衛(wèi)生整治工作。(3)建設(shè)靜海新城春曦道街區(qū)公園和團泊新城3座市政公園。新建公廁30座、垃圾轉(zhuǎn)運站4座。(4)實施垃圾、柴草、坑塘、污水集中治理，整治村內(nèi)坑塘412個，創(chuàng)新鄉(xiāng)村垃圾、污水處理新模式，完善鄉(xiāng)村環(huán)境衛(wèi)生長效管理機制。(5)建成清潔村莊325個，其中國家級美麗鄉(xiāng)村8個、市級美麗鄉(xiāng)村22個。92、2014年，靜海縣健全社會保障體系具體有哪些舉措？

答：(1)繼續(xù)推進城鄉(xiāng)居民基本養(yǎng)老保險和基本醫(yī)療保險擴面。(2)完成養(yǎng)老服務(wù)中心、殘疾 6 人康復(fù)托養(yǎng)服務(wù)中心和7所老年日間照料中心建設(shè)，整合16所鄉(xiāng)鎮(zhèn)敬老院。(3)加大濟貧解困力度，全年完成社會救助2.6萬人。93、2014年，靜海縣辦好人民滿意教育具體有哪些舉措？

答;實施一中擴建、六中遷建、八中新建工程，完成實驗小學(xué)擴建和唐官屯、獨流中學(xué)續(xù)建工程，新建擴建35所幼兒園。完成115所學(xué)校、幼兒園達標(biāo)提升工作。推進國家級職成教育示范縣建設(shè)。94、2014年，靜?？h發(fā)展文化體育事業(yè)將做好哪幾項重點工作？

答：承辦天津市首屆文化旅游節(jié)，舉辦靜?？h第六屆文化藝術(shù)節(jié)。繼續(xù)辦好環(huán)團泊湖自行車賽。規(guī)劃啟動縣文體中心建設(shè)。95、2014年，靜?？h優(yōu)化公共衛(wèi)生服務(wù)具體有哪些舉措？

答：(1)完成縣醫(yī)院急診綜合樓、教學(xué)樓、停車樓和城關(guān)衛(wèi)生院改擴建工程，啟動?xùn)|城區(qū)二級醫(yī)院建設(shè)。(2)新建疾控中心和婦女兒童保健中心，村級衛(wèi)生室全部啟用。(3)設(shè)立困難家庭大病救助專項資金。加大對計生家庭和失獨家庭的獎扶特扶力度。(4)加強食品藥品市場監(jiān)管，營造我縣食品藥品安全小環(huán)境，確保讓老百姓吃上放心食品和安全藥品。

96、2014年，靜?？h將啟動哪些交通重點工程建設(shè)？

答：完成新104國道北段改建、靜陳路南延、津文路大修等建設(shè)工程，大修和改建鄉(xiāng)村公路100公里，進一步提升“十縱七橫一環(huán)十二射”路網(wǎng)輻射能力。97、2014年，靜海縣加強黨的建設(shè)的重點工作有

一、開展群眾路線教育實踐活動。

二、思想政治建設(shè)。

三、領(lǐng)導(dǎo)班子和干部隊伍建設(shè)。

四、基層黨組織和黨員隊伍建設(shè)。

五、作風(fēng)建設(shè)。

六、反腐倡廉建設(shè)。

98、縣委十屆六次全會對干部作風(fēng)建設(shè)提出了哪些要求？

答：一要堅決貫徹縣委、縣政府的決策部署，絕不允許推推動動、撥撥轉(zhuǎn)轉(zhuǎn)，確保政令暢通；二要求真務(wù)實，真正把心思用在研究問題、解決問題、推動工作上；三要心系群眾，以優(yōu)良的作風(fēng)凝聚民心，取信于民。

99、.縣委十屆六次全會對加強黨風(fēng)廉政提出了哪些具體要求？

答：一是要以整風(fēng)精神鍥而不舍抓好八項規(guī)定的落實；二是要重點加大對窗口單位和服務(wù)行業(yè)不良風(fēng)氣的整治力度，樹立黨和政府的良好形象；三是要保持懲治腐敗高壓態(tài)勢，堅決查處領(lǐng)導(dǎo)干部違紀(jì)違法案件，增強懲治的威懾力。

第四篇：《vb程序設(shè)計》期末復(fù)習(xí)題及答案范文

《vb程序設(shè)計》期末復(fù)習(xí)題及答案

一、填空題

1．創(chuàng)建一個VB應(yīng)用程序三個主要的步驟是_(創(chuàng)建應(yīng)用程序界面)、_(設(shè)置屬性_)和_(_編寫代碼__)__。

2．當(dāng)程序運行時，要求窗體中的文本框呈現(xiàn)空白，則在設(shè)計時，應(yīng)當(dāng)在此文本框的__屬性________窗口中，把此文本框的____text_________屬性設(shè)置成空白。

3．Label和TextBox控件用來顯示和輸入文本，如果僅需要讓應(yīng)用程序在窗體中顯示文本信息，可使用___label________控件；若允許用戶輸入文本，則應(yīng)使用__textbox___________控件。4．窗體的常用方法有_load方法 Show方法 Hide方法_ Unload方法_。

5．要想在代碼中給名為txtshow的文本框賦予文本：GOOD WORK，應(yīng)當(dāng)編寫的語句是_（txtshow.text=“GOOD WORK”_）。

6．若命令按鈕的名稱為Cmdopen，程序要求單擊該命令按鈕時，打開一個窗口frm1，請對以下事件過程填空。Private Sub Cmdopen_ _click()__________ _frm1.show_ End Sub 7．Visual Basic 6種類型的表達式是_（算術(shù)表達式_）（字符串表達式）（關(guān)系表達式）（布爾表達式）（日期表達式）（對象表達式）。Visual Basic根據(jù)表達式的_．1 _運算符__來確定表達式的類型。

8．表達式93 7 Mod 2 ^ 2 的值是___________。

9．已知a=3，b=4，c=5，表達式a>b and Not c>a Or c>b And ca And Not b

10．日期表達式 #2/24/02#y ^ 2)/(2 * x)___。

12．設(shè)某個程序中要用到一個二維數(shù)組，要求數(shù)組名為A，類型為字符串類型，第一維下標(biāo)從1到5，第二維下標(biāo)從-2到6，則相應(yīng)的數(shù)組聲明語句為_（Dim A(1 To 5，-2 To 6)As String）_。13．事件就是在對象上所發(fā)生的事情，Visual Basic中的事件如__單擊_________、_雙擊__________、_裝載_____________等。一個對象響應(yīng)的事件可以有_多____個，用戶不能建立新的事件。事件過程是指_（響應(yīng)某個事件后所執(zhí)行的程序代碼）_。假設(shè)某一事件過程如下：

Private Sub cmd1_Click()Form1.Caption=“VB示例” End Sub 則響應(yīng)該過程的對象名是_cmd1_____________，事件名是_____click________。

14．對象的方法用于(_完成某種特定的功能__)。當(dāng)方法不需要任何參數(shù)并且也沒有返回值時，調(diào)用對象的方法的格式為_(對象名.方法名)_，例如，對窗體Form1使用Show方法，應(yīng)寫成__form1.show_______________。

15．PictureBox控件可通過設(shè)置其(autosize)__屬性為True使之可自動調(diào)整大小；而Image控件可通過設(shè)置其_(stretch_)__屬性為True，使其加載的圖片能自動調(diào)整大小以適應(yīng)Image。

16．在Visual Basic程序中實現(xiàn)復(fù)制文件“c:command.com”到d:盤根目錄下的語句為FileCopy “c:command.com”，“d:command.com”_。

二、單項選擇題

1．下列控件中沒有Caption屬性的是（B）

A、標(biāo)簽 B、文本框 C、框架 D、命令按紐 2．除框架外，能對單選按紐分組的控件是（C）。A、窗體 B、標(biāo)簽 C、圖片框 D、圖像 3．下列符號不能作為VB中變量名的是（C）。

A、ABCDEFG B、P00000 C、89YWDDF D、xyz 4． 下列不屬于Visual Basic數(shù)據(jù)文件的是（D）。A、順序文件 B、隨機文件 C、二進制文件 D、數(shù)據(jù)庫文件

5．若要求從文本框中輸入密碼時在文本框中只顯示*號，則應(yīng)用在此文本框的屬性窗口中設(shè)置（D）。

A、Text屬性值為* B、Caption屬性值為* C、Password屬性值為空 D、PasswordChar屬性值為* 6．表達式2*3^2+2*8/4+3^2的值為（B）。A、64 B、31 C、49 D、42 7．表達式mid(“abcdefg”,3,2)的值是（B）A、abc B、cd C、bcd D、abcde 8．?dāng)?shù)學(xué)表達式Sin25°寫成VB表達式是（D）。A、Sin25 B、Sin（25）C、Sin（25°）D、Sin（25*3.14/180）

9．Sub過程與 Function過程最根本的區(qū)別是（D）。A、Sub過程可以使用Call語句或直接使用過程名調(diào)用，而Function過程不可以。

B、Function過程可以有參數(shù)，Sub過程不可以。C、兩種過程參數(shù)的傳遞方式不同。

D、Sub過程的過程名不能返回值，而Function過程能夠通過過程名返回值。

10．選拔身高T超過1.7米且體重W小于62.5公斤的人，表示該條件的布爾表達式為（C）

A、T>=1.7 And W<=62.5 B、T<=1.7 Or W>=62.5 C、T>1.7 And W<62.5 D、T>=1.7 Or W<62.5 11.下列對象不能響應(yīng) Click事件的是（D）A、列表框 B、圖片框 C、窗體 D、計時器

12．在Visual Basic中，按文件的訪問方式不同，可以將文件分為（A）

A、順序文件、隨機文件和二進制文件 B、文本文件和數(shù)據(jù)文件

C、數(shù)據(jù)文件和可執(zhí)行文件 D、ASCⅡ文件和二進制文件

13．將通用對話框CommonDialog的類型設(shè)置成“顏色”對話框，可調(diào)用該對話框的（C）方法。

A、ShowOpen B、ShowSave C、ShowColor D、ShowFont

三、指出下列句中的錯誤，修改或者說明原因。1．sum和int.sum都可以作為VB的變量名。(X)2．變量名的長度最長可達1024個字符。(255)3．下列程序運行結(jié)果：3，3 Option Explicit Private Sub Command1_Click()Dim a，b As Integer Dim a as integer ,b as integer a = 3.6 b = 3.6 Text1.Text = a Text2.Text = b End Sub 4．程序可以改變定長字符串的內(nèi)容和長度。

5．Variant是一種特殊的數(shù)據(jù)類型，可以包含任何種類型的數(shù)據(jù)。．不完全正確。Variant是一種特殊的數(shù)據(jù)類型，除了定長字符串?dāng)?shù)據(jù)及用戶定義類型外，可以包含任何種類型的數(shù)據(jù)，這是VB規(guī)定。

6．下列程序運行結(jié)果為True Private Sub Command1_Click()a = 1 b = 2 c = 3 Text1.Text = c > a + b Or b1 And c + a > a Xor b < c#12/20/1999#的運算結(jié)果是#12/11/1999# 8．可以在窗體的通用部分聲明靜態(tài)變量。

不正確。靜態(tài)變量為局部變量，只能在過程中聲明。

9．使用聲明語句建立一個變量后，Visual Basic會自動對數(shù)值類型的變量賦初值0，變長的字符串被初始化為一個零長度的字符串“"，定長字符串用空格填充，Variant變量被初始化為 Empty，布爾型的變量被初始化為False。

10．事件過程通常由事件驅(qū)動執(zhí)行，而Sub過程通過過程調(diào)用執(zhí)行。

11．將焦點主動設(shè)置到指定的控件或窗體上應(yīng)采用SetFocus方法。12．當(dāng)圖像控件（Image）的Stretch屬性為True時，Image控件能自動調(diào)整自己的尺寸與顯示的圖片匹配。

不正確。該屬性設(shè)為Ture時，Image控件不能自動調(diào)整自己的尺寸與顯示的圖片匹配，而可以使圖片自動擴展以適應(yīng)控件的尺寸。

四、讀程序題，寫出程序運行結(jié)果。1．Private Sub Form_Click()For I = 1 To 9 For j = 1 To 301 To 1 Step-1 Print k;Next k Print Next I End Sub 2．

Option Explicit Private Sub Command1_Click()Static S As Integer Dim i As Integer S = 1 For i = 1 To 5 S = S * i Next i Print S End Sub 3．

For X = 5 To 1 Step-1 For Y = 1 To 6y ^ 2)/(2 * x)12．Dim A(1 To 5，-2 To 6)As String 13．單擊 雙擊 裝載 多 響應(yīng)某個事件后所執(zhí)行的程序代碼 cmd1 Click 14．完成某種特定的功能 對象名.方法名 Form1.Show 15．AutoSize Stretch 16．FileCopy ”c:command.com“，”d:command.com“

二、單項選擇題

1．B 2．C 3．C 4．D 5．D 6．B 7．B 8．D 9．D 10．C 11．D 12．A 13．C

三、指出下列句中的錯誤，修改或者說明原因。1．int.sum 不正確。變量名中不能包括小數(shù)點。2．變量名的長度最長可達255個字符。3． 3.6，4 因為a 不是整型變量。

4．不正確。程序不可以改變字符的長度，這是VB規(guī)定。5．不完全正確。Variant是一種特殊的數(shù)據(jù)類型，除了定長字符串?dāng)?shù)據(jù)及用戶定義類型外，可以包含任何種類型的數(shù)據(jù)，這是VB規(guī)定。

6．False。邏輯表達式計算結(jié)果。

7．不正確。兩個日期型數(shù)據(jù)相減，其結(jié)果是一個數(shù)值型數(shù)據(jù)。8．不正確。靜態(tài)變量為局部變量，只能在過程中聲明。9．正確。10．正確。11．正確。

12．不正確。該屬性設(shè)為Ture時，Image控件不能自動調(diào)整自己的尺寸與顯示的圖片匹配，而可以使圖片自動擴展以適應(yīng)控件的尺寸。

四、讀程序題，寫出程序運行結(jié)果。1．程序運行后，單擊窗體，輸出結(jié)果為： 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 4 3 2 1 1 2 3 4 5 6 5 4 3 2 1 1 2 3 4 5 6 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1

2．程序運行后，單擊按鈕Command1，輸出結(jié)果為： 3.* ** *** **** ***** 4.aabb-30 False aabb-30 False

30+60 90 30+60 90 5.11 13 9

五、編程題 1．

。120 Private Sub Command1_Click()Text1.Text = ”“ Text2.Text = ”“ Text3.Text = ”“ Text4.Text = ”“ End Sub

Private Sub Command2_Click()a = Trim(Text1.Text)b = Trim(Text2.Text)c = Trim(Text3.Text)If a = ”“ Or b = ”“ Or c = ”“ Then MsgBox ”成績填寫不完全！“, vbCritical Else Text4.Text =(Val(a)+ Val(b)+ Val(c))/ 3 End If End Sub

Private Sub Command3_Click()Unload Me End Sub 2．

Private Sub Command1_Click()x = Val(Text1.Text)If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then Print x Else Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End If End Sub 3．

Private Sub Check1_Click()If Check1.Value = 1 Then Label1.Font.Bold = True Else Label1.Font.Bold = False End If End Sub

Private Sub Check2_Click()If Check2.Value = 1 Then Label1.Font.Italic = True Else Label1.Font.Italic = False End If End Sub

Private Sub Command1_Click()Unload Me End Sub 4．

a = Val(InputBox(”輸入第一個數(shù)：“))b = Val(InputBox(”輸入第二個數(shù)：“))c = Val(InputBox(”輸入第三個數(shù)：“))If a < b Then t = a: a = b: b = t If a < c Then t = a: a = c: c = t If b < c Then t = b: b = c: c = t MsgBox(”求大小排第二的數(shù)是：" & b)

原文網(wǎng)址: http://hi.baidu.com/%CC%EC%D0%AB%C4%A7%BE%FD/blog/item/d446b034a6b3373f5bb5f5fd.html

由弘一網(wǎng)童保存，尚未注冊。注冊

第五篇：2005年4月二級VB筆試試題

無憂考網(wǎng)

004km.cnmand1的命令按鈕，然后編寫一個事件過程。程序運行以后，如果在文本框中輸入一個字符，則把命令按鈕的標(biāo)題設(shè)置為“計算機等級考試”。以下能實現(xiàn)上述操作的事件過程是：

A)Private Sub Text1_Change()

Command1.Caption=”計算機等級考試”

End Sub

B)Private Sub Command1_Click()

Caption=”計算機等級考試”

End Sub

C)Private Sub Form1_Click()

Text1.Caption=”計算機等級考試”

End Sub

D)Private Sub Command1_Click()

Text1.Text=”計算機等級考試”

End Sub

(12)設(shè)a=5,b=4,c=3,d=2，下列表達式的值是 3>2*b Or a=c And b<>c Or c>d

A)1

B)True

C)False

D)2

(13)設(shè)a=”MicrosoftVisualBasic”, 則以下使變量b的值為”VisualBasic”的語句是

A)b=Left(a,10)

B)b=Mid(a,10)

C)b=Right(a,10)

D)b=Mid(a,11,10)

(14)假定有如下的窗體事件過程：

Private Sub Form_Click()

a$ = “Microsoft Visual Basic”

b$ = Right(a$, 5)

c = Mid(a$, 1, 9)

MsgBox a$, 34, b$, c$, 5

End Sub

程序運行后單擊窗體，則在彈出的信息框中的標(biāo)題欄中顯示的信息是：

A)Microsoft Visual

B)Microsoft

C)Basic

D)5

無憂考網(wǎng)

004km.cnmand1)右移200，應(yīng)使用的語句是

A)Command1.Move-200

B)Command1.Move 200

C)Command1.Left= Command1.Left+200

D)Command1.Left= Command1.Left-200

(17)在窗體上畫一個文本框，然后編寫如下事件過程：

Private Sub Form_Click()

x = InputBox(“請輸入一個整數(shù)”)

Print x + Text1.Text

End Sub

程序運行時，在文本框中輸入456，然后單擊窗體，在輸入對話框中輸入123，單擊“確定”按鈕后，在窗體上顯示的內(nèi)容是：

A)12

3B)456

C)579

D)123456

（18）在窗體上畫一個文本框和一個計時器控件，名稱分別為Text1和Timer1,在屬性窗口中把計時器的Interval屬性設(shè)置為1000，Enabled屬性設(shè)置為False,程序運行后，如果單擊命令按鈕，則每隔一秒鐘在文本框中顯示一次當(dāng)前的時間。以下是實現(xiàn)上述操作的程序：

Private Sub Command1_Click()

Timer1._________

End Sub Private Sub Timer1_Timer()Text1.Text = Time End Sub 在______處應(yīng)填入的內(nèi)容是

A)Enabled=True

B)Enabled=False

C)Visible=True

D)Visible=False

(19)假定在圖片框Picture1中裝入了一個圖形，為了清除該圖形（不刪除圖片框），應(yīng)采用的正確方法是：

A)選擇圖片框，然后按Del鍵

B)執(zhí)行語句Picture1.Picture=LoadPicture(“”)

C)執(zhí)行語句Picture1.Picture=””

D)選擇圖片框，在屬性窗口中選擇Picture屬性，然后按回車鍵

（20）在窗體上畫一個List1的列表框，一個名稱為Label1的標(biāo)簽，列表框中顯示若干個項目，當(dāng)單擊列表框中的某個項目時，在標(biāo)簽中顯示被選中的項目的名稱，下列能正確實現(xiàn)上述操作的程序是

A)Private Sub List1_Click()

Label1.Caption = List1.ListIndex

End Sub

B)Private Sub List1_Click()

Label1.Name = List1.ListIndex

End Sub

C)Private Sub List1_Click()

Label1.Name = List1.Text

End Sub

D)Private Sub List1_Click()

Label1.Caption = List1.Text

End Sub

（21）在窗體上畫一個命令按鈕，名稱為Command1，然后編寫如下事件過程：

Private Sub Command1_Click()

無憂考網(wǎng)

004km.cnmand1的命令按鈕，然后編寫如下事件過程：

Private Sub Command1_Click()

c = “ABCD”

For n = 1 To 4

Print _________

Next

End Sub

程序運行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：

D

CD

BCD

ABCD

則在________處應(yīng)填入的內(nèi)容為

A)Left(c,n)

B)Right(c,n)

C)Mid(c,n,1)

D)Mid(c,n,n)

(23)執(zhí)行以下程序段

Dim x As Integer, i As Integer

x=0

For i = 20 To 1 Step-2

x = x + i 5

Next I

后，x的值為

A)16

B)17

C)18

D)19

（24）在Visual Basic工程中，可以作為啟動對象的程序是

A)任何窗體或標(biāo)準(zhǔn)模塊

B)任何窗體或過程

C)Sub Main過程或其他任何模塊

D)Sub Main過程或任何窗體

無憂考網(wǎng)

004km.cnmand1的命令按鈕數(shù)組，則以下說法中錯誤的是

A)數(shù)組中每個命令按鈕的名稱(名稱屬性)均為Command1 B)數(shù)組中每個命令按鈕的標(biāo)題(Caption屬性)都一樣 C)數(shù)組中所有命令按鈕可以使用同一個時間過程

D)用名稱Command1(下標(biāo))可以訪問數(shù)組中的每個命令按鈕

(26)把窗體的KeyPreview屬性設(shè)置為True,然后編寫如下事件過程:

Private Sub Form_KeyPress(KeyAscii As Integer)

Dim ch As String

ch = Chr(KeyAscii)

KeyAscii = Asc(UCase(ch))

Print Chr(KeyAscii + 2)

End Sub

程序運行后,按鍵盤上的”A”鍵,則在窗體上顯示的內(nèi)容是

A)A

B)B

C)C

D)D

(27)在窗體上畫一個命令按鈕和一個文本框,名稱分別為Command1和Text1,然后編寫如下程序:

Private Sub Command1_Click()

a = InputBox(“請輸入日期(1~31)”)

t = “旅游景點:” _

& IIf(a > 0 And a <= 10, “長城”, “")_

& IIf(a > 10 And a <= 20, ”故宮“, ”“)_

& IIf(a > 20 And a <= 30, ”頤和園“, ”“)

Text1.Text = t

End Sub

程序運行后,如果從鍵盤輸入16,則在文本框中顯示的內(nèi)容是:

A)旅游景點：長城故宮

B)旅游景點：長城頤和園

C)旅游景點：頤和園

D)旅游景點：故宮

(28)在窗體上畫一個名稱為Label1的標(biāo)簽,然后編寫如下事件過程:

Private Sub Form_Click()

Dim arr(10, 10)As Integer

Dim i As Integer, j As Integer

For i = 2 To 4

For j = 2 To 4

arr(i, j)= i * j

Next j

Next i

Label1.Caption = Str(arr(2, 2)+ arr(3, 3))

End Sub

程序運行后,單擊窗體,在標(biāo)簽中顯示的內(nèi)容是

無憂考網(wǎng)

004km.cnamnd1的命令按鈕,然后編寫如下通用過程和命令按鈕的事件過程:

Private Function fun(ByVal m As Integer)

If m Mod 2 = 0 Then

fun = 2

Else

fun = 1

End If

End Function

Private Sub Command1_Click()

Dim i As Integer, s As Integer

s = 0

For i = 1 To 5

s = s + fun(i)

Next

Print s

End Sub

程序運行后,單擊命令按鈕,則窗體上顯示的是:

A)6

B)7

C)8

D)9

(30)閱讀程序:

Option Base 1

Dim arr()As Integer

Private Sub Form_Click()

Dim i As Integer, j As Integer

ReDim arr(3, 2)

For i = 1 To 3

For j = 1 To 2

arr(i, j)= i * 2 + j

Next j

Next i

ReDim Preserve arr(3, 4)

For j = 3 To 4

arr(3, j)= j + 9

Next j

Print arr(3, 2)+ arr(3, 4)

無憂考網(wǎng)

004km.cnmand1的命令按鈕,然后編寫如下程序:

Option Base 1

Private Sub Command1_Click()

Dim c As Integer, d As Integer

d = 0

c = 6

x = Array(2, 4, 6, 8, 10, 12)

For i = 1 To 6

If x(i)> c Then

d = d + x(i)

c = x(i)

Else

d = d1

Loop While n > 0

Print s

End Sub

以上程序的功能是【10】,程序運行后,單擊窗體,輸出結(jié)果為【11】

(10)設(shè)有如下程序:

Option Base 1

Private Sub Command1_Click()

Dim arr1

Dim Min As Integer, i As Integer

arr1 = Array(12, 435, 76,-24, 78, 54, 866, 43)

Min = 【12】

For i = 2 To 8

If arr1(i)< Min Then 【13】

Next i

Print ”最小值是:“;Min

End Sub

以上程序的功能是用Array函數(shù)建立一個含有8個元素的數(shù)組,然后查找并輸出該數(shù)組中的最小值,請?zhí)羁?/p>

(11)在名稱為Form1的窗體上畫一個文本框,其名稱為Text1,在屬性窗口中把文本框的MultiLine屬性設(shè)置為True,然后編寫如下事件過程:

Private Sub Form_Click()

Open ”d:testsmtext1.txt“ For Input As #1

Do While Not 【14】

Line Input #1, aspect$

whole$ = whole$ + aspect$ + Chr(13)+ Chr(10)

Loop

Text1.Text = whole$

Close #1

Open ”d:testsmtext2.txt" For Output As #1

Print #1, 【15】

Close #1

End Sub

上述程序的功能是,把磁盤文件smtext1.txt 的內(nèi)容讀到內(nèi)存并在文本框中顯示出來,然后

無憂考網(wǎng)

www.51test.net 把該文本框中的內(nèi)容存入磁盤文件smtext2.txt.請?zhí)羁?/p>

以下答案僅供參考

選擇題：

1---5DBDCA

6---10 CBDDC

11--15 ABBCD

16--20 CDABD

21--25 ABCDB

26--30 CDBBA

31--35 CDDDA

填空題：

【1】19

【2】 對象

【3】

程序調(diào)試

【4】 關(guān)系

【5】 算法

【6】12345.68

【7】VB程序設(shè)計

【8】 VB Programming

【9】 10

【10】 求1-8的和

【11】36

【12】 arr1(1)

【13】min=arr1(i)

【14】 EOF(1)

【15】text1.text(或whole$)12