《vbnet》考试试卷

《《vbnet》考试试卷》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、《VB.NET》考试试卷（4卷）一、填空(20分)（每卷20空每空1分）1过程与函数的本质区别在于（）没有返回值，而（）有返回值。2比较符用于对（）进行比较，它的比较结果是一个（）型变量。3在VB.NET中数据类型有两种转换方式，分别是（）和（）。4可以通过转换关键字（）将任何数字类型的数据转换为Integer类型数据。5过程的每一个重载版本必须至少有一个方面不同于其它重载版本，这种不同表现在（）不同、（）不同、（）不同。6Or运算符对两个Boolean型（）执行（）运算。7可以通过两种方法调用类的共享方法，其一是作为（）的方法调用

2、，另一个是作为（）的方法调用。8进程是程序的一次动态的运行过程，被调入内存运行着的（）被称为（）。9在VB.NET中引起异常的错误分为三类，分别是（）错误、（）错误和（）错误。10在ADO.NET组件中，DataRow类是DataTable中的行的表示，和数据库中的（）相对应。二选择题(10分)1.下列语句定义的数组占()几个字节。Dima(9)ASIntegerA10B9C20D402.以下哪一个关键能说明类的成员变量是共享变量。（）APublicBSharedCShadowsDFriend3.以下程序运行后，TextBox1中显

3、示的文本是()。-7-DimxAsInteger=1,aAsInteger=0,bAsInteger=0SelectCasexCase0:b=b+1Case1:a=a+1Case2:a=a+1:b=b+1EndSelectTextBox1.Text="a="+Str(a)+",b="+Str(b)Aa=2,b=1Ba=1,b=1Ca=1,b=0Da=2,b=24.以下程序的执行后，TextBox1.Text结果为（）DimnAsIntegerDima(,)AsString={{"a1","a2","a3"},{"b1","b2","

4、b3"}}Forn=1To2TextBox1.Text=TextBox1.Text+a(1,n)NextnAb1b2Bb2b3CThisa2a3Da1a25.以下程序的执行后，TextBox1.Text结果为（）DimxAsInteger=1,aAsInteger=4,bAsInteger=9DimStr1,Str2AsStringStr1="This"&5Str2="125"TextBox1.Text=Str1+Str(Val(Str2)/5)AThis5BThis525CThis25DThis三简单程序设计(15分)1.设计程序

5、完成1、2、3……30自然序列中奇数的累加值。结果送至变量Sum.。2.设计并完成一个过程Split(ByValR1AsDecimal)，参数R1是一个圆的半径值，本过程能计算三分之一周长的弧长，计算结果送给Label控件Lb1的文本属性。-7-3.设计并完成一个函数Getmax(ByValx1AsDecimal,ByValx2AsDecimal),函数的返回值是一个字符串，其内容是两个参数变量名，较大变量名在前（X1/X2或X2/X1）。四组件代码编写(20分)1.已知：窗体中有一个Label型控件Label1，三个单选按钮Rbo

6、ut,Gbout，Bbout，在下面给出的代码编辑区中编写单选按钮单击事件响应程序的处理代码。①Rbout可以使Label1的文本颜色变成红色；②Gbout可以使Label1的文本颜色变成绿色；③Bbout可以使Label1的文本颜色变成蓝色。以下是Rbout的单击事件代码编辑区以下是Gbout的单击事件代码编辑区以下是Bbout的单击事件代码编辑区2．已知：一个应用窗体的设计方案需要一个函数GetColor(),它能应用通用颜色对话框返回一个颜色结构对象，以便调用程序能设置一个文本控件的颜色属性。请在下面代码编集区中编写函数的实现

7、代码：PrivateFunctionGetColor()AsColorDialogEndFunction3．已知：窗体中有一个Label型控件Label1，用于显示计算结果。两个TextBox控件-7-Ta、Tb用于输入两个成绩数据a、b（decimal类型），编写单击按钮事件程序，能根据输入的两个成绩数据（百分制）计算平均值，并将计算结果赋值给Label1的控件的适当属性中。如果在两个数据中有一个无意义，则能够用简单对话框提示相应错误消息，并放弃运算。以下是按钮的单击事件代码编辑区：4．已知：一个应用窗体的设计方案需要一个函数Ge

8、tFiname(),它能应用通用打开文件对话框返回一个文件名，以便调用程序能创建一个读方式的文件流。请在下面代码编集区中编写函数的实现代码：PrivateFunctionGetFiname()AsStringEndFunction五程