《Visual Basic,net 實(shí)用教程》期末考試試卷

?VisualBasic,net實(shí)用教程>>

期末考試試卷二

班級(jí)：學(xué)號(hào):姓名:

一、選擇題((1)—(20)每小題2分，(21)—(30)每小題3分,共70分)

(1)設(shè)窗體上有一個(gè)文本框，名稱為Textboxl,程序運(yùn)行后，要求該文本框能顯示多行，以

下屬性設(shè)置正確的是：

A)Textboxl.visible=trueB)Textboxl.TabStop=true

OTextboxl.scrollbars=noneD)Textboxl.Multiline=true

(2)定時(shí)器每隔InterVai時(shí)間執(zhí)行的事件是

A)MouseMoveB)ClickC)TimerD)Tick

(3)在菜單設(shè)計(jì)中,如果要讓菜單顯示分隔線,需要在建立的過程中輸入：

A)減號(hào)(-)B)下劃線(_)C)豎線⑴D)加號(hào)(+)

(4)在窗體上畫一個(gè)名稱為Textboxl的文本框，然后畫一個(gè)名稱為HScrollbarl的滾動(dòng)條，

其Minimum和Maximum屬性分別為。和100。程序運(yùn)行后，如果移動(dòng)滾動(dòng)框，則在文本框中

顯示滾動(dòng)條的當(dāng)前值，

以下能實(shí)現(xiàn)上.述操作的程序段是

A)PrivateSubHScrollBarlScroll(ByVaisenderAsSystem.Object,ByVaieAs

System.Windows.Forms.ScrollEventArgs)HandlesIIScrollBarl.Scroll

Textboxl.Text=HScrollbarl.text

B)PrivateSubHScrol1Barl_click(ByVaisenderAsSystem.Object,ByVaieAs

System.Windows.Forms.ScrollEventArgs)HandlesHScrolIBarl.Scroll

Textboxl.Text二HScrollbarl,Value

EndSub

C)PrivateSubHScrol1Barl_Scro11(ByVaisenderAsSystem.Object,ByVaieAs

System.Windows.Forms.ScrollEventArgs)HandlesHScrolIBarl.Scroll

Textboxl.Text=HScrol1Ibar1.Value

EndSub

D)PrivateSubHScrollBarl_click(ByVaisenderAsSystem.Object,ByVaieAs

System.Windows.Forms.ScrollEventArgs)HandlesHScrollBarl.Scroll

Textoxl.Text=HScrollbarl.text

EndSub

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

PrivateSubButtonlClick(ByValsenderAsSystem.Object,ByVaieAs

System.EventArgs)HandlesButtonl.Click

x=val(InputBox("Input"))

SelectCasex

Case1,3

Textboxl,text=〃分支1〃

CaseIs>4

Textboxl.text=〃分支2"

CaseElse

Textboxl.text="Else分支”

EndSelect

EndSub

程序運(yùn)行后，如果在輸入對(duì)話框中輸入4,則窗體上顯示的是

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

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

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

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

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

D)對(duì)象事件的名稱可以由編程者指定

(7)在窗體上畫一個(gè)名稱為Timerl的計(jì)時(shí)器控件，要求每隔0.5秒發(fā)生一次計(jì)時(shí)器事件，則

以下正確的屬性設(shè)置語句是

A)Timerl.InterVal=0.5B)Timerl.Interval=5

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

(8)下面關(guān)于過程和函數(shù)敘述錯(cuò)誤的是

A)Public說明該過程或函數(shù)可以應(yīng)用在整個(gè)應(yīng)用程序范圍內(nèi)

B)Friend說明該過程或函數(shù)只能在本項(xiàng)目或組件的范圍內(nèi)

0Private說明只能在該過程或函數(shù)所在的窗體或模塊內(nèi)被其他過程調(diào)用

D)過程和函數(shù)都有返回值返回給調(diào)用它的程序

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

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

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

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

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

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

PrivateSubButtonl_Click(ByVaisenderAsSystem.Object,ByVaieAs

System.EventArgs)HandlesButtonl.Click

a$="VisualBasic”

Textboxl.text=mid(a$,1,3)

EndSub

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

A)VWB)VisC)sicD)11

(11)以下關(guān)于MsgBox的敘述中，錯(cuò)誤的是

A)MsgBox函數(shù)返回??個(gè)整數(shù)

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

0MsgBox函數(shù)的第一個(gè)參數(shù)是必選的，其他參數(shù)是可選的。

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

(12)一個(gè)窗體要被設(shè)置成父窗體,需要設(shè)置下面的哪個(gè)屬性

A)OpacityB)IsMdiContainerC)ContextmenuD)Locked

(13)當(dāng)一個(gè)復(fù)選框被選中時(shí)，它的CheckedState屬性的值是

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

(14)下列關(guān)于數(shù)組的說法正確的是

A)數(shù)組下標(biāo)的個(gè)數(shù)確定數(shù)組的維數(shù)

B)用Redim可以更改數(shù)組的維數(shù)

0用Redim可以更改數(shù)組的類型

D)多維數(shù)組中的Redim語句中使用Preserve時(shí),可以改變多維的大小.

(15)設(shè)x=4,y=8,z=7,以下表達(dá)式的值是

x<yAnd(Noty>z)Orz<x

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

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

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

B)隨機(jī)文件中記錄的長度是隨機(jī)的

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

D)LOF函數(shù)返回給文件分配的字節(jié)數(shù)

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

x=2

Fori=lTo10Step2

x=x+i

Next

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

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

(18)將隨機(jī)文件的記錄讀出到變量的操作,語法格式正確的是

A)FileGet(文件號(hào)，變量，記錄號(hào))

B)FileGet(變量,文件號(hào),記錄號(hào))

0FilePut(文件號(hào)，變量，記錄號(hào))

D)FilePut(變量，文件號(hào)，記錄號(hào))

(19)定義下面一個(gè)數(shù)據(jù)類型:

Structurestudent

stunoasinteger

stunameasstring(lO)

stuageasinteger

Endstructure

下面引用正確的是

A)student.stuname=,,李明”B)stuname="李明"

C)dimsasstudentD)dimsasstudent

s.stuname=”李明"stuname二”李明”

(20)如果要讓文本框中輸入的內(nèi)容顯示為*,需要設(shè)置文本框的屬性是

A)TextB)PasswordC)PasswordCharD)Multiline

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

PrivateSubButtonl_Click(ByVaisenderAsSystem.Object,ByVaieAs

System.EventArgs)HandlesButtonl.Click

StaticxAsInteger

Cis

Fori=lTo2

y=y+x

x=x+2

Next

Textboxl.text=x

Textbox2.text=y

EndSub

程序運(yùn)行后，連續(xù)三次單擊Command1按鈕后，兩個(gè)文本框中分別顯示的是

A)42B)1218C)1230D)46

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

PrivateSubButtonl_Click(ByVaisenderAsSystem.Object,ByVaieAs

System.EventArgs)HandlesButtonl.Click

DimxAsInteger

DimyAsInteger

x=10

y=5

Callfl(x,y)

Textboxl.text=str(x)+str(y)

EndSub

PrivateSubfl(ByRefxlAsInteger,ByVaiylAsInteger)

xl=xl+2

yl=yl+2

EndSub

程序運(yùn)行后，單擊命令按鈕，在文本框顯示的內(nèi)容是

A)105B)125C)107D)127

(23)函數(shù)過程F1的功能是：如果參數(shù)b為奇數(shù)，則返回值為1,否則返回值為0。以下能

正確實(shí)現(xiàn)上述功能的代碼是

A)FunctionFl(bAsInteger)

IfbMod2=0Then

Return0

Else

Return1

EndIf

EndFunction

B)FunctionFl()

dimbasinteger

IfbMod2=0Then

Fl=0

Else

Fl=1

EndIf

EndFunction

C)FunctionFl(bAsInteger)

IfbMod2=0Then

Fl=1

Else

Fl=0

EndIf

EndFunction

D)FunctionFl()

dimbasinteger

IfbMod200Then

Return0

Else

Return1

EndIf

EndFunction

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

PrivateSubButtonl_Click(ByVaisenderAsSystem.Object,ByVaieAs

System.EventArgs)HandlesButtonl.Click

Dima(4)

fori=0to4

a(i)=i

next

fori=0To4

a(i)=a(i)+i-l

Next

Textboxl.text=a(3)

EndSub

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

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

(25)閱讀程序

PrivateSubEorml_Click(ByVaisenderAsObject,ByVaieAsSystem.EventArgs)Handles

MyBase.Click

Dimarr(9),Sum

Sum二0

Fori=0to9

arr(i)=2*i+l

Next

Fori=0To9

Ifarr(i)/3=arr(i)\3Then

Sum=Sum+arr(i)

EndIf

Nexti

EndSub

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

A)13B)14C)27D)15

(26)設(shè)一個(gè)工程由兩個(gè)窗體組成，其名稱分別為Forml和Form2,在Forml上有一個(gè)名稱為

Buttonl的命令按鈕。窗體Forml的程序代碼如卜：

PrivateSubButtonlClick(ByValsenderAsSystem.Object,ByVaieAs

System.EventArgs)HandlesButtonl.Click

DimaAsInteger

DimchAsNewform2

a=10

g(ch,a)

EndSub

PrivateSubg(ByValfAsForm,ByVaixAsInteger)

DimyAsInteger

y=IIf(x>10,100,-100)

f.Show()

f.Text=y

EndSub

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

A)Forml的text1屬性值為100B)Form2的text屬性值為TOO

C)Forml的text屬性值為TOOD)Form2的text屬性值為100

(27)在窗體上畫一個(gè)名稱為Labell、標(biāo)題為“VisualBasic考試”的標(biāo)簽，兩個(gè)名稱分別為

Buttonl和Button2、標(biāo)題分別為“開始”和“停止”的命令按鈕，然后畫一個(gè)名稱為Timerl

的計(jì)時(shí)器控件，并把其Interval屬性設(shè)置為500,如圖所示。

編寫如下程序：

PrivateSubForml_Load(ByVaisenderAsSystem.Object,ByVaieAsSystem.EventArgs)

HandlesMyBase.Load

Timerl.Enabled二False

EndSub

PrivateSubButtonl_Click(ByVaisenderAsSystem.Object,ByVaieAs

System.EventArgs)HandlesButtonl.Click

Timerl.Enabled=True

EndSub

PrivateSubButton2_Click(ByVaisenderAsSystem.Object,ByVaieAs

System.EventArgs)HandlesButtonl.Click

Timerl.Enabled=FaIse

EndSub

PrivateSubTimerl_Tick(ByVaisenderAsSystem.Object,ByVaieAsSystem.EventArgs)

HandlesTimerl.Tick

IfLabell.Left<WidthThen

Label1.Left=Label1.Left+20

Else

Label1.Left=O

EndIf

EndSub

程序運(yùn)行后，單擊“開始”按鈕，標(biāo)簽在窗體中移動(dòng)。

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

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

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

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

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

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

a$二〃abbacddcba”

Fori=6To2Step-2

X=Mid(a,i,i)

Y=Left(a,i)

z=Right(a,i)

z=UCase(X&Y&z)

Nexti

z結(jié)果為

A)ABAB)BBABBAOABBABAD)AABAAB

(29)以下不屬于類的特性的是：

A)封裝性B)繼承性C)多態(tài)性D)獨(dú)立性

(30)在窗體上畫一個(gè)名稱為OpenfileDialogl

的通用對(duì)話框，一個(gè)名稱為buttonl的命令按鈕。然后編寫如下事件過程：

PrivateSubButtonl_Click(ByVaisenderAsSystem.Object,ByVaieAs

System.EventArgs)HandlesButtonl.Click

OpenfileDialogl.FileName二〃〃

OpenfileDialogl.Filter二〃All

file*.*|(*.Doc)|*.Doc|(*.Txt)I*.Txt”

Openfi1eDialogl.Title="VBTest”

OpenfileDialogl.ShowDialog()

EndSub

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

A)該對(duì)話框被設(shè)置為“保存”對(duì)話框

B)在該對(duì)話框中指定的默認(rèn)文件名為空

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

D)在該對(duì)話框中用Filter設(shè)定了文件類型過濾器

二、填空題(每空2分，共30分)

請(qǐng)將每空的正確答案寫在答題卡【1】?【15】序號(hào)的橫線上，答在試卷上不得分。

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

a$="BeijingShanghai”

b$=left(a$,InStr(a$,"g"))

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

(2)窗體上有一個(gè)圖片框PictureBoxl和一個(gè)命令按鈕Buttonl,點(diǎn)擊按鈕要求在圖片框中

載入C盤下的imagel.jpg,則在命令按鈕事件中編寫的代碼應(yīng)該是：

Picturel.image=2

(3)利用System.10模型打開文件(打開方式是打開一個(gè)已經(jīng)存在的文件,如果不存在,則打

開一個(gè)新的文件)的命令是：

DimFilelas3("C:\Text,txt”,4)

(4)窗體上有一個(gè)名稱為ListBoxl的列表框，一個(gè)名稱為TextBoxl的文本框，一個(gè)名稱為

LabelkText屬性為“Sum”的標(biāo)簽，一個(gè)名稱為Buttonl、標(biāo)題為“計(jì)算”的命令按鈕。程

序運(yùn)行后，將把1?100之間能夠被7整除的數(shù)添加到列表框。如果單擊“計(jì)算”按鈕，則對(duì)

ListBoxl中的數(shù)進(jìn)行累加求和，并在文本框中顯示計(jì)算結(jié)果，如圖所示。以下是實(shí)現(xiàn)上述功

能的程序，請(qǐng)?zhí)羁铡?/p>

PrivateSubForm2Load(ByVaisenderAsSystem.Object,ByVaieAsSystem.EventArgs)

HandlesMyBase.Load

DimiAsInteger

Fori=1To100

IfiMod7=0Then

5

EndIf

Next

EndSub

PrivateSubButtonl_Click(ByVaisenderAsSystem.Object,ByVaieAs

System.EventArgs)HandlesButtonl.Click

DimsumAsInteger

DimiAsInteger

sum=0

Fori=0To6

sum=sum+7

Next

TextBoxl.Text=sum

EndSub

(5)在Forml窗體中加入一個(gè)命令按鈕Buttonl,要求點(diǎn)擊按鈕后Form2窗體顯示,Forml

隱藏,使用如下代碼來實(shí)現(xiàn)下面的程序：

PrivateSubButtonl_Click(ByVaisenderAsSystem.Object,ByVaieAs

System.EventArgs)HandlesButtonl.Click

DimfrmAsNewForm2

8.Show()

9.Hide()

EndSub

(6)設(shè)有如下程序：

PrivateSubForml_Click(ByVaisenderAsObject,ByVaieAsSystem.EventArgs)

HandlesMyBase.Click

DimnAsInteger,sAsInteger

n=10

s=0

Do

s=s+n

n=n-1

LoopWhilen>0

Textboxl.text=s

EndSub

以上程序的功能是100程序運(yùn)行后，單擊窗體，文本框中結(jié)果為11

(7)閱讀下面的程序：

PrivateSubForml_Click(ByVaisenderAsObject,ByVaieAsSystem.EventArgs)

HandlesMyBase.Click

DimCheckAsBoolean,CounterAsInteger

Check=True

Counter=5

Do

DoWhileCounter<20

Counter=Counter+1

IfCounter=15Th