關(guān)于VB期中練習(xí)題

VB單元練習(xí)題一

一、選擇題

1、VisualBasic集成開發(fā)環(huán)境中不包括下列哪些窗口?（

A.工具箱圖口B.工程資源管理器窗口C.屬性窗口D.命令窗口

2、“一輛小客車在正常行進(jìn)過程中被一輛大型貨車撞壞了”，在這句話中：客車T小行進(jìn)”和“被一輛大型

貨車撞壞了”分別對(duì)象VisualBasic中的哪些術(shù)語？（）

A.對(duì)象、屬性、事件、方法B.對(duì)象、屬性、方法、事件

C.屬性、對(duì)象、事件、方法D.屬性、對(duì)象、方法、事件

3、對(duì)象的特征和狀態(tài)特征稱為？（

A.A件B.方法C.屬性D.類

4、下面哪一個(gè)屬性用來標(biāo)識(shí)對(duì)象的名稱？（

A.CaptionB.ValueC.TextD.Name

5、下列哪個(gè)符號(hào)是合法的變?名？

A.VB123B.AbsC.99JiD.x\y

6、數(shù)學(xué)式子10sin25°寫成VisualBasic表達(dá)式是？()

A.10sin25B.10*sin(25)C.10*sin(25°)D.10*sin(25*3.14/180)

7、VisualBasic中不存在下列哪一種數(shù)據(jù)類型？()

A.字符串類型B.日期類型C.邏輯類型D.指針類型

8、表達(dá)式Left("Visuar,3)+Lcase("AB”)的值是？()

A.visABB.VisABC.VisabD.ualab

9、表達(dá)式6+10Mod4*2+1的值是？()

A.9B.11C.1D.3

10、把數(shù)值型轉(zhuǎn)換為字符串型需要使用下列哪一種函數(shù)？（）

A.Val()B.Str()C.Asc()D.Chr()

11、VB中窗體文件的擴(kuò)展名是o

(A)VBP(B)FRM(C)VBW(D)PDM

12、在設(shè)計(jì)應(yīng)用程序時(shí)，通過JS口可以查看到應(yīng)用程序工程中的所有組成部分。

(A)代碼窗口(B)窗體設(shè)計(jì)窗口(C)屬性窗口(D)工程資源管理器窗口

13、在Visua舊asic中，所有的窗體利控件都必定具有的一個(gè)屬性是。

(A)Name(B)Font(C)Caption(D)FillColor

14、對(duì)變曜名說法不正確的是_____o

(A)必須是字母開頭，不能是數(shù)字或其他字符

(B)不能是VB的保留字

(C)可以包含字母、數(shù)字、下劃線和標(biāo)點(diǎn)符號(hào)

(D)不能超過255個(gè)字符

15、以下變?名中，是不符合Visua舊asic的命名規(guī)范的。

(A)Abc901(B)_mnu_Open_234(C)price_(D)K

16、在SB體上畫一個(gè)命令按鈕(名稱為Commandl),然后編寫如下事件過程：

PrivateSubCommand1_Click()

DimbAsInteger

b=b+1

EndSub

運(yùn)行程序，三次單擊命令按鈕后，變量b的值是：O

(A)0(B)1(C)2(D)3

17、下列程序段的執(zhí)行結(jié)果為o

X=5:Y=-20

IfNotX>0Then

X=Y-3

Else

Y=X+3

Endif

PrintX-Y;Y-X

(A)-33(B)58(C)33(D)2525

18、當(dāng)x為偶數(shù)時(shí)，則在國(guó)體上顯示“偶數(shù)”，否則顯示“奇數(shù)”，不能實(shí)現(xiàn)該代碼段功能的是

(A)ifx\2=x/2thenprint"偶數(shù)"elseprint"奇數(shù)"

(B)ifxmod2=0thenprint"偶數(shù)"elseprint"奇數(shù)"

(C)ifnotxmod2<>0thenprint"偶數(shù)"elseprint"奇數(shù)"

(D)ifx\2=int(x/2)thenprint"偶數(shù)"elseprint"奇數(shù)"

19、若要執(zhí)行下列程序段后窗體上顯示"紅"字，則x可取的值為：

Selectcaseint(x/10)

case2,4,6,8

print"jt"

easel,3,5,7,9

print"綠"

caseelse

print"紅"

endselect

(A)27(B)38(C)10(D)5

20、在程序代碼中將圖片文件mypiejpg裝入圖片框Picturel的語句是______。

(A)Picture1.Picture="mypic.jpg"

(B)Picture1.lmage="mypic.jpg"

(C)Picture1.Picture=LoadPicture("mypic.jpg")

(D)LoadPicture("mypic.jpg")

21、大部分控件都沒有的屬性是o

(A)Top(B)Name(C)Enabled(D)lnterval

22、下列屬于正確的字符串?！龅氖莀___________

(A)#ABC"(B)$ABC$(C)'ABC'(D)"ABC"

23、設(shè)a=8,b=10,則以下表達(dá)式的值為真的是____________

(A)(-3+5>a)and(b>0)(B)a>=bandb>12(C)not(b>0)(D)(a>b)or(b>0)

24、語句Z=y+1代表

(A)將變-Z存入變-y中，再加上1的表達(dá)式

(B)變?Z取得y+1的值

(C)變?nèi)〉米兊闹?，然后再加?的一個(gè)表達(dá)式

(D)將變?Z存入變?y+1中

25、執(zhí)行下面的語句后，所產(chǎn)生的信息框的標(biāo)題是___________oA=MsgBox("AAAAA",3,"BBBBB")

(A)BBBBB(B)AAAAA(C)空(D)出借，不能產(chǎn)生信息框

26、執(zhí)行下列代碼，分別輸入12和89,輸出結(jié)果是o

PrivateSubForm_ClickO

a=lnputBox("D")

b=l叩utBox("E")

Printa+b

EndSub

(A)101(B)DE1289(C)DE(D)1289

27、為了替時(shí)關(guān)閉計(jì)時(shí)器，應(yīng)把該計(jì)時(shí)器的某個(gè)屬性設(shè)■為False,這個(gè)屬性是

(A)Enabled(B)Visible(C)Timer(D)lnterval

28、下列表達(dá)式，哪一個(gè)可以產(chǎn)生1到6之間的隨機(jī)整數(shù)(包括1和6)一(?

(A)lnt(Rnd*7)(B)lnt(Rnd(6)+1)(C)lnt(Rnd*6)(D)lnt(Rnd*6+1)

29、執(zhí)行下列程序,從健盤輸入10,運(yùn)行結(jié)果是o

PrivateSubCommand1_Click()

S=lnputBox("請(qǐng)輸入一個(gè)數(shù)字：")

SelectCaseS

Casels>0

Print">0"

Casels>3

Print">3"

Casels>5

Print">5"

EndSelect

EndSub

(A)>0(B)>3(C)>5(D)>0

30.VB6.0共有3個(gè)版本，它們分別是______

A.學(xué)習(xí)版、標(biāo)準(zhǔn)版和企業(yè)版B.標(biāo)準(zhǔn)版、專業(yè)版和企業(yè)版

C.學(xué)習(xí)版、標(biāo)準(zhǔn)版和網(wǎng)絡(luò)版D.標(biāo)準(zhǔn)版、專業(yè)版和中文版

31.VB的集成開發(fā)環(huán)境中有工作狀態(tài)

A.一種B.兩種C.三種D.四種

32.VB6.0的集成開發(fā)環(huán)境不包括______

A.窗體窗口B.工具箱C.代碼皆口D.過程窗口

33.VB6.0集成開發(fā)環(huán)境有三種工作狀態(tài)，不屬于三種工作狀態(tài)之一的是

A.設(shè)計(jì)狀態(tài)B.墟寫代碼狀態(tài)C.運(yùn)行狀態(tài)D.中斷狀態(tài)

34.用VB設(shè)計(jì)的應(yīng)用程序，文件的擴(kuò)展名中不含______

A..FrxB..BasC..VbpD..Form

35.以下說法正確的是______

A.屬性窗口包括：標(biāo)IB欄、對(duì)象名稱的單選按鈕、選項(xiàng)卡、屬性列表、屬性含義說明

B.屬性窗口包括：標(biāo)題欄、對(duì)象名稱的下拉列表、選項(xiàng)卡、屬性列表、屬性含義說明

C.屬性窗口包括：菜單欄、對(duì)象名稱的單選按鈕、選項(xiàng)卡、屬性列表、屬性含義說明

D.JB性窗口包括：菜單欄、對(duì)象名稱的下拉列表、選項(xiàng)卡、屬性列表、屬性含義說明

36.VB中，強(qiáng)制變■聲明的語句是o

A.OptionExplicitB.OptionBaseC.REMD.PUBLIC

37.VB6.0集成開發(fā)環(huán)境有三種工作狀態(tài)，工作狀態(tài)顯示在o

A.狀態(tài)欄的最左方B.狀態(tài)欄的最右方

C.狀態(tài)欄的中括號(hào)內(nèi)D.標(biāo)題欄的中括號(hào)內(nèi)

38.在界面設(shè)計(jì)時(shí)，雙擊雷體中的對(duì)象后，VB將顯示的窗口是____o

A.立即窗口B.代碼窗口C.屬性窗口D.項(xiàng)目（工程）窗口

39.下述選項(xiàng)中，屬于VB的程序設(shè)計(jì)方法是_____,

A.面向?qū)ο?、順序?qū)動(dòng)B.面向?qū)ο?、事件?qū)動(dòng)

C.面向過程、事件驅(qū)動(dòng)D.面向過程、順序驅(qū)動(dòng)

40.VB集成開發(fā)環(huán)境中，功能鍵F5的功能是_____o

A.進(jìn)入幫助窗口B.進(jìn)入編輯狀態(tài)

C.進(jìn)行上下窗口的切換D.運(yùn)行程序

41.VB設(shè)計(jì)的應(yīng)用程序，擴(kuò)展名為.Vbp的文件是o

A.窗體文件B.類文件C.工程文件D.標(biāo)準(zhǔn)模塊文件

42.VB設(shè)計(jì)的應(yīng)用程序，擴(kuò)展名為.Frm的文件是。

A.窗體文件B.類文件C.工程文件D.標(biāo)準(zhǔn)模塊文件

43.用VB可視化程序設(shè)計(jì)語言設(shè)計(jì)應(yīng)用程序的主要工作是完成o

A.設(shè)計(jì)流程和編寫代碼B.設(shè)計(jì)界面和編寫代碼

C.設(shè)計(jì)算法和結(jié)寫代碼D.設(shè)計(jì)程序和端寫代碼

44.在VB6.0中，12345&的數(shù)據(jù)類型是（）

A.整數(shù)型B.長(zhǎng)整數(shù)型

C.字符常數(shù)D.雙精度常數(shù)

45.在VB6.0中，語句DimM1#,Abc,XyzAsSingle定義的M1、Abe和Xyz的類型分別是（）

A.雙精度、整數(shù)型、單精度B.雙精度、單精度、單精度

C.雙精度、整數(shù)型、整數(shù)型D.雙精度、可變類型、單精度

46.在VB6.0中，下列不正確的Integer型常數(shù)是______________，

A.32768B.0

C.037%D.-22222

47.在VB6.0K,12345678#的類型是.

A.整數(shù)型B.長(zhǎng)整數(shù)型

C.字符常數(shù)D.雙精度常數(shù)

6.在VB6.0中，合法的字符串常數(shù)是.

A.ABC$B：3+4”

C.'ABCD：3+4'

48.方法PRINT20\30輸出結(jié)果是--------。

A."20\30BB.20\30

C.出現(xiàn)錯(cuò)誤信息D.0

49.假定Bln1是邏輯型變■,下面鼠值語句中正確的是.

A.Bln1=True'B.Bln1=.True.

C.Bln1=#True#D.Bln1=3<4

50.在以下運(yùn)算符中，優(yōu)先級(jí)最低的是()

A./B.\

C.ModD."

51.VB6.0中，執(zhí)行下面的四個(gè)語句時(shí)出現(xiàn)錯(cuò)誤的是()

A.x=SGN(0)B.x=SQR(1)

C.x=LOG(0)D.x=SIN(1)

52.VB6.0表達(dá)式COS(0)+ABS(-1)+INT(RND(1))的值是()

A.1B.-1

C.0D.2

53.設(shè)a為整型變一，不能正確表達(dá)數(shù)學(xué)關(guān)系6<a<15的VB6.0表達(dá)式是()

A.6<a<15B.Not(a<=6)Anda<15

C.a>6Anda<15D.a>6AndNot(a>=15)

54.股子是一個(gè)正六面體，用1~6這六個(gè)數(shù)分別代表這六面，擲一次般子出現(xiàn)的數(shù)可表示為()

A.INT(RND(6)+1)B.INT(RND*6)

C.INT(RND(1)*7)D.INT(RND(1)*6+1)

55.邏輯運(yùn)算符AndQr和Not的優(yōu)先順序，從高到低是______

A.Or-And-NotB.And-Not-Or

C.Not-And-OrD.Not-Or-And

56.計(jì)第b的自然對(duì)數(shù)使用的VisualBasic表達(dá)式是

A.Log(b)B.Lg(b)

C.Loge(b)D.Lge(b)

57.方法Print28Mod-15輸出結(jié)果是

A."28Mod-15"B.28Mod-15

C.-13D.13

58.已字母A的ASCII碼為十進(jìn)制的65,表達(dá)式Asc(“A”)+Asc("C")的值是

A.6567B.132

C."AC"D.AC

59.若X=5、Y=6,則表達(dá)式X+Y=11的值是

A.X+Y=11B.11

C.TrueD.False

60.下列執(zhí)行語句后，V的值是______

A$="54321"

V=Val(Mid$(A$,3,2))

A.43B.32C.432D.0

61.執(zhí)行下列語句后，E、F、G的值分別是_____

E=5:F=4:G=3

E=F:F=G:G=E

A.345B.434C.454D.455

62.m,n是整數(shù)，且n>m,在下面四個(gè)語句中，能將x鼠值為一個(gè)m~n之間(含m,n)的任意整數(shù)，即滿

足m<=x<=n的是______

A.x=INT(RND*(n-m+1))+mB.x=INT(RND*n)+m

C.x=INT(RND*m)+nD.x=INT(RND*n-m)+m

63.VB6.0表達(dá)式Log⑴+ABS(-1)+lnt(Rnd⑴)的值是

A.-1B.0C.1D.2

64.VB表達(dá)式10A-2的值是

A.-100B.0.01C.100D.-0.01

65.VB6.0表達(dá)式Len(Left(“abcd”,2)+Right(“濟(jì)南學(xué)院”，2))的值為

A.2B.4C.6D.8

66.Load事件是在窗體被裝入工作區(qū)時(shí)()觸發(fā)的事件。

A.用戶B.程序員C.手工D.自動(dòng)

67.修改控件屬性，一般可以使用屬性窗口，也可以通過()為屬性鼠值。

A.命令B.對(duì)象C.方法D.代碼

68.下面是國(guó)體的四個(gè)屬性，在界面設(shè)計(jì)時(shí),改變屬性值就言不到窗體變化的屬性是.

A.TopB.WidthC.LeftD.Enabled

69.下面四個(gè)選項(xiàng)，不是事件的是o

A.LoadB.EnabledC.UnloadD.DbICIick

70.以下敘述正確的是.

A.窗體(名稱)屬性是用來標(biāo)識(shí)窗體的B.窗體(名稱)屬性的值顯示在窗體的標(biāo)題欄中

C.可以在運(yùn)行期間改變窗體的(名稱)D.窗體的(名稱)屬性值可以為空

71.決定窗體標(biāo)題條顯示內(nèi)容的屬性是_____o

A.(名稱)B.TextC.CaptionD.Top

72.若要使某文本框獲得控制焦點(diǎn)，可使用的方法是______,

A.LostFocusB.PointC.SetFocusD.GotFocus

73.以下選項(xiàng)中，不是VisualBasic6.0缺省控件名稱的是_____。

A.CommandlB.TextlC.labellD.Change

74.若要將某命令按鈕設(shè)■為默認(rèn)命令按鈕，則應(yīng)設(shè)■為True的屬性是。

A.EnabledB.CancelC.DefaultD.Value

75.令按鈕不能響應(yīng)的事件是____o

A.DbICIickB.clickC.MouseDownD.MouseUp

二、填空題

1、下列哪些可以作為變量？

12fdx13r2a223a2

2、下列哪些可以作為常量？并說明是數(shù)值型還是字符型、邏輯型、日期型？“asdfasdf"1234"

1234#2008/11/10#truefalsea3

3、把下列數(shù)學(xué)式子寫成VB表達(dá)式

Jx2+y2+z2

2sm(亨)c°s(U)隹/

4、計(jì)算下列VB表達(dá)式的值(要求寫出步票)

5*3*6\2

8/4*2.5/1.25*(3.7+2.5)

18\4*4.0A2/1.6

25\3Mod3*2

26\3Mod0.4*Sqr(25)

8/4*5/2.5*(3.25+6.75)

3*7\2

14/5*2

15\5*2

27A1/3

27A(1/3)

sqr(100)\4*2

5、按下列要求寫出賦值語句

(1)把數(shù)值234鼠給變?a

(2)把字符串a(chǎn)bc鼠給變量z1

(3)把標(biāo)簽Lblts的內(nèi)容改為“姓名”

6、寫出下列函數(shù)的值

lnt(-3.14159)

Sqr(sqr(16))

7、隨機(jī)產(chǎn)生a-b范圍內(nèi)(包括b)整數(shù)的公式：

8、寫出輸入輸出語句

輸出對(duì)話框：要求使用3圖標(biāo)，標(biāo)題為r輸出對(duì)話框”，對(duì)話框中的內(nèi)容是“你輸錯(cuò)了”

VB單元練習(xí)題二

1.下列敘述中正確的是（）

A.只有窗體才是VisualBasic中的對(duì)象

B.只有控件才是VisualBasic中的對(duì)象

C.SB體和控件都是VisualBasic中的對(duì)象

D.0I體和控件都不是VisualBasic中的對(duì)象

2.確定一個(gè)控件在窗體上的位置的屬性是（）

A.Width或HeightB.Width和HeightC.Top或LeftD.Top利Left

3.為了同時(shí)改變一個(gè)活動(dòng)控件的高度和寬度，正確的操作是（）

A.拖拉控件4個(gè)角上的某個(gè)小方塊B.只能拖拉位于控件右下角的小方塊

C.只能拖拉位于控件左下角的小方塊D.不能同時(shí)改變控件的高度和寬度

4.用戶在屏幕上畫出應(yīng)用程序界面，并設(shè)■好對(duì)象的屬性，系統(tǒng)便可以自動(dòng)生成程序代碼，這稱為（

A、面向?qū)ο蟮某绦蛟O(shè)計(jì)B、結(jié)構(gòu)化程序設(shè)計(jì)C、事件驅(qū)動(dòng)的編程機(jī)制D、可視化程序設(shè)計(jì)

5.VB6共有三個(gè)版本，按功能從弱到強(qiáng)的順序排列應(yīng)是（）

A、學(xué)習(xí)版、專業(yè)版和工程版B、學(xué)習(xí)版、工程版利專業(yè)版

C、學(xué)習(xí)版、專業(yè)版和企業(yè)版D、學(xué)習(xí)版、企業(yè)版和專業(yè)版

6.VB集成開發(fā)環(huán)境有三種工作狀態(tài)，不屬于三種工作狀態(tài)之一的是（）

A、設(shè)計(jì)狀態(tài)B、編寫代碼狀態(tài)C、運(yùn)行狀態(tài)D、中斷狀態(tài)

7.工程文件的擴(kuò)展名是（）

A、.firmB,.vbpC、.basD、.frx

8.窗體文件的擴(kuò)展名是（）

A、.frmB、.vbpC、.basD、.frx

9.VB集成開發(fā)環(huán)境可以()

A、編輯、調(diào)試、運(yùn)行程序，但不能生成執(zhí)行程序

B、編輯、生成可執(zhí)行程序、運(yùn)行程序，但不能調(diào)試程序

C、編輯、調(diào)試、生成可執(zhí)行程序，但不能運(yùn)行程序

D、擒輯、調(diào)試、運(yùn)行程序,也能生成執(zhí)行程序

10.標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是()

A、.firmB,.vbpC、.basD、.vbg

11.用于獲得字符串S從第5個(gè)字符開始的3個(gè)字符的函數(shù)是(1

A.Mid(S,5,3)B.Middle(S,5,3)C.Right(S,5,3)D.Left(S,5,3)

12.用于從字符串左邊截取字符的函數(shù)是(\

A、Ltrim()B、Trim()C、lnstr()D、Left()

13.用于去掉字符串左右兩邊的空格的函數(shù)是().

A、Ltrim()B、Trim()C、Left()D、lnstr()

14.假定理體的名稱(NameJB性)為Forml,則把窗體的標(biāo)題設(shè)置為“VBTest”的語句為()

A.Form1="VBTest"B.Caption="VBTest"

C.Forml.Text="VBTest"D.Forml.Name="VBTest"

15下列說法中正確的是：為了保存一個(gè)VisualBasic應(yīng)用程序，應(yīng)當(dāng)()

A.只保存窗體模塊文件(frm)B.只保存工程文件(.vbp)

C.分別保存工程文件和標(biāo)準(zhǔn)模塊文件(.bas)D.分別保存工程文件、留體文件和標(biāo)準(zhǔn)模塊文件

16.要使一個(gè)標(biāo)簽框?qū)ο竽軌蝻@示所需要的文本，應(yīng)設(shè)置該對(duì)象的那一個(gè)屬性的值？()

A.CaptionB.TextC.NameD.AutoSize

17.要使一個(gè)命令按鈕稱為圖形式命令按鈕，應(yīng)設(shè)■該隊(duì)象的哪一個(gè)屬性值？()

A.PictureB.StyleC.DownPictureD.DisabledPicture

18.為使計(jì)時(shí)器對(duì)象每隔5秒鐘產(chǎn)生一個(gè)時(shí)鐘事件（Timer事件），則其Interval屬性值應(yīng)設(shè)置為（）

A.5B.300C.500D.5000

19.一個(gè)標(biāo)準(zhǔn)的VB應(yīng)用程序至少要包含一個(gè)（）對(duì)象。

A.文本椎B.標(biāo)簽框C.窗體D.命令按鈕

20.要使一個(gè)文本框?qū)ο竽苄揎@示多行文字，應(yīng)設(shè)置該對(duì)象的（）屬性值為True.

A.TextB.MuKiLineC.StyleD.Visible

21、雙擊窗體中的對(duì)象后，VB將顯示的窗口是（）

A、工具箱B、項(xiàng)目（工程）窗口C、代碼窗口D、屬性窗口

22、下述先項(xiàng)中，屬性VB的程序設(shè)計(jì)方法是（）

A、面向?qū)ο?、順序?qū)動(dòng)B、面向?qū)ο蟆⑹录?qū)動(dòng)

C、面向過程、事件驅(qū)動(dòng)D、面向過程、順序驅(qū)動(dòng)

23、下面是窗體的四個(gè)屬性，在界面設(shè)計(jì)時(shí)，改變屬性值看不到窗體變化的是（）

A、TopB、WidthC、LeftD、Enabled

24、下面四個(gè)選項(xiàng)，不是事件的是（）

A、LoadB、EnabledC、UnloadD、DbICIick

25、用來設(shè)|1窗體背景圖片的屬性是（）

A、MoveableB、PictureC、ForeColorD、WindowState

26、在VB6中的每一個(gè)對(duì)象都具有自己的屬性、和方法。

A、控件B、函數(shù)C、事件D、公用過程

27.計(jì)算結(jié)果為0的表達(dá)式是（'

lnt（3.4）+lnt（-3.8）B.lnt（3.4）+Fix（-3.8）C.Fix（3.4）+Fix（-2.8）D.Fix（3.4）+lnt（-3.8）

28.假設(shè)A=3,B=7,C=2,則表達(dá)式NOT（B<C）ANDC>A的值是（）

A.TrueB.FalseC.表達(dá)式錯(cuò)誤D.不確定

29.在表達(dá)式y(tǒng)=InputBox(a,b,c)中，a,b,c分別為輸入函數(shù)對(duì)話框的()()().

A.標(biāo)題B.提示C.預(yù)設(shè)值D.幫助文件名

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

PrivateSubCommand1_Click()

a=lnputBox("EntertheFirstinteger")

b=lnputBox("EntertheSecondinteger")

Printb+a

EndSub

程序運(yùn)行后，單擊命令按鈕，先后在兩個(gè)輸入對(duì)話框中分別輸入456利123,則輸出結(jié)果是()

A.579B.123C.456D.123456

31.在盲體上畫一個(gè)命令按鈕，然后編寫如下事件過程：

PrivateSubCommand1_Click()

Dima,bAsInteger

a=lnputBox("EntertheFirstinteger")

b=lnputBox("EntertheSecondinteger")

Printb+a

EndSub

程序運(yùn)行后，單擊命令按鈕，先后在兩個(gè)輸入對(duì)話框中分別輸入456和123,則輸出結(jié)果是(

A.579B.123C.456D.123456

32.執(zhí)行下面的語句后，所產(chǎn)生的信息框的標(biāo)題是()

a=MsgBox("AAAA",,"BBBB","",5)

A.BBBBB.空C.AAAAD.出錯(cuò)，不能產(chǎn)生信息框

33.假定x的值為5,則在執(zhí)行以下語句時(shí)，其輸出結(jié)果為"ResiT的SelectCase語句是()

A.SelectCasex

Case10To1

Print"Result"

EndSelect

B.SelectCasex

CaseIs>5,Is<5

Print"Result"

EndSelect

C.SelectCasex

CaseIs>5,1,3To10

Print"Result"

EndSelect

D.SelectCasex

Case1,3,Is>5

Print"Result"

EndSelect

34.假定有以下循環(huán)結(jié)構(gòu)

DoUntil條件

循環(huán)體

Loop

則正確的描述是（）

A.如果"條件"是一個(gè)為0的常數(shù)，則一次循環(huán)體也不執(zhí)行

B.如果"條件"是一個(gè)為0的常數(shù)，則無限次執(zhí)行循環(huán)體

C.如果"條件"是一個(gè)不為0的常數(shù)，則至少執(zhí)行一次循環(huán)體

D.不論"條件"是否為"真"，至少要執(zhí)行一次循環(huán)體

35.以下程序段的輸出結(jié)果為（）

x=1

y=4

DoUntily>4

x=x*y

y=y+i

Loop

Printx

A.1B.4C.8D.20

36.執(zhí)行下面的程序段后，x的值為

x=5

Fori=1To20Step2

x=x+i\5

NextI

A.21B.22C.23D.24

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

PrivateSubCommand1_Click（）

x=0

DoUntilx=-1

a=l叩utBox（"請(qǐng)輸入A的值"）

a=Val(a)

b=lnputBox（"請(qǐng)輸入B的值”）

b=Val（b）

x=lnputBox（"請(qǐng)輸入x的值”）

x=Val（x）

a=a+b+x

Loop

Printa

EndSub

程序運(yùn)行后，單擊命令按鈕，依次在輸入對(duì)話框中輸入5、4、3、2、1、-1,則輸出結(jié)果為（）

A.2B.3C.14D.15

38.如果要在文本椎中健入字符時(shí)，只顯示某個(gè)字符，如星號(hào)（*）,應(yīng)設(shè)置文本框的（）屬性。

A.CaptionB.PasswordCharC.TextD.Char

39.退出For循環(huán)可使用的語句為（\

A、ExitForB、EndForC、ExitDoD、EndDo

40.退出Do...Loop循環(huán)可使用的語句為（\

A、ExitForB、EndForC、ExitDoD、EndDo

41.退出函數(shù)過程可使用的語句為（卜

A、ExitsubB、EndsubC、EndFunctionD、ExitFunction

42.退出sub過程可使用的語句為（'

A,ExitsubB、EndsubC、EndFunctionD、ExitFunction

43.在窗體上畫一個(gè)文本框（其Name屬性為Textl）,然后編寫如下事件過程：

PrivateSubForm_Load（）

Textl.Text=

Textl.SetFocus

Fori=1To10

Sum=Sum+i

Nexti

Textl.Text=Sum

EndSub

上述程序的運(yùn)行結(jié)果是（）

A.在文本框Text）中輸出55B.在文本框Text）中輸出0

C.出錯(cuò)D.在文本框Text）中輸出不定值

44.在窗體上畫兩個(gè)文本框（其Name屬性分別為Textl和Text2）利一個(gè)命令按鈕（其Name屬性為

Commandl）,然后編寫如下事件過程：

PrivateSubCommand1_Click（）

x=0

DoWhilex<50

x=（x+2）*（x+3）

n=n+1

Loop

Textl.Text=Str（n）

Text2.Text=Str（x）

EndSub

程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為（）

A.1和0B.2和72C.3和50D.4利168

45.在窗體上畫一個(gè)命令按鈕，名稱為Commandlo然后結(jié)寫如下程序：

PrivateSubCommand1_Click()

For1=1To4

ForJ=OToI

PrintChr(65+I);

NextJ

Print

NextI

EndSub

程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是()

A.BB

CCC

DDDD

EEEEE

B.A

BB

CCC

DDDD

C.B

CC

DDD

EEEE

D.AA

BBB

cccc

DDDDD

46.在窗體上畫兩個(gè)名稱分別為L(zhǎng)abeH和Label2的標(biāo)簽，然后編寫如下事件過程

PrivateSubForm_Click（）

x=-5:s=-5

SelectCases

CaseIs>0

y=x+1

CaseIs>=0

y=x+2

CaseElse

y=x+3

EndSelect

Label1.Caption=x

Label2.Caption=y

EndSub

程序運(yùn)行后，單擊窗體，標(biāo)簽LabeH和Label2中顯示的內(nèi)容分別是（）

A.-5和-2B.-5和-4C.-5利-3D.-5和-5

33.下列VB程序語句正確的是（）.

A.IfA&BThenT=A:A=B:B=TB.IfA&BThenT=A;A=B;B=T

C.IfA>=BThenT=AA=BB=TD.IfA>=BThenT=A:A=B:B=T

47.下列程序段執(zhí)行后輸出的結(jié)果是（）

n=10

Fork=nTo1

x=kA2

Nextk

Printx

A.-2B.-1C.1D.O

48下列程序段執(zhí)行后輸出的結(jié)果是（）

i=0

Fork=10To19Step3

i=i+1

Nextk

Printi

A.4B.5C.3D.6

49下列程序段執(zhí)行后輸出的結(jié)果是（）

x=int（Rnd+4）

SleetCasex

Case5

Print"優(yōu)秀"K

Case4

Print"良好"

Case3

Print"及格"

CaseElse

Print"不及格"

EndSelect

A.優(yōu)秀B.良好C.及格D.不及格

50.在窗體上畫一個(gè)命令按鈕(其Name屬性為Commandl),然后編寫如下代碼：

OptionBase1

PrivateSubCommand1_Click()

Dima

a=Array(1,2,3,4)

j=1

Fori=4To1Step-1

s=s+a(i)*j

j=j*10

Nexti

Prints

EndSub

運(yùn)行上面的程序，單擊命令按鈕，其輸出結(jié)果是()

A.4321B.12C.34D.1234

51.定理體標(biāo)題條顯示內(nèi)容的屬性是()

A.TextB.NameC.CaptionD.BackStyle

52.要求從文本框中輸入密碼時(shí)在文本框中只顯示*號(hào)，則應(yīng)用在此文本框的屬性窗口中設(shè)■(

A.PasswordcharJ■性值為*B.Caption屬性值為*

C.PasswordChar屬性值為真D.Text屬性值為*

53決定窗體有無控制菜單的屬性是()

A.ControlBoxB.MinButtonC.EnabledD.MaxButton

54使文本程獲得焦點(diǎn)的方法是()

A.ChangeB.GotFocusC.SetFocusD.LostFocus'

55下列可以把當(dāng)前目錄下的圖形文件pic1.jpg裝入圖片框Picture1中的語句為()

A.Picture="pid.jpg"

B.Picture.Handle="pic1.jpg"

C.Picture1.Picture=LoadPicture("pic1.jpg")

0.Picture=LoadPicture("pic1.jpg")

56決定標(biāo)簽內(nèi)顯示內(nèi)容的屬性是()

A.TextB.NameC.AlignmentD.Caption

57假定在圖片框Picturel中裝入了一個(gè)圖形，為了清除該圖形(注意，清除圖形，而不是刪除圖片框)，應(yīng)

采用的正確方法是(B)

A.選擇圖片框，然后按Del健

B.執(zhí)行語句Picturel.picture=LoadPicture("")

C.執(zhí)行語句Picturel.picture=""

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

58.比較圖片框(PictureBox)和圖像框(Image)的使用，正確的描述是(卜

A.當(dāng)圖片框(PictureBox)的AutoSize自屬性為False時(shí)，只在裝入圖元文件(*.wmf)時(shí)，圖形才能

自動(dòng)調(diào)整大小以適應(yīng)圖片框的尺寸

B.當(dāng)圖像框(Image)的Stretch屬性為True時(shí)，圖像框會(huì)自動(dòng)改變大小以通應(yīng)圖形的大小，使圖形充

滿圖像框

C.兩類控件都可以設(shè)■AutoSize屬性，以保證裝入的圖形可以自動(dòng)改變大小

D.兩類控件都可以設(shè)置Stretch屬性，使褥圖形根據(jù)物件的實(shí)際大小進(jìn)行拉伸調(diào)整，保證顯示圖形的所

有部分

59刪除列表椎中指定的項(xiàng)目所使用的方法為（）

A.MoveB.RemoveC.CIearD.Removeltem

60.若要向列表椎添加列表項(xiàng)，可使用的方法是（卜

A、AdditemB、RemoveC、ClearD、Add

61當(dāng)拖動(dòng)滾動(dòng)條中的滾動(dòng)塊時(shí)，將觸發(fā)的滾動(dòng)條的事件是（）

A.MoveB.ChangeC.ScollD.SetFocus

62.滾動(dòng)條控件的LargeChange屬性所設(shè)■的是（）

A.滾動(dòng)條中滾動(dòng)塊的最大移動(dòng)范圍

B.單擊滾動(dòng)條和滾動(dòng)箭頭之間的區(qū)域時(shí)，滾動(dòng)條控件value屬性值的改變?

C.滾動(dòng)條中潼動(dòng)塊的最大移動(dòng)位置

D.滾動(dòng)條控件無該屬性

63用戶在組合框中輸入或選擇的數(shù)據(jù)可以通過一個(gè)屬性獲簿，這個(gè)屬性是（）

AListB.ListlndexC.TextD.ListCount

64.設(shè)僮一個(gè)單選按鈕（OptionButton）所代表選項(xiàng)的選中狀態(tài)，應(yīng)當(dāng)在屬性窗口中改變的屬性是（）

A.CaptionB.NameC.TextD.Value

65.在窗體（Name屬性為Forml）上畫兩個(gè)文本框（其Name屬性分別為Textl和Text2）和一個(gè)命令按鈕

（Name屬性為Command1）,然后媚寫如下兩個(gè)事件過程：

PrivateSubCommand1_CIick（）

a=Textl.Text+Text2.Text

Printa

EndSub

PrivateSubForm_Load（）

Text1.Text=""

Text2.Text=""

EndSub

程序運(yùn)行后，在第一個(gè)文本框(Text!)利第二個(gè)文本程(Text2)中分別輸入123利321,然后單擊命令按

鈕，則輸出結(jié)果為()

A.444B.321123C.123321D.132231

65.運(yùn)行下面程序后輸出的結(jié)果是()

PrivateSubForm_ClickO

K=4

IfK<=3Thenn=5

IfK<=4Thenn=4

IfK<=5Thenn=3

Printn

EndSub

A.無輸出B.3C.4D.5

66.運(yùn)行下面程序后輸出的結(jié)果是()

PrivateSubForm_ClickO

score=lnt(Rnd*10)+80

SelectCasescore

CaseIs<60:PingYu="未通過"

Case60To69:PingYu="合格"

Case70To79:PingYu=11中"

Case80To89:PingYu="良"

CaseElse:PingYu="優(yōu)"

EndSelect

PrintPingYu

EndSub

A.優(yōu)B.良C.中D.合格

67.有如下程序：

PrivateSubForm_ClickO

A=3

IfA<=3Then

Print3;

EndIf

IfA<=4Then

Print4;

EndIf

IfA<=5Then

Print5;

EndIf

IfA<=6Then

Print6;

EndIf

Print

EndSub

運(yùn)行后輸出的結(jié)果是

68.窗體上有兩個(gè)文本椎Textl和Text2,下面程序的功能是：在文本框Text）中輸入一個(gè)0-6的整數(shù),

然后單擊盲體；在文本框Text2中用英文顯示是星期幾。請(qǐng)將程序補(bǔ)充完整。

注意:不需增行或刪行，也不得更改程序的結(jié)構(gòu)I

PrivateSubForm_Click()

DimVar%

___________=Text1.Text

SelectCaseVar

CaseO

Text2.Text="Sunday"

Case1

Text2.Text="Monday"

Case2

Text2.Text="Tuesday"

Case3

Text2.Text="Wednesday"

Case4

Text2.Text="Thursday"

Case5

Text2.Text="Friday"

Case6

Text2.Text="Saturday"

CaseElse

Text2.Text="MustbeOto6"

EndSub

69.以下敘述正確的是（）

A.SelectCase語句中的窩試表達(dá)式可以是任何形式的表達(dá)式

B.SelectCase語句的測(cè)試表達(dá)式只能是數(shù)值表達(dá)式或字符表達(dá)式

C.在執(zhí)行SelectCase語句時(shí)，所有Case子句均按出現(xiàn)的次序被順序執(zhí)行

D.如下SelectCase語句的Case表達(dá)式是錯(cuò)誤的

SelectCase

Case1TO10

EndSelect

70.國(guó)體上畫一個(gè)命令按鈕，其名稱為commandl,然后編寫如下事件過程：

PrivateSubcommand1_click()

ForI=1To4

IfI=1Thenx=I

IfI<=4Thenx=x+1

Printx;

NextI

EndSub

程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為()

A.1234B.2345C.2344D.3456

71.有如下程序。其輸出結(jié)果為()

PrivateSubcommand1_click()

x=Sqr(2)\2+Sgn(2)\2+Rnd(2)\2

x=Sqr(3)\3+Sgn(3)\3+Rnd(3)\3

Ifx>yThen

Print"x>y"

Elselfx=yThen

Print"x=y"

Else

Print"x<y"

EndIf

EndSub

A.x>yB.x=yC.x<yD.以上都不正確

72.有如下程序：

PrivateSubForm_ClickO

A=0

Forj=1To20Step2

A=A+j\5

Nextj

PrintA

EndSub

運(yùn)行后，輸出的結(jié)果是()

A.12B.16

C.40D.100

73.有一個(gè)分?jǐn)?shù)序列：

2/13/25/38/513/8

求這個(gè)序列前20項(xiàng)的和。請(qǐng)將程序補(bǔ)充完整。

注意：不需增行或刪行，也不得更改程序的結(jié)構(gòu)。

PrivateSubform_click()

DimsAsSingle

Dimt1AsInteger,t2AsInteger,tAsInteger

DimIAsInteger

s=0

t1=2

t2=1

I=0

DOwhile

S=_____________

t=t1+12

1=1+1

PrintI;t1;t2;s

Loop

Prints

EndSub

74.有如下程序：

PrivateS