《程序設(shè)計基礎(chǔ)VB》期中考試卷

《程序設(shè)計基礎(chǔ)(VB)》試卷

使用專業(yè)、班級社工1103_________學(xué)號1102110302________姓名

題數(shù)一二總分

得分

本題

得分一、選擇題K每題1分，共計50分以

1.在設(shè)計階段，當(dāng)雙擊窗體上的某個控件時，所打開的窗口是_C—

A.工程資源管理器窗口B.工具箱窗口C.代碼窗口D.屬性窗口

2.以下敘述中錯誤的是_c

A.打開一個工程文件時，系統(tǒng)自動裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件

B.當(dāng)程序運(yùn)行時，雙擊一個窗體，則觸發(fā)該窗體的DblClick事件

C.Visua舊asic應(yīng)用程序只能以解釋方式執(zhí)行D.事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)

3.以下關(guān)于窗體的描述中，錯誤的是」;

A.執(zhí)行UnloadForml語句后，窗體Forml消失，但仍在內(nèi)存中

B.窗體的Load事件在加載窗體時發(fā)生

C.當(dāng)窗體的Enabled屬性為False時，通過鼠標(biāo)和鍵盤對窗體的操作都被禁止

D.窗體的Height、Width屬性用于設(shè)置窗體的高和寬

4.如果窗體Forml上有“字體”框架，在代碼編輯器窗口有框架FontFrame_DblClick()事件過程和窗體的單

擊事件過程，則框架的名稱屬性和Caption屬性分別為,窗體的單擊事件過程名為_B

A.“FontFrame”和“字體”，F(xiàn)orm_ClickB.“字體”和“FontFrame”，F(xiàn)orm1_Click

C.“Frame"'和"字體”，F(xiàn)orm1_ClickD.“Framel”和“FontFrame”，F(xiàn)orm_Click

5.要使一個文本框可以顯示多行文本，應(yīng)設(shè)置為True的屬性是_8

A.EnabledB.MultiLineC.MaxLengthD.Width

6.在窗體上畫一個名稱為Textl的文本框和一個名稱為Commandl的命令按鈕，然后編寫如下事件過程；程序

運(yùn)行后，如果單擊命令按鈕，則在文本框中顯示的是_C___Forml-1□1x|

北

PrivateSubCommand1_Click()京

上

Textl.Text="Visual”:Me.Textl="Basic”海

天

津

Textl=*'Program**冒旅

州

Commandl廣

EndSub南京

A.VisualB.BasicC.ProgramD.出錯

7.為了把焦點(diǎn)移到某個指定的控件，所使用的方法是_A

A.SetFocusB.VisibleC.RefreshD.GetFocus

8.程序運(yùn)行時，若拖動滾動條上的滾動塊，則觸發(fā)滾動條的_C_事件

A.MoveB.ChangeC.ScrollD.GetFocus

試卷專用紙

設(shè)在窗體中有一個名稱為Listl的列表框，其中有若干個項目(如左頁下圖)。要求選中某一項后單擊

Command"!按鈕，就刪除選中的項，則正確的事件過程是_A_

A.PrivateSubCommand1_Click()C.PrivateSubCommand1_Click()

Listl.ClearListl.RemoveitemListl.Listindex

EndSubEndSub

B.PrivateSubCommand1_Click()D.PrivateSubCommand1__Click()

Listl.ClearListl.ListindexListl.Removeitem”重慶"

EndSubEndSub

在窗口上有右圖所示的控件，各控件的名稱與其標(biāo)題相同，并有如下程

序，剛運(yùn)行程序時，看到的窗體外觀是一C_

PrivateSubForm_Load()

Command2.Enabled=False

Checkl.Value=1

EndSub

11.窗體的MouseDown事件過程有4個參數(shù)，關(guān)于這些參數(shù)，正確的描述是_A

Form_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

A.通過Button參數(shù)判定當(dāng)前按下的是哪一個鼠標(biāo)鍵B.Shift參數(shù)只能用來確定是否按下Shift鍵

C.Shift參數(shù)只能用來確定是否按下Alt和Ctrl鍵D.參數(shù)x,y用來設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo)

12.在窗體上畫有一個名稱為Timeri的計時器和一個名稱為Labell的標(biāo)簽，計時器的屬性設(shè)置為Enabled=

True,Interval=0,并編程如下。希望在程序運(yùn)行時，可每2秒在標(biāo)簽上顯示系統(tǒng)當(dāng)前時間。在程序執(zhí)行時

發(fā)現(xiàn)未能實現(xiàn)上述目的，那他應(yīng)做_A___修改

PrivateSubTimer1_Timer()

Labell.Caption=Time$

EndSub

2

江南大學(xué)考

A.通過屬性窗口把計時器的Interval屬性設(shè)置為2000

B.通過屬性窗口把計時器的Enabled屬性設(shè)置為False

C.把事件過程中的Labell.Caption="0|11?$語句改為Timeri.Interval=Time$

D.把事件過程中的Label"!.Caption=箝010$語句改為Labell.Caption=Timeri.Time

13.以下敘述中錯誤的是_B__

A.在KeyPress事件過程中不能識別鍵盤的按下與釋放

B.在KeyPress事件過程中不能識別回車鍵

C.在KeyDown和KeyUp事件過程中，將鍵盤輸入的"A"和"a"視作相同的字母（即具有相同的KeyCode）

D.在KeyDown和KeyUp事件過程中，從大鍵盤上輸入的"1”和從右側(cè)小鍵盤上輸入的"1”被視作不同的字

符（具有不同的KeyCode）

14.以下關(guān)于圖片框控件的說法中，錯誤的是—B

A.可以通過Print方法在圖片框中輸出文本B.清空圖片框控件中圖形的方法之一是加載一個空圖形

C.圖片框控件可以作為容器使用D.用Stretch屬性可以自動調(diào)整圖片框中圖形的大小

15.形狀控件的Shape屬性有6種取值（代表6種幾何圖形），下列-B—不屬于這6種圖形

16.若需要在同一窗口內(nèi)安排兩組相互獨(dú)立的單選按鈕（。pii。nButt。n）,可使用_C控件將它們分隔開。

①TextBox②Picture③Image④Frame

A.①@B.②③C.②?D.@@

17.若窗體上的圖片框中有一個命令按鈕，則此按鈕的Left屬性是指_8

A.按鈕左端到窗體左端的距離B.按鈕左端到圖片框左端的距離

C.按鈕中心點(diǎn)到窗體左端的距離D.按鈕中心點(diǎn)到圖片框左端的距離

18.窗體上有1個名稱為CD1的通用對話框，1個名稱為Commandl的命令按鈕。命令按鈕的單擊事件過程如

下；關(guān)于代碼，錯誤的敘述是_A_

PrivateSubCommand1_Click（）

cdl.FileName=""

cd1.Filter="all.files|*.*|（*.doc）|*.doc|（*.txt）|*.txt"

cd1.Filterindex=2

cd1.Action=1

EndSub

A.執(zhí)行以上事件過程，通用對話框被設(shè)置為“打開”文件對話框B.通用對話框的初始路徑為當(dāng)前路徑

C.通用對話框的默認(rèn)文件類型為*.txtD.以上代碼不對文件執(zhí)行讀寫操作

19.以下敘述中錯誤的是_C__

A.在程序運(yùn)行時，通用對話框控件是不可見的

B.在同一個程序中，用不同的方法（如ShowOpen或ShowSave等）打開的通用對話框具有不同的作用

C.調(diào)用通用對話框控件的ShowOpen方法，可以直接打開在該通用對話框中指定的文件

D.調(diào)用通用對話框控件的ShowColor方法，可以打開顏色對話框

3

20.以下敘述中錯誤的是_c____

A.在同一窗體的菜單項中，不允許出現(xiàn)標(biāo)題相同的菜單項B.程序運(yùn)行中，可重新設(shè)置菜單的Visible屬性

C.彈出式菜單也在菜單編輯器中定義D.在菜單的標(biāo)題欄中“&”所引導(dǎo)的字母指明訪問該菜單項的訪問鍵

21.下列_c___是合法的變量名。

A.日seB.-a1C.cdcdD.Abc_10

22.下列_D___是正確的VB常量

A.D-6B.E-6C.5DD.5E-6

23.以下聲明語句中錯誤的是_B____

A.Constvar1=123B.Dimvar2='ABC*C.Deflnta-zD.Staticvar3%

24.假設(shè)變量BOOL是一個布爾型變量，則下列賦值語句中，正確的是_口_____

A.BOOL='TRUE'B.BOOL=.TRUE.C.BOOL=#TRUE#D.BOOL=3=y

25.在文本框Text1中輸入數(shù)字12,在文本框Text2中輸入數(shù)字34,在輸入對話框中輸入數(shù)字34,執(zhí)行以下語

句，只有—B―可使文本框Text3中顯示46O

A.Text3=Textl.Text&34B.Text3.Text=Textl.Text+InputBox("輸入”)

C.Text3=Val(Textl.Text)+“34”D.Text3=Val(Text1.Text)&Val(Text2.Text)

26.設(shè)有a=2,b=3,c=4,表達(dá)式Nota<=cOr4*c=bA2Andb<>a+c的值是_D___

A.-1B.1C.TrueD.False

27.設(shè)a=4,b=3,c=2,d=1,表達(dá)式a>b+1Orc<dAndbModc的值是D______

A.TrueB.1C.-1D.0

28.運(yùn)行下面程序，單擊命令按鈕Commandl則立即窗口上顯示的結(jié)果是_A____

PrivateSubCommand1_Click()

DimAAsInteger,BAsBoolean,CAsInteger,DAsInteger

a=20/3:b=True:c=b:D=a+c

Debug.PrintA,D,A=A+C*Debug.Print表示將信息打印顯示在立即窗口中

EndSub

A.76FalseB.6.65.6False

C.76A=6D.78A=8

29.下列語句運(yùn)行時，系統(tǒng)給出錯誤提示的是_B____

A.Print”1E2”+8B.Print3=2=4C.Print"AB"&128;D.Print-32000-769;

30.語句Print5/4*6\5Mod2的輸出結(jié)果是_A^_

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

31.函數(shù)Clnt、Int、Fix都返回整數(shù)值，以下正確地描述它們返回值大小關(guān)系的是_A____

A.Clnt(-4.51)=lnt(-4.51)<Fix(-4.51)B.Int(-4.51)<Clnt(-4.51)<Fix(-4.51)

C.Clnt(-4.51)<Fix(-4.51)<lnt(-4.51)D.Int(-4.51)<Fix(-4.51)=Clnt(?4.51)執(zhí)行如下兩條語句，窗

體上顯示的是—C-

a=9.8596

PrintFormatfa/'SOO,00.00")

A.0,009.86B.$9.86C.$00,09.86D.$0,009.86

4

江南大學(xué)考

33.假定有如下的命令按鈕(名稱為Command"!)事件過程；運(yùn)行程序，單擊命令按鈕，如果從鍵盤上輸入整數(shù)

10,則以下敘述中錯誤的是

PrivateSubCommand1_Click()

x=lnputBox(“輸入："輸入整數(shù)”)

MsgBox”輸入的數(shù)據(jù)是：輸入數(shù)據(jù)：”+x

EndSub

A.x的值是數(shù)值10B.輸入對話框的標(biāo)題是“輸入整數(shù)”

C.信息框的標(biāo)題是“輸入數(shù)據(jù)：10"D.信息框中顯示的是“輸入的數(shù)據(jù)是:"

34.設(shè)a="MicrosoftVisua舊asic”,則以下使變量b的值為“Visua舊asic”的語句是

A.b=Left(a,10)B.b=Mid(a,10)C.b=Right(a,10)D.b=Mid(a,11,10)

35.執(zhí)行下面語句后，Len函數(shù)值最大的是

DimIAAsInteger,BAsSingle,SAsString*5,ChAsString

IA=32767:B=23.5:S="A"：Ch="abcd”

A.Len(lA)B.Len(B)C.Len(S)D.Len(Ch)

36.窗體上有名為文本框Textl,然后編寫如下事件過程，程序運(yùn)行后在文本框中輸入a,在窗體上顯示

PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)

PrintChr(KeyCode+1);

EndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

PrintChr(KeyAscii);

EndSub

A.BAB.baC.aBD.ab

62Ksinx+sin=2x)

37.右側(cè)算術(shù)表達(dá)式—h.「的VB表達(dá)式是______

Jsinx-cosx2

A.(eA(2*Tr*x-5)*log(x)+(sin(2x))A3)/sqr(abs(sin(x)-cos(xA2)))

B.(exp(2*3.14159*x-5)*log(x)+(sin(2*x))A3)/sqr(abs(sin(x)-cos(xA2)))

C.(exp(2*ir*x-5)*ln(x)+(sin(2*x))A3)/sqr(abs(sin(x)-cos(xA2)))

D.(eA(2*3.14159*x-5)*ln(x)+(sin(2*x))A3)/sqr(abs(sing(x)-cos(xA2)))

38.設(shè)a=5,b=6,c=7,d=8,執(zhí)行語句x=Hf((a>b)And(c>d),10,20)后，x的值為

A.10B.20C.TrueD.False

39.以下Case語句中錯誤的是

A.Case0To10B.Casels>10C.Case3,5Js>10D.Casels>10Andls<50

40.在窗體上畫一個名稱為Commandl的命令按鈕和兩個名稱分別為Text!、Text2的文本框，然后編寫如下事

件過程，程序運(yùn)行后，如果在文本框Text1中輸入10,然后單擊命令按鈕，則在Text2中顯示的內(nèi)容是

PrivateSubCommand1_Click()

n=Textl.Text

SelectCasen

5

試卷專用紙

Case1To20:x=10

Case2,4,6,10:x=20

CaseIs<=10:x=30

Case10:x=40

EndSelect

Text2.Text=x

EndSub

A.10B.20C.30D.40

41.設(shè)有以下循環(huán)結(jié)構(gòu)，則以下敘述中錯誤的是

Do

循環(huán)體

LoopWhile〈條件〉

A.若“條件”是一個為。的常數(shù)，則一次也不執(zhí)行循環(huán)體B.”條件“可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)

C.循環(huán)體中可以使用ExitDo語句D.如果“條件"總是為True,則不停執(zhí)行循環(huán)體

42.假定有如下事件過程，程序運(yùn)行后，單擊窗體，輸出結(jié)果是

PrivateSubForm_Click()

DimxAsInteger,nAsInteger

x=1n=0

DoWhilex<28

x=x*3:n=n+1

Loop

Printx,n

EndSub

A.814B.563C.281D.2435

43.有如下程序，程序運(yùn)行后，單擊窗體，輸出結(jié)果為

PrivateSubForm_Click()

DimCheck,Counter

Check=TrueCounter=0

Do

DoWhileCounter<20

Counter=Counter+1

IfCounter=10ThenCheck=False:ExitDo

Loop

LoopUntilCheck=False

PrintCounter,Check

EndSub

A.150B.20-1C.10TrueD.10False

6

江南大學(xué)考

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

DimiAsInteger,xAsInteger

x=0

Fori=20To1Step-2

x=x+i\5

Next

Printx

A.16B.17C.18D.19

45.在窗體上畫一個名稱為Commandl的命令按鈕，并編寫以下程序，此程序計算并輸出一個表達(dá)式的值，該表

達(dá)式是_

PrivateSubCommand1_Click()

Dimn%,b,t

t=1：b=1:n=2

Do

b=b*n:t=t+b:n=n+1

LoopUntiln>9

Printt

EndSub

A.9!B.10!C.1!+2!+...+9!D.1!+2!+...+10!

46.為了計算1+3+5+…+99的值，某人編程如下，在調(diào)試時發(fā)現(xiàn)運(yùn)行結(jié)果有錯誤，需要修改。下列錯誤原因和修

改方案中正確的是

k=1:s=0

Whilek<=99

k=k+2:s=s+k

Wend

Prints

A.While...Wend循環(huán)語句錯誤，應(yīng)改為Fork=1To99...Nextk

B.循環(huán)條件錯誤，應(yīng)改為Whilek<99C.循環(huán)前的賦值語句k=1錯誤，應(yīng)改為k=0

D.循環(huán)中兩條賦值語句的順序錯誤，應(yīng)改為$=5+1<:k=k+2

47.在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下事件過程；程序運(yùn)行后，單擊命令按鈕，要求

在窗體上顯示如下內(nèi)容，則在下劃線處應(yīng)填入的內(nèi)容為

PrivateSubCommand1_Click()

c=1234:c1=Trim(Str(c))

Fori=1To4

Print______

Next

EndSub

A.Right(c1,i)B.Left(c1,i)C.Mid(c1,i,1)D.Mid(c1J,i)

7

試卷專用紙

48.在窗體上有的命令按鈕Commandl,然后編寫如下事件過程：程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是一

PrivateSubCommand1_Click()

a=0

Fori=1To2

Forj=1To4

IfjMod2<>0Thena=a-1

a=a+1

Nextj

Nexti

Printa

EndSub

A.0B.2C.3D.4

49.在窗體上畫一個名稱為CommancH的命令按鈕和一個名稱為Text1的文本框，然后編寫如下事件過程：

PrivateSubCommand1_Click()

n=Val(Textl.Text)

Fori=2Ton

Forj=2Tosqr(i)

IfiModj=0ThenExitFor

Nextj

Ifj>Sqr(i)ThenPrinti

Nexti

EndSub

該事件過程的功能是程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是

A.n以內(nèi)的奇數(shù)B.n以內(nèi)的偶數(shù)C.n以內(nèi)的素數(shù)D.n以內(nèi)能被j整除的數(shù)

50.窗體上有1個名稱為Listl的列表框，其中已經(jīng)輸入了若干個項目(如上圖所示)；還有2個文本框，名稱分

別為Textl、Text2,1個名稱為Commandl的命令按鈕，并有以下程序：

PrivateSubCommand1_Click()

DimstrAsString,sAsString,kAsInteger

s=Textl

str=

Fork=Listl.ListCount-1To0Step-1

IflnStr(List1.List(k),s)>0Then

str=str&Listl.List(k)&H”

EndIf

Nextk

Ifstr=M,'Then

Text2="沒有匹配的項目”

8

江南大學(xué)考

Else

Text2=str

EndIf

EndSub

程序運(yùn)行時，在Textl中輸入“京。單擊命令按鈕，則在Text2中顯示的內(nèi)容是

A.京B.北京南京C,南京北京D.沒有匹配的項目

本題二、填空題K每空2分，共計50分以

得分

1.根據(jù)下圖中給出的窗體，填寫相關(guān)內(nèi)容。

在屬性窗口中設(shè)置的命令按鈕的Caption屬

性為⑴，設(shè)置文本框Textl的(2)屬性為

請選取文本。

PrivateSubCommand1_Click()

Text2=⑶'用戶選取的字符數(shù)

Text3=(4)'用戶選取的字符起始位置

EndSub

2.窗體上有一個組合框,其中已輸入了若干個項目o程序運(yùn)行時,

單擊其中一項，即可把該項與最上面的一項交換。如：單擊圖

1中的“重慶”，則與“北京”交換，得到圖2的結(jié)果。下面

是可實現(xiàn)此功能的程序，請?zhí)羁铡?/p>

PrivateSubCombo1_Click()

Dimtemp

temp=Combol.Text

__(5)___=Combol.List(O)

Combol.List(O)=temp

EndSub

3.假定建立了一個工程,該工程包括兩個窗體,其名稱(Name屬性)分別為Forml和Form2,啟動窗體為Forml。

在Forml畫一個命令按鈕Commandl,程序運(yùn)行后，要求當(dāng)單擊該命令按鈕時，F(xiàn)orml窗體消失，顯示窗

體Form2,請將程序補(bǔ)充完整。

PrivateSubCommand1_Click()

__(6)___Forml

Form2.—(7)—

EndSub

4.在菜單編輯器中建立一個菜單，其主菜單項的名稱為mnuEdit,Visible屬性為False,程序運(yùn)行后，如果用

鼠標(biāo)右鍵單擊窗體，則彈出與mnuEdit相應(yīng)的菜單。以下是實現(xiàn)上述功能的程序，請?zhí)羁铡?/p>

9

試卷專用紙

PrivateSubForm____(8)___(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

IfButton=2Then

__(9)__mnuEdit

EndIf

EndSub

5.字符串的插入。要求：如圖所示界面上輸入字符串、插入點(diǎn)位置、插入字符串，點(diǎn)擊“插入”按鈕進(jìn)行插入。

PrivateSubCmdlnsert_Click()

DimSAsString,InsAsString,PAsInteger

S=TxtStr

P=Val(TxtPos)

Ins=TxtlnsStr

TxtStr.Text=_(10)_

EndSub

6.根據(jù)下圖中給出的窗體，填寫相關(guān)內(nèi)容。

PrivateSubCommand2__Click()'邊框

Shapel.BorderColor=vbBlue

Shapel.(11)=2

EndSub

PrivateSubCommand1_Click()'圓

Shapel.(12)=3

EndSub

7.在程序運(yùn)行時，將現(xiàn)存在C盤Pic文件夾中的名為Fishing.bmp的圖片加載到圖片框Picturel中的語句為

(13)O

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

9.請完善以下程序，用于檢查在文本框Textl中輸入的表達(dá)式中的圓括號是否配對，并給出相應(yīng)的提示。

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

DimnumAsInteger

IfChr(KeyAscii)=Then

(15)

ElselfChr(KeyAscii)=Then

(16)

EndIf

IfKeyAscii=13Then

Ifnum=0Then

Print"左右括號配對”

Elselfnum>0Then

10

江南大學(xué)考

Print"左括號多于右括號”；num;“個”

Else

Print"右括號多于左括號"；(17);“個9

EndIf

EndIf

EndSub

10.下面的程序執(zhí)行時，可以從鍵盤輸入一個正整數(shù)，然后把該數(shù)的每位數(shù)字按逆序輸出。例如：輸入7685,則

輸出5867；輸入1000,則輸出0001o請?zhí)羁铡?/p>

PrivateSubCommand1_Click()

DimxAsInteger

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

Whilex>—(18)—

PrintxMod10;

x=x\10

Wend

Print—(19)—

EndSub

11.在窗體上畫一個命令按鈕和一個文本框，然后編寫命令按鈕的Click事件過程。程序運(yùn)行后，在文本框中輸入

一串英文字母(不區(qū)分大小寫)，單擊命令按鈕，程序可找出未在文本框中輸入的其他所有英文字母，并以大

寫方式降序顯示到Textl中。例如，若在Text!中輸入的是abDfdb,貝ij單擊Commandl按鈕后Textl中顯

示的字符串是ZYXWVUTSRQPONMLKJIHGEC。請?zhí)羁铡?/p>

PrivateSubCommand1_Click()

DimstrAsString,sAsString,cAsString

str=UCase(Textl)

c=“Z"

Whilec>="A"

IflnStr(str,c)=0Thens=___(20).

c=Chr$(Asc(c)-1)

Wend

Ifs<>,,MThenTextl=s

EndSub

12.在窗體上畫一個名稱為“Commandl”的命令按鈕，然后編寫如下事件過程；程序運(yùn)行后，單擊命令按鈕,

窗體上輸出結(jié)果如圖，請?zhí)羁铡?/p>

PrivateSubCommand1_Click()

DimaAsString

a="123456789”

11

試卷專用紙

Fori=1To5

PrintSpace(6-i);Mid(a,_(21)_

Nexti

EndSub

13.下面是一個求函數(shù)f(x)值的程序，要求根據(jù)用戶在文本框中輸入的x值，計算函數(shù)f(x)的值，并將計算結(jié)果通

過文本框輸出顯示。其中，(2n-1)!!=1*3*5L..(2n-1)。計算到第n項的絕對值|an|W10行為止。

/(x)=Za”=-------------1-----------...+(-1)------------F...Lx41

言"44-64-6-82"(〃+1)!11

PrivateSubCommand1_Click()

DimxAsSingle,iAsInteger,aAsSingle,sumAsSingle

x=Textl:i=1:a=-1

Do

a=—(22)一

IfAbs(a)<=0.000001ThenExitDo

sum=sum+a

一(23)一

Loop

Text2=sum

EndSub

14.在窗體上有一個組合框Combol,兩個標(biāo)簽LabeH、Lable2o程序運(yùn)行后，在組合框中輸入一個新項目并按

回車鍵，若輸入的項目在組合框中不存在，則自動將其添加到組合框的列表中，并在Label2中給出提示“已

成功添加新輸入項如圖所示。若輸入的項目已存在，則在Label2中給出提示“輸入項已在組合框中

PrivateSubCombo1_KeyPress(KeyAsciiAs