52000. 下列敘述中正確的是(C)(單)

A.只有窗體才是Visual Basic中的對(duì)象

B.只有控件才是Visual Basic中的對(duì)象

C.窗體和控件都是Visual Basic中的對(duì)象

D.窗體和控件都不是Visual Basic中的對(duì)象

52001.下列可以激活屬性窗口的操作是(D)(單)

A.用鼠標(biāo)雙擊窗體的任何部位

B.執(zhí)行"文件"菜單中的"屬性窗口"命令

C.執(zhí)行"編輯"菜單中的"屬性窗口"命令

D.按F4鍵

52002下列能打開工具箱窗口的操作是(A)(單)

A.執(zhí)行"視圖"菜單中的"工具箱"命令 ???B.按Alt鍵

C.單擊屬性窗口上的"工具箱"按鈕 ?????D.按Ctrl鍵

52003.假定已在一個(gè)窗體上畫了多個(gè)控件，并有一個(gè)控件是活動(dòng)的，為了在屬性窗口中設(shè)置該窗體的Name屬性，預(yù)先應(yīng)執(zhí)行的操作是(D)(單)

A.單擊窗體上有控件的地方 ??B.單擊任一個(gè)控件

C.不執(zhí)行任何操作 ??????????D.雙擊窗體的標(biāo)題欄

52004.為了把窗體上的某個(gè)控件變?yōu)榛顒?dòng)的，應(yīng)執(zhí)行的操作是(B)(單)

A.單擊窗體的空白處 ????B.單擊該控件的內(nèi)部

C.雙擊該屬性列表框 ????D.雙擊窗體

52005.確定一個(gè)控件在窗體上的位置的屬性是(D)(單)

A.Width或Height ????B.Top和Height

C.Top或Width ???????D.Top和Left

52006.確定一個(gè)窗體或控件的大小的屬性是(A)(單)

A.Width或Height ????B.Top和Width

C.Top或Left ????????D.Top和Left

52007.為了同時(shí)改變一個(gè)活動(dòng)控件的高度和寬度，正確的操作是(A)(單)

A.拖拉位于控件左上角 ?????B.只能拖拉位于控件右下角

C.只能拖拉位于控件左下角

D.不能同時(shí)改變控件的高度和寬度

52008.面向?qū)ο蟮某绦蛟O(shè)計(jì)指滿足(B)(單)

A.虛擬化、結(jié)構(gòu)化、動(dòng)態(tài)化 ??B.封裝性、繼承性、多態(tài)性

C.對(duì)象的鏈接、動(dòng)態(tài)鏈接、動(dòng)態(tài)數(shù)據(jù)交換

D.ODBC、DDE、OLE

52009.用戶在屏幕上畫出應(yīng)用程序界面，并設(shè)置好對(duì)象的屬性，系統(tǒng)便可以自動(dòng)生成程序代碼，這稱為(A)(單)

A.面向?qū)ο蟮某绦蛟O(shè)計(jì) ???B.結(jié)構(gòu)化程序設(shè)計(jì)

C.事件驅(qū)動(dòng)的編程機(jī)制 ???D.程序設(shè)計(jì)

52010.VB集成開發(fā)環(huán)境開發(fā)的應(yīng)用程序不適宜的運(yùn)行環(huán)境是(A)(單)

A.WINDOS 32 ????????????B.WINDOWS 9X

C.WINDOWS NT ? D.WINDOWS 2000

52011.VB6共有三個(gè)版本，按功能從弱到強(qiáng)的順序排列應(yīng)是(C)(單)

A.學(xué)習(xí)版、專業(yè)版和工程版 ??B.學(xué)習(xí)版、工程版和專業(yè)版

C.學(xué)習(xí)版、專業(yè)版和企業(yè)版 ??D.學(xué)習(xí)版、企業(yè)版和專業(yè)版

52012.VB集成開發(fā)環(huán)境有三種工作狀態(tài)，不屬于三種工作狀態(tài)之一的是(B)(單)

A.設(shè)計(jì)狀態(tài) ? B.編寫代碼狀態(tài)

C.運(yùn)行狀態(tài) ? D.中斷狀態(tài)

52013.不能打開代碼窗口的操作是(B)(單)

A.雙擊窗體設(shè)計(jì)器的任何地方 ???????B.按下F鍵

C.單擊工程窗口中的"查看代碼"按鈕

D.選擇"視圖"下拉菜單中的"代碼窗口"

52014.在VB中，工程文件的擴(kuò)展名是(B)(單)

A..frm ????B..vbp ????C..bas ????D..frx

52015.在VB中，窗體文件的擴(kuò)展名是(A)(單)

A..frm ????B..vbp ????C..bas ????D..frx

52016.VB集成開發(fā)環(huán)境可以(D)(單)

A.編輯、調(diào)試、運(yùn)行程序，但不能生成可執(zhí)行程序

B.編輯、生成可執(zhí)行程序、運(yùn)行程序，但不能調(diào)試程序

C.編輯、調(diào)試、生成可執(zhí)行程序，但不能運(yùn)行程序

D.編輯、調(diào)試、運(yùn)行程序，也能生成可執(zhí)行程序

52017.英文"VISUAL"的含義是(A)(單)

A.可視化 ?????B.集成 ????C.結(jié)構(gòu)化 ??????D.調(diào)試

52018.標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是(C)(單)

A.frm ??????B.vbp ? C.bas ??????D.vbg

52019.VB集成開發(fā)環(huán)境中，在(C)中編寫代碼(單)

A.狀態(tài)欄 ??B.屬性列表框 ?C.代碼框 ???D.標(biāo)題欄

52020.在面向?qū)ο蟮某绦蛟O(shè)計(jì)過(guò)程中，英文縮寫"OOP"的含義是(C)(單)

A.事件驅(qū)動(dòng)的編程機(jī)制 ????B.結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言

C.面向?qū)ο蟮某绦蛟O(shè)計(jì) ????D.可視化程序設(shè)計(jì)

52021.在窗體上畫一個(gè)名稱為Timer1的計(jì)時(shí)器控件，要求每隔0.5秒發(fā)生一次計(jì)時(shí)器事件，則以下正確的屬性設(shè)置語(yǔ)句是(D)(單)

A.Timer1.Interval=0.5 ???B.Timer1.Interval=5

C.Timer1.Interval=50 ????D.Timer1.Interval=500

52022.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：

Private Sub Command1_Click( )

Static x As Integer

Cls

For t=1 To 2

y=y+x

x=x+2

Next t

Print x,y

End Sub

程序運(yùn)行后，連續(xù)三次單擊Command1按鈕后，窗體上顯示的是(A)(單)

A.4 2 ????B.12 18 ?????C.12 30 ?????D.4 6

52023.以下關(guān)于多重窗體程序的敘述中，錯(cuò)誤的是(A)(單)

A.用Hide方法不但可以隱藏窗體,且能清除內(nèi)存中的窗體

B.在多重窗體程序中，各窗體的菜單是彼此獨(dú)立的

C.在多重窗體程序中，可以根據(jù)需要指定啟動(dòng)窗體

D.對(duì)于多重窗體程序中，單獨(dú)保存每個(gè)窗體

52024.以下關(guān)于文件的敘述中，錯(cuò)誤的是(B)(單)

A.順序文件中的記錄一個(gè)接一個(gè)順序存放

B.隨機(jī)文件中記錄的長(zhǎng)度是不相同的

C.執(zhí)行打開文件的命令后，自動(dòng)生成一個(gè)文件指針

D.EOF函數(shù)作用是判斷文件的指針是否指向文件末尾

52025.以下敘述中錯(cuò)誤的是(D)(單)

A.事件過(guò)程是響應(yīng)特定事件的一段程序

B.不同的對(duì)象可以具有相同名稱的方法

C.對(duì)象的方法是執(zhí)行指定操作的過(guò)程

D.編程者可以自由更改代碼框右上邊的過(guò)程列表的事件名稱

52026.以下合法的Visual Basic變量的名稱是(A)(單)

A.a3 ????????B.Const ?????C.9abc ??????D.a#x!

52027.當(dāng)一個(gè)復(fù)選框被選中時(shí)，它的Value屬性的值是(C)(單)

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

52028.表達(dá)式 5 Mod 3+5\3的值是(B)(單)

A.0 ??????B.3 ???????C.4 ??????D.6

52029.設(shè)x=4,y=8,z=7, 表達(dá)式：(x＜y) 　Or z＜x 的值是(C)(單)

A.1 ?????????B.-1 ???C.TRUE ??????D.FALSE

52030.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：

Private Sub Command1_Click( )

a$="VisualBasic"

Print String(3,a$)

End Sub

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

A.VVV ??????B.Vis ?C.sic ??????D.11

52031.設(shè)有如下程序段：

x=2

For c=1 To 4 Step 2

x=x+c

Next c

運(yùn)行以上程序后，x的值是(A)(單)

A.6 ??????B.7 ? C.8 ??????D.9

52032.以下敘述中錯(cuò)誤的是(A)(單)

A.在KeyPress事件過(guò)程中不能識(shí)別鍵盤鍵的按下與釋放

B.在KeyPress事件過(guò)程中不能識(shí)別回車鍵

C.在KeyDown和KeyUp事件過(guò)程中，從鍵盤輸入的字母"A"和字母"a"對(duì)應(yīng)的KeyCode視作相同的字母

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

52033.執(zhí)行如下兩條語(yǔ)句，窗體上顯示的是(C)(單)

A=9.8596

Print Format(a,"000.00")

A.0,009.86 ??B.9.86 ???C.009.86 ??D.0,009.86

52034.在窗體上畫一個(gè)名稱為CommandDialog1 的通用對(duì)話框，一個(gè)名稱為Command1的命令按鈕。然后編寫如下事件過(guò)程：

Private Sub Command1_Click( )

CommonDialog1.FileName =""

CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"

CommonDialog1.FilterIndex=1

CommonDialog1.DialogTitle="VBTest"

CommonDialog1.Action=1

End Sub

對(duì)于這個(gè)程序，以下敘述中錯(cuò)誤的是(D)(單)

A.該對(duì)話框被設(shè)置為"打開"對(duì)話框

B.在該對(duì)話框中指定的文件名為空

C.該對(duì)話框的標(biāo)題為VBTest

D.在該對(duì)話框中指定的默認(rèn)文件類型為文本文件(*.Txt)

52035.設(shè)一個(gè)工程由兩個(gè)窗體組成，其名稱分別為Form1和Form2，在Form1上有一個(gè)名稱為Command1的命令按鈕。窗體Form1的程序代碼如下：

Private Sub Command1_Click( )

Dim a As Integer

a=10

Call g(Form2,a)

End Sub

Private Sub g(f As Form,x As Integer)

y=Iif(x＞10,100,-100)

f.Show

f.Caption=y

End Sub

運(yùn)行以上程序，正確的結(jié)果是(B)(單)

A.Form1的Caption屬性值為100

B.Form2的Caption屬性值為-100

C.Form1的Caption屬性值為-100

D.Form2的Caption屬性值為100

52036.在窗體上畫一個(gè)名稱為Command1的命令按鈕，并編寫如下程序：

Private Sub Command1_Click( )

Dim x As Integer

Static y As Integer

x=10

y=5

Call f1(x,y)

Print x,y

End Sub

Private Sub f1(ByRef x1 As Integer, y1 As Integer)

x1=x1+2

y1=y1+2

End Sub

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

A.10 5 ??????B.12 5 ? C.10 7 ??????D.12 7

52037.Option Base 1

Private Sub Command1_Click( )

Dim a(10) As Integer

Dim n As Integer

n=3

If n＜10 Then

Call GetArray(a,n)

End If

End Sub

Private Sub GetArray(b( ) As Integer,n As Integer)

Dim c(10) As Integer

j=0

For t=1 To n

b(t)=Rnd*100

If b(t)/2=b(t)\2 Then

j=j+1

c(j)=b(t)

End If

Next t

Print j

End Sub

以下敘述中錯(cuò)誤的是(C)(單)

A.數(shù)組b中的數(shù)范圍為0-100

B.c數(shù)組下標(biāo)的下界從1開始

C.GetArray過(guò)程的參數(shù)n是按值傳送的

D.語(yǔ)句If b(t)/2=b(t)\2 Then 是判斷數(shù)組b中元素的值是否為整數(shù)

52038.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：

Option Base 1

Private Sub Command1_Click( )

Dim a

a= Array(1,2,3,4,5)

For c=1 To Ubound(a)

a(c) = a(c)+c-1

Next c

Print a(3)

End Sub

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

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

52039.閱讀程序：

Option Base 1

Private Sub Form_Click( )

Dim arr

Dim Sum%

Sum = 0

arr = Array(1, 3, 5, 7, 9)

For t = 1 To 5

Sum = Sum + arr(t)

Next t

Print Sum

End Sub

程序運(yùn)行后，單擊窗體，輸入結(jié)果為(B)(單)

A.5 ???????B.9 ?C.25 ??????D.15

52040.在窗體上畫一個(gè)名稱為File1的文件列表框，并編寫如下程序：

Private Sub File1_DblClick( )

x=Shell(File1.FileName,1)

End Sub

以下關(guān)于該程序的敘述中，錯(cuò)誤的是(A)(單)

A.x沒(méi)有實(shí)際作用，因此可以將該語(yǔ)句寫為：Call Shell(File1,FileName,1)

B.雙擊文件列表框中的文件，將觸發(fā)該事件過(guò)程

C.要執(zhí)行的文件的名字通過(guò)File1.FileName指定

D.File1中顯示的是當(dāng)前驅(qū)動(dòng)器、當(dāng)前目錄下的文件

52041.在窗體上畫一個(gè)名稱為L(zhǎng)abel1、標(biāo)題為"VisualBasic考試"的標(biāo)簽，兩個(gè)名稱分別為Command1和Command2、標(biāo)題分別為"開始"和"停止"的命令按鈕，然后畫一個(gè)名稱為Timer1的計(jì)時(shí)器控件，并把其Interval屬性設(shè)置為500。編寫如下程序：

Private Sub Form_Load( )

Timer1.Enabled=False

End Sub

Private Sub Command1_Click( )

Timer1.Enabled=True

End Sub

Private Sub Timer1_Timer( )

If Label1.Left＜ Form1.Width Then

Label1.Left = Label1.Left + 20

Else

Label1.Left=0

End If

End Sub

程序運(yùn)行后，單擊"開始"按鈕，標(biāo)簽在窗體中移動(dòng)。 對(duì)于這個(gè)程序，以下敘述中錯(cuò)誤的是(A)(單)

A.標(biāo)簽的移動(dòng)方向?yàn)樽杂蚁蜃?/p>

B.單擊"停止"按鈕后再單擊"開始"按鈕，標(biāo)簽從停止的位置繼續(xù)移動(dòng)

C.當(dāng)標(biāo)簽全部移出窗體后，將從窗體的另一端出現(xiàn)并重新移動(dòng)

D.標(biāo)簽按指定的時(shí)間時(shí)隔移動(dòng)

52042.規(guī)范地說(shuō)，VB是一種(A)的開發(fā)工具(單)

A.面向?qū)ο???B.面向用戶 ??C.面向屏幕 ??D.面向窗體

52043.VB6設(shè)計(jì)界面包含多個(gè)視窗，控制這些視窗顯示或關(guān)閉的命令包含在(D)下拉菜單中(單)

A.文件 ??B.工程 ?C.編輯 ??D.視圖

52044下面(D)操作不是激活或顯示屬性列表框的操作(單)

A.按快捷鍵F4

B.點(diǎn)擊工具欄中的"屬性列表框"按鈕

C.選擇"視圖"下拉菜單的"屬性窗口"項(xiàng)

D.雙擊窗體中的某一對(duì)象

52045.Visual Basic程序中分隔各語(yǔ)句的字符是(B)(單)

A.′ ??????B.: ? C.\ ???????D._

52046.假定窗體的名稱(Name屬性)為Form1，則把窗體的標(biāo)題設(shè)置為"VB Test"的語(yǔ)句為(B)(單)

A.Form1 = "VB Test" ???? B.Caption ="VB Test"

C.Form1.Text = "VB Test" D.Form1.Name ="VB Test"

52047.下列不能打開代碼窗口的操作是(D)(單)

A.雙擊窗體上的某個(gè)控件雙擊 ?????B.雙擊窗體

C.按F7鍵 ? ? ?D.單擊窗體或控件

52048.Visual Basic程序中語(yǔ)句行的續(xù)行符是(D)(單)

A.′ ??????B.: ? C.\ ???????D. _

52049.Visual Basic程序中的注釋所使用的字符是(A)(單)

A.′ ??????B.: ? C.\ ???????D._

52050.下列說(shuō)法中正確的是：為了保存一個(gè)Visual Basic應(yīng)用程序，應(yīng)當(dāng)(D)(單)

A.只保存窗體模塊文件(.frm) ?B.只保存工程文件(.vbp)

C.分別保存工程文件和標(biāo)準(zhǔn)模塊文件(.bas)

D.分別保存工程文件、窗體文件和標(biāo)準(zhǔn)模塊文件

52051.為了使窗體的大小可以改變，必須把它的BorderStyle屬性設(shè)置為(B)(單)

A.1 ??????B.2 ? C.3 ??????D.4

52052.下列說(shuō)法中正確的是：為了載入一個(gè)只有一個(gè)工程（此工程下有三個(gè)窗體）的Visual Basic應(yīng)用程序，應(yīng)當(dāng)(B)(單)

A.只裝入窗體模塊文件(.frm)

B.先裝入工程文件(.vbp)即可

C.分別裝入工程文件和標(biāo)準(zhǔn)模塊文件(.bas)

D.分別裝入工程文件、窗體文件和標(biāo)準(zhǔn)模塊文件

52053.要使一個(gè)標(biāo)簽?zāi)軌蝻@示所需要的文本，應(yīng)設(shè)置該標(biāo)簽的(A)屬性的值(單)

A.Caption ????B.Name ?C.Text ??????D.AutoSize

52054.要使一個(gè)命令按鈕上有圖形，應(yīng)該設(shè)置該按鈕的(A)屬性值，同時(shí)設(shè)置它的style屬性為1(單)

A.Picture ?? ?B.Style

C.DownPicture ? D.DisabledPicture

52055.為使計(jì)時(shí)器對(duì)象每隔5秒鐘產(chǎn)生一個(gè)時(shí)鐘事件(Timer事件)，則其Interval屬性值應(yīng)設(shè)置為(D)(單)

A.5 ????????B.300 ?C.500 ??????D.5000

52056一個(gè)標(biāo)準(zhǔn)的VB應(yīng)用程序至少要包含一個(gè)(C)對(duì)象(單)

A.文本框 ???B.標(biāo)簽框 ?C.窗體 ??????D.命令按鈕

52057.要使一個(gè)文本框?qū)ο竽軌蝻@示多行文字，應(yīng)設(shè)置該對(duì)象的(B)屬性值為True(單)

A.Text ????B.MultiLine ??C.Style ??????D.Visible

52058.下列的(A)對(duì)象支持KeyPress事件(單)

A.文本框 ??B.命令按鈕 ??C.標(biāo)簽框 ??????D.圖像框

52059.若要將窗體從內(nèi)存中卸載，其實(shí)現(xiàn)的方法或語(yǔ)句是(B)(單)

A.Show ??????B.Unload C.Load ??????D.Hide

52060.以下選項(xiàng)中，不是VB標(biāo)準(zhǔn)控件的是(C)(單)

A.命令按鈕 ???B.定時(shí)器 ??C.通用對(duì)話框 ???D.單選框

52061.雙擊窗體中的對(duì)象后，VB將顯示的窗口是(C)(單)

A.工具箱 ?B.項(xiàng)目（工程）窗口C.代碼窗口 ?D.屬性窗口

52062.下述選項(xiàng)中，VB的程序設(shè)計(jì)方法是(B)(單)

A.面向?qū)ο?、順序?qū)動(dòng) ???B.面向?qū)ο?、事件?qū)動(dòng)

C.面向過(guò)程、事件驅(qū)動(dòng) D.面向過(guò)程、順序驅(qū)動(dòng)

52063.在VB中，要將一個(gè)窗體裝載到內(nèi)存進(jìn)行變量初始化等預(yù)處理，但沒(méi)有顯示該窗體，應(yīng)使用的方法或語(yǔ)句是(C)(單)

A.Show ???B.Unload ?C.Load ??????D.Hide

52064.文本框的默認(rèn)屬性是(B)(單)

A.Caption ?????B.Text C.Name ????????D.Top

52065.標(biāo)簽?zāi)J(rèn)屬性是(A)(單)

A.Caption ?????B.Text C.Name ????????D.Top

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

a$="abbacddcba"

For I=6 To 2 Step -2

X=Mid(a,I,I)

Y=Left(a,I)

z=Right(a,I)

z=Ucase(X&Y&z)

Next I

Print z

輸出結(jié)果為(B)(單)

A.ABA ???????B.BBABBA C.ABBABA ????D.AABAAB

52067.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：

Option Base 1

Private Sub Command1_Click( )

Dim a As Variant

a=Array(1,2,3,4,5)

Sum=0

For I=1 To 5

Sum = sum+a(I)

Next I

x=Sum/5

For I =1 To 5

If a(I)＞x Then Print a(I);

Next I

End Sub

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

A.1 2 ???????B.1 2 3 C.3 4 5 ?????D.4 5

52068.假定一個(gè)工程由一個(gè)窗體文件Form1和兩個(gè)標(biāo)準(zhǔn)模塊文件Model1及Model2組成。Model1代碼如下：

Public x As Integer

Public y As Integer

Sub S1( )

x =1

S2

End Sub

Sub S2( )

y=10

Form1.Show

End Sub

Model2的代碼如下：

Sub Main( )

S1

End Sub

其中Sub Main被設(shè)置為啟動(dòng)過(guò)程。程序運(yùn)行后，各模塊的執(zhí)行順序是(C)(單)

A.Form1-＞Model1-＞Model2

B.Model1-＞Model2-＞Form1

C.Model2-＞Model1-＞Form1

D.Model2-＞Form1-＞Model1

52069.設(shè)有如下程序段：

a$="beijingshanghai"

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

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

52070.以下程序段的輸出結(jié)果是【3】

Num =0

Do While num＜＝2

num = num+1

Loop

Print num

52071.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：

Private Sub Command1_Click( )

Move 500，500

End Sub

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

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

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

C.命令按鈕向左、上方向各移動(dòng)500

D.窗體向左、上方向各移動(dòng)500

52072.在窗體上有若干控件，其中有一個(gè)名稱為Text1的文本框。影響Text1的Tab順序的屬性是(D)(單)

A.TabStop ???B.Enabled ??C.Visible ???D.TabIndex

52073.在窗體上畫一個(gè)名稱為L(zhǎng)ist1的列表框，為了對(duì)列表框中的每個(gè)項(xiàng)目都能進(jìn)行處理，應(yīng)使用的循環(huán)語(yǔ)句為(A)(單)

A.For i=0 To List1.ListCount-1 ......　 Next i

B.For i=0 To ListCount-1 ...... Next i

C.For i=1 To List1.listCount 　...... Next i

D.For i=1 To ListCount ...... Next i

52074.以下Case語(yǔ)句中錯(cuò)誤的是(C)(單)

A.Case 0 To 10 ???? ? B.Case Is＞10

C.Case Is＞10 And Is＜50 D.Case 3,5,Is＞10

52075.以下關(guān)于圖片框控件的說(shuō)法中，錯(cuò)誤的是(D)(單)

A.可以通過(guò)Print方法在圖片框中輸出文本

B.清空?qǐng)D片框控件中圖形的方法之一是加載一個(gè)空?qǐng)D形

C.圖片框控件可以作為容器使用

D.用圖片框控件的Stretch屬性可以自動(dòng)調(diào)整圖片框中圖形的大小

52076.執(zhí)行語(yǔ)句s=Len(Mid("VisualBasic",1,6))后，s的值是(A)(單)

A.Visual ?????B.Basic ?C.6 ??????????D.11

52077.以下敘述中錯(cuò)誤的是(D)(單)

A.下拉式菜單能用菜單編輯器建立

B.在多窗體程序中，每個(gè)窗體都可以建立自己的菜單系統(tǒng)

C.能夠?qū)Σ藛雾?xiàng)的Click事件編程

D.如果把一個(gè)菜單項(xiàng)的Enabled屬性設(shè)置為False，則該菜單項(xiàng)不可見

52078.在窗體上畫一個(gè)命令按鈕，其名稱為Command1，然后編寫如下事件過(guò)程：

Private Sub Command1_Click( )

a = "12345"

Print Format$(a, "000.00")

End Sub

程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是(B)(單)

A.123.45 ??B.12345.00 C.12345 ??D.00123.45

52079.以下關(guān)于函數(shù)過(guò)程的敘述中，正確的是(A)(單)

A.函數(shù)過(guò)程形參的類型與函數(shù)返回值的類型沒(méi)有關(guān)系

B.在函數(shù)過(guò)程中，過(guò)程的返回值可以有多個(gè)

C.當(dāng)數(shù)組作為函數(shù)過(guò)程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳址方式傳遞

D.如果不指明函數(shù)過(guò)程參數(shù)的類型，則該參數(shù)不能有數(shù)據(jù)類型的參數(shù)

52080.以下關(guān)于變量作用域的敘述中，正確的是(C)(單)

A.用dim定義變量是靜態(tài)變量

B.靜態(tài)變量必須在標(biāo)準(zhǔn)模塊中聲明

C.用public定義變量是全局變量

D.Static類型變量的作用域范圍是它所在的窗體或模塊文件

52081.確定一個(gè)控件在窗體上的位置的屬性是(C)(單)

A.Width和Height ?B.Width或Height

C.Top和Left ? D.Top或Left

52082.在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：

Private Sub Command1_Click( )

Text1.Text = "Visual"

Me.Text1 = "Basic"

Text1 = "Program"

End Sub

程序運(yùn)行后，如果單擊命令按鈕，則在文本框中顯示的是(C)(單)

A.Visual ??????B.Basic ?C.Program ?????D.出錯(cuò)

52083.以下關(guān)系表達(dá)式中，其值為False的是(A)(單)

A."ABC"＞"AbC" ? ? B."the"＜＞"they"

C."VISUAL"=UCase("Visual") ?D."Integer"＞"Int"

52084.語(yǔ)句Print int(5/4*6\5) Mod 2的輸出結(jié)果是(B)(單)

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

52085.在窗體上畫一個(gè)文本框、一個(gè)標(biāo)簽和一個(gè)命令按鈕，其名稱分別為Text1、Label1和Command1，然后編寫如下兩個(gè)事件過(guò)程：

Private Sub Command1_Click( )

strText = InputBox("請(qǐng)輸入")

Text1.Text = strText

End Sub

Private Sub Text1_Change( )

Label1.Caption = Right(Trim(Text1.Text), 3)

End Sub

程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中輸入abcdef，則在標(biāo)簽中顯示的內(nèi)容是(D)(單)

A.空 ??????B.abcdef ?C.abc ?????D.def

52086.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：

Private Sub Command1_Click( )

x = -5

If x ＞0 Then

y = x ^ 2

Else

y = x

End If

Print y

End Sub

程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是(A)(單)

A.-5 ??????B.25 ? C.1 ???????D.-1

52087.一個(gè)工程中含有窗體Form1、Form2和標(biāo)準(zhǔn)模塊Model1，如果在Form1中有語(yǔ)句Pubilc X As

Integer，在Model1中有語(yǔ)句Pubilc Y As Integer，則以下敘述中正確的是(A)(單)

A.變量X、Y的作用域相同 ??????B.Y的作用域是Model1

C.在Form1的任何地方中可以直接使用Y

D.在Form2中可以直接使用X和Y

52088.在窗體上畫一個(gè)名稱為Drive1的驅(qū)動(dòng)器列表框，一個(gè)名稱為Dir1的目錄列表框。當(dāng)改變當(dāng)前驅(qū)動(dòng)器時(shí)，目錄列表框應(yīng)該與之同步改變。設(shè)置兩個(gè)控件同步的命令放在一個(gè)事件過(guò)程中，這個(gè)事件過(guò)程是(A)(單)

A.Drive1_Change ????????B.Drive1_Click

C.Dir1_Click ? D.Dir1_KeyPress

52089.在窗體上畫一個(gè)命令按鈕（其NAME屬性為Command1），然后編寫如下代碼：

Option Base 1

Private Sub Command1_Click( )

Dim a

s = 0

a = Array(1, 2, 3, 4)

For I = 4 To 1 Step -1

s = s + a(I)

Next I

Print s

End Sub

運(yùn)行上面的程序，單擊命令按鈕，其輸出結(jié)果是(D)(單)

A.4321 ??????B.1234 ?C.34 ????????D.10

52090.在窗體上畫一個(gè)名稱為Text1的文本框，編寫以下代碼：

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii ＜ 65 　Or　 KeyAscii＞ 90 Then

msgBox "請(qǐng)輸入大寫字母"

KeyAscii = 0

End If

End Sub

以下能說(shuō)明該事件過(guò)程正確是(A)(單)

A.要求文本框只能接收大寫字母的輸入

B.要求文本框只能接收小寫字母的輸入

C.要求文本框只能接收數(shù)字的輸入

D.要求文本框只能接收65到90之間的數(shù)值的輸入

52091.在窗體上畫一個(gè)名稱為Text1的文本框，一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程和通用過(guò)程：

Private Sub Command1_Click( )

n = Val(Text1.Text)

If n\2 = n/2 Then

f = f1(n)

Else

f = f2(n)

End If

Print f; n

End Sub

Public Function f1(ByRef x)

x=x*x

f1=x+x

End Function

Public Function f2(ByVal x)

x=x*x

f2=x+x+x

End Function

程序運(yùn)行后，在文本框中輸入3，然后單擊命令按鈕，窗體上顯示的是(D)(單)

A.72 36 ??????B.108 36 ?C.72 6 ???????D.27 3

52092.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：

Private Sub Command1_Click( )

c = "1234"

For i = 1 To 4

c1 = Trim(Str( ))

Print　c1

Next i

End Sub

程序運(yùn)行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容

1

12

123

1234

則在下劃線處應(yīng)填入的內(nèi)容為(B)(單)

A.Right(c1,i) ?B.Left(c1,i)

C.Mid(c1,i,1) ?D.Mid(c1,i,i)

52093.在窗體上畫一個(gè)名稱為Command1的命令按鈕和一個(gè)名稱為Text1的文本框，然后編寫如下事件過(guò)程：

Private Sub Command1_Click( )

n = Val(Text1.Text)

For i = 2 To n

For j = 2 To sqr(i)

If i Mod j = 0 Then Exit For

Next j

If j ＞Sqr(i) Then Print i

Next i

End Sub

該事件過(guò)程的功能是(C)(單)

A.輸出n以內(nèi)的奇數(shù) ?B.輸出n以內(nèi)的偶數(shù)

C.輸出n以內(nèi)的素?cái)?shù) ?D.輸出n以內(nèi)能被j整除的數(shù)

52094.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下通用過(guò)程和命令按鈕的事件過(guò)程：

Private Function f(m As Integer)

If m Mod 2 = 0 Then

f = m

Else

f = 1

End If

End Function

Private Sub Command1_Click( )

Dim i As Integer

s = 0

For i = 1 To 5

s = s + f(i)

Next

Print s

End Sub

程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的是(C)(單)

A.11 ????B.10 ?C.9 ???????D.8

52095.在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：

Private Sub Command1_Click( )

Dim array1(10, 10) As Integer

Dim i As Integer, j As Integer

For i = 1 To 3

For j = 2 To 4

array1(i, j) = i + j

Next j

Next i

Text1.Text = array1(2, 3) + array1(3, 4)

End Sub

程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是(D)(單)

A.15 ??????B.14 ?C.13 ??????D.12

52096.Visual Basic應(yīng)用程序中標(biāo)準(zhǔn)模塊文件的擴(kuò)展名是【BAS或.BAS】(注意不要寫點(diǎn))。

52097.在菜單編輯器中建立一個(gè)菜單，其主菜單項(xiàng)的名稱為mnuEdit，Visible屬性為False，程序運(yùn)行后，如果用鼠標(biāo)右鍵單擊窗體，則彈出與mnuEdit相應(yīng)的菜單。

Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button=2 Then

popupmenu mnuEdit

End If

End Sub

52098.在菜單編輯器中建立一個(gè)菜單，其主菜單項(xiàng)的名稱為mnuEdit，Visible屬性為False，程序運(yùn)行后，如果用鼠標(biāo)右鍵單擊窗體，則彈出與mnuEdit相應(yīng)的菜單。以下是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁铡?/p>

Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button=2 Then

【popupmenu】 mnuEdit

End If

52099.為了使計(jì)時(shí)器控件Timer1每隔0.5秒觸發(fā)一次Timer事件，應(yīng)將Timer1控件的【Interval】屬性設(shè)置為500。

52100.為了使計(jì)時(shí)器控件Timer1每隔0.5秒觸發(fā)一次Timer事件，應(yīng)將Timer1控件的Interval屬性設(shè)置為【500】。

52101.與數(shù)學(xué)表達(dá)式ln(a+b)/(3x)+5 對(duì)應(yīng)的Visual Basic表達(dá)式是【log(a+b)/(3*x)+5或(log(a+b)/(3*x))+5】

*52102.將C盤根目錄下的圖形文件moon.jpg裝入圖片框Picture1的語(yǔ)句是【】

52103.在窗體上畫一個(gè)名稱為Text1的文本框，然后畫三個(gè)單選按鈕，并用這三個(gè)單選按鈕建立一個(gè)控件數(shù)組，名稱為Option1，程序運(yùn)行后，如果單擊某個(gè)單選按鈕，則文本框中的字體將根據(jù)所選擇的單選按鈕切換。

Private Sub Option1_Click(Index As Integer)

Select Case 【Index】

Case 0

a = "宋體"

Case 1

a = "黑體"

Case 2

a = "楷體＿GB2312"

End Select

text1.fontname=a

End Sub

52104.在窗體上畫一個(gè)名稱為Text1的文本框，然后畫三個(gè)單選按鈕，并用這三個(gè)單選按鈕建立一個(gè)控件數(shù)組，名稱為Option1，程序運(yùn)行后，如果單擊某個(gè)單選按鈕，則文本框中的字體將根據(jù)所選擇的單選按鈕切換。

Private Sub Option1_Click(Index As Integer)

Select Case index

Case 0

a = "宋體"

Case 1

a = "黑體"

Case 2

a = "楷體＿GB2312"

End Select

text1.【fontname】=a

End Sub

52105.在窗體上畫兩個(gè)組合框，其名稱分別為Combo1、Combo2，然后畫兩個(gè)標(biāo)簽，名稱分別為L(zhǎng)abel1、Label2。程序運(yùn)行后，如果在某個(gè)組合框中選擇一個(gè)項(xiàng)目，則把所選中的項(xiàng)目在其下面的標(biāo)簽中顯示出來(lái)。

Private Sub Combo1_Click( )

Call ShowItem(Combo1, Label1)

End Sub

Private Sub Combo2_Click( )

Call ShowItem(Combo2, Label2)

End Sub

Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)

【tmplabel】.Caption =tmpCombo.Text

End Sub

52106.在窗體上畫兩個(gè)組合框，其名稱分別為Combo1、Combo2，然后畫兩個(gè)標(biāo)簽，名稱分別為L(zhǎng)abel1、Label2，程序運(yùn)行后，如果在某個(gè)組合框中選擇一個(gè)項(xiàng)目，則把所選中的項(xiàng)目在其下面的標(biāo)簽中顯示出來(lái)。

Private Sub Combo1_Click( )

Call ShowItem(Combo1, Label1)

End Sub

Private Sub Combo2_Click( )

Call ShowItem(Combo2, Label2)

End Sub

Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)

tmpLabel.Caption =【tmpcombo】.Text

End Sub

52107.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過(guò)程：

Private Sub Command1_Click( )

n = 5

f = 1

s = 0

For c = 1 To n

f = f*【7】

s = s + f

Next c

Print s

End Sub

該事件過(guò)程的功能是計(jì)算1!+2!+3!+…+n!的值。

52108.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：

Option Base 1

Private Sub Command1_Click( )

Dim a(10) As Integer

For I = 1 To 10

a(I) = I

Next I

Call【swap】a( )

For I = 1 To 10

Print a(I);

Next

End Sub

Sub swap(b( ) As Integer)

n = ubound(b)

For I = 1 To n / 2

t = b(I)

b(I) = b(n)

b(n) = t

n=n-1

Next I

End Sub

上述程序的功能是，通過(guò)調(diào)用過(guò)程swap，調(diào)換數(shù)組中數(shù)值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，……，a(5)與a(6)的值互換。

52109.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：

Option Base 1

Private Sub Command1_Click( )

Dim a(10) As Integer

For I = 1 To 10

a(I) = I

Next I

Call swap（a( )）

For I = 1 To 10

Print a(I);

Next

End Sub

Sub swap(b( ) As Integer)

n =【ubound(b)】

For I = 1 To n / 2

t = b(I)

b(I) = b(n)

b(n) = t

n=n-1

Next I

End Sub

上述程序的功能是，通過(guò)調(diào)用過(guò)程swap，調(diào)換數(shù)組中數(shù)值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，……，a(5)與a(6)的值互換。

52110.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：

Option Base 1

Private Sub Command1_Click( )

Dim a(10) As Integer

For I = 1 To 10

a(I) = I

Next I

Call swap（a( )）

For I = 1 To 10

Print a(I);

Next I

End Sub

Sub swap(b( ) As Integer)

n = ubound(b)

For I = 1 To n / 2

t = b(I)

b(I) = b(n)

b(n) = t

n=【n-1】

Next I

End Sub

上述程序的功能是，通過(guò)調(diào)用過(guò)程swap，調(diào)換數(shù)組中數(shù)值的存放位置，即a(1)與a(10)的值互換，a(2)與a(9)的值互換，……，a(5)與a(6)的值互換。

52111.以下程序段運(yùn)行的結(jié)果為(B)(單)

Private Sub Form_Click( )

MyDate = #7/21/1997#

Print Format(MyDate, "m/d/yy")

Print Format(MyDate,"yyyy年m月dd日")

End Sub

A.7/21/97 1997年7月21日

B.7-21-97 1997年7月21日

C.97/7/21 1997年7月21日

D.7/21/97 97年7月21日

52112.以下程序段運(yùn)行的結(jié)果為(B)(單)

Private Sub Form_Click( )

MyTime = #9:21:30 PM#

MyDate = #7/21/1997#

Print Tab(2); Format(MyDate, "mmmm-yy")

Print Tab(2); Format(MyTime, "hh:mm:ss A/P")

End Sub

A.July-97 9:21:30 P ?B.July-97 09:21:30 P

C.07-97 9:21:30 P ?D.July-97 9:21:30

52113.以下程序段運(yùn)行的結(jié)果為(C)(單)

Private Sub Form_Click( )

MyDate = #7/21/1997#

Print Format(MyDate, "dddd,mmmm,dd,yyyy")

End Sub

A.21,07,1997 ? ?B.21,07,21,1997

C.Monday,July,21,1997 ?D.Monday,07,21,1997

52114.在窗體中建立一個(gè)文本框text1和一個(gè)命令按鈕command1，編寫下面程序：

Private Sub Text1_LostFocus( )

If Not IsNumeric(Text1) Then

MsgBox "帳號(hào)有非數(shù)字字符錯(cuò)誤"

Text1.Text = ""

Text1.SetFocus

else

MsgBox "帳號(hào)正確"

End If

End Sub

當(dāng)在text1文本框中輸入字符"abc"之后，單擊命令按鈕，結(jié)果為(B)(單)

A.顯示對(duì)話框，提示信息為"帳號(hào)正確"

B.顯示對(duì)話框，提示信息為"帳號(hào)有非數(shù)字字符錯(cuò)誤"

C.程序出錯(cuò) ? D.沒(méi)有任何提示