第一卷 （本卷每题2分，共70分）
1．在VB.NET中每个对象都有三个基本要素，它们是 。
A．对象的名称、值和所属类
C．对象的大小、存储方式和内容
@H_502_104@ 2．数学函数式Sin25°写成VB.NET表达式是 。 @H_502_104@ A．sin25 B．sin(25) C．sin(25) D．sin(25*3．14/180) @H_502_104@ 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
@H_502_104@ 4．“x是小于100的非负数”，用VB.NET表达式表示正确的是 。 @H_502_104@ A．0≤x＜100 B．0<=x<100 @H_502_104@ C．0<=x And x< 00 D．0<=x Or x<100 @H_502_104@ 5．下列 是属于VB．NET合法的变量名。 @H_502_104@ A．Home B．＠EMail C． Integer (关键字) D．＄money6．若要求将提交按钮的访问键设置为“S”， 则为修改其Text的属性值。
A．＠Submit B．*Submit C．＃Submit D．＆Submit
@H_502_104@ 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
@H_502_104@ A．5．8 B. 5 C．7 D． 无数据输出8．VB.NET中，修改了主窗体的某个属性后，发现无法启动程序，原因可能是 。
@H_502_104@ A．修改了主窗体的caption属性 @H_502_104@ C．修改了主窗体的name属性 //记下来，，name是最重要的属性，在设计好后就9．在模块MyModule中定义的过程ShowHelpInfo，其访问权限为 。这是作用域问题
Public Module MyModule
……
Sub ShowHelpInfo(String info) 默认为private过程，在本模块中使用
MessageBox．Show(info)
End Sub
……
End Module
@H_502_104@ A．仅在MyModule中可以使用 B．在本项目中可以使用 @H_502_104@ C．在本解决方案中可以使用 D．在派生模块中可以使用10．双击窗体会产生 事件。
@H_502_104@ A．enabled B．active C．click D．load11．在VB.NET中，无返回值的过程称为 过程。
@H_502_104@ A．Sub B．Function C． Property D．main12．在VB.NET中，代表程序到数据库的连接的对象为 。了解其中文意思就行
A．DataSet数据集 B．DataAdapter适配器 C．Command命令 D．Connection连接
@H_502_104@ 13．添加 到某个窗体中，则在窗体运行时将不可见。 @H_502_104@ A．Label B．Commandbutton C．imagelist D．toolbar @H_502_104@ 14．执行下列语句后，变量x的值为 。dim a as integer=0 : a=3/2 //四舍五入，
@H_502_104@ A．0 B．1 C．2 D．3 @H_502_104@ 15．VB.NET构架中，MSIL的含义为 。 @H_502_104@ A．Microsoft Interface LanguageB．Microsoft Intermediate Library
@H_502_104@ C．Microsoft International LanguageD．Microsoft Intermediate Language 微软中间语言，识记
@H_502_104@ 16．在设计循环语句时，若有以下要求：在执行循环之前先测试条件表达式 expression，然后让代码循环执行到该条件表达式的值取“真”，则应使用 循环语句。
@H_502_104@ A．do until expression B．do…… ……
@H_502_104@ Loop loop until expRSSion @H_502_104@ C．do while expression D．do…… ……
@H_502_104@ Loop loop while expression17．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菜单下的菜单项属性。
@H_502_104@ A．在Save和Exit菜单项之间插入一新的菜单项，将其Seperator属性设为True @H_502_104@ B．用画笔在Save和Exit菜单项之间划一合适长度的横线 @H_502_104@ C．在Save和Exit菜单项之间插入一新的菜单项，将其Text属性设为减号"-" @H_502_104@ D．在Save和Exit菜单项之间插入一新的菜单项，将其Style属性设为“OwnerDraw” @H_502_104@ 19．实现菜单功能，应向菜单项的 事件添加代码。 @H_502_104@ A．Command B． Click C．Popup D． Select @H_502_104@ 20．VB.NET窗体中提供的Hide方法的作用是 。它的中文意思是隐藏，反过来就是show @H_502_104@ A．销毁窗体对象 B．关闭窗体 C．将窗体极小化 D．隐藏窗体 @H_502_104@ 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)
@H_502_104@ A．arr={2,2,2} data=2 B．arr={1,1} data=2C．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
@H_502_104@ 23．类MyClass 的定义如下：Public Class MyClass1
Private data as String
End Class
则关键字Private 在类的定义中的作用是 。
@H_502_104@ A．限定成员变量data 只在本模块内部可以使用； @H_502_104@ B．限定成员变量data 仅在类MyClass 的成员方法中可以访问； @H_502_104@ C．限定成员变量data 仅仅可在类以及子类的成员方法中访问 @H_502_104@ D．限定类MyClass 仅在本模块中可以使用 @H_502_104@ @H_502_104@ 24．以下定义常量不正确的语句是 。$表示字符串 @H_502_104@ A．Const Num As Integer=200 @H_502_104@ B．Const Num1 As Long=200,Sstr$=”World” @H_502_104@ C．Const Sstr$=”World” @H_502_104@ 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中显示的内容是 。哪个在前匹配哪个，匹配完跳出循环。
@H_502_104@ A．10 B．20 C．30 D．4026． @H_502_104@ 26．要使文本框能够多行显示，则应使 属性设为True。从单词的中文意思去判断即可 @H_502_104@ A．MultiLine B．MaxLength C．SelLength D．Locked @H_502_104@ @H_502_104@ 27．要使命令按钮以图片形式显示，则应使（ ）属性装入图片。同上 @H_502_104@ A．BackGroundImage B．Image C．ImageList D．ImageAlign @H_502_104@ 28．如果FOR语句中的步长值为正，则循环正常结束时 。>= @H_502_104@ A．循环变量的终值>初值 B．循环变量的终值<初值 @H_502_104@ C．循环变量的终值=初值 D．循环变量的终值不确定 @H_502_104@ 29．若x=ASC(“A”),则x等于 。ascii表，识记啦。A,a的得记得，其它的记顺序就好。 @H_502_104@ A．65 B．97 C．66 D．9130．已知字符串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．不确定
@H_502_104@ 32．在程序运行过程中要改变文本框中字体的大小， 是不正确的语句。A．TextBox1．Font=New System．Drawing．Font ("宋体",14．0!,
Drawing．FontStyle．Bold)
@H_502_104@ B．TextBox1．Font=New System．Drawing．Font ("宋体",16．0!) @H_502_104@ C．TextBox1．Font=New System．Drawing．Size (18．0!) //font.size @H_502_104@ D．TextBox1．Font= New Font("宋体",14．0!) @H_502_104@ 33．要使文本框成为密码输入框，一般应修改文本框的 。 @H_502_104@ A．PasswordChar属性和MaxLength属性，并且 MultiLine属性值只能为False。 @H_502_104@ B．PasswordChar属性和MaxLength属性，并且Lines属性值只能为False。 @H_502_104@ C．只修改PasswordChar属性值就可以了,其他属性可以不修改。 @H_502_104@ D．PasswordChar属性和MaxLength属性， MultiLine属性值可以为True。 @H_502_104@ 34．向列表框中填加一个新项目,正确的语句是（ ）。 @H_502_104@ A．ListBox1．Items．Add (“How are You?”) //只要知道添加的内容就行了，不用位置 @H_502_104@ B．ListBox1．Items．Insert (“How are You?”) @H_502_104@ C．ListBox1．Items．Add (2,“How are You?”) @H_502_104@ D．ListBox1．Items．Insert (2,“How are You?”) @H_502_104@ 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显示的内容是 ( )。
@H_502_104@ 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
@H_301_3950@ 2．以下的程序段的作用是用Insert语句在User表中将窗体中的文本框username1与password1的文本数据，分别写入字段username、password。（假设要连接的Access数据库名为“Example．mdb”，存放在“d:\Data\”目录下）。 @H_886_4044@ Dim oleDbConnection1 As OleDb．OleDbConnection @H_886_4044@ Dim strConnect As Sting= 2 “provider=Microsoft.JET.oledb.4.0;datesource=example.mdb” //连接字符串 @H_886_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