單選題匯總VB題

概論

I從功能上講，VisualBasic6.0有3種版本，下列不屬于這3種版本的是_標準版。

2與傳統(tǒng)的程序設計語言相比，VisualBasic最突出的特點是—小:件驅動編程機制。

A結構化程序設計

B程序開發(fā)環(huán)境

C事件驅動編程機制

D程序調試技術

參考答案

C

3VisualBasic6.0集成環(huán)境的主窗口中不包括―狀態(tài)右。

4用標準工具欄中的工具按鈕不能執(zhí)行的操作是一打印源程方?

A添加工程

B打印源程序

C運行程序

D打開工程

5以下不屬于鍵盤事件的是（Unload）

AKeyDown

BKeyUp

CUnload

DKeyPress

參考答案

C

6關于VisualBasic”方法"的概念錯誤的是（方法是對事件的響應）

A方法是對象的一部分

B方法是預先定義好的操作

C方法是對事件的響應

D方法用于完成某些特定的功能

7下列說法有錯誤的是（設置Visible屬性同設置Enabled屬性的功能是相同的，都是使控件

處于失效狀態(tài)）

A默認情況下，屬性Visible的值為False

B如果設置控件的Visible屬性為False,則運行時控件會隱藏

CVisible的值可設為True或者False

D設置Visible屬性同設置Enabled屬性的功能是相同的，都是使控件處于失效狀態(tài)

8下列各控件不包含滾動條的控件是（Label）

AListBox

BComboBox

CTextBox

DLabel

9剛建立一個新的標準EXE工程后，不在工具箱中出現的控件是（通用對話框）

A單選按鈕

B圖片框

C通用對話框

D文本框

7。在設計階段，當雙擊窗體上的某個控件時，所打開的窗口是（代碼窗口）

A工程資源管理器窗口

B工具箱窗口

C代碼窗口

D屬性窗口

〃以下敘述中正確的是（窗體的Name屬性指定窗體的名稱，用來標識一個窗體）

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

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

C可以在運行期間改變對象的Name屬性的值

D對象的Name屬性值可以為空

12以下不能在"工程資源管理器”窗口中列出的文件類型是（.fnn）

A-bas

B.res

C.fnn

D.ocx

13如果要改變窗體的標題，則需要設置的屬性是（Caption）

ACaption

BName

CBackColor

DBorderStyle

在VisualBasic中，窗體文件的擴展名為（FRM）

AEXE

BBAS

CFRM

DVBP

75以下敘述中正確的是（窗體的Name屬性指定窗體的名稱，用來標識一個窗體）

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

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

C可以在運行期間改變對象的Name屬性的值

D對象的Name屬性值可以為空

16下列不屬于對象的基本特征的是（函數）

A屬性

B方法

C事件

D函數

17在VisualBasic中，稱對象的數據為（屬性）

A屬性

B方法

C事件

D封裝

18以下能在窗體Forml的標題欄中顯示"VisualBasic窗體"的語句是

（Form1.Caption="VisualBasic窗體”）

AForml.Name="VisualBasic窗體”

BForml.Title="VisualBasic窗體"

CForml.Caption="VisualBasic窗體"

DForml.Text="VisualBasic窗體"

19在按下回車鍵時執(zhí)行某個命令按鈕的事件過程，需要把該命令按鈕的下面哪一個屬性設

置為True（Enabled）

AValue

BDefault

CCancel

DEnabled

20以下敘述中錯誤的是（VisualBasic應用程序只能以解釋方式執(zhí)行）

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

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

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

D事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)

21系統(tǒng)符號常量的定義可以通過（對象瀏覽器）獲得.

A對象瀏覽器

B代碼窗口

C屬性窗口

D工具箱

參考答案

A

22下列方法中不能退出VisualBasic的是（按F10鍵，然后按F鍵，再按X鍵）

A按Alt+Q組合鍵

B按下Alt+F組合鍵，然后按Esc鍵

C打開"文件”菜單，執(zhí)行"退出”命令

D按F10鍵，然后按F鍵，再按X鍵

參考答案

D

23窗體文件的擴展名是（.frm）

A.bas

B,cls

C.frm

D.res

參考答案

C

24下列可以啟動VisualBasic的方法是（A）打開峨的電腦"，找到存放VisualBasic所在系

統(tǒng)文件的硬盤及文件夾，雙擊"VB6.exe"圖標和C）利用"開始"菜單中的"程序"命令可啟動

VisualBasic）

A打開"我的電腦"，找到存放VisualBasic所在系統(tǒng)文件的硬盤及文件夾，雙擊"VB6.exe”圖

標

B在DOS窗口中，鍵入VisualBasic的路徑，執(zhí)行VisualBasic可執(zhí)行文件

C利用"開始"菜單中的"程序"命令可啟動VisualBasic

DA）和C）

參考答案

D

25VisualBasic集成的主窗口中不包括（屬性窗口）

A屬性窗口

B標題欄

C菜單欄

D工具欄

參考答案

A

26下列說法錯誤的是（在調用方法時，對象名是不可缺少的）

A方法是對象的一部分

B在調用方法時，對象名是不可缺少的

C方法是一種特殊的過程和函數

D方法的調用格式和對象屬性的使用格式相同

參考答案

B

27關于VisualBasic”方法”的概念錯誤的是（方法是對事件的響應）

A方法是對象的一部分

B方法是預先定義好的操作

C方法是對事件的響應

D方法用于完成某些特定的功能

參考答案

C

28下列說法錯誤的是（VisualBasic中的一個工程只包含一個窗體）

A窗體文件的擴展名為.frm

B一個窗體對應一個窗體文件

CVisualBasic中的一個工程只包含一個窗體

DVisualBasic中一個工程最多可以包含255個窗體

參考答案

C

29任何控件都有的屬性是（Name）

ABackColor

BCaption

CName

DBorderStyle

參考答案

c

30下列說法錯誤的是（在調用方法時:對象名是不可缺少的）

A方法是對象的一部分

B在調用方法時，對象名是不可缺少的

C方法是一種特殊的過程和函數

D方法的調用格式和對象屬性的使用格式相同

參考答案

B

31以下能在窗體Forml的標題欄中顯示"VisualBasic窗體"的語句是

（Form1.Caption="VisualBasic窗體"）

AForml.Name="VisualBasic窗體”

BForm1.Title=MVisualBasic窗體”

CForml.C叩tion二"VisualBasic窗體”

DForm1.Text=HVisualBasic窗體”

參考答案

C

32下列不能打開屬性窗口的操作是(按Ctrl+T)

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

B按F4鍵

C按Ctrl+T

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

參考答案

C

33下列可以打開立即窗口的操作是(Ctrl+G)

ACtrl+D

BCtrl+E

CCtrl+F

DCtrl+G

參考答案

D

34以卜不屬于VisualBasic系統(tǒng)的文件類型是(.bat)

A.frm

B.bat

C.bas

D.vbp

參考答案

B

35為了在按下回車鍵時執(zhí)行某個命令按鈕的事件過程，需要把該命令按鈕的一個屬性設置

為True,這個屬性是(Default)

ALoad

BClick

CUnload

DGotFocus

參考答案

A

36當運行程序時，系統(tǒng)自動執(zhí)行啟動窗體的某個事件過程。這個事件過程是(Load)

37無論何控件，都具有一個共同屬性。這個屬性是(Name)

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

B按F4鍵

C按Ctrl+T

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

參考答案

C

38以下能在窗體Forml的標題欄中顯示"VisualBasic窗體"的語句是

Form1.Caption="VisualBasic窗體”

ACtrl+D

BCtrl+E

CCtrl+F

DCtrl+G

參考答案

D

39以下不屬于VisualBasic系統(tǒng)的文件類型是

A.frm

B.bat

C.bas

D.vbp

參考答案

B

設菜單中有一個菜單項為“Open”。若要為該菜單命令設計訪問鍵，即按下Alt及字母O時，

能夠執(zhí)行“Open”命令，則在菜單編輯器中設置“Open”命令的方式是

（把Caption屬性設置為&Open）

40以下敘述中錯誤的是（對象事件的名稱可以由編程者指定）

40當運行程序時，系統(tǒng)自動執(zhí)行啟動窗體的某個事件過程。這個事件過程是

ALoad

BClick

CUnload

DGotFocus

參考答案

A

41能夠改變窗體邊框線類型的屬性是_BorderStyle_

42VisualBasic是一種面向對象的可視化程序設計語言,采取了一事件驅動的編程機制。

43在VisualBasic中最基本的對象是一窗體,它是應用程序的基石，是其他控件的容

器。

44在VB中，通過改變表框（）屬性的值，可以為列表框添加項目。

AList

B名稱

CCaption

DText 

參考答案

A

45在VB中，執(zhí)行“A=5：A=A+5”語句后，變量A的值為（）

AO

B5

C10

D不一定

參考答案

C

46若要退出For循環(huán)，可使用的語句為()

AExit

BExitDo

CTime

DExitFor

參考答案

D

47改變控件在窗體中的上下位置應修改控件的( )屬性。

ATop

BLeft

CWidth

DHeight

參考答案

A

48以下關于MsgBox的敘述中，錯誤的是

AMsgBox函數返回一個整數

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

CMsgBox語句沒有返回值

D MsgBox函數的第一個參數是一個整數，該參數只能確定對話框中顯示的按鈕數量

參考答案

D

49假定以下循環(huán)結構：DoUntil條件

循環(huán)體

Loop

則正確的描述是

A如果“條件”是一個為0的常數，則一次循環(huán)體也不執(zhí)行

B如果“條件”是一個為0的常數，則至少執(zhí)行一次循環(huán)體

C如果“條件”是一個不為0的常數，則至少執(zhí)行一次循環(huán)體

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

參考答案

B

50假定窗體上有一個標簽，名為LABEL1,為了使該標簽透明并且沒有邊框，則正確

的屬性設置為

ALABEL1.BACKSTYLE=O

LABEL1.BORDERSTYLE=0

BLABELl.BACKSTYLE=l

LABEL1.BORDERSTYLE=1

CLABEL1.BACKSTYLE=TRUE

LABEL1.BORDERSTYLE=TRUE

DLABEL1.BACKSTYLE=FALSE

LABEL1.BORDERSTYLE=FALSE

參考答案

A

51變量未賦值時，數值型變量的值為

A0

B空

C1

D無任何值

參考答案

A

52任何控件都具有的屬性是

ATEXT

BCAPTION

CNAME

DFORECOLOR

參考答案

C

53耍是一個文本框可以顯示多行文本，應設置為True的屬性為：

AEnabled

BMultiLine

CMaxLength

DWidth

參考答案

B

54在設計階段，當雙擊窗體上的某個控件時，所打開的窗口是()

A工程資源管理器 

B工具箱窗口

C代碼窗口

D屬性窗口

參考答案

C

55決定窗體標題條顯示內容的屬性是()

AText 

BName

CCaption

DBackStyle

參考答案

c

56以下敘述中錯誤的是

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

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

C在KeyDown和KeyUp事件過程中，將鍵盤輸入的A和a視作相同的字母

D在KeyDown和KeyUp事件過程中，從大鍵盤上輸入的1和從右側小鍵盤上輸入的1被視

作不同的字符

參考答案

B

57下列中的哪個符號不能作為VB中的變量名()

AABCDE

BP0000

C89TEF

Dxyz

參考答案

C

58以下能夠觸發(fā)文本框Change事件的操作是()

A文本框失去焦點

B文本框獲得焦點

C設置文本框的焦點

D改變文本框的內容

參考答案

D

59執(zhí)行下面的語句后，所產生的信息框的標題是()a=MsgBox(“AAAA”,“BBBB”,5)vbr>

ABBBB

B空

CAAAA

D出錯，不能產生消息框

參考答案

A

60“x是小于100的非負數”，用VB表達式表示正確的是()

A0=<x<=100

B0=<x<100

C0=<xAndx<100

D0<xOrx<100

參考答案

c

61

假定有以下程序段：Fori=lTo3Forj=5To1step-IPrinti*jNextjNexti

則語句的執(zhí)行次數是()

A15

B16

C17

D18

參考答案

A

62以下程序段的輸出結果是()

x=l

y=4

DoUntily>4

x=x*y

y=y+l

Loop

Printx

A1

B4

C8

D20

參考答案

B

63a=6,則執(zhí)行x=nf(a>5,-l,0)后,x的值為()

A5

B6

CO

D-l

參考答案

D

64用下面的語句所定義的數組的元素的個數是()Dimarr(3To5,-2To2)

A20

B12

C15

D24

參考答案

C

65在設計菜單時，為了創(chuàng)建分隔線，要在()中輸入連字符-

A名稱欄

B標題欄

C索引欄

D顯示區(qū)

參考答案

B

66以下敘述正確的是()

A用屬性窗口只能設置窗體的屬性

B用屬性窗口只能設置控件的屬性

C用屬性窗口能設置窗體和控件的屬性

D用屬性窗口只能設置界面的屬性

參考答案

C

67若要使標簽的大小自動適應所顯示的文本，可通過設置()屬性的值來實現

AAutoSize

BAlignment

CEnabled

DVisble

參考答案

A

68下列哪一個屬性用于設置或返回文本框中的文本。

ACaption

BText

C名稱

DTag

參考答案

B

69()屬性可以使命令按鈕對用戶產生的命令無效。

Adefault

Bcaption

Cenabled

Dcancel

參考答案

C

70以下哪種對象沒有Caption屬性：

AForm

BTextBox

CCommandButton

DLabel<br>

參考答案

B

71當按鈕的()屬性設置為False時，該按鈕為不可見：

AEnable

BVisible

CDefault

DCancel

參考答案

B

VB語言基礎

1.用于從字符串左邊截取字符的函數是()Left

2.可獲得當前系統(tǒng)日期的函數是()Date

3.下列符號中哪個是VB程序中合法的變量名()ab7

4.X是小于100的非負數，用VB表達式表達正確的是()0<=XandX<100

5.、執(zhí)行x$=InputBox("請輸入x的值")時，在彈出的對話框中輸入123,在列表框Listl選中1

個列表項(數據為456),使有的值使123456的語句是y=x$+Listl.List(0)

6.下面有關注釋語句的格式，錯誤的是

A.Rem注釋內容B.'注釋內容C.a=3:b=2'對a、b賦值

D.PrivateSubCommandl_MouseDown(buttonAsInteger,shiftAsInteger

Rem鼠標按下事件的命令調用過程XAsSingle,YAsSingle)

7.下列可以打開立即窗口的操作是_Ctrl+G。

8.表達式4+5\6*7/8Mod9的值是—5。

9.以下語句的輸出結果是—032,548.50。

PrintFormat$(32548.5,"000,000.00")

10.執(zhí)行以下程序段后，變量c$的值為(QuickBASICPrograming)

a$="VisualBasicPrograming"

b$="Quick"

c$=b$&Ucase(Mid$(a$,7,6))&Right$(a$,11)

11.在窗體上?個文本框，其名稱為Textl,然后編寫如下事件過程：

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

DimstrAsString,nAsInteger

str=UCase(Chr(KeyAscii))

n=Len(str)

Textl=String(n,str)

EndSub

程序運行后，如果在鍵盤上輸入單字母"K",則在文本框Textl中顯示的內容為(KK)

12.設有如下變量聲明DimTeslDateAsDale為變量TestDate正確賦值的表達方式是

TextDate=#l/l/2002#

13.設有如下聲明：

DimXAsInteger如果Sgn(X)的值為-1,則X的值是小于0的數

14.設a=3,b=5,則以下表達式值為真的是(a>b)Or(b>0)

15.設2="VisualBasic",下面使6=生2加”的語句是b=Left(a,8,5)

16.函數String(n,"str")的功能是返回由n個字符組成的字符串

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

18.系統(tǒng)符號常量的定義可以通過(對象瀏覽器)獲得.

?.Integer類型的數據由(2)字節(jié)組成

20.Long類型的數據由(4)字節(jié)組成.

21.已知X<Y,A>B,正確表示它們之間關系的式子是(Sgn(Y-X)-Sgn(A-B)=-2)

22.下面程序運行后，窗體(Forml)中輸出的結果是TrueTrue

PrivateSubForm_Load()

Forml.AutoRedraw=True

X=3:y=5

Printx=3;y=5

23.下面程序執(zhí)行的結果是579

PrivateSubCommand1_Click()

A=,,123,':b=,,456u

C=Val(a)+Val(b)

Printc

EndSub

24.在一個有①邏輯運算②算術運算及③關系運算混合在一起的表達式(無括號)中，其運算順

序為②①③

25.運算符"'”兩邊的操作數若類型不同，則先(取整為Integer類型)再運算

26似F合法的VisualBasic標識符是ForLoop

27.設有如下變量聲明

DimTestDateAsDate

為變量TestDate正確賦值的表達方式是TextDate=#l/l/2002#

28.下列哪組語句可以將變量A、B值互換A=A+B:B=A-B:A=A-B

29.要聲明一個長度為256個字符的定長字符串變量str,以下語句正確的是

DimstrasString*256

30.函數Left("Hello",2)的值為He

31.設有如下變量聲明

DimTestDateAsDate

為變量TestDate正確賦值的表達方式是TextDate=#l/l/2002#

32.能正確表示條件"整型變量x值是大于等于-5并且小于等于5”的邏輯表達式

-5<=xandx<=5

.33.能夠返回刪除字符串前導和尾隨空格符后的字符串，用函數Trim

34.表達式4+5\6*7/8Mod9的值是？，表達式5Mod3+3\5*2的值是5,2

35.設a=2,b=4,c=6,下列表達式的值為真的是a>bEqvc<a

36.設S="中華人民共和國”,表達式Left(S,l)+Right(S,l)+Mid(S,3,2)的值為

“中國人民”

37.獲得系統(tǒng)日期的函數是date$

38.VB表達式Sqr(a+b『3*2中優(yōu)先進行運算的是(+)

39.表達式2*4人2-2*6/3+3\2的值是(29)

40.下列敘述不正確的是()

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

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

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

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

4LRnd函數不可能產生(1)值。

42.下面表達式中，(Exp(-3.5))的運算結果與其他三個不同。

43.數學式子sin30°寫成VB表達式是：Sin(30*3.14/180)

44.表達式5八2Mod252-2的值是(1)

45.函數UCase(Mid("visualbasic",8,8))的值為(BASIC)

46.函數InStr("VB程序設計教程"，"程序")的值為(3)

47.表達式Int(4*Rnd+l)*(Int(4*Rnd-l))值的范圍是([-4,8])

48.在以下四個邏輯表達式中，其邏輯值為“真”的是(Not(l>2))

49.表達式"Turbo"+"c">"True"+"Basic,z的值是(-1)

50.下面程序運行后，m的值是(9)

a=12.3

b=-123

m=Len(Str(a)+Str(b))

51.任何控件都有的屬性是Name

52.關于貨幣型數據的說明，正確的是貨幣型數據是小數點位置固定的實型數

53.如果一個變量未經定義就直接使用，則該變量的類型為Variant

54.如果要將窗體中的某個命令按鈕設置成無效狀態(tài)，應該設置命令按鈕的哪一個屬性？

Enabled

55.下列語句的輸出結果為(005,689.360)

PrintFormat$(5689.36,”000,000.000”)

56.下面有關注釋語句的格式，錯誤的是

A.Rem注釋內容B.'注釋內容C.a=3:b=2'對a、b賦值D.PrivateSub

Commandl_MouseDown(buttonAsInteger,shiftAsInteger，—Rem鼠標按下事件的命令

調用過程XAsSingle,YAsSingle)

57.通常情況下，垂直滾動條的值是由上往下遞增

58.表達式5Mod3+3\5*2的值是2

59.設x=4,y=8,z=7,以下表達式的值是(False)

x<yAnd(Noty>z)Orz<x

60.設a=5,b=4,c=3,d=2,下列表達式的值是(True)

3>2*bOra=cAndbocOrc>d

61.設a="MicrosoftVisualBasic”則以下使變量b的值為“VisualBasic”的語句是

b=Mid(a,10)

62.執(zhí)行如下兩條語句，窗體上顯示的是($0,009.86)

a=9.8596

PrintFormat(a；'$00,00.00u)

63.執(zhí)行以下程序段

a$="abbacddcbaM

Fori=6To2Step-2

X=Mid(a,i,i)

Y=Left(a,i)

z=Right(a,i)

z=UCase(X&Y&z)

Nexti

Printz

輸出結果為BBABBA

63.可以同時刪除字符串前導和尾部空白的函數是Trim

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

65.執(zhí)行以下程序段后，變量c$的值為(QuickBASICPrograming)

a$="VisualBasicPrograming"

b$=nQuickn

c$=b$&UCase(Mid$(a$,7,6))&Right$(a$,ll)

66.卜面的變量名合法的是k_name

67.以下合法的VisualBasic標識符是ForLoop

68.設x=4,y=8,z=7,以下表達式的值是(false)

x<yAnd(Noty>z)Orz<x

69.執(zhí)行以下程序段

a$="abbacddcba"

Fori=6To2Step-2

X=Mid(a,i,i)

Y=Lel't(a,i)

z=Right(a,i)

z=UCase(X&Y&z)

Nexti

Printz

輸出結果為BBABBA

70.設a=5,b=4,c=3,d=2,下列表達式的值是(True)

3>2*bOra=cAndbocOrc>d

71.^a="MicrosoftVisualBasic",則以下使變量b的值為"VisualBasic”的語句是

b=Mid(a,10)

72.表達式Str(Len("123"))+Str(77.7)的值為(U3U77.7_)_,

注意：“U”表示空格

73.Abs(-8)+Len("ABCD")的值是」2?

74.如果A為整數，且IAI>=100,則打印“OK”，否則打印“Error”，表示這個條件語句的單

行語句是__IfFix(A)=AAndABS(A)>=100ThenPrint"Ok"ElsePrint"Error"_?

75.如果設計時在屬性窗口將命令按鈕的—Visible—屬性設置為False,則運行時按鈕從窗體

上消失。

76.如果X是一個正實數，將百分位四舍五入，保留一位小數的表達方式是

_0.1*Int(10*(X+0.05))_?

77.以下不合法的常量是10八2一。

78.表達式Int(8*Sqr(36(*l0A(-2)*10+0.5)/10的值是_5一。

79.如果x是一個正實數，對x的第3位小數四舍五入的表達式是」).01*Int(100*(x+0.005))—。

80.下列事件過程實現從鍵盤輸入任意一個實數，用Print方法在窗體上顯示其平方和平方根,

要求每個數

保留三位小數，數據之間有間隔。

PrivateSubForm_Chck()

DimaAsSingle

a=Abs(Val(InputBox("請輸入一個實數”)))

PrintFormat(a*a,00.000");—Spc(4)_;Format(Sqr(a),,,0.000,')

EndSub

81.函數Int(Rnd(0)*10)是哪個范圍內的整數［0,10).

82.語句print5*5\5/5輸出結果是(25)

83.決定窗體標題條顯示內容的屬性是(caption)

84.下列可作為VB的變量名的是(Alpha)

85.設a=2,b=3,c=4,d=5,下列表達式的值是(false)

a>bandc<=dor2*a>c

86.下列敘述中不正確的是—

A變量名的第一個字符必須是字母

B變量名的長度不超過255個字符

C變量名可以包含小數點或者內嵌的類型聲明字符

D變量名不能使用關鍵字

87.變量未賦值時，數值型變量的值為

88.在窗體上畫一個命令按鈕，其名稱為Commands然后編寫如下事件過程:

PrivateSubCommand1_Click()

a=12345

PrintFormat$(a,u000.00")

EndSub

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

89似下程序段的輸出結果是(True)

a=sqr(3)

b=sqr(2)

c=a>b

printc

90.表達式(7\3+l)*3的值是_9-

91.表達式5Mod3+3\5*2的值是2

92.設x=4,y=8,z=7,以下表達式的值是(False)

x<yAnd(Noty>z)Orz<x

選擇結構程序

1.計時器控件的(Interval)屬性用于設置Timer事件發(fā)生的時間間隔。

2.運行下列程序段后，顯示的結果為(9)

Jl=4

J2=9

IfJ1<J2ThenPrintJ2ElsePrintJI

3.下列語句正確的是IfAoBThenPrint"A不等于B”

4.下列程序段執(zhí)行結果為（?33）

x=5

y=-6

IfNotx>0Thenx=y-3Elsey=x+3

Printx-y;y-x

5.設a=6,則執(zhí)行x=IIf（a>5,-l,0）后,x的值為（）

6?假設有以下程序段：

For1=1to3

Forj=5to1Step-1

PrintI*j

Nextj

NextI

則語句PrintI*j的執(zhí)行次數I、j的值分別是（1540）

7.在窗體上有一個文本框控件，要求每一秒鐘在文本框中顯示一次當前名稱為TxtTime：一

個計時器控件，名稱為Timed的時間。程序為：

PrivateSubTimer1_（）

TxtTime.text=Time

EndSub

在下劃線上應填入的內容是Timer

8.為了暫時關閉計時器，應把該計時器的某個屬性設置為False,這個屬性是Enabled

9.下列語句正確的是（IfXV>YThenPrint”X不等于Y”）

10.計算分段函數：

0x<0

y=10<=x<l

2I<=x<2

3x>=2

下面程序段中正確的是（selectcasex

CaseIs<0

Y=0

CaseIs<l

Y=1

CaseIs<2

Y=2

Caseelse

Y=3

Endselect）

11.

下列關于SelectCaseIs的敘述中，錯誤的是

ACase10To100表示判斷Is是否介于10與100之間

BCase”abc”,“ABC”表示判斷Is是否和，be“、"ABC“兩個字符串中的一個相同

CCase"X”表示判斷Is是否為大寫字母X

DCase-7,0,100表示判斷Is是否等于字符串0,100”

12.VB算術運算符乘或除、整除、求余的優(yōu)先級，從高到低依次為乘或除、整除、求余

13.如果要求設置定時器時間間隔為1秒鐘，那么它的Interval屬性值應該等于1000

14.能夠改變復選框中背景顏色的屬性是Backcolor

15.下列語句正確的是（IfXV〉YThenPrint"X不等于Y”）

16.在VB語言中，6個關系運算符在運算過程中優(yōu)先級從高到低的順序是（不分先后順序）

17.下列賦值語句中，（）是錯誤的。

Ax=x+lBx=x+yCx+y=xDx=4>6

18.表達式1.5+32>2Or7Mod3<4AndNot1的運算結果是（-1）

19.如果將文本框的MaxLength屬性設置為0,則文本框中的字符不能超過32K

20.設在窗體上有個文本框，然后編寫如下的事件過程：

PrivateSubText1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

ConstAlt=4

ConstKey_F2=&H71

altdown%=（ShiftAndAlt）>0

f2down%=（KeyCode=Key_F2）

Ifaltdown%Andf2down%Then

Textl.Text="BBBBB"

EndIf

EndSub

上述程序運行后，如果按[Shift+F2],則在文本框中顯示得是文本框平均內容無變化

21似下程序段運行時從鍵盤上輸入字符則輸出結果為（-2）

op$=InputBox（nop="）

Ifop$=M+"Thena=a+2

Ifop$=n-uThena=a-2

Printa

22.下列程序段的執(zhí)行結果為（I=4）

a=75

Ifa>60Then1=1

Ifa>70Then1=2

Ifa>80Then1=3

Ifa<90Then1=4

PrintHI=U;I

23.下面程序段執(zhí)行結果為（Pass）

x=Int（Rnd（）+3）

SelectCasex

Case5

Print"excellent"

Case4

Print"good',

Case3

Print"pass"

CaseElse

PrintnfailM

EndSelect

24.F列程序段的執(zhí)行結果為（

a=l

b=0

SelectCasea

Case1

SelectCaseb

Case0

Print”**0**”

Case1

Print”**1*

EndSelect

Case2

Print*2*

EndSelect

25.下面程序段執(zhí)行結果為(Good)

x=Int(Rnd()+4)

SelectCasex

Case5

Print"excellent*'

Case4

Print"good'1

Case3

PrintMpassn

CaseElse

Print?Tail',

EndSelect

26.運行下列程序段后，顯示的結果為(32)

Jl=23

J2=32

IfJ1<J2ThenPrintJ2ElsePrintJ1

27.下列語句正確的是IfAoBThenPrint不等于B”

28.下面語句正確的是Ifxv3yAndx>yTheny=xA3

29.計算z的值，當x大于y時，z=x；否則z=y。下列語句錯誤的是Ifx>=yThenz=x:z=y

30.下列程序段執(zhí)行結果為(-33)

x=5

y=-6

IfNotx>0Thenx=y-3Elsey=x+3

Printx-y;y-x

31.以下程序段運行時從鍵盤上輸入字符則輸出結果為(?2)

op$=InputBox(”op=")

Ifop$=n+uThena=a+2

Ifop$=M-uThena=a-2

Printa

32.在窗體(名稱為Forml)上畫一個名稱為Textl的文本框和一個名稱為Commandl的命令按

鈕，然后編寫一個事件過程。程序運行以后，如果在文本框中輸入一個字符，則把命令按鈕

的標題設置為"計算機等級考試"。以下能實現上述操作的事件過程是：

PrivateSubTextl_Change()

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

EndSub

33.在窗體(Name屬性為Form1)上畫兩個文本框(其Name屬性分別為Textl和Text2)和一個命

令按鈕(Name屬性為Commandl),然后編寫如下兩個事件過程：

PrivateSubCommand1_Click()

a=Textl.Text+Text2.Text

Printa

EndSub

PrivateSubFormm_Load()

Textl.Text=u"

Text2.Text=,,H

Endsub

程序運行后，在第一個文本框(Textl)和第二個文本框(Text2)中分別輸入123和321,然

后單擊命令按鈕，則輸出結果為123321

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

PrivateSubCommand1_Click()

x=InputBox("Input")

SelectCasex

Case1,3

Print”分支P

CaseIs>4

Print”分支2"

CaseElse

Print"Else分支”

EndSelect

EndSub

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

35.在窗體上畫一個命令按鈕和一個文本框名稱分別為Commandl和Textl然后編寫如下程序:

PrivateSubCommand1_Click()

a=InputBox("請輸入日期(1~31)")

t="旅游景點:"&IIf(a>0Anda<=10,"長城_

&IIf(a>10Anda<=20，"故宮"_

&IIf(a>20Anda<=30,"頤和園

Text1.Text=t

EndSub

程序運行后如果從鍵盤輸入16則在文本框中顯示的內容是：旅游景點：故宮

36.在窗體上畫一個名稱為Command1的命令按鈕和兩個名稱分別為Textl、Text2的文本框，

然后編寫如下事件過程：

PrivateSubCommand1_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

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

10

37.在窗體上畫一個名稱為Timerl的計時器控件，要求每隔0.5秒發(fā)生一次計時器事件，則以

下正確的屬性設置語句是Timer1.Interval=500

38.表達式5Mod3+3\5*2的值是2

39.設@="屋力二%卜士七\(1=(",執(zhí)行語句4項9(1),么”,舊)后，x的值為“A”

40.在窗體上畫一個文本框和一個計時器控件，名稱分別為Text1和Timed,在屬性窗口中把計

時器的Interval屬性設置為1000,Enabled屬性設置為False,程序運行后，如果單擊命令按鈕，

則每隔一秒鐘在文本框中顯示一次當前的時間。以下是實現上述操作的程序：

PrivateSubCommandl_Click()

Timerl._________

EndSub

PrivateSubTimerl_Timer()

Text1.Text=Time

EndSub

在處應填入的內容是Enabled=True

41.如果X的值小于或等于Y的平方，則打印“0K”，表示這個條件的單行格式If語句是_If

x<=yA2ThenPrintnOkn

42.表達式Y+1>=X是一個—關系表達式

43.有一個分段函數，當X<0時，Y=-l；當X=0時，Y=0；當X>0時，Y=k該分段函數在程

序段中可表達為：

IfX<0Then

Y=-l

ElseIfX=OThen.

Y=0

Else

Y=1

44.以卜Case語句中錯誤的是

A.Case0To10B.CaseIs>10C.CaseIs>10AndIs<50D.Case3,5,Is>10

45.關于語句Ifx=lTheny=l,下列說法正確的是—x=l為關系式表達式，y=l為賦值語句—。

46.窗體上有命令按鈕（COMMAND1）和文本輸入框TEXT1,命令按鈕click中代碼如下：

PrivateSubCommandl_Click（）

A=75

IfA>60ThenI=1

IfA>70ThenI=2

IfA>80ThenI=3

IfA>90Then1=4

Text1.Text=I

EndSub

運行后，單擊命令按鈕，textl中顯示_2__。

47.設有如下程序：

PrivateSubCommandl_Click（）

DimcAsInteger,dAsInteger

c=4

d=InputBox（"請輸入一個整數”）

DoWhiled>0

Ifd>cThen

c=c+1

EndIf

d=InputBox（"請輸入一個整數”）

Loop

Printc+d

EndSub

程序運行后，單擊命令按鈕如果在輸入對話框中依次輸入1、2、3、4、5、6、7、8、9、0,則

輸出結果是：9

多重窗體與環(huán)境應用

1.在VisualBasic中，要將?個窗體加載到內存進行預處理但不顯示，應使用的語句是（Load）

2.以下敘述中錯誤的是（窗體的Hide方法和Unload方法的作用完全相同）

3.以下敘述中錯誤的是（在設計VB程序時，窗體、標準模塊、類模塊等需要分別保存為不同

類型的磁盤文件）

4.以下敘述錯誤的是窗體的Hide方法和Unload方法的作用完全相同。

5.為了使一個窗體從屏幕上消失但仍在內存中，所使用的方法或語句為H為e

6.卜.列操作不能向工程中添加窗體的是（右擊窗體，在彈出的菜單中選擇“添加窗體”命令）

7.當一個工程中含有多個窗體時.，其中的啟動窗體是一在“工程屬性”對話框中指定的窗體

8.下列說法錯誤的是（VisualBasic中的一個工程只包含一個窗體）

9.要將名為MyForm的窗體顯示出來，正確的使用方法是（MyForm.Show）

10.一個工程必須包含的文件的類型是（*.vbp*.frm*.frx）

11.有兩個窗體Forml和Form2,要使其中第一個窗體Forml中的第?個命令按鈕來控制

顯示第二個窗體Form2,第二個命令按鈕用來結束程序的運行（兩個按鈕名稱為Command1

和Command2）。則以卜選項中，對這兩個命令按鈕編寫的事件過程正確的是（PrivateSub

Commandl_Click（）

Form2.Show1

EndSub

PrivateSubCommand2_Click（）

End

EndSub

12.在VisualBasic中，要將一個窗體加載到內存進行預處理但不顯示，應使用的語句是

（Load）

13.要將名為MyForm的窗體顯示出來，正確的使用方法是（要將名為MyForm的窗體顯

示出來，正確的使用方法是）

14.建立一個新的標準模塊，應該選擇哪個菜單下的“添加模塊"命令？(“工程”菜單)

15.在VisualBasic中，要將一個窗體加載到內存進行預處理但不顯示，應使用的語句是

(Load)

16.假定一個工程由一個窗體文件Forml和兩個標準模塊文件Model1及Model2組成。

Modell代碼如下：

PublicxAsInteger

PublicyAsInteger

SubS1()

x=1

S2

EndSub

SubS2()

y=10

Forml.Show

EndSub

Model2的代碼如下：

SubMain()

SI

EndSub

其中SubMain被設置為啟動過程。程序運行后，各模塊的執(zhí)行順序是

(Model2->Model1->Form1)

17.在VisualBasic工程中，可以作為啟動對象的程序是(SubMain過程或任何窗體)

18.如果一個工程含有多個窗體及標準模塊，則以下敘述中錯誤的是(如果工程中含有Sub

Main過程，則程序一定首先執(zhí)行該過程)

19.以下敘述中錯誤的是(窗體的Hide方法和Unload方法的作用完全相同)

20.以下關于多重窗體程序的敘述中，錯誤的是(用Hide方法不但可以隱藏窗體，而且能

清除內存中的窗體)

21.假定一個工程由一個窗體文件Form!和兩個標準模塊文件Modell及Model2組成。

Modell代碼如下:

PublicxAsInteger

PublicyAsInteger

SubS1()

x=1

S2

EndSub

SubS2()

y=10

Form1.Show

EndShow

Model2的代碼如下：

SubMain()

SI

EndSub

其中SubMain被設置為啟動過程。程序運行后，各模塊的執(zhí)行順序是

(Model2->Model1->Form1)

22,設有兩個窗體，第一個窗體中有兩個命令按鈕，第一個命令按鈕用來控制顯示第二個窗

體，第二個命令按鈕用來結束程序運行(兩個按鈕名稱分別為Commandl和Command2)。

則以下選項中，對這兩個命令按鈕編寫的事件過程正確的是

—PrivateSubCommand1_Click()

Form2.Show

EndSub

PrivateSubCommand2_Click()

End

EndSub___。

23.已知使用Show方法的格式為：［窗體名稱JShow［模式］,如要使窗體是“模態(tài)型”窗體,

則“模式”值應為」—O

24.一個工程中包含兩個名稱分別為Forml>Form2的窗體，一個名稱為Md1Func的標準

模塊。假定在Forml、Form2和MdIFunc中分別建立了自定義過程，其定義格式為：

Forml中定義的過程：

PrivateSubfrmFunction1()

EndSub

Form2中定義的過程：

PrivateSubfrmFunction2()

EndSub

mdlFunc中定義的過程：

PublicSubmd1Function()

EndSub

在調用上述過程的程序中，如果不指明窗體或模塊的名稱，則以下敘述中正確的是

（只有Md1Function過程能夠被工程中各個窗體或模塊調用）

25.以下關于窗體的描述中，錯誤的是（執(zhí)行UnloadForm1語句后，窗體Forml消失，但

仍在內存中）

26.在窗體上用復制、粘貼的方法建立了一個命令按鈕數組，數組名為Math。設窗體Forml

標題為"myfrml",雙擊控件數組中的第三個按鈕，打開代碼編輯器，寫下如下代碼：

PrivateSubMath_Click（IndexAsInteger）

Form1.Caption="myfrm2"

EndSub

程序運行時，單擊按鈕數組中的第一個按鈕，窗體標題為一myfrm2—。

27.一個工程中含有窗體Forml、Form2和標準模塊Modell,如果在Forml中有語句

PublicXAsInteger在Modell中有語句PublicYAsInteger則以下敘述中正確的是

（在Froml中可以直接使用X）

28.如果一個工程含有多個窗體及標準模塊，則以下敘述中錯誤的是

（如果工程中含有SubMain過程，則程序一定首先執(zhí)行該過程）

29.以下關于多重窗體程序的敘述中，錯誤的是

（用Hide方法不但可以隱藏窗體，而且能清除內存中的窗體）

30.假定一個工程由一個窗體文件Forml和兩個標準模塊文件Modell及Model2組成。

Modell代碼如下:

PublicxAsInteger

PublicyAsInteger

SubS1()

x=1

S2

EndSub

SubS2()

y=10

Form1.Show

EndShow

Model2的代碼如下：

SubMain()

SI

EndSub

其中SubMain被設置為啟動過程。程序運行后，各模塊的執(zhí)行順序是

(Model2->Model1->Form1)

過程

1.不能脫離控件(包括客體)而獨立存在的過程是事件過程

2.Sub過程與Function過程最根本的區(qū)別是Sub過程不能返回值，而Function過

程能返回值

3.定有以下函數過程：

FunctionFun(SAsString)AsString

DimsiAsString

Fori=1ToLen(S)

si=UCase(Mid(S,i,1))+si

Nexti

Fun=si

EndFunction

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

PrivateSubCommmldl_Click()

DimStrlAsString,Str2AsString

Strl=inputbox(“請輸入一個字符串”)

Str2=Fun(Strl)

PrintStr2

EndSub

程序運行后，單擊命令按鈕，如果在輸入對話框中輸入字符串“abcdefg”，則單擊”確

定”按鈕后在窗體上的輸出結果為GFEDCBA

4.設有如下通用過程：

PublicFunctionf(xAsInteger)

DimyAsInteger

x=20

y=2

f=x*y

EndFunction

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

PrivateSubCommand1_Click()

StaticxAsInteger

x=10

y=5

y=f(x)

Printx;y

EndSub

程序運行后，如果單擊命令按鈕，則在窗體上顯示的內容是2040

5下列程序的執(zhí)行結果為

2415

1220

PrivateSubCommand1_Click()

DimxAsInteger,yAsInteger

x=12:y=20

CallValue(x,y)

Printx;y

EndSub

PrivateSubValue(ByValmAsInteger,ByVainAsInteger)

m=m*2:n=n-5

Printm;