VB題庫精簡含答案

第1章VB概述

知識點1：對象、事件基本概念

（1）以下敘述中錯誤的是（）。

A）事件過程是響應特定事件的一段程序

B）不同的對象可以具有相同名稱的方法

C）對象的方法是執(zhí)行指定操作的過程

D）對象事件的名稱可以由編程者指定

（2）以下關于VisualBasic特點的敘述中，錯誤的是（）。

A）VisualBasic是米用事件驅動編程機制的語言

B）VisualBasic程序既可以編譯運行，也可以解釋運行

C）構成VisualBasic程序的多個過程沒有固定的執(zhí)行順序

D）VisualBasic程序不是結構化程序，不具備結構化程序的三種基本結構

（3）以下敘述錯誤的是（）。

A）在VisualBasic的窗體中，一個命令按鈕是一個對象

B）事件是能夠被對象識別的狀態(tài)變化或動作

C）事件都是由用戶的鍵盤操作或鼠標操作觸發(fā)的

D）不同的對象可以具有相同的方法

知識點2：VB集成環(huán)境

（4）在設計窗體時雙擊窗體的任何地方，可以打開的窗口是（）。

A）代碼窗口B）屬性窗口

C）工程資源管理器窗口D）工具箱窗口

（5）在VisualBasic集成環(huán)境的設計模式下，用鼠標雙擊窗體上的某個控件打開的窗口是（）。

A）工程資源管理器窗口B）屬性窗口

C）工具箱窗口D）代碼窗口

（6）在VisualBasic集成環(huán)境中，可以列出工程中所有模塊名稱的窗口是（）。

A）工程資源管理器窗口B）窗體設計窗口

C）屬性窗口D）代碼窗口

知識點3：工程管理

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

A）打開一個工程文件時，系統(tǒng)自動裝入與該工程有關的窗體文件

B）保存VisualBasic程序時，應分別保存窗體文件及工程文件

C）VisualBasic應用程序只能以解釋方式執(zhí)行

D）窗體文件包含該窗體及其控件的屬性

(8)假定一個VisualBasic應用程序由一個窗體模塊和一個標準模塊構成。為了保存該應用程序，以下正

確的操作是()。

A)只保存窗體模塊文件

B)分別保存窗體模塊、標準模塊和工程文件

C)只保存窗體模塊和標準模塊文件D)只保存工程文件

(9)以下敘述中，錯誤的是()。

A)一個VisualBasic應用程序可以含有多個標準模塊文件

B)一個VisualBasic工程可以含有多個窗體文件

C)標準模塊文件可以屬于某個指定的窗體文件

D)標準模塊文件的擴展名是.ba

知識點4：綜合

(10)以下敘述中錯誤的是()。

A)一個工程可以包括多種類型的文件

B)VisualBasic應用程序既能以編譯方式執(zhí)行，也能以解釋方式執(zhí)行

C)程序運行后，在內(nèi)存中只能駐留一個窗體

D)對于事件驅動型應用程序，每次運行時的執(zhí)行順序可以不一樣

第2章程序設計基礎

知識點1：常量和變量

(1)以下聲明語句中錯誤的是()。

A)Constvarl=123B)Dimvar2='ABC

C)Deflnta-zD)Staticvar3AsInteger

(2)以下合法的VisualBasic標識符是()。

A)ForLoopB)ConstC)9abcD)a#x

(3)以下可以作為VisualBasic變量名的是()。

A)A#AB)counstAC)3AD)?AA

(4)執(zhí)行語句DimX,YasInteger后()。

A)X和Y均被定義為整型變量

B)X和Y被定義為變體類型變量

C)X被定義為整型變量，Y被定義為變體類型變量

D)X被定義為變體類型變量，Y被定義為整型變量

(5)設窗體文件中有下面的事件過程：

PrivateSubCommandl_Click()

Dims

a%=100

Printa

EndSub

其中變量a和s的數(shù)據(jù)類型分別是()。

A)整型，整型B)變體型，變體型

C)整型，變體型D)變體型，整型

(6)下面可以正確定義2個整形變量和1個字符串變量的語句的是()。

A)Dimn,mASInterger,sAsString

B)Dima%,b$,cAsString

C)DimaAsInteger,b,cAsString

D)Dimx%,yAsInteger,zAsString

(7)若變量a未事先定義而直接使用(例如：a=0),則變量a的類型是()。

A)IntegerB)StringC)BooleanD)Variant

(8)為把圓周率的近似值3.14159存放在變量pi中，應該把變量pi定義為()。

A)DimpiAsIntegerB)Dimpi(7)AsInteger

C)DimpiAsSingleD)DimpiAsLong

(9)設有如下語句：

Dima,bAsInteger

c="VisualBasic"

d=#7/20/2005#

以下關于這段代碼的敘述中，錯誤的是()。

A)a被定義為Integer類型變量B)b被定義為Integer類型變量

C)c中的數(shù)據(jù)是字符串D)d中的數(shù)據(jù)是日期類型

知識點2：表達式

一、選擇題

(10)語句Print5/4*6\5Mod2的輸出結果是()。

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

(11)表達式5Mod3+3\5*2的值是()。

A)0B)2C)4D)6

(12)在VisualBasic中，表達式3*2\5Mod3的值是()。

A)1B)0C)3D)出現(xiàn)錯誤提示

(13)(18)表達式2*3A2+4*2/2+3A2的值是()。

A)30B)31C)49D)48

5x+3

(14)把數(shù)學表達式R表示為正確的VB表達式應該是()。

A)(5x+3)/(2y-6)B)x*5+3/2*y-6

C)(5*x+3)+(2*y-6)D)(x*5+3)/(y*2-6)

知識點3：內(nèi)部函數(shù)

一、選擇題

(15)設a=5,b=10,則執(zhí)行c=Int((b-a)*Rnd+a)+1后，c值的范圍為()。

A)5-10B)6-9C)6-10D)5-9

(16)可以產(chǎn)生30-50(含30和50)之間的隨機整數(shù)的表達式是()。

A)Int(Rnd*21+30)B)Int(Rnd*20+30)

C)Int(Rnd*50-Rnd*30)D)Int(Rnd*30+50)

(17)表達式Int(Rnd(0)*50)所產(chǎn)生的隨機數(shù)范圍是()。

A)(0,50)B)(1,50)0(0,49)D)(1,49)

(18)設x=3.3,y=4.5,表達式x-Int(x)+Fix(y)的值是()o

A)3.5B)4.804.3D)4.7

(19)語句PrintSgn(-6人2)+Abs(-6A2)+Int(-6八2)的輸出結果是()。

A)-36B)1C)-1D)-72

(20)以下能從字符串"VisualBasic"中直接取出子字符串"Basic"的函數(shù)是()。

A)LeftB)MidC)StringD)Instr

(21)執(zhí)行語句s=Len(Mid("VisualBasic",1,6))后,s的值是()。

A)VisualB)BasicC)6D)11

(22)設a="MicrosofiVisualBasic",則以下使變量b的值為

"VisualBasic"的語句是()0

A)b=Left(a,10)B)b=Mid(a,I0)C)b=Right(a,10)D)b=Mid(a,l1,10)

(23)執(zhí)行以下程序后輸出的是()。

PrivateSubCommandl_Click()

Ch$="AABCDEFGH"

PrintMid(Right(ch$,6),Len(Left(ch$,4)),2)

EndSub

A)CDEFGHB)ABCDC)FGD)AB

(24)在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下事件過程：

PrivateSubCommand1_Click()

a$="VisualBasic"

PrintString(3,a$)

EndSub

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

A)VWB)VisC)sicD)11

(25)在窗體上畫一個命令按鈕，其名稱為Commandl,然后編寫如下事件過程:

PrivateSubCommand1_C1ick()

a=12345

PrintFormat$(a,"000.00")

EndSub

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

A)123.45B)12345.00C)12345D)00123.45

二、填空題

(2)以下語句的輸出結果是：【12345.68］。

PrintInt(12345.6789*100+0.5)/100

(3)設有如下程序段：

a$-'BeijingShanghai"

b$=Mid(a$,InStr(a$,"g")+l)

執(zhí)行上面的程序段后，變量b$的值為【Shanghai】。

(4)下列語句的輸出結果是［12,345.68］。

PrintFormat(Int(12345.6789*100+0.5)/100,"0000,0.00")

第3章順序結構設計

知識點1：Print方法

(1)設x=4,y=6,則以下不能在窗體上顯示出“A=10”的語句是()。

A)PrintA=x+yB)Print,!A=n;x+y

C)PrintHA=n+Str(x+y)D)Print"A="&x+y

知識點2：窗體

(2)如果要改變窗體的標題，則需要設置的屬性是()。

A)CaptionB)NameC)BackColorD)BorderStyle

(3)以下能在窗體Forml的標題欄中顯示“VisualBasic窗體”的語句是()。

A)Forml.Name="VisualBasic窗體”

B)Forml.Title="VisualBasic窗體”

C)Forml.Caption=!,VisualBasic窗體”

D)Forml.Text="VisualBasic窗體”

(4)以下敘述中正確的是()。

A）窗體的Name屬性指定窗體的名稱，用來標識一個窗體

B）窗體的Name屬性值是顯示在窗體標題欄中文本

C）可以在運行期間改變窗體的Name屬性的值

D）窗體的Name屬性值可以為空

（5）以下描述中錯誤的是（）。

A）窗體的標題通過其C即tion屬性設置

B）窗體的名稱（Name屬性）可以在運行期間修改

C）窗體的背景圖形通過其Picture屬性設置

D）窗體最小化時的圖標通過其Icon屬性設置

（6）程序運行后，在窗體上單擊鼠標，此時窗體不會接收到的事件是（）。

A）MouseDownB）MouseUpC）LoadD）Click

（7）在程序運行時，下面的敘述中正確的是（）。

A）用鼠標右鍵單擊窗體中無控件的部分，會執(zhí)行窗體的Form_Load事件過程

（8）B）用鼠標左鍵單擊窗體的標題欄，會執(zhí)行窗體的Form一Click事件過程

C）只裝入而不顯示窗體，也會執(zhí)行窗體的Form_Load事件過程

D）裝入窗體后，每次顯示該窗體時，都會執(zhí)行窗體的Form_Click事件過程

（9）設窗體的名稱為Forml,標題為Win,則窗體的MouseDown事件過程的過程名是

A）Form1MouseDownB）WinMouseDown

C）FormMouseDownD）MouseDownForm1

（10）假定編寫了如下4個窗體事件的事件過程，則運行應用程序并顯示窗體后，已經(jīng)執(zhí)行的事件過程是（）。

A）LoadB）ClickC）LostFocusD）KeyPress

（11）窗體Forml上有一個名稱為Command1的命令按鈕，以下對應窗體單擊事件的事件過程是（）。

A）PrivateSubForml_Click（）B）PrivateSubForm_Click（）

EndSubEndSub

C)PrivateSubCommandl_Click()D)PrivateSubCommand_Click()

EndSubEndSub

（12）以下關于焦點的敘述中，錯誤的是（）。

A）如果文本框的TabStop屬性為False,則不能接收從鍵盤上輸入的數(shù)據(jù)

B）當文本框失去焦點時，觸發(fā)LostFocus事件

C）當文本框的Enabled屬性為False時，其Tab順序不起作用

D）可以用Tabindex屬性改變Tab順序

（13）在窗體上有若干控件，其中有一個名稱為Textl的文本框。影響Textl的Tab順序的屬性是（）。

A）TabStopB）EnabledC）VisibleD）Tabindex

知識點3：基本控件

一、選擇題

（13）為了清除窗體上的一個控件，下列正確的操作是（）。

A）按回車鍵B）按Esc鍵

C）選擇（單擊）要清除的控件，然后按Del鍵

D）選擇（單擊）要清除的控件，然后按回車鍵

（14）用來設置文字字體是否斜體的屬性是（）。

A）FontUnderlineB）FontBoldC）FontSlopeD）Fontltalic

（15）確定一個控件在窗體上的位置的屬性是（）。

A）Width和HeightB）WidthsgHeight

C）Top和LeftD）Top或Left

（16）以下敘述中錯誤的是（）。

A）雙擊鼠標可以觸發(fā)DblClick事件

B）窗體或控件的事件的名稱可以由編程人員確定

C）移動鼠標時，會觸發(fā)MouseMove事件

D）控件的名稱可以由編程人員設定

（17）以下敘述中，錯誤的是（）。

A）在VisualBasic中，對象所能響應的事件是由系統(tǒng)定義的

B）對象的任何屬性既可以通過屬性窗口設定，也可以通過程序語句設定

C）VisualBasic中允許不同對象使用相同名稱的方法

D）VisualBasic中的對象具有自己的屬性和方法

（18）以下敘述中錯誤的是（）。

A）VisualBasic是事件驅動型可視化編程工具

B）VisualBasic應用程序不具有明顯的開始和結束語句

C）VisualBasic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性

D）VisualBasic中控件的某些屬性只能在運行時設置

（19）若已把一個命令按鈕的Default屬性設置為True,則下面可導致按鈕的Click事件過程被調(diào)用的操作是

（）。

A）用鼠標右鍵單擊此按鈕B）按鍵盤上的Esc鍵

C）按鍵盤上的回車鍵D）用鼠標右鍵雙擊此按鈕

（20）為了使命令按鈕（名稱為Command1）右移200,應使用的語句是（）。

A)Commandl.Move-200B)Command1.Move200

C)Commandl.Left=Commandl.Left+200

D)Commandl.Left=Command1.Left-200

(21)在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下事件過程：

PrivateSubCommandl_Click()

Move500,500

EndSub

程序運行后，單擊命令按鈕，執(zhí)行的操作為()。

A)命令按鈕移動到距窗體左邊界、上邊界各500的位置

B)窗體移動到距屏幕左邊界、上邊界各500的位置

C)命令按鈕向左、上方向各移動500

D)窗體向左、上方向各移動500

(22)要使一個文本框可以顯示多行文本，應設置為True的屬性是()。

A)EnabledB)MultiLineC)MaxLenthD)Width

(23)在窗體上畫一個文本框(其名稱為Textl)和一個標簽(其名稱為LabeH),程序運行后，如果在文本框中

輸入指定的信息，則立即在標簽中顯示相同的內(nèi)容，以下可以實現(xiàn)上述操作的事件過程是()。

A)PrivateSubTextl_Click()

Label!.Caption=Textl.Text

EndSub

B)PrivateSubTextl_Change()

Label!.Caption=Textl.Text

EndSub

C)PrivateSubLabell_Change()

LabelLCaption=Textl.Text

EndSub

D)PrivateSubLabell_Click()

Labell.Caption=Textl.Text

EndSub

(24)若設置了文本框的屬性PasswordChaUS”，則運行程序時向文本框中輸入8個任意字符后，文本框中

顯示的是()。

A)8個B)1個“$"C)8個””D)無任何內(nèi)容

(25)在窗體(名稱為Forml)上畫一個名稱為Textl的文本框和一個名稱為Commandl的命令按鈕，然后編

寫一個事件過程。程序運行以后，如果在文本框中輸入一個字符，則把命令按鈕的標題設置為“計算

機等級考試”。以下能實現(xiàn)上述操作的事件過程是()。

A)PrivateSubTextlChangeQ

Commandl.Caption="計算機等級考試”

EndSub

B)PrivateSubCommandl_Click()

Caption="計算機等級考試”

EndSub

C)PrivateSubForml_Click()

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

EndSub

D)PrivateSubCommandl_Click()

Textl.Text="計算機等級考試”

EndSub

(26)在窗體上有一個文件名稱為Textl的文本框和1個名稱為Commandl的命令按鈕,要求在程序執(zhí)行時，

每單擊命令按鈕一次，文本框向右移動一定距離。下面能夠正確實現(xiàn)上述功能的程序是()。

A)PrivateSubCommandl_Click()B)PrivateSubCommand1_Click()

Textl.Left=100Textl.Left=Textl.Left-100

EndSubEndSub

C)PrivateSubCommandl_Click()D)PrivateSubCommandl_Click()

Text1.MoveText1.Left+100Textl.Move.Textl.Left

EndSubEndSub

(27)設在窗體上有一個名稱為Commandl的命令按鈕和一個名稱為Textl的文本框。要求單擊Commandl

按鈕時可把光標移到文本框中。下面正確的事件過程是()。

A)PrivateSubCommandl_Click()B)PrivateSubCommand1_Click()

Textl.GotFocusCommandl.GotFocus

EndSubEndSub

C)PrivateSubCommandl_Click()D)PrivateSubCommandl_Click()

Text1.SetFocusCommandl.SetFocus

EndSubEndSub

(28)窗體上有名稱為Commandl的命令按鈕和名稱為Textl的文本框

PrivateSubCommandl_Click()

Textl,Text="程序設計”

Textl.SetFocus

EndSub

PrivateSubText1_GotFocus()

Text1.Text口等級考試”

EndSub

運行以上程序，單擊命令按鈕后()。

A)文本框中顯示的是“程序設計”，且焦點在文本框中

B)文本框中顯示的是“等級考試”，且焦點在文本框中

C)文本框中顯示的是“程序設計”，且焦點在命令按鈕上

D)文本框中顯示的是“等級考試”，且焦點在命令按鈕上

(29)設窗體中有…個文本框Textl,若在程序中執(zhí)行了Textl.SetFocus,則觸發(fā)()。

A)Textl的SetFocus事件B)Textl的GotFocus事件

C)Textl的LostFocus事件D)窗體的GotFocus事件

二、填空題

(1)在窗體上有一個名稱為Command1的命令按鈕和一個名稱為Textl的文本框。程序運行后，Command1

為禁用(灰色)，此時如果在文本框中輸入字符，則命令按鈕Commandl變?yōu)榭捎谩Ｕ執(zhí)羁铡?/p>

PrivateSubForm_Load()

Commandl.Enabled=False

EndSub

PrivateSubTextl_[Change]()

Command1.Enabled=True

EndSub

知識點4：輸入、消息對話框

一、選擇題

(1)設程序中有如下語句：

x=InputBox("輸入"，"數(shù)據(jù)"，100)

Printx

運行程序，執(zhí)行上述語句，輸入5并單擊輸入對話框上的“取消”按鈕，則窗體上輸出()。

A)0B)5C)100D)空白

(2)執(zhí)行下列語句

strInput=InputBox("請輸入字符串字符串對話框"，"字符串")

將顯示輸入對話框。此時如果直接單擊“確定”按鈕，則變量strinput的內(nèi)容是()。

A)"請輸入字符串"B)"字符串對話框"C)"字符串"D)空字符串

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

PrivateSubForm_Click()

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

Printx+Text1.Text

EndSub

程序運行時，在文本框中輸入456,然后單擊窗體，在輸入對話框中輸入123,單擊“確定”按鈕后，在窗體

上顯示的內(nèi)容是()。

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

(4)在窗體上畫一個命令按鈕和一個文本框，其名稱分別為Commandl和Textl,把文本框的Text屬性設

置為空白，然后編寫如下事件過程：

PrivateSubCommandl_Click()

a=InputBox("Enteraninteger")

b=InputBox("Enteraninteger")

Text1.Text=b+a

EndSub

程序運行后，單擊命令按鈕，如果在輸入對話框中分別輸入8和10,則文本框中顯示的內(nèi)容是()。

A)108B)18C)810D)出錯

(5)下面程序運行時，若輸入395,則輸出結果是()。

PrivateSubCommand1_Click()

Dimx%

x=InputBox("請輸入一個3位整數(shù)")

PrintxMod10,x\100,(xMod100)\10

EndSub

A)395B)539C)593D)359

(6)以下關于MsgBox的敘述中，錯誤的是()。

A)MsgBox函數(shù)返回一個整數(shù)

B)通過MsgBox函數(shù)可以設置信息框中圖標和按鈕的類型

C)MsgBox語句沒有返回值

D)MsgBox函數(shù)的第二個參數(shù)是一個整數(shù),該參數(shù)只能確定對話框中顯示的按鈕數(shù)量

(7)在窗體上面一個命令按鈕，然后編寫如下事件過程：

PrivateSubCommandl_Click()

MsgBoxStr(123+321)

EndSub

程序運行后，單擊命令按鈕，則在信息框中顯示的提示信息為()。

A)字符串“123+321”B)字符串“444"C)數(shù)值“444"D)空白

(8)假定有如下的命令按鈕(名稱為Command1)事件過程：

PrivateSubCommandl_Click()

x=InputBox("輸入:"，"輸入整數(shù)")

MsgBox"輸入的數(shù)據(jù)是:",，"輸入數(shù)據(jù)："+x

EndSub

程序運行后，單擊命令按鈕，如果從鍵盤上輸入整數(shù)10,則以下敘述中錯誤的是()。

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

C)信息框的標題是“輸入數(shù)據(jù)：10”

D)信息框中顯示的是“輸入的數(shù)據(jù)是：”

二、填空題

(1)在窗體上畫一個文本框、一個標簽和一個命令按鈕，其名稱分別為TextlLabel1和Command1,然

后編寫如下兩個事件過程：

PrivateSubCommand1_Click()

S$=InputBox("請輸入一個字符串")

Textl.Text=S$

EndSub

PrivateSubTextl_Change()

Label1.Caption=UCase(Mid(Textl.Text,7))

EndSub

程序運行后，單擊命令按鈕，將顯示一個輸入對話框，如果在該對話框中輸入字符串"VisualBasic",則在標

簽中顯示的內(nèi)容是【BASIC】。

第4章選擇結構設計

知識點1：條件表達式

一、選擇題

(1)以下關系表達式中，其值為False的是()。

A)"ABC">"AbC"B)"the"<>"they"

C)"VISUAL"=UCase("Visual")D)"Integer">"Int"

(2)下列表述中不能判斷x是否為偶數(shù)的是()。

A)x/2=Int(x/2)B)xMod2=0C)Fix(x/2)=x/2D)x\2=0

(3)以下關系表達式中，其值為True的是()。

A)"XYZ">"XYz"B)"VisualBasic"o"visualbasic"

C)"the"="there"D)"Integer"<"Int"

(4)設x=5,執(zhí)行語句Printx=x+10,窗體上顯示的是()。

A)15B)5C)TrueD)False

(5)設a=10,b=5,c=l,執(zhí)行語句Printa>b>c后，窗體上顯示的是()。

A)TrueB)FalseC)1D)出錯信息

(6)設x=4,y=8,z=7,以下表達式的值是()。

x<yAnd(Noty>z)Orz<x

A)1B)-1C)TrueD)False

(7)設a=2,b=3,c=4,下列表達式的值是()。

Nota<=cOr4*c=bA2Andboa+c

A)-1B)1C)TrueD)False

(8)設a=4,b=5?c=6,執(zhí)行語句Printa<bAndb<c后，窗體上顯示的是()。

A)TrueB)FalseC)出錯信息D)0

(9)(13)設x是小于10的非負數(shù)，對此陳述，以下正確的VB表達是()。

A)x<x<10B)0<=x<10

C)x>=0Andx<10D)x>=0Orx<=10

知識點2：If語句、Ilf函數(shù)

一、選擇題

(1)(14)設有窗體上有一文本框和一按鈕和以下程序：

PrivateSubCommandl_Click()

Textl.Text="VisualBasic"

EndSub

PrivateSubText1_LostFocus()

IfTextl.Texto"BASIC"Then

Textl.Text=""

Textl.SetFocus

EndIf

EndSub

程序運行時，在Textl文件框中輸入“Basic”，然后單擊Commandl按鈕，則產(chǎn)生的結果是()。

A)文本框中無內(nèi)容，焦點在文本框中

B)文本框中為“Basic”，焦點在文本框中

C)文本框中為“Basic”，焦點在按鈕上

D)文本框中為“VisualBasic”,焦點在按鈕上

(2)設2=匕"，b="b",c="c",d="d",執(zhí)行語句后x的值為()。

x=IIf((a<b)Or(c>d),"A","B")

A)aB)bOBD)A

(3)現(xiàn)有語句:y=IIf(x>0,xMod3,0),設x=10,則y的值是()。

A)0B)1C)3D)語句有錯

(4)設a=5,b=6,c=7,d=8,執(zhí)行語句x=Hf((a>b)And(c>d),10,20)后，x的值是()□

A)10B)20C)30D)200

二、填空題

(2)在窗體上畫一個命令按鈕，名稱為Commandl,然后編寫如下事件過程：

PrivateSubCommand1_Click()

DimnAsInteger

n=Val(InputBox("請輸入一個整數(shù)："))

IfnMod3=0AndnMod2=0AndnMod5=0Then

Printn+10

EndIf

EndSub

程序運行后，單擊命令按鈕，在輸入框中輸入60,則輸出結果是【70】。

知識點3：多分支語句

一、選擇題

(1)以下Case語句中錯誤的是()。

A)Case0To10B)CaseIs>10

C)CaseIs>10AndIs<50D)Case3,5,Is>10

(2)在窗體上畫一個名稱為Commandl的命令按鈕和兩個名稱分別為TextkText2的文本框，然后編寫如

下事件過程：

PrivateSubCommandl_Click()

n=Text1.Text

SelectCasen

Case1To20

x=10

Case2,4,6

x=20

CaseIs<10

x=30

Case10

X=40

EndSelect

Text2.Text=x

EndSub

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

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

(3)在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下事件過程：

PrivateSubCommandl_Click()

x=InputBox(,,lnputn)

SelectCasex

Case1,3

Print”分支r

CaseIs>4

Print”分支2”

CaseElse

Print"Else分支”

EndSelect

EndSub

程序運行后，如果在輸入對話框中輸入2,則窗體上顯示的是()。

A)分支1B)分支2C)Else分支D)程序出錯

(22)在窗體上畫1個命令按鈕(名稱為Commandl)和1個文本框(名稱為Textl),然后編寫如下事件過程:

PrivateSubCommandl_Click()

x=Val(Text1.Text)

SelectCasex

Case1,3

y=x*x

CaseIs>=10,Is<=-10

y=x

Case-10To10

y=-x

EndSelect

EndSub

程序運行后，在文本框中輸入3,然后單擊命令按鈕，則以下敘述中正確的是（）。

A）執(zhí)行尸x*xB）執(zhí)行y=-x

C）先執(zhí)行y=x*x,再執(zhí)行y=-xD）程序出錯

（23）在窗體上有一個名為Textl的文本框和一個名為Commandl的命令按鈕，并有以下事件過程:

PrivateSubCommandl_Click（）

x!=Val（Textl.Text）

SelectCasex

CaseIs<-10,Is>=20

Print”輸入錯誤”

CaseIs<0

Print20-x

CaseIs<10

Print20

CaseIs<=20

Printx+10

EndSelect

EndSub

程序運行時，如果在文本框中輸入-5,則單擊命令按鈕后的輸出結果是（）。

A）5B）20C）25D）輸入錯誤

（4）以下表示下述分段函數(shù)的語句序列中錯誤的是（）。

x<0"

y=1x*20<x<5^,

Iex+1x>5”

A)SelectCasexB)Ifx<0Then

CaseIs<0y=5

y=5ElseIfx<=5Then

CaseIs<=5,Is>0y=2*x

y=2*xElse

CaseElsey=x*x+1

y=x*x+lEndIf

EndSelect

C)y=IIf(x<0,5,IIf(x<=5,2*x,x*x+l))

D)Ifx<0Theny=5

Ifx<=5Andx>=0Theny=2*x

Ifx>5Theny=x*x+l

二、填空題

(l)設有整形變量s,取值范圍為0700,表示學生的成績。有如下程序段：

Ifs>=90Then

Level="A"

Elselfs>=75Then

Level="B"

Elselfs>=60Then

Level="B"

Else

Level="D"

EndIf

下面用SelectCase結構改寫上述程序，使兩段程序所實現(xiàn)的功能完全相同。請?zhí)羁铡?/p>

SelectCases

Case[Is]>=90

Level="A"

Case75To89

Level="B"

Case60To74

Level="B"

Case[Else]

Level="D"

[4]

知識點4：選擇性控件

一、選擇題

(1)當一個復選框被選中時，它的Value屬性的值是()。

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

(2)在窗體上有如圖所示的控件，各控件的名稱與其標題相同，并有如下程序：

PrivateSubForm_Load()

Command2.Enabled=False：Checkl.Value=l

EndSub

剛運行程序時，看到的窗體外觀是（）。

（3）在窗體上畫兩個單選按鈕（名稱分別為Optionl、options標題分別為“宋體”和“黑體”）、1個復選

框（名稱為Checkl,標題為“粗體”）和1個文本框（名稱為Text—Text屬性為“改變文字字體”）,

窗體外觀如圖所示。程序運行后，要求“宋體”單選按鈕和“粗體”復選框被選中，則以下能夠實現(xiàn)

上述操作的語句序列是（）。

A)Option1.Value=FalseB)Option1.Value=True

Check1.Value=TrueCheck1.Value=0

C)Option1.Value=TrueD)Option1.Value=True

Check1.Value=2Check1.Value=1

（4）設窗體上有名稱為Optionl的單選按鈕，且程序中有語句:

IfOption1.Value=TrueThen

下面語句中與該語句不等價的是（）。

A）IfOption1.ValueThenB）IfOption1=TrueThen

C）IfValue=TrueThenD）IfOptionlThen

二、填空題

（l）為了使復選框禁用（即呈現(xiàn)灰色），應把它的Value屬性設置為【2】。

知識點5：計數(shù)器控件

一、選擇題

（1）在窗體上畫一個名稱為Timerl的計時器控件，要求每隔0.5秒發(fā)生一次計時器事件，則以下正確的屬

性設置語句是（）。

A）Timer1.Interval=0.5B）Timerl.Interval=5

C）Timer.Interval=50D）Timerl.Interval=500

（2）在窗體上畫一個文本框和一個計時器控件，名稱分別為Textl和Timerl,在屬性窗口中把計時器的

Interval屬性設置為1000,Enabled屬性設置為False,程序運行后，如果單擊命令按鈕，則每隔一秒鐘

在文本框中顯示一次當前的時間。以下是實現(xiàn)上述操作的程序：

PrivateSubCommandl_Click()

Timer!._[_]

EndSub

PrivateSubTimerl_Timer()

Text1.Text=Time

EndSub

在處應填入的內(nèi)容是在nable=True)。

A)Enabled=TrueB)Enabled=FalseC)Visible=TrueD)Visible=False

(3)某人在窗體上畫了一個名稱為Timerl的計時器和一個名稱為Label1的標簽，計時器的屬性設置為

Enabled=True,Interval=O,并編程如下。希望在每2秒在標簽上顯示一次系統(tǒng)當前時間。

PrivateSubTimerl_Timer()

Label1.Caption=Time$

EndSub

在程序執(zhí)行時發(fā)現(xiàn)未能實現(xiàn)上述目的，那么，他應做的修改是()。

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

B)通過屬性窗口把計時器的Enabled屬生設置為False

C)把事件過程中的Labell.Caption=Time$語句改為

Timer1.Interval=Tims$

D)把事件過程中的Labell.Caption=Time$語句改為

Label1.Caption=Timerl.Time

(4)窗體上有一個名為Command1的命令按鈕和一個名為Timerl的計時器，并有下面的事件過程：

PrivateSubCommandl_Click()

Timerl.Enabled=True

EndSub

PrivateSubForml_Load()

Timerl.Interval=10

Timerl.Enabled=False

EndSub

PrivateSubTimerl_Timer()

Commandl.Left=Commandl.Left+10

EndSub

程序運行時，單擊命令按鈕，則產(chǎn)生的結果是()。

A)命令按鈕每10秒向左移動一次B)命令按鈕每10秒向右移動一次

C)命令按鈕每10毫秒向左移動一次D)命令按鈕每10毫秒向右移動?次

(5)設窗體上有一個標簽Labell和一個計時器Timerl,Timerl的Interval屬性被設置為1000,Enabled屬

性被設置為True。要求程序運行時每秒在標簽中顯示一次系統(tǒng)當前時間。以下可以實現(xiàn)上述要求的事

件過程是()。

A)PrivateSubTimerl_Timer()B)PrivateSubTimerl_Timer()

Label1.Caption=TrueLabel1.Caption=Time$

EndSubEndSub

C)PrivateSubTimerl_Timer()D)PrivateSubTimerl_Timer()

Labell.Interval=lFork=1ToTimerl.Interval

EndSubLabel1.Caption=Timer

Nextk

EndSub

二、填空題

(1)在窗體上畫一個標簽(名稱為Labell)和一個計時器(名稱為Timerl),然后編寫如下幾個事件過程:

PrivateSubForm_Load()

Timerl.Enabled=False

Timerl.Interval=[1000]

EndSub

PrivateSubForm_Click()

Timerl.Enabled=[True]

EndSub

PrivateSubTimerl_Timer()

Labell.Caption=[Timer]

EndSub

程序運行后，單擊窗體，將在標簽中顯示當前時間，每隔1秒鐘變換一次。請?zhí)羁铡?/p>

(2)為了使計時器控件Timerl每隔0.5秒觸發(fā)一次Timer事件，應將Timerl控件的【Interval】屬性設置

為[500]o

(7)在窗體上畫—一個標簽、一個計時器和一"f'命令按鈕，其名稱分別為Labll、Timerl和Commandl,如圖

1所示。程序運行后，如果單擊命令按鈕，則標簽開始閃爍，每秒鐘“歡迎”二字顯示、消失各一次，如圖2

所示。以下是實現(xiàn)上述功能的程序，請?zhí)羁铡?/p>

PrivateSubForm_Load()?HOFBI二ElI區(qū)

Labell.Caption="歡迎"Labell6

Timerl.Enabled=False

Timer1.Interval[1000]

Command1.Caption="開始閃爍”

EndSub■Poral足七1第

PrivateSubTimerl_Timer()歡迎廣元

Labell.Visible=[NotLabel1.Value]

EndSub

PrivateSubCommandl_Click()

[Timerl.Enabled=True]

EndSub

第5章循環(huán)結構設計

知識點1：循環(huán)語句

一、選擇題

(1)設有如下程序段：

x=2

Fori=lTo10Step2

x=x+i

Next

運行以上程序后，x的值是()。

A)26B)27C)38D)57

(2)閱讀程序：

PrivateSubForm_Click()

a=0

Forj=lto15

a=a+jMod3

Nextj

Printa

EndSub

程序運行后，單擊窗體，輸出結果是()。

A)105B)1C)120D)15

(3)為計算l°+2i+22+23+24+...+21°的值，并把結果顯示在文本框Textl中，若編寫如下事件過程:

PrivateSubCommand1_Click()

Dima%,s%,k%

S=1

a=2

Fork=2To10

a=a*2

s=s+a

Nextk

Textl.Text=s

EndSub

執(zhí)行此事件過程后發(fā)現(xiàn)結果是錯誤的，為能夠得到正確結果，應做的修改是()。

A)把s=l改為s=0B)把Fork=2To10改為Fork=lTo10

C)交換語句s=s+a和a=a*2的順序

D)同時進行B)、C)兩種修改

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

a$=nabbacddcban

Fori=6To2Step-2

X=Mid(a,i,i)

Y=Left(a,i)

z=Right(a,i)

z=UCase(X&Y&z)

Nexti

Printz

輸出結果為()。

A)ABAB)BBABBAC)ABBABAD)AABAAB

(5)設有如下程序：

PrivateSubForm_Click()

x="ABCDEFG"

Fori=4To1Step-1

y=Mid(x,i,i)+y

Nexti

Printy

EndSub

程序運行后，單擊窗體，輸出結果為()。

A)ABCCDEDEFGB)AABBCDEFG

C）ABCDEFGD）AABBCCDDEEFFGG

（6）執(zhí)行以下程序段后，x的值為（）。

DimxAsInteger,iAsInteger

x=0

Fori=20To1Step-2

x=x+i\5

Nexti

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

（7）某人設計了如下程序用來計算并輸出7!（7的階乘）：

PrivateSubCommandl_Click（）

t=0

Fork=7To2Step-1

t=t*k

Next

Printt

EndSub

執(zhí)行程序時，發(fā)現(xiàn)結果是錯誤的，下面的修改方案中能夠得到正確結構的是（）。

A）把t=0改為t=l

B）把Fork=7To2Step-1改為Fork=7To1Step-1

C）把Fork=7To2Step-l改為Fork=lTo7

D）把Next改為Nextk

（8）設有如下程序：

PrivateSubForm_Click（）

DimsAsLong,fAsLong

DimnAsInteger,iAsInteger

n=4

Fori=lTon

f=f*i

s=s+f

Nexti

Prints

EndSub

程序運行后，單擊窗體，輸出結果是()。

A)32B)33034D)35

(9)設窗體上有一個文體框Textl和一個命令按鈕Command1,并有以下事件過程:

PrivateSubCommandl_Click()

DimsAsString,chAsString

s=nn

Fork=lToLen(Textl)

ch=Mid(Textl,k,1)

s=ch+s

Nextk

Textl.Text=s

EndSub

程序執(zhí)行時，在文本框中輸入“Basic”,然后單擊命令按鈕，則Textl中顯示的是()。

A)BasicB)cisaBC)BASICD)CISAB

(10)在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下事件過程：

PrivateSubCommand1_Click()

Forn=1To20

IfnMod3o0Thenm=m+n\3

Nextn

Printn

EndSub

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

A)15B)18C)21D)24

(11)設有以下程序：

PrivateSubForm_Click()

X=50

Fori=lTo4

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

Y=Val(y)

IfyMod5=0Then

a=a+y

x=y

Else

a=a+x

EndIf

Nexti

Printa

EndSub

程序運行后，單擊窗體，在輸入對話框中依次輸入15、24、35、46,輸出結果為（）。

A）100B）50C）120D）70

（12）現(xiàn)有以下程序：

PrivateSubCommandl_Click（）

cl=0

c2=0

Fori=lTo100

IfiMod3=0Then

cl=cl+l

ElselfIMod7=0Then

c2=c2+l

EndIf

Next

Printcl+c2

EndSub

此程序運行后輸出的是在1?100范圍內(nèi)（）。

A）同時能被3和7整除的整數(shù)個數(shù)

B）能被3或7整除的整數(shù)個數(shù)（同時被3和7整除的數(shù)只記一次）

C）能被3整除，而不能被7整除的整數(shù)個數(shù)

D）能被7整除，而不能被3整除的整數(shù)個數(shù)

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

PrivateSubCommand1_Click（）

DimiAsInteger,xAsInteger

Fori=1To6

Ifi=1Thenx=i

Ifi<=4Then

x=x+1

Else

x=x+2

EndIf

Nexti

Printx

EndSub

程序運行后，單擊命令按鈕，其輸出結果為()。

A)9B)6C)12D)15

(14)有如下程序：

PrivateSubForm_Click()

DimiAsInteger,sumAsInteger

sum=0

Fori=2To10

IfiMod2o0AndiMod3=0Then

sum=sum+i

EndIf

Nexti

Printsum

EndSub

程序