浙江技術(shù)學(xué)考vb試題及答案

浙江技術(shù)學(xué)考vb試題及答案姓名：____________________

一、選擇題（每題2分，共20分）

1.在VisualBasic中，以下哪個(gè)不是有效的數(shù)據(jù)類型？

A.Integer

B.String

C.Date

D.Object

2.以下哪個(gè)是VB中定義數(shù)組的正確語(yǔ)法？

A.Dim數(shù)組名(下標(biāo)1To下標(biāo)2)As數(shù)據(jù)類型

B.Dim數(shù)組名(下標(biāo)1..下標(biāo)2)As數(shù)據(jù)類型

C.Dim數(shù)組名(下標(biāo)1,下標(biāo)2)As數(shù)據(jù)類型

D.Dim數(shù)組名[下標(biāo)1To下標(biāo)2]As數(shù)據(jù)類型

3.在VB中，以下哪個(gè)關(guān)鍵字用于聲明一個(gè)變量？

A.Public

B.Dim

C.As

D.End

4.以下哪個(gè)函數(shù)可以返回字符串的長(zhǎng)度？

A.Length()

B.StrLen()

C.Len()

D.Lengths()

5.以下哪個(gè)函數(shù)可以判斷一個(gè)字符串是否為空？

A.IsEmpty()

B.IsEmptyString()

C.IsNull()

D.IsEmptyChar()

6.以下哪個(gè)方法可以將一個(gè)字符串轉(zhuǎn)換為大寫？

A.ToUpper()

B.ToUpperCase()

C.Upper()

D.ToUppercase()

7.在VB中，以下哪個(gè)是正確的注釋方法？

A.//注釋內(nèi)容

B./*注釋內(nèi)容*/

C.'''注釋內(nèi)容'''

D.'注釋內(nèi)容

8.在VB中，以下哪個(gè)是正確的邏輯運(yùn)算符？

A.&&

B.|||

C.==>

D.>=>

9.以下哪個(gè)是VB中的循環(huán)結(jié)構(gòu)？

A.If-Then

B.For-Next

C.While-Do

D.Select-Case

10.在VB中，以下哪個(gè)是正確的條件語(yǔ)句？

A.If(條件)Then

B.If(條件)Else

C.If(條件)ThenElse

D.IfThen(條件)

二、填空題（每空2分，共20分）

1.在VB中，聲明一個(gè)整型變量，使用的關(guān)鍵字是____________________。

2.要將字符串轉(zhuǎn)換為數(shù)字，可以使用____________________函數(shù)。

3.在VB中，字符串的長(zhǎng)度可以通過(guò)____________________屬性來(lái)獲取。

4.以下代碼段創(chuàng)建了一個(gè)整型數(shù)組，數(shù)組名為numArray，長(zhǎng)度為5，正確的代碼是____________________。

5.以下代碼段輸出字符串"HelloWorld"，正確的代碼是____________________。

6.在VB中，要判斷兩個(gè)字符串是否相等，可以使用____________________運(yùn)算符。

7.在VB中，以下代碼段將變量x賦值為10，正確的代碼是____________________。

8.在VB中，以下代碼段輸出變量x的值，正確的代碼是____________________。

9.在VB中，以下代碼段輸出變量x和y的和，正確的代碼是____________________。

10.在VB中，以下代碼段將變量x的值加1，正確的代碼是____________________。

四、編程題（每題20分，共40分）

1.編寫一個(gè)VB程序，該程序包含一個(gè)名為“CalculateSum”的函數(shù)，該函數(shù)接收兩個(gè)整數(shù)參數(shù)，并返回它們的和。在主程序中，調(diào)用該函數(shù)并顯示結(jié)果。

```vb

PublicClassForm1

PrivateSubForm1_Load(senderAsObject,eAsEventArgs)HandlesMyBase.Load

'在此處調(diào)用CalculateSum函數(shù)并顯示結(jié)果

EndSub

'在此處編寫CalculateSum函數(shù)

EndClass

```

2.編寫一個(gè)VB程序，該程序包含一個(gè)名為“Fibonacci”的函數(shù)，該函數(shù)接收一個(gè)整數(shù)參數(shù)n，并返回Fibonacci數(shù)列的第n項(xiàng)。在主程序中，調(diào)用該函數(shù)并顯示結(jié)果。

```vb

PublicClassForm1

PrivateSubForm1_Load(senderAsObject,eAsEventArgs)HandlesMyBase.Load

'在此處調(diào)用Fibonacci函數(shù)并顯示結(jié)果

EndSub

'在此處編寫Fibonacci函數(shù)

EndClass

```

五、簡(jiǎn)答題（每題10分，共20分）

1.簡(jiǎn)述在VB中如何聲明一個(gè)全局變量。

2.簡(jiǎn)述在VB中如何處理異常。

六、綜合應(yīng)用題（每題20分，共20分）

編寫一個(gè)VB程序，該程序包含一個(gè)名為“Student”的類，該類具有屬性“Name”和“Age”。編寫一個(gè)名為“MainForm”的主窗體，該窗體包含一個(gè)文本框用于輸入學(xué)生姓名，一個(gè)數(shù)字輸入框用于輸入學(xué)生年齡，以及一個(gè)按鈕用于創(chuàng)建學(xué)生對(duì)象并顯示其信息。

```vb

PublicClassStudent

Private_nameAsString

Private_ageAsInteger

PublicPropertyNameAsString

Get

Return_name

EndGet

Set(valueAsString)

_name=value

EndSet

EndProperty

PublicPropertyAgeAsInteger

Get

Return_age

EndGet

Set(valueAsInteger)

_age=value

EndSet

EndProperty

PublicSubNew(nameAsString,ageAsInteger)

_name=name

_age=age

EndSub

PublicSubDisplayInfo()

Console.WriteLine("Name:"&Name&",Age:"&Age)

EndSub

EndClass

PublicClassMainForm

PrivateSubbtnCreateStudent_Click(senderAsObject,eAsEventArgs)HandlesbtnCreateStudent.Click

'在此處創(chuàng)建Student對(duì)象并顯示信息

EndSub

EndClass

```

試卷答案如下：

一、選擇題答案及解析：

1.B。在VB中，String是有效的數(shù)據(jù)類型，而Integer、Date和Object也都是有效的數(shù)據(jù)類型，但題目要求選擇“不是”的數(shù)據(jù)類型。

2.A。在VB中，聲明數(shù)組的正確語(yǔ)法是使用Dim關(guān)鍵字，并指定下標(biāo)范圍。

3.B。在VB中，使用Dim關(guān)鍵字來(lái)聲明變量。

4.C。在VB中，使用Len()函數(shù)可以返回字符串的長(zhǎng)度。

5.A。在VB中，使用IsEmpty()函數(shù)可以判斷一個(gè)字符串是否為空。

6.B。在VB中，使用ToUpper()函數(shù)可以將字符串轉(zhuǎn)換為大寫。

7.B。在VB中，使用/*注釋內(nèi)容*/來(lái)注釋代碼。

8.A。在VB中，邏輯運(yùn)算符&&表示邏輯與。

9.B。在VB中，F(xiàn)or-Next是循環(huán)結(jié)構(gòu)之一。

10.A。在VB中，If(條件)Then是條件語(yǔ)句的正確格式。

二、填空題答案及解析：

1.Dim

2.CInt()或Val()

3.Length

4.DimnumArray(1To5)AsInteger

5.MsgBox("HelloWorld")

6.==

7.x=10

8.MsgBox(x)

9.MsgBox(x+y)

10.x=x+1或x+=1

四、編程題答案及解析：

1.計(jì)算Sum函數(shù)代碼如下：

```vb

PublicClassForm1

PrivateSubForm1_Load(senderAsObject,eAsEventArgs)HandlesMyBase.Load

DimsumAsInteger=CalculateSum(5,10)

MsgBox("Thesumis:"&sum)

EndSub

PrivateFunctionCalculateSum(ByValaAsInteger,ByValbAsInteger)AsInteger

Returna+b

EndFunction

EndClass

```

2.Fibonacci函數(shù)代碼如下：

```vb

PublicClassForm1

PrivateSubForm1_Load(senderAsObject,eAsEventArgs)HandlesMyBase.Load

DimnAsInteger=10

DimfibonacciAsInteger=Fibonacci(n)

MsgBox("The"&n&"thFibonaccinumberis:"&fibonacci)

EndSub

PrivateFunctionFibonacci(ByValnAsInteger)AsInteger

Ifn<=1Then

Returnn

Else

ReturnFibonacci(n-1)+Fibonacci(n-2)

EndIf

EndFunction

EndClass

```

五、簡(jiǎn)答題答案及解析：

1.在VB中，聲明一個(gè)全局變量使用Public關(guān)鍵字，例如：Public變量名As數(shù)據(jù)類型。

2.在VB中，處理異常使用Try-Catch語(yǔ)句，例如：

```vb

Try

'可能拋出異常的代碼

CatchexAsException

'異常處理代碼

EndTry

```

六、綜合應(yīng)用題答案及解析：

```vb

PublicClassStudent

Private_nameAsString

Private_ageAsInteger

PublicPropertyNameAsString

Get

Return_name

EndGet

Set(valueAsString)

_name=value

EndSet

EndProperty

PublicPropertyAgeAsInteger

Get

Return_age

EndGet

Set(valueAsInteger)

_age=value

EndSet

EndProperty

PublicSubNew(nameAsString,ageAsInteger)

_name=name

_age=age

EndSub

PublicSubDisplayInfo()

Console.WriteLine("Name:"&Name&",Age:"&