VB程序設計考試題及答案

VB程序設計期末考試題

一、選擇題

1下列常量中，是Integer類型常量的是（C）.

A、123&

-38844

C、123%

D、32768

2下面選項中0是字符連接運算符.A

A、&

B、And

C、%

D、Mod

3下面關于VB的集成開發(fā)環(huán)境（［DE）的敘述中，不正確的是（B）°

A、IDE是設計、調試、運行VB程序的工具。

B、用戶不能隨意關閉IDE中的窗口。

C、”窗體設計”窗口是用來設計應用程序界面（窗體）的。

D、打開/關閉各窗口的命令主要在IDE的“視圖”菜單中。

4】en（"vb程序設計）（C）.

As5

B、2

C、6

D、10

5表達式15Mod4+13\5*2的值是D

A、7

B、0

C、2

D、4

6賦值語句A=123+Mid$("123456”32)執(zhí)行后，A=(A)0

A、157

B、12334

C、123

D、“12334”

7在一個語句內寫多條語句時，用來分隔每條語句的符號是(C).

A、，

B、；

Cx:

D、、

8將邏輯型數(shù)據(jù)轉換成整型數(shù)據(jù)時，轉換規(guī)則是(D)。

A、將True轉換為1,將Fake轉換為0

B、將True轉換為1,將False轉換為-1

C、將True轉換為0,將False轉換為-1

D、將True轉換為-1,將False轉換為0

9表達式2+3*M5?SIN(X+l)/2中最先進行的運算是(D).

A、SIN

B、4A5

C、3*4

D>x+1

10如果x=2,則表達式x+l>2Orsin(x)>0.9And3>x+3的值(B)o

A、不能計算

B、True

C、5

D、False

11隨機產生［10,50］之間整數(shù)的正確表達式是(D)。

A、Round(Rnd*50)

B、Int(Rnd*40+10)

C>Round(Rnd*51)

D、10+Int(Rnd*41)

12每建立一個窗體，工程管理器窗口中就會增加一個(C).

A、類模塊文件

B、工程文件

C、窗體文件

D、程序模塊文件

13INT(100*RND(l))產生的隨機整數(shù)的閉區(qū)間是(B).

A、［1,100］

B、［0,99］

C、［0,100］

D、［1,99］

14下列數(shù)據(jù)類型中，占用內存最小的是(D).

AsInteger

B、Single

CsBoolean

D、Byte

15VisualBasic是一種()程序設計語言.B

A、過程式

B、非過程式

C、機器

D、低級

16函數(shù)Int(10*Rnd)是在(A)范圍內的整數(shù).

A、[0,9]

B、[0,1]

C、[1,9]

D,[1,10]

17以下合法的一組VisualBasic用戶標識符是C

A、Sum和8abe

Ba#x和Pi

C、ForLoop和Total

D、Const和DoWhile

18函數(shù)Len(Str(Val("1234R)的值為(B).

A、5

B、6

C、8

D、11

19Int(198.555*100+0.5)/100的值為B

A、199.6

B、198.56

C、200

D、198

20以下各表達式中，計算結果為0的是(A).

A、FIX(12.4)+FIX(-12.6)

B、CINT(12.4)+CINT(-12.6)

C、INT(12.4)+INT(-12.6)

D、FIX(13.6)+FIX(-12.6)

21MsgBox()的正確語法是(D)。

AsMsgBox(標題［,提示信息］「按鈕類型D

B、MsgBox(提示信息［,標題］［,按鈕類型］)

C、MsgBox(標題［，按鈕類型］［,提示信息］)

D、MsgBox(提示信息〉按鈕類型］［,標題］)

223>8-3OR10+2<=3*4AND5=2+3的結果是(C).

A、10

B、?3

C、True

D>False

23表達式4+5\6*7/8Mod9的值是(D).

As7

B、4

C、6

D、5

24設a=6,則執(zhí)行x=nf(a>5”,0)后,x的值為(D),

A、5

B、0

C、6

D、-1

25下面關于VB的敘述中，不正確的是(A)。

A、用VB編寫的程序可以在任何操作系統(tǒng)環(huán)境中運行。

B、VB是面向對象的可視化的軟件開發(fā)工具。

C、VB是在20世紀60年代美國Dartmouth學院開發(fā)的Basic語言基礎上發(fā)展而形成的。

D、VB是由美國Microsoft(微軟〕公司開發(fā)程序設計語言.

26表達式16/4-2A5*8/4Mod5\2;(A)。

A、4

B、0

C>-2

D、-6

27聲明符號常量應該用關鍵字(B〕.

A、Private

B、Const

C、Static

DsV26/ariant

28下列數(shù)據(jù)類型中，占用內存最大的是(D).

A、Boolean

B、Integer

C、Byte

D、Single

29下列VB數(shù)據(jù)類型中，占用內存最少的是(D)。

A、Currency

B、Integer

C、Boolean

D、Byte

30RGB函數(shù)通過紅.綠.藍三基色混合產生某種顏色，某語法為RGB

(紅.綠.藍)，括號中紅、綠、藍三基色的成分使用0~255之間

的整數(shù)若使用三個滾動條分別輸入三種基色，為保證輸入數(shù)值

有效，則應設置(B)屬性.

A、Scroll和Change

B、Max和Min

C、Smallchange和LargeChange

D、Value

31k-12.5,len(str(k))=(B)。

A、4

B、5

C、3

Ds2

32表達式Abs(-5)*5\5/5的值是D

A、1

B、5

C、-25

D、25

33產生口0,37］之間的隨機整數(shù)的VisualBasic表達式是(C).

A、Int(Rnd(l)*27)+ll

B、Int(Rnd(l)*28)+ll

C、Int(Rnd(l)*28)+10

D、Int(Rnd(l)*27)+10

34工具欄中的“啟動”按鈕的作用是(B).

A、工程管理窗口

B、運行一個應用程序

C、打開被選中對象的代碼窗口

D、運行一個窗體

35不需要編譯，計算機便可直接次行的程序是(B)。

A、C語言程序

B、機器語言程序

C、匯編語言程序

D、VisualBasic語言程序

36Vai("123ab")二(D)。

A、0

B、不能轉換

C、1230

D、123

37表達式16/4-2A5*8/4M0D5\2的值為A

A、4

B、2

C、14

D、20

38刪除字符串前導和尾隨空格的函數(shù)是(D).

A、Rtrim()

B、LtrimQ

C、Lease

D、TrimQ

39下列表達式中，其值為0的是(C).

A、15mod9

B、7/9

C、7\9

D>7mod15

40表達式Len(“123程序設計ABC")的值是B

A、17

B、10

C、14

D、20

41Int(-3.1]+round(-4.6)=C。

A、-8

B、-6

Cs-9

D、-7

42\>AMod、*等4個算術運算符中，優(yōu)先級最低的是(A).

A、Mod

B、/

C、*

D、\

43下面正確的賦值語句是(D)。

A、x=y=l

B、x+2=yA2+2

C>x+y=l

D,x=y+zl

44Len("實踐應用能力”)的值是(A),

A、6

B、4

C、不能確定

D、8

45表達式Mid("SHANGHAI”,6,3)的值是(C).

A、ANGH

B、SHA

C、HAI

D、SHANGH

46表達式25\3010(13*1叫4.5)的值為9).

As1

B、8

C、4

D、5

47下面變量名稱正確的是(C)。

A、x口1

B、integer

C、x_l_y

D、x,y

48不能正確表示條件”兩個整型變量A和B之一為0,但不能同時為0”

的布爾表達式(D).

A、A*B二OANDAcB

B、(A=00RB=0)ANDAoB

C、A=OANDB<>OORA<>OANDB=0

D、A*B=0AND(A=0ORB=0)

49如果X是一個正的實數(shù)，將千分位四舍五入，保留兩位小數(shù)的表達式是(C).

A、0.01*int(100*(x+0.05))

B、0.01*int(x+0.05)

C、0.01*int(100*(x+0.005J)

D、0.01*int(x+0.005)

50表達式X+1>X是(D).

As非法表達式

B、字符表達式

Cs算術表達式

D、關系表達式

51.VisualBasic的編程機制是(B).

A、面向圖形

B、事件驅動

C、面向對象

D、可視化

52下面4項中合法的變量名是(A).

A、X_yz

B、X-Y

C、123abc

D、integer

53以下可以作為VB變量名的是(C).

A、COS(X)

B、X(-l)

C、C01

D、SIN

54表達式(7\3+l)*(18\5?l)的值是(B).

A、8.76

B、6

C、6.67

D^7.8

55下列哪個變量名的取法是不正確的(C).

AssTme

B、T_12

C、T12%

D、T_Temp

56可以同時刪除字符串前導和尾部空白的函數(shù)是(B).

A、Ltrim

B、Trim

C、Mid

D、Rtrim

57VB窗體文件的擴展名是(A).

A、FRM

B、VBW

C、VBP

D>BAS

58一個具有圖形用戶界面的“標準EXE"工程必須包含的文件是(A)?

A、工程文件和窗體文件。

B、窗體文件和標準模塊文件。

C、工程文件和資源文件。

D、工程文件和標準模塊文件。

59數(shù)學式3WXV5寫成VB表達式是(A)。

As3<=XandX<5

B、X>=3and5<X

C、3<=XorX<5

D、3<=X<5

60表達式INT(8*SQR(36)*10A(-2)*10+0.5)/10的值是(A).

A、,5

B、0.48

C、.05

D、0.048

61變量未賦值時，數(shù)值型變量的值為(C).

A、空

B、無任何值

C、0

D、1

62正確的變量名是(A)。

A、xy_01

B、satOl

C、3xy

D、integer

63當Ucase$(C$)>“A"andUcase$(C$)v"Z”為true時,則C$是_A

A、字母

B、大寫字母

C、小寫字母

D、不一定

64表達式(?l)*Sgn(-100+Int(Rnd*100))的值是(A).

A、1

Bs-1

C、隨機數(shù)

D、0

65表達式printLen(trim("abed")&“123”)的結果是D

A、abed

B、9

C、123

D、7

66Rnd函數(shù)不可能產生的()值.B

A、0

B、1

G0.1234

D..00005

67下面變量名稱不正確的是(B)。

A、xl

B、lx

C、xly

D、x_l

68下列哪個變量名的取法是不正確的(B).

A、T_Temp

B、T32#

C、T32

D、TName

69選中復選框控件時,value屬性的值,可以是(C).

A、True

B>false

C、1

D、0

70程序運行時，如果復選框被用戶選中，那么其Value屬性值為(A)。

A、1

B、False

C、True

D、0

71程序運行時，如果單選框被用戶選中，那么其Value屬性值為(D).

A、0

B、1

C、False

D>True

72下列0是窗體文件的擴展名.A

A、frm

B、cis

C、dll

D、bas

73要使標簽能透出窗體的背景，必須設置(C)屬性.

AsAppearance

B、BorderStyle

CsBackStyle

D、BackColor

74當窗體被關閉時，系統(tǒng)自動執(zhí)行該窗體的（A）事件過程。

A、Unload

B、Load

C^LostFocus

D、Click

75要使窗體運行時充滿整個屏幕，應設置其（D）屬性。

A、AutoRedraw

B、Width

C、Height

D、WindowState

76要使得窗體一開始運行就充滿整個屏幕則須設置。屬性,A

A、windowstate

B、borderstyle

C、appearance

D、drawmode

77要使一個文本框具有水平和垂直滾動條，則應先將其MultiLine

屬性設置為True,然后再將ScrollBar屬性設置為（A）.

A、3

B、0

C、1

D、2

78決定控件上文字的字體、字形、大小及效果的屬性是(C).

A、TEXT

B、CAPTION

C、FONT

D、NAME

79在窗體設計器窗口雙擊窗體的任何地方，可以打開的窗口是(A).

A、代碼窗口

B、以上3個選項都不對

C、工程管理窗口

D、屬性窗口

80下列關于屬性設置的敘述錯誤的是(D).

A、一個控件具有什么屬性是VB預先設計好的，用戶可以改變

B、一個控件的屬性即可以在屬性窗口中設置，也可以用程序代碼設置

C、一個控件的屬性在屬性窗口中設置，還可以利用程序代碼為其設置新值

D、一個控件具有什么屬性是VB預先設計好的，用戶不能改變

81MaxLength屬性可以設置文本框可以輸入與顯示的最多字符個數(shù)，當其值為0時表示

(功,

A、不允許輸入字符

B、以上都不正確

C、不允許輸入任何字符，但顯示不限制

D、輸入的字符長度不限

82下面(C)控件不具有Caption屬性.

As標簽框

B、命令按鈕

C、文本框

D、單選鈕

83要使標簽能夠顯示所需要的東西,則在程序中應設置其哪一屬性的值(D).

A、Name

B、Text

C^AutoSize

D、Caption

84程序運行時，要限制文本框的輸入長度，那么應設置(A)。

A^MaxLength

B、Enabled

C、Locked

D、MultiLine

85事件的名稱(D).

A、是不固定的

B、有的由用戶定義，有的由系統(tǒng)定義

C、都要由用戶定義

D、都是由系統(tǒng)預先定義

86若設置窗體的BorderStyle］，則在程序運行時窗體的行為是(A)。

A、窗體沒有最大化和最小化按鈕：窗體可以移動，但不能改變大小。

B、窗體有最大化和最小化按鈕，窗體既可以移動，也可以改變大小。

C、窗體沒有最大化和最小化按鈕，窗體既不能移動，也不能改變大小。

D、窗體有最大化和最小化按鈕，窗體可以移動，但不能改變大小.

87如果要設置窗體的標題欄,應選擇以下那種屬性(D).

A、Tips

B、Name

C、Text

D、Caption

88要把一個命令按鈕設置成無效，應設置其哪一屬性值(D).

A、Visible

B、Default

C、Cancel

D、Enabled

89將焦點主動設置到指定的控件或窗體上,應采用(C)方法.

A、SetText

B、GetGata

C、SetFocus

D、SetData

90要使標簽控件的大小隨Caption屬性值而自動調整，應設置其(B)屬性。

A、Alignment

B、AutoSize

C、Width

D、Caption

91能夠改變窗體邊框線類型的屬性是(C).

AsFontstyle

B、Border

C、BorderStyle

D^BackStyle

92要使Forml窗體的標題欄顯示"歡迎使用VB”,以下語句正確的是(A),

A、Forml.Caption;"歡迎使用VB"

B、Forml.Caption=M^：iffi^fflVB”

C、Forml.Caption=){J；iQ!?f￡fflVB

D>Forml.Caption:'歡迎使用VB'

93文本框所沒有的屬性是(D).

A、Visible

B、BackColor

C、Enabled

DsCaption

94在VB環(huán)境中，工程文件的擴展名是(D).

A、.frx

B、，bas

C、.frm

D、.vbp

95如果要在命令按鈕上顯示圖形文件，應設置命令按鈕的(B).

A、Style屬性和Graphics屬性

B、Style屬性和Picture屬性

C、Picture屬性

DsGraphics屬性

96要使鼠標指向“命令按鈕”時，口現(xiàn)一個提示文本，應設置其(A)屬性6

A、ToolTipText

B、Style

C、Picture

D、Caption

97不論何控件，共同具有的屬性是（B）.

A、ForeColor

B、Name

C、Caption

D、Text

98要使標簽控件標題內容居中顯示，應設置其（B）屬性。

A、ToolTipText

B、Alignment

C、BackStyle

D、Appearance

99使命令按鈕獲得“焦點”的方法是（A）。

A、SetFocus

B、Move

C>Refresh

D、LinkSend

100改變控件在窗體中的上下位置應修改控件的0屬性.C

A、Height

B、Wide

CsTop

D、Left

101、語句PRINT”SGN(?26"';SGN(?26)的輸出結果為(C)

A、SGN(-26)=-26

B、SGN(-26)=26

C、SGN(-26)=-l

D、SGN(-26)=+l

102、若要使得文本框的初始值為空，則應更改文本框的屬性是(A)

A、text

B、index

C、name

D、caption

103、要使得標簽能自動擴充以滿足字體大小則可對其(C)屬性進行設置.

A、tag

B、alignment

C、autosize

D、usemnemonic

104、為了把焦點移到某個指定的控件，所使用指定的控件的(C)方法.

A、Visible

B、Refresh

C、SetFocus

D、GetFocus

105s如果要給字體加刪除線，可以選擇下列那種屬性(C).

AsFontSize

B、FontName

CsFontStrikethru

D、FontUnderLine

106、要設置標簽控件字體的大小，應設置其(A)屬性。

A、Font

B、Height

C、Width

D,Caption

107、每個窗體對應一個窗體文件，窗體文件的擴展名是(A).

A..frm

B、，vbp

C>.bas

D>.cis

108、標簽控件最重要的屬性是(A).

A、caption

B、text

C、name

D、width

109、(A)對象不具有Caption屬性.

A、Timer

B、Form

C>Option

D、Label

110.一個窗體上有三個文本框,按放置順序分別是:Textl,Text2,Text3,若使程序

運行時Text3首先獲得“焦點”，那么，應設置其(B)屬性值為0。

A、Index

B、Tabindex

C、Tag

D、Top

111、如果要改變窗體的標題，則需要設置的屬性是(D).

A、BorderStyle

B、Name

C、BackColor

D、Caption

112、欲使某命令按鈕失效，應修改命令按鈕的(C)屬性.

A、Enable

B、Caption

C、Enabled

D、Visible

113、為使文本框顯示滾動條必須首先設置的屬性是(D).

A、Autosize

B、Scrollbars

C、Alignment

D、Mulitiline

114、改變控件在窗體中的左右位置應修改該控件的(B)屬性.

A、Right

B、Left

C、Width

D、Top

115s要使標簽中顯示的文本靠右顯示，則應將其Alignment屬性設置為(A).

A、1

B、3

C、2

D、0

116、當設置文本框的ScrollBars二Both而文本框確沒有顯示出滾動條，原因是(A)。

A、文本框的MultiLine二False

Bs文本框中沒有內容

C、文本框的MultiLine=True

D、文本框的Locked=True

117、要使文本框獲得輸入焦點，則應采用文本框控件的哪個方法(D).

A、KeyPress

B、LostFocus

C、GodFocus

D、SetFocus

118、假設窗體上有一個標簽控件（Label。和一個時鐘控件（Timer）,要想每隔1秒

鐘，在標簽Labell上顯示一次系統(tǒng)當前時間，應在（A）事件過程中編寫實現(xiàn)該功能

的程序。

A、PrivateSubTimerl_TimerO

B、PrivateSubLabell_DblClickQ

C^PrivateSubLabell_ChangeQ

DAPrivateSubLabell_Click（）

119、如果設計時在屬性窗口將命令按鈕的（B）屬性設置為False,

則運行時按鈕從窗體上消失.

A、DisabledPicture

B、Visible

C、Default

D>Enabled

120、一個窗體上有兩個文本框，按放置順序分別是；Textl,Text2，要想在Textl中

按“回車“鍵，“焦點”自動轉到Text2上,應在（D）事件過程中編寫程序。

A、PrivateSubTextl_ClickQ

B、PrivateSubText2_GotFocusQ

C、PrivateSubTextl_LostFocus()

D、PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

121、文本框中選定的內容，由下列(A)屬性反映.

A、Seitext

B、Caption

C、sellenght

D^Text

122、下面4項中不屬于面向對象系統(tǒng)三要素的是(A).

A、變量

B、事件

C、方法

D、屬性

123、若要使命令按鈕不可操作，要設置的屬性是(A),

A、Enabled

B、Visible

C、Caption

D、BackColor

124、文本框控件中將Text的內容全部顯示為所定義的字符的屬性項是(D).

A、Password

B、以上都不是

C、需要編程來實現(xiàn)

D^PasswordChar

125、如果Print方法在窗體的Load事件過程中不起作用，原因是(A)屬性值為false。

A、AutoRedraw

B、ControIBox

C、Moveable

D>MaxButton

126、inputBox函數(shù)返回值的類型為(C).

A、變體

B、數(shù)值

C、字符串

Ds數(shù)值或字符串(視輸入的數(shù)據(jù)而定)

127、窗體的Caption屬性的作用是(B).

A、確定窗體的邊界類型

B、確定窗體的標題

C、確定窗體的名稱

D、確定窗體的字體

128、欲使標簽的內容自動換行,必須設也屬性(A).

A、Wordwrap

B、AutoSize

C、Alignment

D、left

129、用來設置粗體字的屬性是D

A、Fontltalic

B、FontSize

C、FontName

D、FontBold

130、Textl控件在運行時不可見，是設置下列(B)屬性的結果.

AsCancel

B、Visible

C、ControlBox

D、Enabled

131、若要使標簽控件顯示時，不覆蓋其背景內容，應設置標簽控件的(D)屬性.

A、BORDERSTYLE

B、BACKCOLOR

CFORECOLOR

D、BACKSTYLE

132、要使"命令按鈕〃在程序運行時不可見，可以將其(C)屬性設置為False。

A、Cancel

B、Default

C、Visible

D、Enabled

133、下列賦值語句正確的是(D).

A、T=Textl.Name+Text2.Name

B、Textl.Caption=Textl.Caption+Text2.Caption

C、Textl.Enable=Textl.Enable+Text2.Enable

D、Text1.text=Text.text+Text2.text

134、不具有輸入數(shù)據(jù)功能的控件是(C)控件.

As列表框

B、選項按鈕

C、窗體

D、文本框

135、程序運行后，在窗體上單擊鼠標，此時窗體不會接收到的事件是(A).

A、Load

B、Click

CsMouseDown

D、MouseUp

136、列表框和組合框的(B)屬性的值，表示其列表中項目的個數(shù)。

A、Listindex

B、ListCount

C、List

D、Text

137、在定義靜態(tài)數(shù)組時，關于下標的敘述中，正確的是(A)。

A、省略下界，一般系統(tǒng)默認為：下界是0

B、下標可以是字符型

C、下標下界最小為，-32768,下標上界最大為：32767

D、下標可以是變量。

138、下列程序：

PrivateSubTextl_Change()

PrintTextl：

EndSub

當在文本框輸入“1234”這4個字符時，窗體上顯示的是D

A、1234Bs1121231234

C、1234

D、1121231234

139、下面0對象在運行時一定不可見.C

A、Line

B、Option

C、Timer

D、Text

140、若要清除列表框的所有內容，可用什么方法實現(xiàn)C

A、以上均不可以

B、Cis

C、Clear

D、Removeitem

141、要使時鐘控件Timeil的Timer事件不起作用，以下正確的語句是A

A、Timerl.Enabled二False

B、Timerl.Index=O

C、Timerl.Interval=1000

D、Timerl.Visible=False

142、為使計時器控件每隔5秒鐘產生一個計時器事件（Timer事件），則應

將其Interval屬性值設置為（D）.

A、300

B、5

C、500

D、5000

143、將數(shù)據(jù)項“China”添加到列表框（Listl）中成為第一項應使用的語句是（A）。

A、Listl.AddItem,/China”,0

B、Listl.AddItem//China”,1

CsListl.Addltem0,China”

D、Listl.Addltem1,〃China”

144、在程序代碼中修改滾動條的value屬性時將激發(fā)滾動條的（D）事件.

A、scroll

B、dragdrop

C、gotfocus

D、change

145、循環(huán)結構FoM%之to-17Step-2共執(zhí)行（C）次.

A、6

B、5

C、9

Ds8

146、執(zhí)行下面的程序段后,x的值為（D）

x=5

Fori=lTo20Step2

x=x+i\5

Nexti

A、24

B、23

C、22

D、21

147、由Fork=10to0step3:nextk循環(huán)語句控制的循環(huán)次數(shù)是（D）.

A、

B、12

C>-10

D、0

148、下列方法中可用于列表框動態(tài)添加數(shù)據(jù)的是(D).

A、removeitem

B、addlist

C、add

D、additem

149、組合框控件是將0組合成一個控件?A

A、列表框控件和文本框控件

B、復選框控件和選項按鈕控件

C、標簽控件和列表框控件

D、標簽控件和文本框控件

150、下面程序段輸出的結果是D

PrivateSubCommandl.ClickO

x=8

Fori=0To20Step5

x=x+1

Next

PrintMX=M;x

EndSub

A、X=50

B、X=218

C、X=210

DX=58

151、定時器的Interval屬性以0為單位指定Timer事件之間的時間間隔,C

A、分

&微秒

C、毫秒

D、秒

152、由Fork=35to0step3:nextk循環(huán)語句控制的循環(huán)次數(shù)是。A

As0

Bx-10

C、12

D、-11

153、在列表框中當前被選中的列表項的序號是由下列哪個屬性表示().C

A、List

BsIndex

C、Listindex

D、Tabindex

154、設計動畫通常使用時鐘控件0來控制動畫速度.C

A、Enabled

B、Timer

C>Interval

DsMove

155、為了能在列表框中利用Ctrl和Shi化鍵進行多個列表項的選擇，則應

將列表框的Multiselect屬性設置為().C

A、1

B、3

C、2

D、0

156、引用列表框的最后一項應使用0.D

A、Listl.List(ListCount-l)

B、Listl.List(Listl.ListCount)

C、Listl.List(ListCount)

D、Listl.List(Listl.ListCount-1)

157、列表框控件中的列表內容是通過0屬性設置的.A

A、List

B、Caption

C、Name

D、Text

填空

1.在窗體上已建立多個控件，如Textl,Labell,Commandl,若要使程序一運行焦點就

定位在Commandl控件上，應對Commandl控件的_tabindex_屬性設置為

_TabIndex____°

2.日期表達式#2/24/02#-#2/12/02#的值為_12—。

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

.false一。

4.表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達式為一Xmod5=0ORxmod9=0_。

5,在剛建立工程時，使窗體上的所有控件具有相同的字體格式，就對_font_的屬性進行

設置。

6』nt(-2.6)、Int(2.6)、Fix(-2.6)、Fix(3.6)的值分別是_、_2_、_?2_、_

7.Label和TextBox控件用來顯示和輸入文本，如果僅需要讓應用程序在窗體中顯示文本

信息，可.使用」abel_控件；若允許用戶輸入文本，則應使用_Textbox—控件。

8.若命令按鈕的名稱為Cmdopen,程序要求單擊該命令按鈕時，打開一個窗口frml,請

對以下事件過程填空。

PrivateSubCmdopen_ClickQ

frml.show_

endsub

9.表達式93\7Mod2A2的值是_1_。

10,表達式Ucase(Mid("abcdefgh”,3,4))的值是_CDEF_。

11.當程序運行時，要求窗體中的文本框呈現(xiàn)空白，則在設計時，應當在此文本框的_屬

性—窗口中，把此文本框的_text_屬性設置成空白。

12.已知a=3,b=4,c=5,a>bandNotc>aOrc>bAndc<a+b_。表

達式c>aAndNotb<c的值是_false_。

程序設計

1/

'【程序改錯】

'題目:程序功能：求1+2+3......，直到其和超出3000為

'止，并輸出結果。

OptionExplicit

PrivateSubForm.ClickQ

Cis

DimiAsInteger

DimsAsSingle

i=0

***********ERR0R**********

s=1

Do

,**********ERROR**********

i二i+2

s=s+i

，**********ERROR**********

Loops>3000

Print"從1到:i;"的和是s

EndSub

答案【學生答案】

i=i+2

【參考答案】

i=i+l

2/

'【程序改錯】

862

'題目：以下程序段用于輸出100-300的所有素數(shù)

OptionExplicit

PrivateSubForm_ClickQ

DimnAsInteger,kAsInteger,iAsInteger,switAsInteger

Forn=101To300Step2

k=Int(Sqr(n))

i=2

***********ERROR**********

swit=1

，**********ERR0R**********

Whileswit=0

IfnModi=0Then

swit=1

Else

，**********ERROR**********

i=i-l

EndIf

Wend

Ifswit=0Then

Printn;

EndIf

Nextn

EndSub

答案【學生答案】

swit=1

【參考答案】

swit=O

【學生答窠】

Whileswit=0

【參考答案】

Whilei<=kAndswit=0

Whilek>=iAndswit=0

Wliileswit=0Andi<=k

Whileswit=0Andk>=i

【學生答案】

i=i-l

【參考答案】

i=i+l

3.OptionExplicit

PrivateSubForm_ClickO

DimiAsInteger,jAsInteger,kAsInteger

PrintTab(30);“9*9table"

Print;Print

Print"*"：

Fori=1To9

，**********ERROR**********

PrintTab(i*6);i

Nexti

Print

Forj=1To9

Printj;

Fork=1Toj

PrintTab(k6);jk;"";

，**********ERROR**********

Nextj

Print

住*********ERR0R**********

Nextk

答案【學生答案】

PrintTab(i*6);i

【參考答案】

PrintTab(i*6);i;

【學生答案】

Nextj

【參考答案】

Nextk

【學生答案】

Nextk

【參考答案】

Next)

4/----------------------

'【程序改錯】

'題目：以下程序段用于計算5的N次方。

OptionExplicit

PrivateSubForm_ClickQ

DimnAsInteger,kAsInteger,sAsLong

n=InputBox("Inputn")

，**********ERROR**********

k=0

'**********ERR0R**********

s=0

DoWhilek<=n

s=s*5

k=k+1

，**********ERR0R**********

Next

Prints的”;“n次方是”;s

EndSub

答案【學生答案】

k二0

【參考答案】

k=l

【學生答案】

s=0

【參考答案】

S=1

【學生答案】

Next

【參考答案】

loop

I

5二【程序改錯】

'題目：以下程序段用于打印如圖1所示的九九乘法表:

OptionExplicit

PrivateSubForm_ClickQ

DimiAsInteger,jAsInteger,kAsInteger

PrintTab(30);“9*9table"

Print:Print

Print"*";

Fori=1To9

,**********ERROR**********

PrintTab(i*6);i

Nexti

Print

Forj=lTo9

Printj;”“；

，**********ERROR**********

Fork三1To9

'**********ERROR**********

PrintTab(j6);jk;"";

Nextk

Print

Next)

EndSub

答案【學生答案】

PrintTab(i*6);i

【參考答案】

PrintTab(i*6);i;

【學生答案】

Fork=1To9

【參考答案】

Fork=1Toj

【學生答案】

PrintTab(j6);jk;”";

【參考答案】

PrintTab(k*6);j*k;""；

6.'【程序改錯】

'題目：下面程序可輸出如下圖形:

，*

****

*郴***

<*******

,*********

OptionExplicit

PrivateSubForm_Click(]

DimmAsInteger；nAsInteger,sAsString,iAsInteger,jAsInteger

n=4

m=1

s=

Fori=5To1Step-1

，**********ERR0R**********

PrintSpc(n)

Forj=1To2*m-1

Prints;

Nextj

Print

，**********ERR0R**********

n=n+1

，**********ERROR**********

m=m-1

Nexti

答案【學生答案】

PrintSpc(n)

【參考答案】

PrintSpc(n);

PrintSpc(i);

?Spc(n);

?Spc(i)；

【學生答案】

n=n+1

【參考答案】

n=n-l

n=-l+n

【學生答案】

m=m-1

【參考答案】

m=m+l

7J題目；以卜程序段用于輸出100-300的所有素數(shù)

OptionExplicit

PrivateSubForm_Click(]

DimnAsInteger,kAsInteger,iAsInteger,switAsInteger

Fori=101To299

k=Int(Sqr(i)

Forn=2Tok

IfiModn=0Then

，**********ERROR**********

Exit

EndIf

Nextn

，**********ERROR**********

Ifn<kThen

Printi;

EndIf

，**********ERR0R**********

Nextn

Trinti

答案【學生答案】

Exit

【參考答案】

exitfor

【學生答案】

Ifn<kThen

【參考答案】

Ifn>kThen

lfk<nThen

【學生答案】

Nextn

【參考答案】

nexti

Nexti

程序填空

1.’從鍵盤輸入三個整數(shù)，從其中找出最大值并輸出到窗口

PrivateSubForm_Click()

Dima%,b%,c%,max%

a=ValQnputBox("請輸入一個整數(shù)"))

b=VaI(InputBox(“請輸入一個整數(shù)〃))

c=Val(InputBox(“請輸入一個整數(shù)〃))

max=a

***********Fin**********

IfThen

max=b

EndIf

Ifmax<cThen

***********F[n**********

EndIf

，**********FJLL**********

Printa;"、”;b;"、”;c;"中最大值是”;

EndSub

答案【學生答案】

IfThen

【參考答案】

max<b

max<=b

b>max

b>=max

【學生答案】

【參考答案】

max=c

【學生答案】

Print1“、”;b;“、”;c;“中最大值是”;

【參考答案】

max

2.以下程序的功能。

<

PrivateSubForm_Click(J

Dima%,b%,c%fd!

Dimxl,x2

Dimp,q,r

a=InputBox("請輸入a的值")

b=InputBoxd請輸入b的值”)

c二InputBox。'請輸入c的值”)

d=bb-4a*c

P=-b/(2*a)

Ifd>=0Then

***********F"L**********

IfThen

r=Sqr(d)/(2*a)

xl=p+r

x2=p-r

Else

xl=p

x2=p

Print"xl=";xl,"x2二”;x2

住水********FJLL**********

q=Sqr(-d)/(2*a)

Print“xl二”；p;“十”；q;"i","x2二”;p;q;"i

EndIf

答案【學生答案】

IfThen

【參考答案】

d>0

【學生答案】

【參考答案】

Endif

EndIf

endif

【學生答案】

【參考答案】

else

Else

ELSE

3二從鍵盤輸入學生分數(shù)，統(tǒng)計學生總人數(shù)和各分數(shù)段人數(shù),

唧優(yōu)秀(90-100)s良好(80-89)x中等(70-79)、

'及格（60-69）、不及格（60以下）的人數(shù)。

PrivateSubForm.ClickO

Dimscore%,nl%,n2%,n3%,n4%,n5%

msg二”請輸入分數(shù)（?1結束）”

msgtitile="輸入數(shù)據(jù)"

score=Val(InputBox(msg,msgtitle))

i**********FJLL**********

While

total=total+1

,**********FJLL**********

SelectCase

CaseIs>=90

nl=nl+1

CaseIs>=80

n2=n2+1

CaseIs>=70

n3=n3+1

CaseIs>=60

n4=n4+1

CaseElse

n5=n5+1

“**********FJLL**********

score=Val(InputBox(msg,msgtitle))

Wend

Printnl,n2,n3,n4,n5,total

EndSub

答案【學生答案】

While

【參考答案】

score>=0andscore<=100

score>=0and$core<=100

score<>-l

【學生答窠】

SelectCase

【參考答案】

score

【學生答案】

【參考答案】

EndSelect

4.以下程序段用于實現(xiàn)：輸入兩個正整數(shù)m和n,求其最大

'公因數(shù)和最小公倍數(shù)。

PrivateSubForm_ClickQ

Dima%,b%,numl%,num2%,temp

numl=InputBox（"請輸入一個正整數(shù)"）

num2=InputBox（“請輸入一個正整數(shù)〃）

，**********F[LL**********

IfThen

temp=numl:numl=num2:num2=temp

EndIf

a=numl

b二num2

***********F[n**********

DoWhile

temp=aModb

a=b

,**********F]LL**********

Loop

Print”最大公因數(shù)為：”;a

Print"最小公倍數(shù)為:w;numl*num2/a

答案【學生答案】

IfThen

【參考答案】

numl<num2

num2>numl

【學生答案】

DoWhile一

【參考答案】

b<>0

b>0

0<b

temp<>0

temp>0

0<temp

Notb-0

Not0=b

【學生答案】

【參考答案】

b=temp

5.'以下程序用于判斷一個正整數(shù)(>3)是否為素數(shù)。

PrivateSubForm_ClickQ

n=InputBox(“請輸入一個正整數(shù)立3)”)

k=Int(Sqr(n))

i=2

swit=0

，**********F[LL**********

DoWhilei<=kAnd

IfThen

swit=1

Else

?**********FILL**********

EndIf

Loop

Ifswit=OThen

Printn;“是一個素數(shù)”

Else

Print%"不是素數(shù)"

EndIf

EndSub

答案【學生答案】

DoWhilei<=kAnd

【參考答案】

swit=0

【學生答案】

IfThen

【參考答案】

nModi=0

n\i=n/i

n/i=int(n/i)

【學生答案】

【參考答案】

i^i+1

6.題目：從鍵盤上輸入一串字符，以"?”結束，統(tǒng)計輸入字符中的

'大、小寫字母和數(shù)字的個數(shù)。

PrivateSubForm_Click(J

Dimch$；nl%,n2%,n3%

nl=0

n2=0

n3:0

ch=InputBox(“請輸入一個字符”)

***********FILL**********

DoWhile

SelectCasech

Case"a"To"z”

nl=nl+1

*******************

Case

n2=n2+1

Case"0”To“9”

n3=n3+1

EndSelect

ch=InputBox（"請輸入一個字符"）

，**********Fin**********

Printnl,n2,n3

答案【學生答案】

DoWhile一

【參考答案】

dowhilech<>M?M

DoWhilechoM?M

【學生答案】

Case

【參考答案】

case"A"to"Z"

Case"A"to"Z”

【學生答窠】

【參考答案】

loop

Loop

窗體設計

1在名稱為Forml的窗體上畫一個文本框，名稱為Txtl；再畫一個命令按鈕,

名稱為C1,標題為“移動"，如圖1所示°

請編寫適當?shù)氖录^程，使得在運行時，單擊〃移動〃按鈕，

文本框水平移動到窗體的最左端如圖2所示。程序中不得使用任何變量。

注意：完成題目后，必須保存工程后再關閉。

【控件】VB.CommandButton.

標準答案：Name=Cl

學生答案：Name=

【控件屬性評分】錯誤

【控件】VB.CommandButton^

標準答案：Caption二移動

學生答案：Caption二

【控件屬性評分】錯誤

【控件】VB.TextBox.

標準答案；Name二Txtl

學生答案；Name=

【事件評分】錯誤

【事件】PrivateSubCl.ClickQ

標準答案：Txtl.Left二0

學生答案:

二1、利用VB設計上面的程序界面。窗體的標題為“字體修改”；其中包括一名稱為

Labell,標題為“請輸入文字”的標簽;

一名稱為Textl,內容為空的文本框；

名稱為Command'標題為"隸書”，名稱為Command*標題為“黑體”的兩個命令按鈕。

2、程序功能；

單擊"隸書〃命令按鈕時，文本框的字體設為“隸書”；

單擊“黑體”命令按鈕時，文本框的字體設置為“黑體”。

提示：不能使用任何變量！

［事件］PrivateSubCommand2_ClickQ

標準答案：Textl.Font="黑體"

學生答案：

【控件屬性評分】錯誤

【控件】VB.CommandButton_

標準答案：Caption二隸書

學生答案：Caption二

【事件評分】錯誤

【事件】PrivateSubCommandl_Click()

標準答案：Textl.Font="隸書"

學生答案；

【控件屬性評分】錯誤

【控件】VB.LabeL

標準答案；Caption：請輸入文字

學生答案；Caption=

三在名稱為Forml的窗體上建立一個名稱為Listl的列表框。

要求：在程序運行后，通過Form_Load()事件過程加載窗體時，執(zhí)行語句Listl.Addltem

“AAA”，

每當單擊某個列表項時，都執(zhí)行語句Listl.AddltemListl.Text一次，如圖所示。

【事件】PrivateSubForm_LoadO

標準答案：Listl.AddItem“AAA”

學生答案：

【事件評分】錯誤

［事件］PrivateSubListl_Click(］

標準答案:Listl.AddltemListl.Text

四在名稱為Forml的窗體上建立一個水平滾動條，名稱為HS1,其最大值為100,最小

值為0。

要求程序運行后，每次移動滾動框時，都執(zhí)行語句Forml.PrintHSl.Value,

如圖所示(程序中不能使用任何變量)

【事件】PrivateSubHSl_ScrollO

標準答案：PrintHSl.Value

學生答案：

【控件屬性評分】錯誤

【控件】VB.HScrollBar_

標準答案；Name=HSl

學生答案：Name=

【控件屬性評分】錯誤

【控件】VB.HScrollBar,

標準答案：Max=100

五1、在名稱為Forml的窗體上建立一個名稱為11的標簽，并設置他不可見；兩個名稱

為cmdl和cmd2,

標題分別為“顯示1“和”顯示2〃的命令按鈕。

2、編寫適當?shù)氖录^程，要求程序運行后，

如果單擊"顯示1”命令按鈕，則標簽可見并顯示字符串“aaa〃；

如果單擊"顯示2”命令按鈕，則標簽可見并顯示字符串“bbb”。

程序中不能使用任何變量，直接顯示字符串；不能使用默認屬性。程序開始運行時界

面如圖1所示標準答案：Caption二顯示1

學生答案：Caption-

【控件屬性評分】錯誤

【控件】VB.Label.

標準答案；Visible=0'False

學生答案；Visible=

【控件屬性評分】錯誤

【控件】VB.LabeL

標準答案；Name=ll

學生答案：Name=

【控件屬性評分】錯誤

【控件】VB.CommandButton.

標準答案：Name=cmd2

學生答案：Name=

【控件屬性評分】錯誤

【控件】VB.CommandButton_

標準答案:Name=cmdl

學生答案：Name二

【事件評分】錯誤

［事件］PrivateSubcmdl_Click()

標準答案:ll.Visible=True

ll.Caption="aaa"

學生答案：

【事件評分】錯誤

【事件】PrivateSubcmd2_Click()

標準答案:ll.Caption=abbbM

六1、在名稱為Forml的窗體上畫一個文本框，名稱為Textl,且不可見；再畫兩個命令

按鈕，名稱分別為cl和c2,

標題分別為“隱藏“和“顯示“。

2、請編寫適當?shù)氖录^程，使得在運行時，如果單擊“隱藏”按鈕，則文本框消失；

如果單擊“顯示”按鈕，則文本框顯示出來，如圖1和圖2所示。程序中不得使用任何

變量。

【控件局性評分】錯誤

【控件】VB.CommandButton.

標準答案；Name=c2

學生答案：Name=

【控件屬性評分】錯誤

【控件】VB.CommandButton_

標準答案：Capt