' 定义只读的属性过程AGE
Public ReadOnly Property AGE() As Integer Get
Return DateDiff(DateInterval.Year, INNER_BIRTHDAY, Now) End Get End Property …………. End Class
36、阅读程序，将其补充完整。 Dim cn As New SqlConnection
cn.ConnectionString = \Source=(local); \& _ Initial Catalog=Northwind;\& \Security = SSPI;\
Dim strSql = \ProductID, ProductName,UnitPrice from Products\ Dim da As New SqlDataAdapter(strSql, cn) Dim ds As New DataSet cn.Open()
___________________
DataGrid1.DataSource = ds.Tables(\ cn.Close() End Sub
37、求2!+5!+7!+10! Public Class Form1
Inherits System.Windows.Forms.Form Dim SUM As Double Sub F(ByVal N As Integer) Dim I As Integer Dim T As Double T = 1
For I = 1 To N T = T * I Next
SUM = SUM + T End Sub
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click
_____________________________ MsgBox(\& SUM) End Sub End Class
38、阅读程序，将其补充完整 <% @ Page Language=\%>
<% Dim I AS Integer
For I=1 TO 4 %>
<% Next %>
39、求 2 + 4 + …… + 200 的和。 IMPORTS SYSTEM CLASS MAIN
Public Shared Sub MAIN() Dim sum As Integer Dim count As Integer sum = 0: count= 0 while count < 200 count + = 2 end while
Console.WriteLine(\+ sum.tostring) End Sub
40、在窗体上画一个名称为Button1的命令按钮，然后编写如下事件过程：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, i, j, n As Integer x = 0
n = InputBox(\请输入一个整数\For i = 1 To n For j = 1 To i x = x + 1 Next j Next i msgbox(x) End Sub
程序运行后，单击命令按钮，如果输入3，则在消息框中显示的内容是（ ）。 41、请看以下代码： Dim X As Integer =2 Select Case X Case 1
MessageBox.Show(“Yes!”) Case 2
MessageBox.Show(“No!”) Case 3
MessageBox.Show(“Ok!”) Case Else
MessageBox.Show(“Sorry!”) End Select
问运行后MessageBox将输出：（ ）
42、在窗体上画一个名称为Button1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码： DIM X,Y As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click X = 5 Y = 3
Call proc(X, Y) Label1.TEXT = X Label2.TEXT = Y End Sub
Sub proc(ByRef a As Integer, ByVal b As Integer) a = a * a b = b + b End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是（ ）和（ ）。 43、请看以下代码： Dim I As Integer For I = 0 to 10 I = I+2 Next
MessageBox.show ( I )
问运行后MessageBox将输出：（ ）
44、NET Framework是开发平台的基础，它包括两个主要组件：（ ）和.NET Framework类库。 45、ASP.NET页面文件的后缀名是（ ）。
46、Sub子过程的调用有两种方法：一种是使用（ ）语句，另一种是直接调用。 47、对象具有的典型特征包括：（ ）、（ ）和方法。
48、HTML标记中用来表示分段落的标记是（ ），用来表示换行的标记是（ ）。
49、数据读取器DataReader对象是一个简单的数据集，用于从数据源中检索（ ）、（ ）数据流。 50、为类定义事件的关键字是（ ）。
51、在对SQL Server 2000数据库操作时应选用（ ）数据提供程序。
52、过程调用中的参数传递有（ ）、（ ），其关键字分别是（ ）、（ ）。 53、应用Response对象的（ ）方法可以将指定字符输出到客户端浏览器。 54、Response对象的（ ）方法可以向浏览器发送另一个页面。
55、与Request对象的Form和QueryString两种方法对应的表单提交方法分别是（ ）和（ ）。 56、Server的（ ）方法可将“网络虚拟路径”转换为“Web服务器上的实际路径”。 57、下列哪个属于合法的变量名?( )
A． _HOME B. @email C. integer D. $money 58、在ADO.NET中，代表程序到数据库的连接对象为：（ ） A DataAdapter 对象 B DataSet 对象 C. Command 对象 D. Connection 对象
59、若需要从关系数据库中的表Employees中查看所有的记录，应使用SQL语句（ ） A．Insert * From Employees
B．Delete * From Employees C．Update * From Employees D．Select * From Employees
60、 OleDbconnection cnNorthwind=new OleDbConnection(); CnNorthwind.ConnectionString=”Provider=SQLOLEDB;”+ “Data Source=ProdServ01;”+ “Initial Catalog=Pubs”+ “Integrated Security=SSPI”;
则该连接的服务器的机器名为（ ）。 A. Prodserv01 B. SQLOLEDB C. Pubs D. SSPI
61、employee 是sql server 2000数据库中的一个数据表，为执行下列sql语句， insert into employee values(10,tom,1997)
应调用命令对象（command对象）的哪个方法：（ ） A. executescalar B. executexmlreader C. executereader D. executenonquery
62、对文件进行读写操作时需要导入的名称空间是：（ ） A. system.data B. system.io C. system.xml D. system.collections
63、VB.NET中导入名称空间时用到的关键字是（ ）。 A．imports B．using C．use D．import
64、为创建在SQL Server 2000 中执行Select 语句的Command 对象，可先建立到SQL Server2000数据库的连接，然后使用连接对象的（ ）方法创建SqlCommand对象。 A. Open B. OpenSQL C. CreateCommand D. CreateSQL
65、 为了在程序中使用DataSet 类定义数据集对象，应在文件开始处添加对命名空间（ ）的引用。 A. System.IO B. System.Utils C. System.Data D. System.DataBase
66、为了在程序中使用OleDb .NET 数据提供程序，应在源程序工程中添加对程序集（ ）的引用。 A. System.Data B. System.Data.SQL C. System.Data.OleDb D. System.Data.Odbc
67、当访问SQL Server 2000数据库中的数据，最好使用以下哪种.NET数据提供者连接到数据库？（ ） A. ODBC.NET 数据提供程序 B. OLEDB.NET数据提供程序 C. XML.NET数据提供程序 D. SQL Server.NET数据提供程序 68. 为下面类的定义添加属性。 Public Class PERSON
___________________ ' 定义NAME属性可读可写 Private INNER_SEX As String ' 定义只读的属性过程AGE
Public ReadOnly Property AGE() As Integer
Get
Return DateDiff(DateInterval.Year, INNER_BIRTHDAY, Now) End Get End Property …………. End Class