一、单项选择题（90题）
1．在.NET 构架中，VB.NET程序被编译成（C）。
A. 机器码 B. 汇编码 C. MSIL D. 脚本
2．MSIL是在（A）中被解释成本地机器码。
A. CLR B. BCL C. CLS D. Windows API
3．将调试通过后生成的.exe 可执行文件复制到其他计算机上不能运行的主要原因是（A）。
A .无 .NET Framework B .缺少. frm 窗体文件
C. 该可执行文件有病毒 D. 以上原因都不对
4在.NET环境中，提供.NET运行支撑的是（A）。
A．CLR B．CTS C．CLS D．IDE
5．VB.NET属于（A）编程模式
A. 面向对象编程 B. 面向过程编程 C. 面向用户编程 D. 以上都是
6．在VB.NET中每个对象都有三个基本要素，它们是（B）。
A．对象的名称、值和所属类 B．对象的属性、事件和方法
C．对象的大小、存储方式和内容 D．对象的访问方法、存储方式和名称
7．在Visual Studio的集成开发的环境中，（C）语言不属于该环境编程语言。
A. VB B. C++ C. Pascal D. J#
8．在集成开发环境中有两类窗口，浮动窗口和固定窗口，下面不属于浮动窗口的是（D）。
A. 工具箱 B. 属性 C. 立即 D.窗体
9．在VB.NE集成环境中创建VB.NET应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是（A）。
A． 窗体设计窗口 B． 立即窗口 C． 代码窗口 D． 监视窗口
10．在VB.NET设计环境中，图标“”表示指定的项为（D）。
A.属性 B.字段 C.方法 D.事件
11．当创建一名为“test”的项目时，该项目的所有代码文件将保存在（C）文件夹下。
A．My Documents B．VB.NET C．test\ D．Windows
12．当需要上下文帮助时,选择要帮助的 “难题”,然后按住（D）键,就可出现MSDN 窗口及显示所需 “难题”的帮助信息。
A .Help B .F10 C .Esc D. F1
13．在一个语句内写多条语句时，每个语句之间用（B）符号分隔。
A．， B. ： C.、 D. ;
14．一语句要在下一行继续写，用（C）符号作为续行符。
A . + B . - C. _ D . …
15．下面属于合法的变量名的是（A ）。
A .X_yz B. 123abc C .Integer D.X-Y
16．数学关系表达式３≤x＜１０表示成正确的VB.NET表达式为( B)。
A．3<=x<10 B. 3<=x AND x<10 C. x>=3 OR x<10 D.3<=x AND <10
17．\、/、Mod、* 四个算术运算符中，优先级别最低的是（C）。
A.\ B. / C. Mod D.*
18．与数学表达式(a*b)/(3*c*d)对应，VB.NET的不正确表达式是（D）。
A. a*b/(3*c*d) B.a/3*b/c/d C. a*b/3/c/d D. a*b/3*c*d
19．Rnd函数不可能为下列（B）值。
A. 0 B.1 C.0.1234 D. 0.0005
20．表达式Len（“123程序设计ABC”）的值是（A）。
A．10 B.14 C.20 D.17
22．下面正确的赋值语句是（C）。
A．x+y=30 B .y=π*r*r; C. y=x+30 D. 3y=x
23．为了给x、y、z三个变量赋初值1，下面正确的赋值语句是（A）。
A.x=1:y=1:z=1 B.x=1,y=1,z=1 C. x=y=z=1 D.xyz=1
24．赋值语句“a = 123 + Mid("123456", 3, 2)”执行后，a变量中的值是（D）。
A. “12334” B.123 C.12334 D.157
25．赋值语句“a = 123 & Mid("123456", 3, 2)”执行后，a变量中的值是（C）。
A. “12334” B.123 C.12334 D.157
26．已知a=12，b=20，复合赋值语句“a*=b+10”执行后，a变量中的值是（D）。
A.50 B.250 C.30 D.360
27．下列哪组语句可以将变量A、B的值互换 C 。
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
28．下列 A 是属于VB．NET合法的变量名。
A．Home B．＠EMail C． Integer (关键字) D．＄money
29．执行下列语句后，变量x的值为 C 。
dim a as integer=0 : a=3/2
A．0 B．1 C．2 D．3
30. VB.NET提供了结构化程序设计的三种基本结构，三种基本结构是（D）。
A． 递归结构，选择结构，循环结构 B． 选择结构，过程结构，顺序结构
C． 过程结构，输入输出结构，转向结构 D． 选择结构，循环结构，顺序结构
31. 按照结构化程序设计的要求，下面（C）语句是非结构化程序设计语句。
A．if语句 B. For语句 C. GoTo语句 D. Select Case语句
32.下面程序段运行后，显示的结果是（A）。
Dim x As Integer
If x Then MsgBox(x) Else MsgBox(x + 1)
A.1 B.0 C.-1 D.显示出错信息
33．语句“If x=1 Then y=1” 下列说法正确的是（C）。
A. “x=1” 和“y=1” 均为赋值语句
B．“x=1” 和“y=1” 均为关系表达式
C．“x=1” 为关系表达式“y=1” 为赋值语句
D．“x=1” 为赋值语句“y=1” 为关系表达式
34．下面程序段显示的结果是（A）。
Dim x
x=Int(Rnd())+5
Select Case x
Case 5
MsgBox(“优秀”)
Case 4
MsgBox(“良好”)
Case 3
MsgBox(“通过”)
Case Else
MsgBox(“不通过”)
End Select
A. 优秀 B. 良好 C. 通过 D. 不通过
35.下面If 语句统计满足性别（sex）男、职称（duty）为副教授以上、年龄（age）小于40岁条件的人数，正确的语句是（B）。
A. If sex= “男” And age<40 And InStr(duty, “教授”)>0 Then n=n+1
B. If sex= “男” And age<40 And duty=“教授” or duty= “副教授” Then n=n+1
C. If sex= “男” And age<40 And Right(duty,2)= “教授” Then n=n+1
D. If sex= “男” And age<40 And duty)= “教授”And duty= “副教授” Then n=n+1
36.下面程序段求两个数中的大数，（D）不正确。
A. Max1=IIf(x>y, x, y)
B. If x>y Then Max1=x Else Max1=y
C. Max1=Math.Max(x, y)
D. If y>=x Then Max1=y Max=x
37．在窗体上放入一个名称为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 。
A．10 B．20 C．30 D．4026．
38.下面程序段的运行结果为（B）。
label1.text= “”
For i=3 To 1 Step -1
Label1.Text &=Space(5-i)
For j=1 To 2*i-1
Label1.Text &=”*”
Next j
Label1.Text &=chr(13)
Next i
A. * B. ***** C.***** D.*****
*** *** *** ***
***** * * *
39.下列程序段不能分别正确显示 1！、2！、3！、4！的值的是（B）。
A. For i=1 To 4
n=1
For j=1 To i
n=n*j
Next j
MsgBox(n)
Next
B. For i=1 To 4
For j=1 To i
n=1
n=n*j
Next j
MsgBox(n)
Next
C. n=1
For j=1 To 4
n=n*j
Next j
MsgBox(n)
Next
D. n=1
j=1
Do While j<=4
n=n*j
MsgBox(n)
j=j+1
Loop
40．窗体上有一个名为Button1的命令按钮和一个标签框，然后编写如下事件过程：
Private Overloads Sub Button1_Click(……) Handles Button1．Click
Dim num As Integer
num = 1
Do Until num > 6
Label1．Text = num
num = num + 2．4
Loop
End Sub
程序运行后，单击命令按钮，则在标签框上显示的内容是 C 。
A．5．8 B. 5 C．7 D． 6
41．窗体中有一个名称为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
n = InputBox("请输入一个大于1的整数", "输入框")
For i = 1 To CInt(n)
x = 0
For j = 1 To i
x = x + 1
Next
Next
Label1.Text = CStr(x)
End Sub
程序运行后，单击命令按钮，如果输入3，则在Label1显示的内容是 ( A )。
A．3 B．4 C．5 D．6
42.下列叙述中正确的是____B_________。
A.数组是用户自定义的数据类型 B.数组元素在内存中的存放形式是连续的
C.数组在使用时可以采用隐式声明 D.数组的下界可以任意
43．如下数组声明语句中正确的是（B）。
A. Dim a[3,4] As Integer B. Dim a(3,4) As Integer
C. Dim a{3,4} As Integer C. Dim a(3 4) As Integer
44.如下数组声明语句中正确的是（A）。
A. Dim a(9) As Single={1,2,3,4,5,6,7,8,9,10}
B. Dim a( ) As Single={1,2,3,4,5,6,7,8,9,10}
C. Dim a( ) As Single={1,“a”, “bc”2. ,4,5,6,7,8,9,10}
D. Dim a(,) As Integer={1,2,3,4,5,6,7,8,9,10}
45.如下数组声明语句中，数组a包含元素的个数有（C）。
Dim a(3,0,5)
A.15 B.8 C.24 D.16
46．已知数组arr进行以下定义：
Dim arr() as Integer = {1,1,1,1,1}
过程MySub定义如下：
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中的内容是 ( C )。
Dim data As Integer = 2
MySub(arr, data)
A．arr={2,2,2,2,2} data=2 B．arr={1,1,1,1,1} data=2
C．arr={2,2,2,2,2} data=0 D．arr={1,1,1,1,1} data=0
47．如下程序输出的结果是（D）。
Sub Button1_Click(... ...) Handles Button1.Click
Dim i%, j%
Dim a() As Integer = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}, b(3, 3) As Integer
Label1.Text = ""
For i = 1 To 3
Label1.Text &= Space(i * 3)
For j = i To 3
b(i, j) = a(i * j)
Label1.Text &= Space(6 - Len(b(i, j))) & b(i, j)
Next j
Label1.Text &= chr(13)
Next i
End Sub
A. 1 2 3 B.1 C.1 4 7 D. 1 2 3
4 5 6 4 5 2 4 6 4 6
7 8 9 7 8 9 3 6 9 9
48．在VB.NET中，无返回值的过程称为 A 过程。
A．Sub B．Function C． Property D．main
49.下面子过程语句说明最合理的是（C）。
A. Sub f1(By Val n%()) B. Sub f1(ByRef n%) As Integer
C. Function f1% (ByRef f1%) D. Function f1(ByVal n%)
50.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是（C）。
A. Sub f2( ByVal n%, ByVal m%) B. Sub f1(ByRef n%, ByVal m%)
C. Sub f1(ByRef n%, ByRef m%) D. Sub f1(ByVal n%, ByRef m%)
51.在过程中定义的变量，若希望在离开该过程后还能保存过程中的局部变量的值，则应使用（D）关键字在过程中定义过程级变量。
A.Dim B.Private C.Public D.Static
52.下面过程运行后显示的结果是（A）。
Public Sub F1(ByRef n%, ByVal m%)
n=n Mod 10
m=m\10
End Sub
Sub Button1_Click(... ...) Handles Button1_Click
Dim x%, y%
x=12: y=34
Call F1(x, y)
MsgBox(x & " "& y)
End Sub
A. 2 34 B. 12 34 C.2 3 D.12 3
53.如下程序，运行的结果是（D）。
Sub Button1_Click(......) Handles Button1.Click
MsgBox (p1(3.0,7))
End Sub
Public Function p1!(ByVal x!,ByVal n%)
If n=0 Then
p1=1
Else
If n Mod 2=1 Then
p1 = x* p1(x, n\2)
Else
p1= p1(x, n\2)\x
End If
End If
End Function
A.18 B.7 C.14 D.27
54.如下程序，运行的结果是（C）。
Dim a%, b%, c%
Public Sub p1(ByRef x%, ByRef y%)
Dim c%
x = 2 * x : y = y + 2 : c = x + y
End Sub
Public Sub p2(ByRef x%, ByVal y%)
Dim c%
x = 2 * x : y = y + 2 : c = x + y
End Sub
Sub Button1_Click(... ...) Handles Button1.Click
Dim a = 2 : Dim b = 4 : Dim c = 6
Call p1(a, b)
MsgBox("a= " & a & "b=" & b & "b=" & c)
Call p2(a, b)
MsgBox("a= " & a & "b=" & b & "b=" & c)
End Sub
A.a=2 b=4 c=6 B.a=4 b=6 c=10
a=4 b=6 c=10 a=8 b=8 c=16
C.a=4 b=6 c=6 D.a=4 b=6 c=14
a=8 b=6 c=6 a=8 b=8 c=6
55．如下程序，运行后个变量的值依次为（B）。
Public Sub Proc (ByRef a%())
Static i%
Do
a(i) = a(i) + a(i + 1)
i = i + 1
Loop While i < 2
End Sub
Sub Button1_Click(.....) Handles Button1.Click
Dim i%, x%(10)
For i = 0 To 4 : x(i) = i + 1 : Next
For i = 1 To 2 : Call Proc(x) : Next
For i = 0 To 4 : MsgBox(x(i)) : Next
End Sub
A. 3 4 7 5 6 B.3 5 7 4 5
C. 2 3 4 4 5 D.4 5 6 7 8
56．在VB.NET中，在窗体上显示控件的文本，用（A ）属性设置。
A. Text B. Name C. Caption D. Image
57．不论何种控件，共同具有的是什么属性(B )。
A. Text B. Name C．ForeColor D．Text
58．对于窗体，可改变窗体的边框性质的属性是（B）。
A. MaxButton B. FromBorderStyle C. Name D. Left
59．VB.NET窗体中提供的Hide方法的作用是 D 。
A．销毁窗体对象 B．关闭窗体 C．将窗体极小化 D．隐藏窗体
60．若要使标签控件显示时不要覆盖窗体的背景图案，要对（C）属性进行设置。
A．BackColor B. BorderStyle C．ForeColo D.BackStyle
61．若要使命令按钮不可操作，要对（A）属性进行设置。
A. Enabled B.Visible C. BackColor D. Text
62．若要求将提交按钮的访问键设置为“S”， D 则为修改其Text的属性值。
A．＠Submit B．*Submit C．＃Submit D．＆Submit
63．要使文本框中的文字不能被修改，应对（D）属性进行设置。
A. Locked B. Visible C. Enabled D. ReadOnly
64．要使当前Form1 窗体的标题栏显示“欢迎使用VB.NET”，以下（B）语句是正确的。
A. Form1.Test=“欢迎使用VB.NET”
B. Me. Text=“欢迎使用VB.NET”
C. Form1.Name=“欢迎使用VB.NET”
D. Me. Name=“欢迎使用VB.NET”
65．当运行程序时，系统自动执行启动窗体的（A）事件过程。
A. Load B. Click C. UnLoad D. GotFocus
66．当文本框的ScrollBars属性设置了非None值，却没有效果，原因是（B）。
A. 文本框没有内容
B. 文本框的MulitLine属性为False
C. 文本框的MulitLine属性为True
D. 文本框的Locked属性True
67．要使文本框成为密码输入框，一般应修改文本框的 C 。
A．PasswordChar属性和MaxLength属性，并且 MultiLine属性值只能为False。
B．PasswordChar属性和MaxLength属性，并且Lines属性值只能为False。
C．只修改PasswordChar属性值就可以了,其他属性可以不修改。
D．PasswordChar属性和MaxLength属性， MultiLine属性值可以为True。
68．要判断在文本框中是否按了Enter键，应在文本框的（B）事件中判断。
A. Change B. KeyDown C. Clink D. KeyPress
69． 下列控件中，没有Text属性的是（D）。
A．分组框 B.列表框 C.复选框 D.定时器
70．在下面对列表框（ListBox1）的操作中，正确的语句是（C）。
A.Listbox1.Items.Cls B.ListBox1.Items.Remove(4)
C.ListBox1.Items.Remove("计算机") D.ListBox1.Items.Add(1, "打印机")
71．引用列表框（ListBox1）最后一个数据项应使用（ B ）。
A.ListBox1. Items (ListBox1.Items.Count)
B.ListBox1. Items (ListBox1.Items.Count -1)
C.ListBox1.Text
D.ListBox1. Items (ListBox1.SelectedIndex)
72．在下列属性和事件中，属于滚动条和进度条共有的是（D）。
A.Scroll B.ValueChanged C.LargeChange D.Maximum
73.下列关于定时器的说法中，正确的是（B）。
A．当Enabled属性为False时，不产生Tick事件
B．在程序运行时不可见，这是因为Visible属性为False
C．当Interval属性为0，则Tick事件不会发生
D．通过恰当的设置可以将Interval属性的单位改为秒
74．以下正确的语句是（C）。
A.OpenFileDialog1.Filter=All Files| *.*|Pictures(*.Bmp)|*.Bmp
B.OPenFileDialog1.Filter= “All Files”|”*.* “|”Pictures(*.Bemp)”|”*.Bmp
C.OPenFileDialog1.Filter= “AllFiles|*.*|Pictures(*.Bmp)|*.Bmp”
D.OpenFileDialog1.Filter={All Files|*.*|Pictures(*.Bmp)|*.Bmp}
75．在下列关于通用对话框（如打开文件对话框）的说法中错误的是（B）。
A．可以用ShowDialog方法打开
B.可以用Show方法打开
C．当选择了“取消“按钮后，ShowDialog方法的返回值是DialogResult.Cancel
D.通用对话框是非用户界面控件
76. 窗体上有一个名为TextBox1的文本框和Label1标签框，然后编写如下事件过程。当在文本框输入“ABCD”四个字符时，窗体上显示是（C）。
Sub TextBox1_TextChanged(.....) Handles TextBox1.TextChanged
Label1.Text &=TextBox1.Text
End Sub
A. ABCD B. A C.AABABCABCD D.A
B AB
C ABC
D ABCD
77．实现菜单功能，应向菜单项的 B 事件添加代码。
A．Command B． Click C．Popup D． Select
78．若需要在File菜单下的Save与Exit两个菜单项之间插入一分隔条， A 可以修改File菜单下的菜单项属性。
A．在Save和Exit菜单项之间插入一新的菜单项，将其Seperator属性设为True
B．用画笔在Save和Exit菜单项之间划一合适长度的横线
C．在Save和Exit菜单项之间插入一新的菜单项，将其Text属性设为减号"-"
D．在Save和Exit菜单项之间插入一新的菜单项，将其Style属性设为“OwnerDraw”
79． Win窗体的工具栏对象为ToolBar1。为了在工具栏中添加新的按钮，应该在对象ToolBar1的“属性”视图下编辑ToolBar1的_____C____属性
A. Appearance B. ImageList C. Buttons D. Items
80．下列（A）组关键字是Select语句中不可缺少的。
A. Select、From B. Select、Where C. From、Order By D. Select、All
81．在SQL的UPDATE语句中，要修改某列的值，必须使用关键字（ D ）。
A. Select B. Where C.DISTINCT D. Set
82．以下关于数据集的叙述，不正确的是（D）。
A.在DataSet中可以包含任何数量的DataTable（数据表）或视图（View）
B. DataSet是XML与ADO结合的产物
C. DataSet与数据库或SQL无关
D. DataSet需要在线工作
83．绑定管理BindingContext对象的Position属性可设定或返回数据集中记录的序号位置，而Ccunt属性可返回数据表中的记录条数。第一条记录的Position属性值为（ A ），最后一条记录的Position属性值等于（ ）。
A.0, Count-1 B.0, Count C.1,Count-1 D.1,Count
84．.当对命令对象的CommandText属性设置了Delete语句后，要执行该SQL语句，需要调用（ B ）方法。
A. ExecuteReader B. ExecuteNonQuery C. ExecuteScalar D. Execute
85．在ADO.NET中在SQL语句中使用（B）标记实现参数传递。
A.@ B.& C.# D.%
86．下列显示的字符串中，字符串（ D ）不包含在连接对象的ConnectionString属性内（）。
A.Microsoft.Jet.OLEDB.4.0 B.Data Source=C:\Mydb.mdb
C.PassWord = "" D.2-adCmdTable
87．要使数据适配器的Update方法能正确执行，必须配置（C）属性。
A.SelectCommand B.InsertCommand
C.UpdateCommand D.DeleteCommand
88．数据绑定列表ListBox和下拉式列表框ComboBox控件中的列表数据通过属性（ B ）从数据集中取得。
A.DataSource和DataField B.DataSource和DisplayMember
C.BoundColumn和BoundText D.RowSource和ListField
89．类MyClass 的定义如下：
Public Class MyClass1
Private data as String
End Class
则关键字Private 在类的定义中的作用是 B 。
A．限定成员变量data 只在本模块内部可以使用；
B．限定成员变量data 仅在类MyClass 的成员方法中可以访问；
C．限定成员变量data 仅仅可在类以及子类的成员方法中访问
D．限定类MyClass 仅在本模块中可以使用
90. 在VB.NET中。定义类模块的关键字为 A 。
A. Class … End Class B. Struct ... End Struct
C. Sub … End Sub D. Function … End Function
二、判断题（45题）
注意：正确用T表示，错误用F表示，请填写题号前的括号中；若全部为正确或错误，该题不得分；
（T ）1.菜单中的分隔线也是控件，也有属性，方法和事件。但它不能响应 Click事件
（ F ）2.如果想要合并 MDI 主窗体和子窗体的相同菜单，应该把 MDI 主窗体的LoadStripMenuItem控件的“MenrgeAction”属性设为“MatchOnly” 。
（ F ）3.菜单只能响应 Click事件
（ F ）4.调用窗体的 Close 方法可以关闭窗体，窗体一旦被关闭就不能再访问窗体对象了。
（ T ）5.工具栏的工具按钮上既可以显示文本，又可以显示图像
（ F ）6.在多窗体应用程序中，只能从主窗体访问其他窗体，不能从其他窗体访问主窗体
（ F ）7 多窗体应用程序包含 MDI主窗体和 MDI子窗体。
（ F）8.状态栏只能显示文本，不能显示图像。
（ F ）9.在 MDI 应用程序中，由于 MDI 主窗体有“MainMenuStrip”属性，因此可以为MDI 主窗体添加菜单。而 MDI 子窗体没有“MainMenuStrip”属性，因此不能为MDI子窗体添加菜单。
（ F ）10.菜单项的访问键和快捷键是一回事，均可以通过菜单项的ShortcutKeys 属性
（ T ）11.通过设置文本框的 ReadOnly属性或 Enabled属性，可以使文本框变为只读文本框。
（ T ）12.TextBox 控件可以作为单行文本框、多行文本框或密码框使用。
（ F ）13.如果不限制文本框中输入的字符数，可将文本框的MaxLength属性设为-1.
（F ）14.可以使用Form1.FormBorderStyle= FormBorderStyle..FixedSingle语句修改窗体 Form1 的 FormBorderStyle属性。
（ F ）15.组框 GroupBox 上的标题不能设置对齐方式。
（F ）16.复选框具有选中和未选中两种状态。
（ F ）17.通过设置控件的 TabIndex 属性，可以使控件不能从Tab 键获得焦点。
（F ）18.所有鼠标事件响应过程的参数都一样。
（ F ）19.只能通过 Visual Studio.NET继承开发环境的窗体设计器创建窗体。
（ F ）20.我们无法控制窗体的显示位置，因为窗体的显示位置是随机的。
（ F ）21.窗体类可以生成窗体， 但他不能被继承， 从而可以防止派生类对窗体类的修改。
（ F ）22.窗体和控件的事件响应过程只能通过 Visual Studio.NET集成开发环境生成。
（T ）23.可以通过窗体的 Cursor 属性，为窗体设置鼠标指针形状。
（ F ）24.窗体的图标由 Visual Studio.NET继承开发环境生成，不能被更改。
（F ）25.可以使用Form1.Name=”testForm”语句更改窗体 Form1 的 Name属性。
（ T ）26.利用 DataReader 对象只能读取数据,不能修改数据.
（F ）27.DataReader 对象只能检索一个结果集中的数据.
（ T ）28.DataSet 相当于内存中的数据库.
（ F ）29.数据集中的数据只能访问,不能修改.
（F ）30.数据集只在内存中存储一行数据,因此它的开销比较小.
（ T ）31.除了使用对象以外,还能使用数据控件访问数据源.
（ T ）32.数据源不仅仅指数据库,还包括 Execl 电子
表格
关于规范使用各类表格的通知入职表格免费下载关于主播时间做一个表格详细英语字母大小写表格下载简历表格模板下载
,文本文件等.
（ F ）33.ADO.NET独立于数据源,无论访问什么样的数据源使用同样的类.
（ T ）34.ADO.NET采用一种断开式数据访问,一旦获取所需的数据,就会断开对数据源的连接,在本机上处理数据.
（T ）35.DataSet 独立于任何数据源,无论是数据库.Excel 文件.还是 XML 文件中的数据均可填充进 DataSet,因此 DataSet 可以用于多种不同的数据源.
（ F ）36.就像 Insert 语句一样,Delete语句也只能删除数据表中的一条记录.
（ F ）37.由于 ADO.NET采用断开式数据访问,所以 Connection对象可有可无.
（F ）38.通过移动通过移动.数据集记录指针,可以访问数据集中的任何数据.
（T ）39.OleDbDatapter 对象通过OleDbCommand对象在数据库中执行 SQL语句.
（ F ）40.调用 DataRow对象的 Delete方法,可以立即删除该数据行.
（ F）41.所有菜单均可以设置访问键和快捷键。
（ F ）42.在一个窗体中不能访问另一个窗体上的控件属性。
（F ）43.若想设置文本框选中的字符数，应在属性窗口中给 SelecttionLength 属性赋相应值。
（F ）44.DataSet 对象可以直接与数据源进行交互,从数据源获取数据或更新数据回数据源.
（F ）45.ADO.NET中,针对不同的应用程序(Windows 应用程序,Web应用程序)提供了不同的类,以最大限度地适宜这些应用程序的各自特点.
三、填空题（23空）
1．已知数据库AddrBook.mdb中包含“家庭成员”数据表，以下程序查询“家庭成员”数据表中的所有数据并显示。请填空，实现功能
dim str as String=” Provider=Microsoft.Jet.OleDb.4.0;Data Source=D:\AddrBook.mdb”;
dim con as OledbConnection = new OleDbConnection(str)
con.Open();
dim SQL as String = “select * from 家庭成员”;
dim cmd as OleDbCommand = new OleDbCommand();
cmd.CommandText = SQl
cmd.Connection = con
OleDataReader rd=___ cmd.ExecuteReader()______
If rd.HasRows Then
While _______ rd.Read()______________________
……
End While
End If
2．已知数据库Colledge.mdb中包含Student数据表，以下程序查询Student数据表中的所有数据并显示在DataGridView控件中。请填空，实现功能
dim str as String = ”provider=Microsoft.Jet.OLEDB.4.0;data source=D:\Colledge.mdb”;
dim Con as OleDbConnection =new OleDbConnection()
__ Con.ConnectionString ____________ = str
___Con.Open()__________________________
dim SQL as string = “selete * from student”
dim da as OleDbDataAdapter =new ____ New OleDbDataAdapter(SQL, Con )______
dim ds as DataSet = newDataSet()
__________ da.Fill(ds, "Student ")____________
dataGridView1.DataSource =____ ds.Tables(“Student”)_________________________
3．已知数据库gtgsgl.mdb中包含“tbljyfs”数据表，以下程序查询“tbljyfs”数据表中的所有数据，并显示在lblShow标签控件。请填空，实现功能
Dim conStr = "provider=microsoft.jet.oledb.4.0;data source=D:\gtgsgl.mdb"
Dim conn As New _______ OleDbConnection(conStr)______________________
conn.Open()
Dim sql = "select * from tbljyfs order by bType"
Dim da As OleDbDataAdapter = _ New OleDbDataAdapter(sql, conn )_________
Dim ds As DataSet = New DataSet()
_______________ da.Fill _______________ (ds, "tJyfs")
Dim dt As DataTable = ds.Tables("tJyfs")
dim str as string="目前尚无数据！"
If dt.Rows.Count > 0 Then
For r As Integer = 0 To ___ dt.Rows.Count -1______________
For c As Integer = 0 To _______ dt.Columns.Count - 1___
str += String.Format("{0,-15}", ___ dt.Rows（r）（c）)
Next
str += Chr(13) & Chr(13)
Next
End If
lblShow.Text = str
4．已知数据库gtgsgl.mdb中包含“tblUsers”数据表，以下程序查询“tblUsers”数据表中的所有数据，并显示在lblShow标签控件。请填空，实现功能
Dim conStr = "provider=microsoft.jet.oledb.4.0;data source=D:\gtgsgl.mdb"
Dim conn As New OleDbConnection(conStr)
__________ conn.Open()_________
Dim sqlSelect = "select * from tblUsers order by user_Name"
Dim cmd As OleDbCommand = ____ New OleDbCommand(sqlSelect , conn )________
Dim dr As OleDbDataReader = ______ cmd.ExecuteReader()___________
Dim str As String = "目前尚无数据！"
Dim col As Integer = ______ dr.FieldCount ____
If __________dr.HasRows Then ___________________
While ______ dr.Read()________________________
For i As Integer = 0 To col - 1
str += String.Format("{0,-15}", ____ dr(i)_____)
Next
str += Chr(13) & Chr(13)
End While
End If
lblShow.Text = str
四、阅读程序题（20题）
1．阅读程序，描述下划线之上一句的功能
Dim conStr = "provider=microsoft.jet.oledb.4.0;data source=D:\gtgsgl.mdb"
Dim conn As New OleDbConnection(conStr)
conn.Open()
打开连接对象conn 所连接的数据库：d盘下的“gtgsgl.mdb”文件
Dim sql = "select * from tbljyfs order by bType"
Dim da As OleDbDataAdapter = New OleDbDataAdapter(sql, conn)
__创建数据适配器对象da,并设置其要使用的连接对象名conn及对数据源要执行的SQL命令字符串sql。
Dim ds As DataSet = New DataSet()
da.Fill(ds, "tJyfs")
_用DataAdapter对象da _将通过SQL命令获取的数据填入数据集对象ds的数据表"tJyfs"中
Dim dt As DataTable = ds.Tables("tJyfs")
_将数据集对象ds的数据表"tJyfs"_赋值给_数据表对象dt______________
dim str as string=""
If dt.Rows.Count > 0 Then
For r As Integer = 0 To dt.Rows.Count - 1
For c As Integer = 0 To dt.Columns.Count - 1
str += String.Format("{0,-15}", dt.Rows(r)(c))
______ str字符串的连接，先在其后连接15个空格，再将从数据表"tJyfs"的第r+1个记录的第c+1个字段的值取出来连接其后____________________
1. Next
str += Chr(13) & Chr(13)
Next
End If
2．阅读程序，描述下划线之上一句的功能
Dim conStr = "provider=microsoft.jet.oledb.4.0;data source=D:\gtgsgl.mdb"
Dim conn As New OleDbConnection(conStr)
conn.Open()
打开数据库连接对象conn 所连接的数据库：d盘下的“gtgsgl.mdb”文件__________
Dim sqlSelect = "select * from tblUsers order by user_Name"
Dim As OleDbCommand = New OleDbCommand(sqlSelect, conn)
____创建数据库命令对象cmd,并设置其要使用的连接对象名conn及对数据源要执行的SQL命令字符串 sqlSelect _______________________________
Dim dr As OleDbDataReader = cmd.ExecuteReader()
___调用数据库命令对象cmd的ExecuteReader 方法来创建数据适配器对象dr_______
Dim str As String = ""
Dim col As Integer = dr.FieldCount
While dr.Read()
___当能从_ OleDataReader 对象rd_中读取到记录时，那么执行下面语句。否则执行End While 后面的语句______
For i As Integer = 0 To col - 1
str += String.Format("{0,-15}", dr(i))
__________ str字符串的连接，先在其后连接15个空格，再将从OleDbDataReader对象dr中读取的第i+1个记录的值取出来连接其后_____________________
Next
str += Chr(13) & Chr(13)
End While
3．阅读程序，描述下划线之上一句的功能
dim str as String=” Provider=Microsoft.Jet.OleDb.4.0;Data Source=D:\AddrBook.mdb”
dim con as OledbConnection = new OleDbConnection(str)
con.Open();
dim SQL as String = “select * from 家庭成员”;
dim cmd as OleDbCommand = new OleDbCommand();
_____创建数据库命令对象cmd ___________
cmd.CommandText = SQl
___设置命令对象cmd 对数据库要执行的SQL命令字符串 SQl _____
cmd.Connection = con
___________设置命令对象cmd_要使用的数据库连接对象conn
OleDataReader rd= cmd.ExecuteReader()
If rd.HasRows Then
___如果数据阅读器对象rd.hasrows返回true, 即'如果有数据集rd（或数据集rd中至少包含一条记录（一行）），那么执行下面语句。否则执行End If后面的语句
While rd.Read()
_循环读取，__本句设置进入While循环体的条件为_ rd.Read()值为真，即可以从_ OleDataReader 对象rd_中读取到记录时，执行循环体。否则退出While循环体_____
……
End While
End If
4．阅读程序，描述下划线之上一句的功能
dim str as String = ”provider=Microsoft.Jet.OLEDB.4.0;data source=D:\Colledge.mdb”
dim Con as OleDbConnection =new OleDbConnection()
_____创建数据库连接对象Con ___________________
Con.ConnectionString = str
__设置数据库连接对象Con的ConnectionString属性值为字符串变量 str 的值_____
Con.Open()
dim SQL as string = “selete * from student”
dim da as OleDbDataAdapter =new OleDbDataAdapter(SQL,Con)
____创建数据适配器对象da,并设置其要使用的连接对象名con及对数据源要执行的SQL命令字符串SQL 。
dim as DataSet = new DataSet()
_____创建数据集对象ds ________________
Da.Fill(ds,”Student”)
___将DataAdapter对象da通过SQL命令获取的数据填入数据集对象ds的数据表”Student”中______
dataGridView1.DataSource = ds.Tables(“Student”)
__设置DataGridView控件的数据源为数据集DataSet中的数据表_“Student”______
五、问答题（8题）
1．.NET整个开发平台的基础和核心是什么？由什么组成？p2
2．请简要回答静态局部变量与普通局部变量的区别?p33
3．请概述VB.NET中的过程p107
4．过程的参数是什么？是怎样分类的？数组或控件对象作为参数按什么方式传递。P115
5．请概述窗体与控件的关系p119
6．什么是类、对象、属性、方法、事件
7．简述类中方法的定义。
8．简述类中属性的定义
浙公网安备 33021202002483