第一卷 （本卷每题2分，共70分）
@H_502_36@1．在@H_502_36@VB.NET中每个对象都有三个基本要素，它们是@H_502_36@ 。@H_502_36@
@H_502_36@A．对象的名称、值和所属类@H_502_36@
@H_502_36@C．对象的大小、存储方式和内容@H_502_36@
@H_502_36@D．对象的访问方法、存储方式和名称@H_502_36@
@H_502_36@2．数学函数式@H_502_36@Sin25°写成@H_502_36@VB.NET表达式是@H_502_36@ 。@H_502_36@
A．sin25 B．sin(25) C．sin(25) D．sin(25*3．14/180)
@H_502_36@3．下列哪组语句可以将变量@H_502_36@A、@H_502_36@B的值互换@H_502_36@ 。@H_502_36@
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表达式表示正确的是 。
@H_502_36@A．@H_502_36@0≤@H_502_36@x＜@H_502_36@100 B．@H_502_36@0<=x<100
@H_502_36@ C．0<=x And x< 00 @H_502_36@D．@H_502_36@0<=x Or x<100
@H_502_36@5．下列@H_502_36@ 是属于VB．NET合法的变量名。@H_502_36@
A．Home @H_502_36@B．＠@H_502_36@EMail C．@H_502_36@ Integer (关键字) @H_502_36@D．＄@H_502_36@money
@H_502_36@6．若要求将提交按钮的访问键设置为“@H_502_36@S”，@H_502_36@ 则为修改其@H_502_36@Text的属性值。@H_502_36@
@H_502_36@ A．＠@H_502_36@Submit B．@H_502_36@*Submit C．＃@H_502_36@Submit D．＆Submit
@H_502_36@7．窗体上有一个名为@H_502_36@Button1的命令按钮和一个标签框，然后编写如下事件过程：@H_502_36@
@H_502_36@ Private Overloads Sub Button1_Click(ByVal sender As System．@H_502_36@Object,ByVal e As System．@H_502_36@EventArgs) Handles Button1．@H_502_36@Click
@H_502_36@ 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_36@ 。@H_502_36@
@H_502_36@ A．@H_502_36@5．@H_502_36@8 B. 5 C．@H_502_36@7 D． 无数据输出@H_502_36@
@H_502_36@8．@H_502_36@VB.NET中，修改了主窗体的某个属性后，发现无法启动程序，原因可能是 。@H_502_36@
@H_502_36@ A．修改了主窗体的@H_502_36@caption属性@H_502_36@
@H_502_36@B．修改了主窗体的@H_502_36@ismainform属性@H_502_36@
@H_502_36@ C．修改了主窗体的name属性 //记下来，，name是最重要的属性，在设计好后就
@H_502_36@D．修改了@H_502_36@main函数@H_502_36@ 不要再改了，不然很容易出错。
@H_502_36@9．在模块@H_502_36@MyModule中定义的过程@H_502_36@ShowHelpInfo，其访问权限为@H_502_36@ 。这是作用域问题
Public Module MyModule
……@H_502_36@
@H_502_36@Sub ShowHelpInfo(String info) 默认为private过程，在本模块中使用
@H_502_36@MessageBox．@H_502_36@Show(info)
@H_502_36@End Sub
……@H_502_36@
@H_502_36@End Module
A．仅在MyModule中可以使用 @H_502_36@B．在本项目中可以使用@H_502_36@
@H_502_36@ C．在本解决方案中可以使用@H_502_36@ D．在派生模块中可以使用@H_502_36@
@H_502_36@10．双击窗体会产生@H_502_36@ 事件。@H_502_36@
@H_502_36@ A．@H_502_36@enabled B．@H_502_36@active C．@H_502_36@click D．load @H_502_36@
@H_502_36@11．在@H_502_36@VB.NET中，无返回值的过程称为@H_502_36@ 过程。@H_502_36@
A．Sub@H_502_36@ B．@H_502_36@Function C．@H_502_36@ Property D．@H_502_36@main
@H_502_36@12．在@H_502_36@VB.NET中，代表程序到数据库的连接的对象为@H_502_36@ 。了解其中文意思就行@H_502_36@
@H_502_36@ A．@H_502_36@DataSet数据集@H_502_36@ B．@H_502_36@DataAdapter适配器@H_502_36@ C．@H_502_36@Command命令@H_502_36@ D．Connection连接
@H_502_36@13．添加@H_502_36@ 到某个窗体中，则在窗体运行时将不可见。@H_502_36@
@H_502_36@ A．@H_502_36@Label B．@H_502_36@Commandbutton C．imagelist @H_502_36@ D．@H_502_36@toolbar
@H_502_36@14．执行下列语句后，变量@H_502_36@x的值为@H_502_36@ 。@H_502_36@
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
@H_502_36@C．@H_502_36@Microsoft International Language
D．Microsoft Intermediate Language 微软中间语言，识记
@H_502_36@16．在设计循环语句时，若有以下要求：@H_502_36@
@H_502_36@ 在执行循环之前先测试条件表达式@H_502_36@ expression，然后让代码循环执行到该条件表达式的值取“真”，则应使用@H_502_36@ 循环语句。@H_502_36@
@H_502_36@A．do until expression@H_502_36@ B．@H_502_36@do
@H_502_36@ Loop loop until expRSSion
@H_502_36@ C．@H_502_36@do while expression D．@H_502_36@do
@H_502_36@ Loop loop while expression
@H_502_36@17．@H_502_36@VB.NET程序中，@H_502_36@ 显示一个内容为“@H_502_36@this is a test”消息框。@H_502_36@
A．System．Windows．Forms．MessageBox("this is a test!")
@H_502_36@ B．@H_502_36@System．@H_502_36@Windows．@H_502_36@Forms．@H_502_36@MessageBox．@H_502_36@Show("this is a test!")
@H_502_36@ C．@H_502_36@System．@H_502_36@Windows．@H_502_36@Forms．@H_502_36@MessageBox．@H_502_36@ShowDialog("this is a test!")
@H_502_36@ D．@H_502_36@System．@H_502_36@Windows．@H_502_36@Forms．@H_502_36@MessageBox．@H_502_36@ShowMessageBox("this is a test!")
@H_502_36@18．若需要在@H_502_36@File菜单下的@H_502_36@Save与@H_502_36@Exit两个菜单项之间插入一分隔条，@H_502_36@ 可以修改@H_502_36@File菜单下的菜单项属性。@H_502_36@
@H_502_36@ A．在@H_502_36@Save和@H_502_36@Exit菜单项之间插入一新的菜单项，将其@H_502_36@Seperator属性设为@H_502_36@True
@H_502_36@ B．用画笔在@H_502_36@Save和@H_502_36@Exit菜单项之间划一合适长度的横线@H_502_36@
@H_502_36@C．在Save和Exit菜单项之间插入一新的菜单项，将其Text属性设为减号"-"
@H_502_36@ D．在@H_502_36@Save和@H_502_36@Exit菜单项之间插入一新的菜单项，将其@H_502_36@Style属性设为“@H_502_36@OwnerDraw”@H_502_36@
@H_502_36@19．实现菜单功能，应向菜单项的@H_502_36@ 事件添加代码。@H_502_36@
@H_502_36@ A．@H_502_36@Command B． Click @H_502_36@C．@H_502_36@Popup D．@H_502_36@ Select
@H_502_36@20．@H_502_36@VB.NET窗体中提供的@H_502_36@Hide方法的作用是@H_502_36@ 。它的中文意思是隐藏，反过来就是show
@H_502_36@A．销毁窗体对象@H_502_36@ B．关闭窗体@H_502_36@ C．将窗体极小化@H_502_36@ D．隐藏窗体@H_502_36@
@H_502_36@21．已知数组@H_502_36@arr进行以下定义：@H_502_36@
@H_502_36@ Dim arr() as Integer = {1,1,1}
过程@H_502_36@MySub定义如下：@H_502_36@
要点：数组是按址传递的，一般变量则根据byval、byref来定。@H_502_36@
@H_502_36@Sub MySub(ByVal ar()@H_502_36@ As Integer,ByRef@H_502_36@ x As Integer)
@H_502_36@Dim i As Integer
@H_502_36@For i = 0 To UBound(ar) ' 注：@H_502_36@UBound(ar)求数组@H_502_36@ar的下标上限@H_502_36@
@H_502_36@ar(i) = x
@H_502_36@Next
@H_502_36@x = 0
@H_502_36@End Sub
则执行下列语句后，数组@H_502_36@arr和变量@H_502_36@data中的内容是@H_502_36@ ( )。@H_502_36@
@H_502_36@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 的成员方法中可以访问；
@H_502_36@ C．限定成员变量@H_502_36@data 仅仅可在类以及子类的成员方法中访问@H_502_36@
@H_502_36@ D．限定类@H_502_36@MyClass 仅在本模块中可以使用@H_502_36@
@H_502_36@
@H_502_36@24．以下定义常量不正确的语句是@H_502_36@ 。$表示字符串
@H_502_36@ A．Const Num As Integer=200
@H_502_36@B．@H_502_36@Const Num1 As Long=200,Sstr$=”@H_502_36@World”@H_502_36@
@H_502_36@ C．@H_502_36@Const Sstr$=”@H_502_36@World”@H_502_36@
@H_502_36@ D．Const Num$=#World#
@H_502_36@25．在窗体上放入一个名称为@H_502_36@Button1命令按钮和两个名称分别为@H_502_36@TextBox1、@H_502_36@TextBox2两个文本框，然后编写如下事件过程：@H_502_36@
@H_502_36@ Private Sub Button1_Click(ByVal sender As System．@H_502_36@Object,ByVal e As System．@H_502_36@EventArgs) Handles Button1．@H_502_36@Click
@H_502_36@ Dim n,x As Integer
n = CInt(TextBox1．Text)
@H_502_36@Select Case n
@H_502_36@ Case 1 To 20
@H_502_36@ x = 10
@H_502_36@ Case 2,4,6
@H_502_36@ x = 20
@H_502_36@ Case Is < 10
@H_502_36@ x = 30
@H_502_36@ Case 10
@H_502_36@ x = 40
@H_502_36@ End Select
@H_502_36@ TextBox2．@H_502_36@Text = x
@H_502_36@ End Sub
@H_502_36@ 程序运行后，在文本框@H_502_36@TextBox1中输入@H_502_36@10，然后单击命令按钮，则在@H_502_36@TextBox2中显示的内容是@H_502_36@ 。哪个在前匹配哪个，匹配完跳出循环。
A．10 @H_502_36@B．@H_502_36@20 C．@H_502_36@30 D．@H_502_36@4026．@H_502_36@
@H_502_36@26．要使文本框能够多行显示，则应使@H_502_36@ 属性设为@H_502_36@True。从单词的中文意思去判断即可@H_502_36@
@H_502_36@ A．MultiLine @H_502_36@B．@H_502_36@MaxLength C．@H_502_36@SelLength D．@H_502_36@Locked
@H_502_36@
@H_502_36@27．要使命令按钮以图片形式显示，则应使（@H_502_36@ ）属性装入图片。同上
@H_502_36@ A．@H_502_36@BackGroundImage B．Image@H_502_36@ C．@H_502_36@ImageList D．@H_502_36@ImageAlign
@H_502_36@28．如果@H_502_36@FOR语句中的步长值为正，则循环正常结束时@H_502_36@ 。@H_502_36@>=
@H_502_36@ A．循环变量的终值>初值 @H_502_36@B．循环变量的终值@H_502_36@<初值@H_502_36@
@H_502_36@ C．循环变量的终值@H_502_36@=初值@H_502_36@ @H_502_36@D．循环变量的终值不确定
@H_502_36@29．若@H_502_36@x=ASC(“@H_502_36@A”@H_502_36@),则@H_502_36@x等于@H_502_36@ 。ascii表，识记啦。A,a的得记得，其它的记顺序就好。
A．65 @H_502_36@ B．@H_502_36@97 @H_502_36@C．@H_502_36@66 D．@H_502_36@91
@H_502_36@30．已知字符串@H_502_36@s＝@H_502_36@" 〈@H_502_36@this is a test> "，执行@H_502_36@s=Trim@H_502_36@(s)语句后，@H_502_36@s的值为@H_502_36@ 。@H_502_36@
trim去左右的空格，，本题答案看不出差别来，但要理解意思。
@H_502_36@ A．@H_502_36@<this is a test> B．@H_502_36@<this is a test>
@H_502_36@ C．@H_502_36@<this is a test> D．@H_502_36@<this is a test>
@H_502_36@31．@H_502_36@VB.NET对象的最后一个引用被释放后@H_502_36@ 时间，对象占用的“托管堆”空间被“垃圾收集”功能回收。@H_502_36@
@H_502_36@ A．立即@H_502_36@ B．@H_502_36@1分钟@H_502_36@ C．@H_502_36@1小时@H_502_36@ D．不确定
@H_502_36@32．在程序运行过程中要改变文本框中字体的大小，@H_502_36@ 是不正确的语句。@H_502_36@
@H_502_36@ A．@H_502_36@TextBox1．@H_502_36@Font=New System．@H_502_36@Drawing．@H_502_36@Font ("宋体@H_502_36@",14．@H_502_36@0!,
@H_502_36@ Drawing．@H_502_36@FontStyle．@H_502_36@Bold)
@H_502_36@ B．@H_502_36@TextBox1．@H_502_36@Font=New System．@H_502_36@Drawing．@H_502_36@Font ("宋体@H_502_36@",16．@H_502_36@0!)
C．TextBox1．Font=New System．Drawing．Size (18．0!) //font.size
D．TextBox1．Font= New Font("宋体",14．0!)
@H_502_36@33．要使文本框成为密码输入框，一般应修改文本框的@H_502_36@ 。@H_502_36@
@H_502_36@A．@H_502_36@PasswordChar属性和@H_502_36@MaxLength属性，并且@H_502_36@ MultiLine属性值只能为@H_502_36@False。@H_502_36@
@H_502_36@B．@H_502_36@PasswordChar属性和@H_502_36@MaxLength属性，并且@H_502_36@Lines属性值只能为@H_502_36@False。@H_502_36@
C．只修改PasswordChar属性值就可以了,其他属性可以不修改。
@H_502_36@D．@H_502_36@PasswordChar属性和@H_502_36@MaxLength属性，@H_502_36@ MultiLine属性值可以为@H_502_36@True。@H_502_36@
@H_502_36@34．向列表框中填加一个新项目@H_502_36@,正确的语句是（ ）。@H_502_36@
A．ListBox1．Items．Add (“How are You?”) //只要知道添加的内容就行了，不用位置
@H_502_36@ B．@H_502_36@ListBox1．@H_502_36@Items．@H_502_36@Insert (“@H_502_36@How are You?”@H_502_36@)
@H_502_36@ C．@H_502_36@ListBox1．@H_502_36@Items．@H_502_36@Add (2,“@H_502_36@How are You?”@H_502_36@)
@H_502_36@ D．@H_502_36@ListBox1．@H_502_36@Items．@H_502_36@Insert (2,“@H_502_36@How are You?”@H_502_36@)
@H_502_36@35．窗体中有一个名称为@H_502_36@Button1的命令按钮、一个@H_502_36@Label1控件对象，编写如下事件过程：@H_502_36@
@H_502_36@Private Sub Button1_Click(ByVal sender As System．@H_502_36@Object,ByVal e As
@H_502_36@System．@H_502_36@EventArgs) Handles Button1．@H_502_36@Click
@H_502_36@ Dim n As String,x,i,j As Integer
@H_502_36@ x = 0 //初值
@H_502_36@ n = InputBox("请输入一个大于@H_502_36@1的整数@H_502_36@","输入框@H_502_36@")
@H_502_36@ For i = 1 To CInt(n) n=3
@H_502_36@ For j = 1 To i
@H_502_36@ x = x + 1 //算算这个语句执行多少次，就知道答案了，1*2*3次。
@H_502_36@ Next j
@H_502_36@ Next i
@H_502_36@ Label1．@H_502_36@Text = CStr(x)
@H_502_36@End Sub
程序运行后，单击命令按钮，如果输入@H_502_36@3，则在@H_502_36@Label1显示的内容是 ( )。@H_502_36@
@H_502_36@ A．@H_502_36@3 B．@H_502_36@4 C．@H_502_36@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_404_3950@ 2．以下的程序段的作用是用Insert语句在User表中将窗体中的文本框username1与password1的文本数据，分别写入字段username、password。（假设要连接的Access数据库名为“Example．mdb”，存放在“d:\Data\”目录下）。 @H_857_4044@ Dim oleDbConnection1 As OleDb．OleDbConnection @H_857_4044@ Dim strConnect As Sting= 2 “provider=Microsoft.JET.oledb.4.0;datesource=example.mdb” //连接字符串 @H_857_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