《VBNET》考试试卷.doc

VB.NET考试试卷（4卷）一、填空(20分)（每卷 20 空 每空 1 分）1过程与函数的本质区别在于（ ）没有返回值，而（ ）有返回值。2比较符用于对（ ）进行比较，它的比较结果是一个（ ）型变量。3在VB.NET中数据类型有两种转换方式，分别是（ ）和（ ）。4可以通过转换关键字（ ）将任何数字类型的数据转换为Integer类型数据。5过程的每一个重载版本必须至少有一个方面不同于其它重载版本，这种不同表现在（ ）不同、（ ）不同、（ ）不同。6 Or运算符对两个Boolean型（ ）执行（ ）运算。7可以通过两种方法调用类的共享方法，其一是作为（ ）的方法调用，另一个是作为（ ）的方法调用。8进程是程序的一次动态的运行过程，被调入内存运行着的（ ）被称为（ ）。9在VB.NET中引起异常的错误分为三类，分别是（ ）错误、（ ）错误和（ ）错误。10 在ADO.NET组件中，DataRow类是DataTable中的行的表示，和数据库中的（ ）相对应。二 选择题(10分) 1.下列语句定义的数组占( )几个字节。Dim a(9) AS IntegerA 10 B 9 C 20 D 402.以下哪一个 关键能说明类的成员变量是共享变量。（ ）A Public B SharedC Shadows D Friend3.以下程序运行后，TextBox1中显示的文本是( )。Dim x As Integer = 1, a As Integer = 0, b As Integer = 0Select Case xCase 0 : b = b + 1Case 1 : a = a + 1Case 2 : a = a + 1 : b = b + 1End SelectTextBox1.Text = a= + Str(a) + ,b= + Str(b) A a=2,b=1 B a=1,b=1 C a=1,b=0 D a=2,b=24. 以下程序的执行后，TextBox1.Text结果为 （ ）Dim n As IntegerDim a(,) As String = a1, a2, a3, b1, b2, b3For n = 1 To 2TextBox1.Text = TextBox1.Text + a(1, n)Next nA b1b2 B b2b3 C This a2a3 D a1a25. 以下程序的执行后，TextBox1.Text结果为 （ ）Dim x As Integer = 1, a As Integer = 4, b As Integer = 9Dim Str1, Str2 As StringStr1 = This & 5Str2 = 125TextBox1.Text = Str1 + Str(Val(Str2) / 5)A This 5 B This 5 25 C This 25 D This三 简单程序设计(15分) 1.设计程序完成1、2、330 自然序列中奇数的累加值。结果送至变量Sum.。2.设计并完成一个过程Split( ByVal R1 As Decimal )，参数R1 是一个圆的半径值，本过程能计算三分之一周长的弧长，计算结果送给Label控件Lb1的文本属性。3.设计并完成一个函数Getmax(ByVal x1 As Decimal,ByVal x2 As Decimal),函数的返回值是一个字符串，其内容是两个参数变量名，较大变量名在前（X1/X2 或X2/X1 ）。四 组件代码编写(20分) 1. 已知：窗体中有一个Label型控件Label1，三个单选按钮Rbout,Gbout，Bbout，在下面给出的代码编辑区中编写单选按钮单击事件响应程序的处理代码。Rbout可以使Label1的文本颜色变成红色；Gbout可以使Label1的文本颜色变成绿色；Bbout可以使Label1的文本颜色变成蓝色。以下是Rbout的单击事件代码编辑区以下是Gbout的单击事件代码编辑区以下是Bbout的单击事件代码编辑区2已知：一个应用窗体的设计方案需要一个函数GetColor() ,它能应用通用颜色对话框返回一个颜色结构对象，以便调用程序能设置一个文本控件的颜色属性。请在下面代码编集区中编写函数的实现代码：Private Function GetColor () As ColorDialogEnd Function 3 已知：窗体中有一个Label型控件Label1，用于显示计算结果。两个TextBox控件 Ta、Tb用于输入两个成绩数据a、b（decimal类型），编写单击按钮事件程序，能根据输入的两个成绩数据（百分制）计算平均值，并将计算结果赋值给Label1的控件的适当属性中。如果在两个数据中有一个无意义，则能够用简单对话框提示相应错误消息，并放弃运算。以下是按钮的单击事件代码编辑区：4已知：一个应用窗体的设计方案需要一个函数GetFiname() ,它能应用通用打开文件对话框返回一个文件名，以便调用程序能创建一个读方式的文件流。请在下面代码编集区中编写函数的实现代码：Private Function GetFiname() As String End Function 五 程序阅读与补充代码（35分） 1阅读以下代码结构，回答问题(5分)Public Class mycl Public Shared Aval As Integer Private x As Integer Public Sub New(ByVal Z As Integer) x = Z Aval = Aval + 1 End Sub Public Function Calc(ByVal Y) As Integer If Y = 5 Then Return Y - x Else Return Y + x End If End Function Public ReadOnly Property GetX() Get Return x End Get End PropertyEnd Class阅读以下代码说明Val1, Val2, Val3, Val4, Val5的值 Dim Val1, Val2, Val3, Val4, Val5 As Integer Dim Class1 As New mycl(-5) Val1 = Class1.Calc(6) Dim Class2 As New mycl(0) Val2 = Class2.Calc(2) Dim Class3 As New mycl(5) Val3 = Class3.Calc(10) Val4 = Class2.GetX()Val5 = mycl.Aval Val1=（ ）， Val2=（ ）, Val3=（ ）, Val4=（ ）, Val5=（ ）2阅读以下程序代码回答问题。（15分）已知：球体的表面积计算公式为：4 * 3.1416 * R2球体的体积计算公式为： 4 * 3.1416 * R3有以下圆类及其派生类的实现代码如下：基类代码:Public Class Circle Private r As Decimal Public Shared Count As Integer Public Sub New(ByVal jr As Decimal) If jr 0 Then r = jr Else r = 0 End If Count += 1 End Sub ReadOnly Property getr() Get Return r End Get End Property Public Overridable Function area(ByVal Ar As Decimal) Return （ ） End Function ReadOnly Property getCount() Get Return Count End Get End PropertyEnd Class派生类代码:Public Class Sphere Inherits Circle Sub New(ByVal ir As Decimal) MyBase.New(ir) End Sub Public Overrides Function area(ByVal Sr As Decimal) Return （ ） End Function Public Function Volume(ByVal Sr As Decimal) Return （ ） End FunctionEnd Class答题内容:补充代码中的空白部分；说明带有下划线的语句或关键字的意义派生类中Function Volume(ByVal Sr As Decimal)函数是否为对基类的继承或覆盖？3.根据设计要求实现接口。（15分）已知，接口In1的是现代码如下：Interface In1 Function Fun1(ByVal x1 As Decimal, ByVal x2 As Decimal) As Decimal Function Fun1(ByVal x As Decimal) As BooleanEnd Interface类A的实现代码为：Public Class MyAImplements In1 Public Function Fun1(ByVal y1 As Decimal, ByVal y2 As Decimal) As Decimal Implements In1.Fun1 Return 10 * y1 + y2 End Function Public Function Fun2(ByVal y As Decimal) As String Implements In1.Fun2 If y 0 Then Return Yes Else Return No End If End FunctionEnd Class说明带有下划线语句或关键字的意