第一卷 （本卷每题2分，共70分）

@H_403_35@1．在VB.NET中每个对象都有三个基本要素，它们是 。

@H_403_35@A．对象的名称、值和所属类

@H_403_35@B．对象的属性、事件和方法

@H_403_35@C．对象的大小、存储方式和内容

@H_403_35@D．对象的访问方法、存储方式和名称

@H_403_35@2．数学函数式Sin25°写成VB.NET表达式是 。

@H_403_35@ A．sin25 B．sin(25) C．sin(25) D．sin(25*3．14/180)

@H_403_35@3．下列哪组语句可以将变量A、B的值互换 。

@H_403_35@A．A=B:B=A B．A=A+B:B=A–B:A=A+B

@H_403_35@C．C=A:A=B:B=C D．A=(A+B)/2:B=(A–B)/2

@H_403_35@4．“x是小于100的非负数”，用VB.NET表达式表示正确的是 。

@H_403_35@ A．0≤x＜100 B．0<=x<100

@H_403_35@ C．0<=x And x< 00 D．0<=x Or x<100

@H_403_35@5．下列 是属于VB．NET合法的变量名。

@H_403_35@ A．Home B．＠EMail C． Integer (关键字) D．＄money

@H_403_35@6．若要求将提交按钮的访问键设置为“S”， 则为修改其Text的属性值。

@H_403_35@ A．＠Submit B．*Submit C．＃Submit D．＆Submit

@H_403_35@7．窗体上有一个名为Button1的命令按钮和一个标签框，然后编写如下事件过程：

@H_301_468@ @H_403_35@ Private Overloads Sub Button1_Click(ByVal sender As System．Object,ByVal e As System．EventArgs) Handles Button1．Click

@H_403_35@ Dim num As Integer //num为整数，关键

@H_403_35@ num = 1

@H_403_35@ Do Until num > 6 //until为“直到”，条件满足时停止

@H_403_35@ Label1．Text = num

@H_403_35@ num = num + 2．4 //num的值依次为1，3，5， 7

@H_403_35@ Loop

@H_403_35@End Sub

@H_403_35@程序运行后，单击命令按钮，则在标签框上显示的内容是 。

@H_403_35@ A．5．8 B. 5 C．7 D． 无数据输出

@H_403_35@8．VB.NET中，修改了主窗体的某个属性后，发现无法启动程序，原因可能是 。

@H_403_35@ A．修改了主窗体的caption属性

@H_403_35@B．修改了主窗体的ismainform属性

@H_403_35@ C．修改了主窗体的name属性 //记下来，，name是最重要的属性，在设计好后就

@H_403_35@D．修改了main函数 不要再改了，不然很容易出错。

@H_403_35@9．在模块MyModule中定义的过程ShowHelpInfo，其访问权限为 。这是作用域问题

@H_403_35@Public Module MyModule

@H_403_35@……

@H_403_35@Sub ShowHelpInfo(String info) 默认为private过程，在本模块中使用

@H_403_35@MessageBox．Show(info)

@H_403_35@End Sub

@H_403_35@……

@H_403_35@End Module

@H_403_35@ A．仅在MyModule中可以使用 B．在本项目中可以使用

@H_403_35@ C．在本解决方案中可以使用 D．在派生模块中可以使用

@H_403_35@10．双击窗体会产生 事件。

@H_403_35@ A．enabled B．active C．click D．load

@H_403_35@11．在VB.NET中，无返回值的过程称为 过程。

@H_403_35@ A．Sub B．Function C． Property D．main

@H_403_35@12．在VB.NET中，代表程序到数据库的连接的对象为 。了解其中文意思就行

@H_403_35@ A．DataSet数据集 B．DataAdapter适配器 C．Command命令 D．Connection连接

@H_403_35@13．添加 到某个窗体中，则在窗体运行时将不可见。

@H_403_35@ A．Label B．Commandbutton C．imagelist D．toolbar

@H_403_35@14．执行下列语句后，变量x的值为 。

@H_403_35@dim a as integer=0 : a=3/2 //四舍五入，

@H_403_35@ A．0 B．1 C．2 D．3

@H_403_35@15．VB.NET构架中，MSIL的含义为 。

@H_403_35@ A．Microsoft Interface Language

@H_403_35@B．Microsoft Intermediate Library

@H_403_35@ C．Microsoft International Language

@H_403_35@D．Microsoft Intermediate Language 微软中间语言，识记

@H_403_35@16．在设计循环语句时，若有以下要求：

@H_301_468@ @H_403_35@ 在执行循环之前先测试条件表达式 expression，然后让代码循环执行到该条件表达式的值取“真”，则应使用 循环语句。

@H_403_35@A．do until expression B．do

@H_403_35@…… ……

@H_403_35@ Loop loop until expRSSion

@H_403_35@ C．do while expression D．do

@H_403_35@…… ……

@H_403_35@ Loop loop while expression

@H_403_35@17．VB.NET程序中， 显示一个内容为“this is a test”消息框。

@H_403_35@ A．System．Windows．Forms．MessageBox("this is a test!")

@H_403_35@ B．System．Windows．Forms．MessageBox．Show("this is a test!")

@H_403_35@ C．System．Windows．Forms．MessageBox．ShowDialog("this is a test!")

@H_403_35@ D．System．Windows．Forms．MessageBox．ShowMessageBox("this is a test!")

@H_403_35@18．若需要在File菜单下的Save与Exit两个菜单项之间插入一分隔条， 可以修改File菜单下的菜单项属性。

@H_403_35@ A．在Save和Exit菜单项之间插入一新的菜单项，将其Seperator属性设为True

@H_403_35@ B．用画笔在Save和Exit菜单项之间划一合适长度的横线

@H_403_35@C．在Save和Exit菜单项之间插入一新的菜单项，将其Text属性设为减号"-"

@H_403_35@ D．在Save和Exit菜单项之间插入一新的菜单项，将其Style属性设为“OwnerDraw”

@H_403_35@19．实现菜单功能，应向菜单项的 事件添加代码。

@H_403_35@ A．Command B． Click C．Popup D． Select

@H_403_35@20．VB.NET窗体中提供的Hide方法的作用是 。它的中文意思是隐藏，反过来就是show

@H_403_35@　A．销毁窗体对象 B．关闭窗体 C．将窗体极小化 D．隐藏窗体

@H_403_35@21．已知数组arr进行以下定义：

@H_403_35@ Dim arr() as Integer = {1,1,1}

@H_403_35@过程MySub定义如下：

@H_403_35@要点：数组是按址传递的，一般变量则根据byval、byref来定。

@H_403_35@Sub MySub(ByVal ar() As Integer,ByRef x As Integer)

@H_403_35@Dim i As Integer

@H_403_35@For i = 0 To UBound(ar) ' 注：UBound(ar)求数组ar的下标上限

@H_403_35@ar(i) = x

@H_403_35@Next

@H_403_35@x = 0

@H_403_35@End Sub

@H_403_35@则执行下列语句后，数组arr和变量data中的内容是 ( )。

@H_403_35@Dim data As Integer = 2

@H_403_35@MySub(arr,data)

@H_403_35@ A．arr={2,2,2} data=2 B．arr={1,1} data=2

@H_403_35@C．arr={2,2} data=0 D．arr={1,1} data=0

@H_403_35@22．以下代码：

@H_403_35@ x = Microsoft．visualbasic．left(“gbc13”,1) & Mid(“pool”,2) & Microsoft．visualbasic．right(“god”,1)

@H_403_35@变量x等于 。

@H_403_35@ A．good B．golg C．gbog D．gobd

@H_403_35@23．类MyClass 的定义如下：

@H_403_35@Public Class MyClass1

@H_403_35@Private data as String

@H_403_35@End Class

@H_403_35@则关键字Private 在类的定义中的作用是 。

@H_403_35@ A．限定成员变量data 只在本模块内部可以使用；

@H_403_35@ B．限定成员变量data 仅在类MyClass 的成员方法中可以访问；

@H_403_35@ C．限定成员变量data 仅仅可在类以及子类的成员方法中访问

@H_403_35@ D．限定类MyClass 仅在本模块中可以使用

@H_403_35@

@H_403_35@24．以下定义常量不正确的语句是 。$表示字符串

@H_403_35@ A．Const Num As Integer=200

@H_403_35@ B．Const Num1 As Long=200,Sstr$=”World”

@H_403_35@ C．Const Sstr$=”World”

@H_403_35@ D．Const Num$=#World#

@H_403_35@25．在窗体上放入一个名称为Button1命令按钮和两个名称分别为TextBox1、TextBox2两个文本框，然后编写如下事件过程：

@H_403_35@ Private Sub Button1_Click(ByVal sender As System．Object,ByVal e As System．EventArgs) Handles Button1．Click

@H_403_35@ Dim n,x As Integer

@H_403_35@ n = CInt(TextBox1．Text)

@H_403_35@ Select Case n

@H_403_35@ Case 1 To 20

@H_403_35@ x = 10

@H_403_35@ Case 2,4,6

@H_403_35@ x = 20

@H_403_35@ Case Is < 10

@H_403_35@ x = 30

@H_403_35@ Case 10

@H_403_35@ x = 40

@H_403_35@ End Select

@H_403_35@ TextBox2．Text = x

@H_403_35@ End Sub

@H_403_35@ 程序运行后，在文本框TextBox1中输入10，然后单击命令按钮，则在TextBox2中显示的内容是 。哪个在前匹配哪个，匹配完跳出循环。

@H_403_35@ A．10 B．20 C．30 D．4026．

@H_403_35@26．要使文本框能够多行显示，则应使 属性设为True。从单词的中文意思去判断即可

@H_403_35@ A．MultiLine B．MaxLength C．SelLength D．Locked

@H_403_35@

@H_403_35@27．要使命令按钮以图片形式显示，则应使（ ）属性装入图片。同上

@H_403_35@ A．BackGroundImage B．Image C．ImageList D．ImageAlign

@H_403_35@28．如果FOR语句中的步长值为正，则循环正常结束时 。>=

@H_403_35@ A．循环变量的终值>初值 B．循环变量的终值<初值

@H_403_35@ C．循环变量的终值=初值 D．循环变量的终值不确定

@H_403_35@29．若x=ASC(“A”),则x等于 。ascii表，识记啦。A,a的得记得，其它的记顺序就好。

@H_403_35@ A．65 B．97 C．66 D．91

@H_403_35@30．已知字符串s＝" 〈this is a test> "，执行s=Trim(s)语句后，s的值为 。

@H_403_35@trim去左右的空格，，本题答案看不出差别来，但要理解意思。

@H_403_35@ A．<this is a test> B．<this is a test>

@H_403_35@ C．<this is a test> D．<this is a test>

@H_403_35@31．VB.NET对象的最后一个引用被释放后 时间，对象占用的“托管堆”空间被“垃圾收集”功能回收。

@H_403_35@ A．立即 B．1分钟 C．1小时 D．不确定

@H_403_35@32．在程序运行过程中要改变文本框中字体的大小， 是不正确的语句。

@H_403_35@ A．TextBox1．Font=New System．Drawing．Font ("宋体",14．0!,

@H_403_35@ Drawing．FontStyle．Bold)

@H_403_35@ B．TextBox1．Font=New System．Drawing．Font ("宋体",16．0!)

@H_403_35@ C．TextBox1．Font=New System．Drawing．Size (18．0!) //font.size

@H_403_35@ D．TextBox1．Font= New Font("宋体",14．0!)

@H_403_35@33．要使文本框成为密码输入框，一般应修改文本框的 。

@H_403_35@A．PasswordChar属性和MaxLength属性，并且 MultiLine属性值只能为False。

@H_403_35@B．PasswordChar属性和MaxLength属性，并且Lines属性值只能为False。

@H_403_35@C．只修改PasswordChar属性值就可以了,其他属性可以不修改。

@H_403_35@D．PasswordChar属性和MaxLength属性， MultiLine属性值可以为True。

@H_403_35@34．向列表框中填加一个新项目,正确的语句是（ ）。

@H_403_35@ A．ListBox1．Items．Add (“How are You?”) //只要知道添加的内容就行了，不用位置

@H_403_35@ B．ListBox1．Items．Insert (“How are You?”)

@H_403_35@ C．ListBox1．Items．Add (2,“How are You?”)

@H_403_35@ D．ListBox1．Items．Insert (2,“How are You?”)

@H_403_35@35．窗体中有一个名称为Button1的命令按钮、一个Label1控件对象，编写如下事件过程：

@H_403_35@Private Sub Button1_Click(ByVal sender As System．Object,ByVal e As

@H_403_35@System．EventArgs) Handles Button1．Click

@H_403_35@ Dim n As String,x,i,j As Integer

@H_403_35@ x = 0 //初值

@H_403_35@ n = InputBox("请输入一个大于1的整数","输入框")

@H_403_35@ For i = 1 To CInt(n) n=3

@H_403_35@ For j = 1 To i

@H_403_35@ x = x + 1 //算算这个语句执行多少次，就知道答案了，1*2*3次。

@H_403_35@ Next j

@H_403_35@ Next i

@H_403_35@ Label1．Text = CStr(x)

@H_403_35@End Sub

@H_403_35@程序运行后，单击命令按钮，如果输入3，则在Label1显示的内容是 ( )。

@H_403_35@ A．3 B．4 C．5 D．6

第二卷

说明：（1）第二卷均为填空题，在阅读和理解的基础上，在第二卷答题卡上编号对应的栏目中填入适当的字符、语句。

（2）共10个空栏，每空栏3分，共30分。

1．在窗体上放入一个名称为Button1命令按钮和1个名称为TextBox1文本框，然后编写如下事件过程：

Private Sub Button1_Click(ByVal sender As System．Object,ByVal e As

System．EventArgs) Handles Button1．Click

Dim x,y,z As Integer

x=5: y=7: z=0

textBox1．Text =x & y & z //字符串连接运算符

End Sub

程序运行后，如果单击命令按钮，则在文本框中显示的内容是 1 。570

2．以下的程序段的作用是用Insert语句在User表中将窗体中的文本框username1与password1的文本数据，分别写入字段username、password。（假设要连接的Access数据库名为“Example．mdb”，存放在“d:\Data\”目录下）。

@H_225_4044@ Dim oleDbConnection1 As OleDb．OleDbConnection

@H_225_4044@ Dim strConnect As Sting= 2 “provider=Microsoft.JET.oledb.4.0;datesource=example.mdb” //连接字符串

@H_225_4044@ oleDbConnection1= New System．Data．OleDb．OleDbConnection(strConnect)

comm1 = New OleDbCommand("INSERT INTO [USER]([username],[password]) values('" + username1．Text + "','" + password1．Text +"')",conn)

3 comm1.executenonquery() //命令执行

oleDbConnection1．close()

3．给定项目VBApplication1的功能是：计算出2+4+6+8+…+1000的总和,并在TextBox1文本框中显示。

确定步长是多少？2

终止值是多少？1000

Public Class Form1

Private Sub Button1_Click(ByVal sender As System．Object,ByVal e As

System．EventArgs) Handles Button1．Click

Dim total As Long,i As Integer

total = 0

i = 2

Do Until i >1000 4 //先条件，为假是执行

total = total+i 5 //连加

i = i+2 6 //循环变量的增量，及步长

Loop

TextBox1．Text = total

End Sub

End Class

4．已有一模块文件Modify.vb。该模块中的Findat过程是用于在一个字符串变量中查找"at"，并用消息框给出查找结果的报告：没有找到或找到的个数。

Public Sub Findat()

'在字符串str1中查找"at"

Dim str1 As String

Dim length As Integer '字符串长度

Dim sum As Integer '查到的个数

Dim i As Integer

str1 = InputBox("请输入一个字符串")

length = Len(str1)

i = 1

sum = 0

Do While i <= length-1 7 //等于length-1时，是最后两个字符了

If mid(strl,I,2) (取字符串str1中第i个位置开始的2个字符) = "at" Then

sum = sum + 1

End If

I=i+1 9 //向后移

Loop

If sum=0 10 Then

MsgBox "没有找到！" //所以sum=0

Else

MsgBox "找到了" & Str(sum) & "个"

End If

End Sub