《Visual Basic,net 實用教程》期末考試試卷

?VisualBasic,net實用教程>>

期末考試試卷二

班級：學號:姓名:

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

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

下屬性設置正確的是：

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

OTextboxl.scrollbars=noneD)Textboxl.Multiline=true

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

A)MouseMoveB)ClickC)TimerD)Tick

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

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

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

其Minimum和Maximum屬性分別為。和100。程序運行后，如果移動滾動框，則在文本框中

顯示滾動條的當前值，

以下能實現(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)在窗體上畫一個名稱為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

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

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

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

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

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

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

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

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

以下正確的屬性設置語句是

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

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

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

A)Public說明該過程或函數(shù)可以應用在整個應用程序范圍內

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

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

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

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

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

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

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

D)對于多重窗體程序中，要單獨保存每個窗體

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

PrivateSubButtonl_Click(ByVaisenderAsSystem.Object,ByVaieAs

System.EventArgs)HandlesButtonl.Click

a$="VisualBasic”

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

EndSub

程序運行后，單擊命令按鈕，在文本框中顯示的內容是

A)VWB)VisC)sicD)11

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

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

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

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

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

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

A)OpacityB)IsMdiContainerC)ContextmenuD)Locked

(13)當一個復選框被選中時，它的CheckedState屬性的值是

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

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

A)數(shù)組下標的個數(shù)確定數(shù)組的維數(shù)

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

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

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

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

x<yAnd(Noty>z)Orz<x

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

(16)以下關于文件的敘述中，錯誤的是

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

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

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

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

(17)設有如下程序段：

x=2

Fori=lTo10Step2

x=x+i

Next

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

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

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

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

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

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

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

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

Structurestudent

stunoasinteger

stunameasstring(lO)

stuageasinteger

Endstructure

下面引用正確的是

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

C)dimsasstudentD)dimsasstudent

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

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

A)TextB)PasswordC)PasswordCharD)Multiline

(21)在窗體上畫一個名稱為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

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

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

(22)在窗體上畫一個名稱為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

程序運行后，單擊命令按鈕，在文本框顯示的內容是

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

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

正確實現(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)在窗體上畫一個名稱為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

程序運行后，單擊命令按鈕，則在文本框上顯示的內容是

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

程序運行后，單擊窗體，sum的結果為

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

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

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

運行以上程序，正確的結果是

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

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

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

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

的計時器控件，并把其Interval屬性設置為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

程序運行后，單擊“開始”按鈕，標簽在窗體中移動。

對于這個程序，以下敘述中錯誤的是

A)標簽的移動方向為自右向左

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

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

D)標簽按指定的時間時隔移動

(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結果為

A)ABAB)BBABBAOABBABAD)AABAAB

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

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

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

的通用對話框，一個名稱為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

對于這個程序，以下敘述中錯誤的是

A)該對話框被設置為“保存”對話框

B)在該對話框中指定的默認文件名為空

C)該對話框的標題為VBTest

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

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

請將每空的正確答案寫在答題卡【1】?【15】序號的橫線上，答在試卷上不得分。

(1)設有如下程序段：

a$="BeijingShanghai”

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

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

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

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

Picturel.image=2

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

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

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

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

LabelkText屬性為“Sum”的標簽，一個名稱為Buttonl、標題為“計算”的命令按鈕。程

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

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

能的程序，請?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窗體中加入一個命令按鈕Buttonl,要求點擊按鈕后Form2窗體顯示,Forml

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

PrivateSubButtonl_Click(ByVaisenderAsSystem.Object,ByVaieAs

System.EventArgs)HandlesButtonl.Click

DimfrmAsNewForm2

8.Show()

9.Hide()

EndSub

(6)設有如下程序：

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程序運行后，單擊窗體，文本框中結果為11

(7)閱讀下面的程序：

PrivateSubForml_Click(ByVaisenderAsObject,ByVaieAsSystem.EventArgs)

HandlesMyBase.Click

DimCheckAsBoolean,CounterAsInteger

Check=True

Counter=5

Do

DoWhileCounter<20

Counter=Counter+1

IfCounter=15Th