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

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

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

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

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

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

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

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

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

A．A=B:B=A B．A=A+B:B=A–B:A=A+B

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

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

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

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

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

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

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

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

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

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

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

num = 1

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

Label1．Text = num

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

Loop

End Sub

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

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

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

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

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

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

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

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

@H_502_774@ Public Module MyModule

……

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

MessageBox．Show(info)

End Sub

……

@H_502_774@ End Module

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

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

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

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

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

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

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

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

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

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

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

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

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

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

A．Microsoft Interface Language

B．Microsoft Intermediate Library

C．Microsoft International Language

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

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

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

A．do until expression B．do

…… ……

Loop loop until expRSSion

C．do while expression D．do

…… ……

Loop loop while expression

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

过程MySub定义如下：

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

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

Dim i As Integer

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

ar(i) = x

Next

x = 0

End Sub

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

Dim data As Integer = 2

MySub(arr,data)

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

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

22．以下代码：

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

变量x等于 。

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

23．类MyClass 的定义如下：

Public Class MyClass1

Private data as String

End Class

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

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

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

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

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

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

A．Const Num As Integer=200

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

C．Const Sstr$=”World”

D．Const Num$=#World#

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

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

Dim n,x As Integer

n = CInt(TextBox1．Text)

Select Case n

Case 1 To 20

x = 10

Case 2,4,6

x = 20

Case Is < 10

x = 30

Case 10

x = 40

End Select

TextBox2．Text = x

End Sub

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Drawing．FontStyle．Bold)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

System．EventArgs) Handles Button1．Click

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

x = 0 //初值

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

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

For j = 1 To i

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

Next j

Next i

Label1．Text = CStr(x)

End Sub

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

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_798_4044@ Dim oleDbConnection1 As OleDb．OleDbConnection

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

@H_798_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