VB課后習(xí)題答案-選擇題

1、下面不是VB工作模式的是（C）

A.設(shè)計模式B.運行模式C.編模匯式D.中斷模式

2、可視化編程的最大優(yōu)點是（C）

A.具有標(biāo)準(zhǔn)工具箱

B.一個工程文件由若干個窗體文件組成

C.不需要編寫大量代碼來描述圖形對象

D.所見即所得

3、下列不能打開屬性窗口的操作是（C）

A.執(zhí)行“視圖”菜單中的“屬性窗口”命令

B.按F4鍵C.按Ctrl+T

D.單擊工具欄上的“屬性窗口”按鈕

4、下列可以打開立即窗口的操作是（D）

A.Ctrl+DB.Ctrl+EC.Ctrl+FD.Ctrl+G

5、VisualBasic的編程機制是（D）

A.可視化B.面向?qū)ο驝.面向圖形D.事件驅(qū)動

1、以F能夠觸發(fā)文本框Change事件的操作是（D）

A.文本框失去焦點B.文本框獲得焦點

C.設(shè)置文本框的焦點D.改變文本框的內(nèi)容

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

A.只保存窗體文件即可

B.只保存工程文件即可

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

D.先保存窗體文件（或標(biāo)準(zhǔn)模塊文件），之后還要保存工程文件

3、VB應(yīng)用程序的運行模式是（C）

A.解釋運行模式B.編譯運行模式C.兩者都有D.匯編模式

4、任何控件都具有的屬性是（C）

A.TEXTB.CAPTIONC.NAMED.FORECOLOR

5、決定控件上文字的字體、字形、大小及效果的屬性是（D）

A.TEXTB.CAPTIONC.NAMED.FONT

6、在窗體上建立了多個控件，如TEXT、LABEL1,COMMANDI,若要使程序-運行

焦點就定位在COMMAND1控件上，應(yīng)將C0MMAND1控件的（B）設(shè)置為0

A.INDEXB.TABINDEXC.TABSTOPD.ENABLED

7、運行時，當(dāng)用戶向文本框輸入新的內(nèi)容，或在程序代碼中對文本框的TEXT屬性進

行賦值從而改變了文本框的TEXT屬性值時，將觸發(fā)文本框的（D）事件

A.CLICKB.DBLCLICKC.GOTFOCUSD.CHANGE

8、在運行時，按TAB鍵跳過了一個可以獲得焦點的控件（如文本框）,則可能是因為（D）

A.該控件的TABSTOP屬性值為TRUEB.該控件的TABINDEX屬性值為FALSE

C.該控件的ENABLED屬性值為TRUED.該控件的ENABLED屬性值為FALSE

9、為了防止用戶隨意將光標(biāo)置于控件上，應(yīng)（D）

A.將控件的TABINDEX屬性設(shè)置為0

B.將控件的TABSTOP屬性設(shè)置為TRUE

C.將控件的TABSTOP屬性設(shè)置為FALSE

D.將控件的ENABLED屬性設(shè)置為FALSE

10、若要使標(biāo)簽控件顯示時，不覆蓋其背景內(nèi)容，應(yīng)設(shè)置標(biāo)簽控件的（D）屬性

A.BACKCOLORB.BORDERSTYLE

C.FORECOLORD.BACKSTYLE

Ik如果要在文本框中輸入字符時，只顯示某個字符，如星號（*）,運行時，在文本框

中輸入的字符仍然顯示出來，而不顯示星號，原因可能是（B）

A.文本框的MULTILINE屬性值為TRUE

B.文本框的LOCKED屬性值為TRUE

C.文本框的MULTILINE屬性值為FALSE

D.文本框的LOCKED屬性為FALSE

12、在運行階段，要在文本框TEXT1獲得焦點時選中文本框中所有內(nèi)容，對應(yīng)的事件

過程是（A）

A.PrivateSubTextl_GotFocus（）

Textl.SelStart=O

Text1,Sellength=Len（Textl.Text）

EndSub

B.PrivateSubTextl_LostFocus（）

Textl.SelStart=O

Text1.Sellength=Len（Textl.Text）

EndSub

C.PrivateSubTextl_Change（）

Textl.SelStart=O

Text1.Sellength=Len（Text1.Text）

EndSub

D.PrivateSubTextl_SetFocus（）

Textl.SelStart=O

Text1.Sellength=Len（Text1.Text）

EndSub

13>VisualBasic繼承了Basic語言簡單易用的語法特點，同時支持面向?qū)ο蟮木幊虣C制，

其中構(gòu)成其控件（對象）的三要素是（D）

A.屬性、事件、事件過程B.控件、窗體、事件

C.屬性、過程、方法D.屬性、事件、方法

14、決定標(biāo)簽（Label）顯示的屬性是（C）

A.TextB.NameC.CaptionD.Alignment

15、命令按鈕的標(biāo)題文字由（B）屬性來設(shè)置。

A.TextB.CaptionC.NameD.（名稱）

16、若要設(shè)置文本的顯示顏色，則可用（B）屬性來實現(xiàn)。

A.BackColorB.ForecolorC.FillColorD.Backstyle

17、在運行時，若要調(diào)用某命令鈕的Click事件過程，則可設(shè)置該命令鈕對象的（B）屬性

為Ture來實現(xiàn)。

A.EnabledB.ValueC.DefaultD.Cancel

18、在運行時，若要獲得用戶在文本框中所選擇的文本，可通過訪問（D）屬性來實現(xiàn)。

A.SelStartB.SelLenghtC.TextD.SelText

1、以下哪個是合法的變量（D）

A.rightB.abc@123C.123_abcD.abl23c

2、下列說法錯誤的是（B）

A.在同一模塊不同過程中的變量可以同名

B.不同模塊中定義的全周變量不可以同名

c.引用另一模塊中的全局變量時.，必須在變量名前加模塊名

D.同一模塊中不同級的變量可以同名

3、把MsgBox的返回值轉(zhuǎn)換為數(shù)值應(yīng)該使用的函數(shù)是（D）

A.LogB.StrC.LenD.Vai

4、語句DIMAA（3,4,5）中定義的數(shù)組有（C）個元素

A.12B.60C.120D.345

5、下面程序運行后輸出的結(jié)果是（B）

A$="CHINA"

B$=STRING$（3,A$）

PRINTB$

END

A.CHIB.CCCC.INAD.AAA

6、以下語句的輸出結(jié)果是（C）

PrintFormat$（32548.5,"000,000.00"）

A.32548.5B.325,485.00C.032,548,50D.32,548,50

7、以下敘述中錯誤的是（D）

A.如果過程被定義為Static類型，則該過程中的局部變量都是Static類型

B.Sub過程中不能嵌套定義Sub過程

C.Sub過程中可以嵌套調(diào)用Sub過程

D.事件過程可以像通用過程一樣由用戶定義過程名

8、VisualBasic提供的OnErrorResumenext錯誤陷阱語句表示（C）

A.當(dāng)發(fā)生錯誤忖，使程序轉(zhuǎn)跳到語句標(biāo)號為0的程序塊

B.當(dāng)發(fā)生錯誤時，不使用錯誤處理程序塊

C.當(dāng)發(fā)生錯誤時，忽略錯誤行，繼續(xù)執(zhí)行下一語句

D.當(dāng)發(fā)生錯誤時，終止本過程執(zhí)行，繼續(xù)執(zhí)行下一過程

9、在VisualBasic中，若要將控制權(quán)交給操作系統(tǒng)則通過（D）的語句。

A.EndB.ExitDoC.ExitSubD.DoEvents

10、在VisualBasic中語句的續(xù)行號采用（A）

A.空格與下劃線B.下劃線與空格C.空格與短線D.短線與空格

11、假定有以下程序段：

Fori=lto3

Forj=5to1Step-1

Printi*j

Nextj,i

則語句Printi*j的執(zhí)行次數(shù)是(A)

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

12、從健盤上輸入兩個字符串，分別保存在變量strl、str2中。確定第：個字符串在第一

個字符串中起始位置的函數(shù)是(D)

A.LeftB.MidC.StringD.Instr

13、如果將布爾常量值TRUE賦值給一個整型變量，則整型變量的值為(B)

A.0B.-1C.TRUED.FALSE

14、下列敘述不正確的是(B)

A.注釋語句是非執(zhí)行語句，僅對程序的內(nèi)容起注釋作用，它不被解釋和編譯

B.注釋語句可以放在代碼中的任何位置

C.注釋語句不能放在續(xù)行符的后面

D.代碼中加入注釋語句的目的是提高程序的可讀性

15、語句PRINT“INT(-13.2)"；INT(-13.2)的輸出結(jié)果為(D)

A.INT(-13.2)=-13.2B.INT(-13.2)=13.2

C.INT(-13.2)=-13D.INT(-13.2)=-14

16、如果TAB函數(shù)的參數(shù)小于1,則打印位置在第(B)列

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

17、變量未賦值時，數(shù)值型變量的值為(A)

A、0B.空C.1D.無任何值

18、下列語句中正確的是(D)

A.txt1,text+txt2.text=txt3.textB.command1,name=cmdok

C.121abeLcaption=1234D.a=inputbox("hello")

19、假設(shè)變量BOOLVAR是一個布爾型變量，則下面正確的賦值語句是(D)

A.BOOLVAR=tTRUE,B.BOOLVAR=.TRUE

C.BOOLVAR=#TRUE#D.BOOLVAR=3<4

20、以下()程序段可以實施X、Y變量值的變換(C)

A.Y=X：X=YB.Z=X：Y=Z：X=Y

C.Z=X：X=Y：Y=ZD.Z=X：W=Y：Y=Z：X=Y

21、語句PRINT“SGN(-26)="；SGN(-26)的輸出結(jié)果為(D)

A.SGN(-26)=26B.SGN(-26)=-26

C.SGN(-26)=+lD.SGN(-26)=-l

22、讀下面程序段，判斷變量Str2的取值是(B)

DimStrl,Str2asString

Str1="University”

Str2=STRING$(3,Strl)

A.UniB.UUU

C.ityD.yyy

23、VB支持自定義數(shù)據(jù)類型，在某程序中我們定義了如下類型：

TypeStudent

numberAsstring

nameAsString

ageAsInteger

EndType

針對上述定義，如下幾項用法正確的是(B)

A.S="張三"B.DimsAsStudent

s.name="張紅”

C.DimsAsTypeStudentD.DimsAsType

二"張三"二"張三“

24、一個工程中包含兩個名稱分別為Forml、Form2的窗體，一個名稱為mdlFunc的標(biāo)

準(zhǔn)模塊。假定在Forml、Form2和mdlFunc中分別建立了自定義過程，其定義格式為：

Forml中定義的過程：

PrivateSubfrmfunction1()

EndSub

Form2中定義的過程：

PublicSubfrmfunction2()

EndSub

mdlFunc中定義的過程：

PublicSubmdlFunction()

EndSub

在調(diào)用上述過程的程序中，如果不指明窗體或模塊的名稱，則以下敘述中正確的是（B）

A.上述三個過程都可以在工程中的任何窗體或模塊中直接被調(diào)用

B.只有mdlFunction過程能夠被工程中各個窗體或模塊直接被調(diào)用

C.frmfunction1只能在forml中調(diào)用，而frmfunction?則可以在所有模塊或窗體中被

直接調(diào)用

D.上述三個過程都只能在各自被定義的模塊中直接調(diào)用

25、VB中Do……Loop結(jié)構(gòu)既可以構(gòu)成當(dāng)型循環(huán)，也可以構(gòu)成直到型循環(huán)，根據(jù)下面的

代碼：

Dimi,nasInteger

n=20

i=1

Do

Printi;

i=i+2

LoopUntili>20

判斷循環(huán)結(jié)構(gòu)的類型和循環(huán)體的執(zhí)行次數(shù)，正確的選項是（B）

A.當(dāng)型循環(huán)，20次B.直到型循環(huán)，10次

C.當(dāng)型循環(huán)，10次D.直到型循環(huán)，20次

26、在程序中，使用InputBox函數(shù)可以接受用戶的輸入，如果要把它的返回值轉(zhuǎn)換為數(shù)

值型的數(shù)據(jù)，應(yīng)該使用的函數(shù)是（A）

A.VaiB.Len

C.StrD.Log

27、動態(tài)數(shù)組因為在程序運行前無法確定數(shù)組的大小，所以經(jīng)常根據(jù)程序的運行情況，

對數(shù)組進行重新定義，以下關(guān)于VB中動態(tài)數(shù)組的敘述中不正確的是（B）

A.可以用ReDim語句重新定義動態(tài)數(shù)組，并且可以進行多次重定義

B.首次用Dim進行動態(tài)數(shù)組聲明的時候，必須指明它的類型和上下界

C.Preserve為ReDim語句的可選參數(shù)，用于保留動態(tài)數(shù)組原來的內(nèi)容

D.當(dāng)對動態(tài)數(shù)組使用Erase語句進行釋放操作時，將釋放其內(nèi)存

28、VB中的控件也叫做部件或組件，主要包括三類，以下哪?項不屬于VB控件的分類

（C）

A.控件B.可插入對象

C.ADO控件D.ActiveX控件

29、表達式4+5\6*7/8Mod9的值是(B)

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

30、可以同時刪除字符串前導(dǎo)和尾部空白的函數(shù)是（C）

A.LtrimB.RtrimC.TrimD.Mid

1、當(dāng)程序運行時，在窗體上單擊鼠標(biāo)，以下哪個事件是窗體不會接收到（）

A.MouseDownB.MouseUpC.LoadD.Click

2、窗體Forml的Name屬性是Frml,它的單擊事件過程名是（）

A.Forml_ClickB.Form_ClickC.Frml_ClickD.Me_Click

3、用于設(shè)置通用對話框控件顯示文件類型的屬性是（）

A.FilterB.PathC.ParternD.FoleName

4、用于從內(nèi)存刪除窗體的命令是（）

A.MoveB.HideC.UnloadD.Delete

5、用于返回窗體可用區(qū)域?qū)挾鹊膶傩允牵ǎ?/p>

A.ScaleWidthB.ScaleLeftC.ScaleHeightD.ScaleTop

6、下列關(guān)于屬性設(shè)置的敘述錯誤的是：（）

A.一個控件具有什么屬性是VB預(yù)先設(shè)計好的，用戶不能改變

B.一個控件具有什么屬性是VB預(yù)先設(shè)計好的，用戶可以改變

C.一個控件的屬性即可以在屬性窗口中設(shè)置，也可以用程序代碼設(shè)置

D.一個控件的屬性在屬性窗口中設(shè)置，還可以利用程序代碼為其設(shè)置新值

7、下列說法正確的是（）

A.對象屬性只能在“屬性窗口”中設(shè)置

B.一個新的工程可以在“工程窗口”中建立

C.必須先建立一個工程，才能開始設(shè)計應(yīng)用程序

D.只能在“代碼窗口”中編寫程序代碼

8、下列關(guān)于窗體上控件的基本操作錯誤的是（）

A.按下?次DEL鍵只能刪除?個控件

B.按下?次DEL鍵可以同時刪除多個控件

C.按住SHIFT鍵，然后單擊每個要選擇的控件，可以同時選中多個控件

D.按住ALT鍵，然后單擊每個要選擇的控件，可以同時選中多個控件

9、下列關(guān)于設(shè)置控件屬性的敘述正確的是（）

A.用戶必須設(shè)置屬性值

B.所有的屬性值都可以由用戶隨意設(shè)定

C.屬性值不必一一重新設(shè)置

D.不同控件的屬性項都完全一樣

10、不可以通過下列()操作將焦點賦給對象

A.運行時使用TAB鍵B.在代碼中用CALL語句調(diào)用

C.在代碼中用SETFOCUS方法D.用訪問鍵或用鼠標(biāo)單擊選擇對象

11、要在FORM_LOAD事件過程中使用PRINT方法在窗體上輸出一定的內(nèi)容，應(yīng)()

A.設(shè)置窗體的VISIBLE屬性B.設(shè)置窗體的CAPTION

C.調(diào)用窗體的SHOW方法D.設(shè)置窗體ENABLED屬性

12、下面()對象無CAPTION屬性

A.FORMB.COMMANDBUTTONC.TEXTBOXD.LABEL

13、通用對話框控件和文件列表框控件中，都能根據(jù)文件的類型對要顯示的文件進行篩

選過濾，后者使用()屬性進行該項設(shè)置。

A.PatternB.PathC.FilterD.FileName

14、對于復(fù)選框控件chkBoy,如果在程序中設(shè)置它為選中狀態(tài)，下面語句正確的是()

A.chkBoy.Checked=trueB.chkBoy.Value=true

C.chkBoy.Selected=trueD.chkBoy.Value=1

15、計時器(Timer)控件用于每隔一段時間自動觸發(fā)一次Timer事件，可以有規(guī)律地重

復(fù)執(zhí)行一段程序，它用于設(shè)置兩次事件時間間隔的屬性是()

A.IntervalB.SmallChange

C.LargeChangeD.Max

16、以下關(guān)于VB中窗體(Form)的說法中，不正確的描述為()

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

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

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

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

17、關(guān)于滾動條控件，下面說法錯誤的是()

A.點擊滾動條的箭頭，可以改變它的value值，從而引發(fā)Change事件

B.拖動滾動框，可以觸發(fā)Scroll事件

C.通常，水平滾動條的值從左向右遞增，垂直滾動條的值自上而下遞增

D.拖動滾動框，可以觸發(fā)Change事件，而且是連續(xù)觸發(fā)的

18、在窗體上放置一個命令按鈕，名稱為Commands單擊命令按鈕時，執(zhí)行如下事件

過程：

PriVateSubCommand1_C1ick()

a$="softwareandhardware"

b$=Right(a$,8)

c$=Mid(a$,l,8)

Msgboxa$,b$,c$,l

EndSub

則在彈Hl的信息框的標(biāo)題欄中顯示的信息是()

A.softWareandhardwareB.software

C.hardwafeD.出現(xiàn)錯誤

19、在多重窗體程序設(shè)計中，關(guān)鍵的問題是要解決不同窗體之間的銜接和窗體的顯示、

關(guān)閉等問題，以下關(guān)于窗體的相關(guān)語句和方法的敘述中，錯誤的是()

A.Load語句用于加載指定窗體，即在內(nèi)存中創(chuàng)建該窗體

B.Show方法兼具Load語句的功能，可以將窗體顯示出來

C.Hide方法用于將窗體隱藏起來

D.Unload語句用來釋放窗體，但窗體并沒從內(nèi)存中消

20、滾動條控件的屬性中，表示取值范圍最大值的屬性是()

A.MaxB.LargeChange

C.MinD.Value

21、程序中如果需要檢測和控制鼠標(biāo)的位置和狀態(tài)的改變，就需要使用鼠標(biāo)事件，其中

下血哪個選項用于表示拖動事件()

A.DragDropB.MouseDown

C.MouseUpD.MouseMove

22、為了使用通用對話框進行打開文件的操作，應(yīng)將通用對話框的Action屬性設(shè)定為()。

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

1、C2、B3、A4、C5、A6、A7、C8、A9、C10、B11、C

12、C13、A14、D15、A16、A17、D18、D19、D20、A21、C

22、B

填空題一

1當(dāng)用戶單擊滾動條的空白處時;滑塊移動的增量值山______屬性決定。

Largechange

2當(dāng)用ReDim語句要改變動態(tài)數(shù)組的大小時，數(shù)組元素的值會;用關(guān)鍵字

可保留數(shù)組元素原來的值。丟失Preserve

3為了使計時器控件Timer1每隔0.5秒觸發(fā)一次Timer事件，應(yīng)將Timerl控件的

屬性設(shè)置為.Interval500

4在用ShowFont方法打開通用對話框中的字體對話框前，必須先設(shè)置屬性。數(shù)

值為oAction4

5已知A$="87654321",則表達式Val(Left$(A$,4)+Mid$(A$,4,2))的值為。

876554

6在剛建立工程時，使窗體上的所有控件具有相同的字體格式，應(yīng)對的屬

性進行設(shè)置。窗體Font

*7專門用來處理文本文件的訪問模式是o順序訪問模式

8在窗體上已建立多個控件如Text1、Label!,Command1,若要使程序一運行焦點就定位

在Commandl控件上，應(yīng)對Commandl控件設(shè)置____屬性的值為?Tabindex0

9假定有一個通用對話框控件CommonDialogl,除了用CommonDialogl.Action=3顯示顏

色對話框之外，還可以用方法顯示。Showcolor

10在VB中，若要設(shè)定每個數(shù)組默認(rèn)的下界固定為1,其聲明語句是。

OptionBase1

II表達式3出血*131)+20產(chǎn)生值的范圍為。20-150

12在過程體、用—方式聲明的局部變量，其值可以保留至下次過程被調(diào)用。Static

13已知a=3.5,b=5.0,c=2.5,d=True,則表達式:a>=0ANDa+c>b+3ORNOTd的值是

oFalse

14不管是在窗口頂部菜單條上顯示的菜單，還是隱藏的菜單，都可以方法把它們作

為彈出菜單在程序運行期間顯示出來。Popupinenu

15表達式CHR(ASC("A"))的值為。"A"

填空題二

1為了使計時器控件Timer1每隔0.5秒觸發(fā)一次Timer事件，應(yīng)將Timerl控件的屬

性設(shè)置為。Interval500

*2VB的模塊分為3類、它們是隨機，順序，二進制

*3專門用來處理文本文件的訪問模式是。.txt

4列表框中的和屬性是數(shù)組。listselected

*5"指定文件號為1.按寫操作的方式打開A:\Myfile.txt,則需要使用代碼Open

"a:\Myfile.txt"forAs#l"input

6在通用對話框中，用于返回用戶所選的文件名(包括路徑名)的屬性是o

filename

7在文本框中，通過屬性能獲得當(dāng)前插入點所在的位置。seistart

8復(fù)選框?qū)傩栽O(shè)置為2時，變成灰色，禁止用戶選擇。value

9產(chǎn)生一個"C"?"L”范圍內(nèi)的大寫字符表達式為。"chr(int(rnd*10+67))

10如果菜單標(biāo)題的某個字母前輸入一個符號，那么該字母就成了熱鍵字母；如果在建

立菜單時在標(biāo)題文本框中輸入一個"",那么顯示時形成一個分隔符。-(減號)

11滾動條響應(yīng)的重要事件有和Change。scroll

12取字符變量S中，第5個字符起的6個字符的表達式為。mid(s,5,6)

13不管是在窗口頂部菜單條上顯示的菜單，還是隱藏的菜單，都可以方法把它們作

為彈出菜單在程序運行期間顯示出來。通過popupmenu

*14指定文件號為1,按讀操作的方式打開A:\Myfile.txt,則需要使用代碼Open

"a:\Myfile.txt"forAs#1Inpul

15表達式CHR(ASC("A"))的值為o"A"

16定時器控件只有一個Timer事件，產(chǎn)生Timer事件的兩個條件為和

oEnabled屬性為True和Interval為非0

17表達式Int(68.555*100+0.5)/100的值是。68.56

18在窗體上已建立多個控件如Textl、Label1Command1,若要使程序一運行焦點就定位

在Commandl控件匕應(yīng)對Commandl控件設(shè)置Tabindex屬性的值為。0

錯誤！嵌入對象無效。

(l)combol.additmcomboI.text(2)combo1.listcount-1

(3)val(combo1.list(i)<min(4)1(5)combol.list(i+l)

錯誤！嵌入對象無效。

(l)load(2)loadpicture(3)move

下列程序在程序運行時可在組合框輸入若干個數(shù)值數(shù)據(jù)(用回車犍添加)，單擊“交換”

按鈕，找出組合框內(nèi)最大數(shù)和最小數(shù)所在的位置，并把兩者對調(diào)。(見圖)

PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then

U)

EndIf

EndSub

PrivateSubCommandl_ClickQ

Min=W(Combol.List(0))

k=0

Max=W(Combol.List(0))

j=0

Fori=1To⑵

IfW(Combo1.List(i))<MinThen

Min=W(Combol.List(i))

⑶

EndIf

If(4)Then

Max=\&l(Combol.List(i))

j=i

EndIf

Nexti

(5)=Min

Combol.list(k)=max

EndSub

(l)combo1.additemcombo1.text(2)combo1.listcount-1(3)k=i

(4)val(combol.list(i))>max(5)combol.list(j)

下面的程序用于產(chǎn)生20個［0,99］中的隨機整數(shù)，并將其中

的偶數(shù)打印出來。清在空白處填入相應(yīng)的程序，使之完整。

Privatesubcommandl_click()

Fori=lto20

x=⑴______

Ifx/2=(2)thenprintx

Nexti

Endsub

(l)int(md*100)(2)x\2

在程序中輸出20個在［10,97］中的隨機整數(shù)d,每行輸出4個整數(shù)。

請在空白處填入相應(yīng)的程序，使之完整。"

Privatesubcommandl_click()^

Fori=lto20。

d=⑴川

printd。

If(2)thenprint。

Next

Endsub"

(l)int(rnd*88+10)(2)imod4=0

以下程序用于計算N=1+(1+3)+(1+3+5)+…+(1+3+5+…+39)。，

PrivateSubCommandlClick。/

T=0，

M=l^

Sum=0*-'

Dov

T=T+(1)

Sum=Sum+(2)，

M=M+2”

LoopWhile(3)+，

Print"Sum=Sum。

d

EndSub。

.?

(l)m(2)t(3)m<40

下面的程序的功能是找出一個最小整數(shù)，其被13、23、33整

除后余數(shù)分別為1、2、3,清在空白處填入相應(yīng)的程序，使之完整。

Privatesubcommandl_click()

DimIasinteger,flagasinteger

1=35

Flag=l

Do

1=1+1

IfImod13=1andQJthen

printI

flag=0

Endif

Loopwhileflag=l

Endsub

(1)Imod23=2andImod33=3

本程序的功能是用于判斷輸入的正整數(shù)是否為升序數(shù)。使用輸入對話框輸入數(shù)據(jù)，判斷

結(jié)果顯示在標(biāo)簽框Lablel中□超格2.5分)

設(shè)正整數(shù)n=did2",如果diWdi+i(i=l,2,....,m-l)>則n是一個升序數(shù)(即右邊

的數(shù)字大于等于左邊的敬字)，如：1269,448是升序數(shù)，而2485不是升序數(shù)。

PrivateSubForm_Click(；

DimnAsString,flagAsBoolean

n=(1)(畸輸入正整數(shù):")

flag=(2)

Fori=1ToLen(n)-11Len(n)測試字符串長度

IfMid(n,i,1)>(3)Then

flag=False

(4)'退出

EndIf

Nexti

If(5)Then

Label1,Caption=n&11是升序數(shù)"

Else

Label1,Caption=n&"不是升序數(shù)"

EndIf

EndSub

(l)inputbox⑵true(3)mid(n,i+l,l)(4)exitfor(5)flag

以下程序在文本框Textl中輸入任一字符串，并按相反的次序顯示在Text2中。，

PrivateSubCommandlClick。3

DimnAsString,cAsString,dAsStrings

n=Textl.Text4-1

m=(1)/

Fori=tnTo1step-1

c=hdid6i,i,1)*-,

d=d&(2)，

NextW

(3)=d-

EndSub。

(I)len(n)(2)c(3)textl

下面程序按每行1。個數(shù)打印出30