1. 在Visual Studio.NET中创建的VB项目MyProject，其项目文件MyProject.vbproj的存储格式为
A. 一般TXT格式   B. 二进制格式   C. HTML格式  D. XML格式
正确答案：D 
2. .NET构架中，异常处理机制是在__________实现的？ 
A. CLR层  B. BCL层  C. CLS层  D. Windows Froms和ASP.NET层
正确答案：A 
3. .NET构架中被用来访问数据库数据的组件集合称为： 
A. ADO   B. ADO.NET   C. COM+   D. Data Service .NET 
正确答案：B 
4. 在.NET 构架中，VB.NET程序被编译成
A. 机器码  B. 汇编码  C. MSIL码  D. 脚本
正确答案：C 
5. MSIL是在________层中被解释成本地机器码的？ 
A. CLR层  B. BCL层  C. CLS层  D. Windows API 
正确答案：A 
6. 在MyFirst解决方案目录下的下列哪个文件中可以找到用户配置信息？ 
A. MyFirst.sln文件中  B. MyFirst.suo文件中
C. MyFirst.vb文件中   D. MyFirst.vbproj文件中
正确答案：B 
7. 在VB.NET中。定义类模块的关键字为：
A. Class??End Class   B. Struct??End Struct 
C. Sub??End Sub       D. Function??End Function 
正确答案：A 
8. 根据.NET的术语规范，VB.NET的类中的数据成员又称为：
A. 域  B. 子项  C. 数据子项  D. 属性
正确答案：A 
9. 在VB.NET程序中，对象可执行的操作称为对象的
A. 属性  B. 方法  C. 事件  D. 状态
正确答案：B 
10. VB.NET中，程序员修改了主窗体的某个属性后，发现无法启动程序，原因可能是： 
A. 修改了主窗体的Caption属性  B. 修改了主窗体的isMainForm属性
C. 修改了主窗体的Name属性     D. 修改了Main函数
正确答案：C 
11. 在窗体的成员方法dosomthing中，将窗体位置居中显示，应调用哪个窗体方法？ 
A. Center()   B. CenterToScreen()   C. MoveToCenter()   D. Show() 
正确答案：B 
12. 哪种窗体在关闭之前不允许用户与程序中其他窗体进行交互？ 
A. 主窗体  B. 对话框  C. 模态窗体  D. 非模态窗体
正确答案：C 
13. 在VB.NET中，一个布尔型变量占用的内存位数为
A. 8位  B. 16位  C. 32位  D. 64位
正确答案：C 
14. VB.NET中，取字符串”this is a test”的第一个字符，并将其赋值给字符变量ch。下列代码哪组正确？（假设已经定义变量ch） 
A. ch = Char(Mid(“this is a test”,0,1)) 
B. ch = CChar(Mid(“this is a test”,0,1)) 
C. ch = Char(Mid(“this is a test”,1,1)) 
D. ch = CChar(Mid(“this is a test”,1,1)) 
正确答案：B 
15. Textbox控件限制用户输入字符长度的属性为:
A. CharacterCasing  B. Length  C. MaxLength  D. AutoSize
正确答案：C 
16. 过程changeName中执行下列代码后，字符串firstName的值是什么？ 
Dim firstName as String = “Tom” 
Dim secondName as String = firstName 
secondName &= “Jerry” 
A. Tom   B. Jerry   C. Tom Jerry   D. Tom & Jerry 
正确答案：A 
17. 类Hello定义如下
Public Class Hello 
Public Message As String 
…… 
End Class 
现在需要将Message限定在本项目中可以访问，应该将限定符Public修改为
A. Static   B. Protected   C. Friend   D. Private 
正确答案：C 
18. 执行下列语句后，控制台输出什么结果
Dim res as Integer = CType(“123.45”,Integer) 
Console.Writeln(res) 
A. 123   B. 12345   C. 0   D. res 
正确答案：A 
19. 在VB.NET中，无返回值的过程称为________过程
A. Sub   B. Function   C. Property   D. Main 
正确答案：A 
20. 在模块MyModule中定义的过程ShowHelpInfo（如下），其访问权限为_________。
Public Module MyModule 
…… 
Sub ShowHelpInfo(String info) 
MessageBox.Show(info) 
End Sub 
……
End Module 
A. 仅在MyModule中可以使用  B. 在本项目中可以使用
C. 在本解决方案中可以使用   D. 在派生模块中可以使用
正确答案：C 
21. 下列程序在控制台上的输出结果为_________。 
Public Function MyFunc(i as Integer) 
If i > 0 Then 
Return 100 
Else 
Return "hello" 
End If 
End Function 
Public Shared Sub Main() 
Dim x As Employee 
Console.WriteLine(TypeName(x.MyFunc(-1)) & "," & TypeName(x.MyFunc(1))) 
End Sub 
A. Integer,String   B. String,Integer   C. Object,Object   D. String,String 
正确答案：B 
22. 下列主过程Main中执行完语句x.MyFunc(i)后，局部变量i的值为________。 
Class test 
Public Sub MyFunc(ByVal i As Integer) 
i = i * 2 
End Sub 
End Class 
Sub Main() 
Dim x As new test 
Dim i As Integer = 100 
x.MyFunc(i) 
End Sub 
A. 0 
B. 2 
C. 100 
D. 200 
正确答案：C 
23. 在调试VB.NET中，可以使用Visual Studio.NET的下列哪种窗口查看和修改位于当前文本中的所有变量？比如过程的所有局部变量。
A．局部变量窗口  B.监视窗口  C.快速监视窗口  D.自动窗口
正确答案：B 
24. 已知数组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中的内容是什么？ 
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 
正确答案：C 
25. 表达式CInt(True)的值为
A. False   B. True   C. 1   D. -1 
正确答案：D 
26. 执行下列语句后，变量x的值为____________ 
Dim x as Integer = 0 
x = 3/2 
A. 0   B. 1   C. 2   D. 3 
正确答案：B 
27. 下列布尔表达式的值为____________。
True and True Xor True and False 
A. True   B. False   C. OrElse   D. AndAlso 
正确答案：A 
28. 下列表达式的值为____________。
True and 100+10*3<12^2 
A. True   B. False   C. 130   D. 144 
正确答案：A 
29. 分析下列程序，当运行结束后，在控制台上的输出是什么？ 
Public Function Increment(ByRef value as Integer) AS Integer 
value += 1 
return value 
End Function 
Public Sub Main() 
Dim n1 as Integer = 1 
Dim n2 as Integer = 1 
Dim result as Boolean 
If n1=0 AndAlso Increment(n2)=1 Then 
result = True 
Else 
result = False 
End If 
Console.Writeln(“n1=”& n1 & “,n2=”&n2) 
End Sub 
A. n1=1,n2=1   B. n1=0,n2=2   C. n1=1,n2=2   D. n1=0,n2=1 
正确答案：A 
30. 在设计循环语句时，若有以下要求：1、在执行循环之前先测试条件表达式expression ；2、让代码循环执行到该条件表达式的值取“真”。则应使用下列哪种Do Loop循环语句？ 
A. Do Until expression ?? Loop   B. Do ?? Loop Until expression 
C. Do While expression ?? Loop   D. Do ?? Loop While expression 
正确答案：A 
31. 在使用OpenFileDialog对话框控件时，希望通过对话框只查找C++文件的程序文件(*.CPP)文件和头文件(*.H)，则OpenFileDialog对象的Filter属性应如何设置？ 
A. “C++程序文件:*.CPP;C++头文件:*.H” 
B. “C++程序文件|*.CPP|C++头文件|*.H” 
C. “C++程序文件\*.CPP\C++头文件\*.H” 
D. “C++程序文件->*.CPP;C++头文件->*.H” 
正确答案：B 
32. TextBox控件的PasswordChar属性的作用是
A. 该属性是Boolean类型，表示是否使用*号隐藏输入的信息
B. 该属性是String类型，表示输入的隐藏信息的实际内容
C. 该属性是Char类型，表示是用哪个字符隐藏输入的信息
D. 该属性在VB.NET中未使用
正确答案：C 
33. 为了使TextBox的ScrollBar真正起作用，应该将TextBox的“自动换行”功能取消。取消该功能，需要将TextBox控件的_______属性设置为False? 
A. ScrollBars   B. AcceptReturns   C. WordWrap   D. AutoSize 
正确答案：C 
34. 使用Masked Edit控件输入金额数字时，对输入有以下格式要求： 
1、前面必须带$符号；2、金额最多为999999元，且每3位用逗号分割,高位不保留0； 3、整数部分对10元取整，即个位必须为0；4、小数部分保留2位,必须为0 。
金额数字的例子如：123,450.00。根据该要求，则控件的Mask属性应为
A. $999,99#.00   B. $999,990.00   C. $###,##0.00   D. $###,##9.00 
正确答案：B 
35. 可以使用下列哪个函数来检测一个字符串的内容是不是数字格式？ 
A. IsNumeric   B. IsNothing   C. IsInteger   D. IsNumber 
正确答案：A 
36. 在面向对象编程方法中，将对象的属性和方法用某种方法“包装”起来，使得要访问对象，必须通过那些被清楚定义的接口，这种“包装”的过程，在面向对象编程中称为
A. encapsulation   B. abstraction   C. envelope   D. implementation 
正确答案：A 
37. MyDS是一个System..Data.DataSet类型的对象，C：\MyDsInfo,XML中保存了另外一个System..Data.DataSet对象的模式信息。若想根据该模式信息在MyDS中创建一个临时的数据库，则首先应调用以下哪条语句？ 
A. MyDS.ReadXml (“C:\MyDsInfo.XML”)
B. MyDS.ReadXmlSchema (“C:\.MyDsInfo .XML”)
C. MyDS.WriteXml(“C:\MyDsInfo.XML”)
D. MyDS.WritexmlSchema(“C:\MyDsInfo.XML”)
正确答案：B 
38. 类MyClass的定义如下： 
Public Class MyClass1 
Private data as String 
End Class 
则关键字Private在类的定义中的作用是： 
A. 限定成员变量data只在本模块内部可以使用； 
B. 限定成员变量data仅在类MyClass的成员方法中可以访问； 
C. 限定成员变量data仅仅可在类以及子类的成员方法中访问
D. 限定类MyClass仅在本模块中可以使用
正确答案：B 
39. 在VB.NET中，一般使用关键字________来标示重载方法。
A. Overloads   B. Overrides   C. Shadows   D. Public 
正确答案：A 
40. VB.NET中变量Obj和Obj2的声明如下： 
Dim obj as new MyClass 
Dim obj2 as MyClass = obj 
则下面语句的作用是_______。
obj = Nothing 
A. 将obj引用的MyClass对象从托管堆中删除
B. 将Obj引用的MyClass对象的引用计数减1 
C. 将变量Obj转而引用Nothing对象
D. 将变量Obj从内存中删除
正确答案：B 
41. .NET对象的最后一个引用被释放后多长时间后，对象占用的“托管堆”空间被.NET“垃圾收集”功能回收？ 
A. 最后一个引用被释放后马上回收对象
B. 最后一个引用被释放后1分钟回收对象
C. 最后一个引用被释放后1小时回收对象
D. 最后一个引用被释放后的某个不确定的时刻
正确答案：D 
42. 对于VB.NET语句 Speed = Miles/Hours(其中Speed、Miles、Hours都是Double值)，当Hours=0时，该语句将引发
A. 语法错误  B. 编译错误  C. 逻辑错误  D. 运行时错误
正确答案：D 
43. 当VB.NET程序出现逻辑错误后，可以使用________工具来隔离并改正代码中的逻辑错误？ 
A. 命令行下的Debug.exe   B. 汇编工具
C. Visual Studio.NET的调试工具  D. 任何一种语言的调试工具
正确答案：C 
44. 程序在语法上是合法的，在运行时也没有出现非法操作，但结果不合理，这种错误在VB.NET中称为
A. 语法错误  B. 运行时错误  C. 逻辑错误  D. 不明错误
正确答案：C 
45. 在调试VB.NET程序时，Visual Studio.NET的“自动窗口”可以查看当前行语句以及其前、后各_____语句中的变量，并可以修改其值。
A. 1行  B. 2行  C. 3行  D. 4行
正确答案：C 
46. Win窗体设计时，应该为工具栏的_________事件编写事件处理程序，以响应用户点击工具栏的按钮？ 
A. Click   B. ButtonClick   C. KeyDown   D. MouseDown 
正确答案：B 
47. Win窗体的工具栏对象为ToolBar1。为了在工具栏中添加新的按钮，应该在对象ToolBar1的“属性”视图下编辑ToolBar1的_________属性
A. Appearance   B. ImageList   C. Buttons   D. ShowToolTips 
正确答案：C 
48. Win窗体的工具栏对象为ToolBar1。为了将工具栏中的所有按钮用图形显示，则应该在对象ToolBar1的“属性”视图下编辑ToolBar1的_________属性
A. Appearance   B. ImageList   C. Buttons   D. ShowToolTips 
正确答案：B 
49. 若不准备使用状态栏的窗格显示信息，则应该将_________属性设置为False。
A. ShowPanels   B. Panels   C. Enabled   D. Visible 
正确答案：A 
50. 如要实现菜单功能，应向菜单项的_________事件添加代码？ 
A. Command   B. Click   C. Popup   D. Select 
正确答案：B

VB.NET模拟试题2

1、按照变量的命名规则，下列变量名中不合法的是：（  ）
A、strMystring  B、intCount  C、sng平均值  D、12Number
2、在VB.NET中,一般使用关键词(     )来表示重载方法.
A. overloads            B. overrides
C. shadows              D. public
3、连接sql server2000数据库，使用哪种.net数据提供程序最优（ ）
A.SQL SERVER.NET数据提供程序
B.OLE DB.NET数据提供程序
C.ODBC.NET数据提供程序
D.ORACLE.NET数据提供程序
4、.NET Framework类库中所以类型的根命名空间为（）
A.System  B.Collection  C.System.Collection  D.Space
5、Command对象对数据源执行命令，返回结果为单一值，使用Command对象的哪种方法()
A.ExecuteReader
B.ExecuteNonQuery
C.ExecuteScalar
D.ExecuteXmlReader
6、在Web表单的设计中，可以将页面的（  ）属性设置为Grid Layout ,以使用绝对位置排列页面上的可视元素。
A.  showGrid                      B.   codePage
C.  pageLayout                    D.   bgColor
7、判断下列程序运行后x的值（     ）？
X=5
X+=5
A．  5       B．10       C． 0    D．1
8、.NET构架中被用来访问数据库的组件集合称为(  )
A.ADO.NET     B.COM+      C. ADO      D. Data.Service.NET
9、若需要从关系数据库中的表Employees中查看所有的记录，应使用SQL语句（       ）
    A．Insert * From Employees
    B．Delete * From Employees
    C．Update * From Employees
   D．Select * From Employees
10、为了在程序中使用SqlServer .NET 数据提供程序，应在源程序工程中添加对程序集（         ）的引用。 
A. System.Data                B. System.Data.SqlClient
C. System.Data.OleDb           D. System.Data.Odbc
11、如果要使文本框能够多行显示，则应使（    ）属性设为True。
A． MultiLine   B． MaxLength    C． SelLength   D． Locked
12、对文件进行读写操作时需要导入的名称空间是：（        ）
A. system.data      B. system.io  
C. system.xml       D. system.collections
13、.NET Framework不支持的一种类型的用户界面为（）
A. Web窗体  B.Windows窗体  C.控制台应用程序  D.Unix
14、下列代码执行后，变量IntY的值为（）
IMPORTS SYSTEM
CLASS MAINAPP
  Public Shared Sub MAIN()
Dim SngX As Single = 123.45
Dim IntY As Integer
IntY = Convert.ToInt32(SngX)
Console.WriteLine(IntY)
  End Sub
End Class
A. 123  B.123.45  C.123.4  D.123.5
15、声明一个动态数组dim intX（）as integer，在使用intX之前，要重新定义intX，下面格式正确的是（  ）。
A、ReDim IntX（）  B、Dim IntX（）   C、Dim IntX（3）   D、ReDim IntX（5）
16、下列不属于类三要素是：（  ）
A、属性   B、方法   C、过程   D、事件
17、要使窗体成为容器，需要设置窗体的（   ）属性为True。
A、Container   B、MdiLayout   C、Child   D、IsMdiContainer
18、类的继承的关键字为（）
A.Overloads  B. Overridable  C. Inherits  D.Overrides
19、进度条(ProgressBar)控件用来显示事务处理的进度,（）属性用来获取或设置进度栏的当前位置
A.Maximum  B. Minimum  C. Name  D.Value
20、下列声明事件的语句正确的为（）
A.  Public Event proverb(ByVal agemsg As String)
B. Public proverb()
C. Public proverb(ByVal aegmsg As String)
D. Private proverb()
21、请看以下代码：
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将输出：（  ）
A、Yes!   B、No!   C、Ok!   D、Sorry!
22、如果FOR语句中的步长值为正，则循环正常结束时（ ）。
A．  循环变量的终值>初值     B．  循环变量的终值<初值
C．  循环变量的终值=初值     D．  都错
23、向列表框中填加一个新项目,正确的语句是（  ）。
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?” 
24、以下能够正确计算5!的程序是（  ） 。
A.   
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim N As Integer
        Dim X As Integer
        Dim I As Integer
        N = 5 : X = 1
        Do
            X = X * I : I = I + 1
        Loop While I < N
Label1.Text = X
End Sub
B.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim N As Integer
        Dim X As Integer
        Dim I As Integer
        N = 5 : X = 1 : I = 1
        Do
            X = X * I : I = I + 1
        Loop While I < N
        Label1.Text = X
End Sub
C.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim N As Integer
        Dim X As Integer
        Dim I As Integer
        N = 5 : X = 1 : I = 1
        Do
            X = X * I : I = I + 1
        Loop While I <= N
        Label1.Text = X
End Sub
D.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim N As Integer
        Dim X As Integer
        Dim I As Integer
        N = 5 : X = 1 : I = 1
        Do
            X = X * I : I = I + 1
        Loop While I > N
        Label1.Text = X
End Sub
25、连接字符串设置如下，该连接的服务器的机器名为（     ）。
Dim cnNorthwind As new OleDbconnection 
CnNorthwind.ConnectionString=”Provider=SQLOLEDB;Data Source=ProdServ01;” _
+ “Initial Catalog=Pubs”+ “Integrated Security=SSPI”
A.  Prodserv01
B.  SQLOLEDB
C.  Pubs
A. SSPI
26、使用（）方法可以使线程开始运行
A. Start  B.Sleep  C. Suspend  D.Abort
27. （    ）标记标志着HTML文档的开始。
A.  <HTML>         B.  <BODY>
C.  <P>            D.  <FORM>
28、（   ）标记标志着HTML文档文件体的开始。
A． <HTML>         B． <BODY>
C． <P>            D． <FORM>
29、标签控件的作用是（    ）。
A．输入文本信息      B．  编辑文本信息      
C．显示文本信息      D．  相当于文本编辑器
30、如果保留动态数组元素原来的值，在关键字Redim 后加（   ）参数。
A、Byref    B、Byval    C、Preserve    D、Static
31、根据输入的整数X的值，给出相应的提示，要求如下：
    当 x <100时              显示"X<100"
当 100 <= x <= 500时     显示"100≤X≤500"
当 x >500时              显示" x>500"
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click
        Dim x As Integer
        Dim Y As String
        x = InputBox("请输入x的值:")
     _____________________________
            Case Is < 100
                Y = "X<100"
            Case 100 To 500
                Y = "100≤X≤500"
            Case Else
                Y = " x >500 "
        End Select
        MsgBox(Y)
End Sub
32、 输入一个数，判断其为偶数还是奇数，并用消息框显示出结果，如“您输入的数8是偶数”。
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs)  Handles MyBase.Click
          Dim X As Integer
          Dim Y As String
          X = InputBox("请输入X的值:")
         _____________________________
          MsgBox("您输入的数" & X & Y)
End Sub
33、Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ___________________   ‘创建SqlConnection对象cnNorthwind
cnNorthwind.ConnectionString = "Data Source = (local); Initial Catalog = Northwind; Integrated Security = SSPI;"
        "创建SqlCommand类的对象
        Dim cmdNorthwind As New SqlCommand
        "设置属性值
        cmdNorthwind.Connection = cnNorthwind
        cmdNorthwind.CommandType = CommandType.Text
        cmdNorthwind.CommandText = "INSERT INTO Products(ProductName,SupplierID,Discontinued)" & "VALUES ("玩具",2,0)"
        cnNorthwind.Open()
       ___________________    " Command对象执行方法
        MessageBox.Show("操作成功！")
        cnNorthwind.Close()
    End Sub
34、以下代码计算11+21+31+……+91的整数和，请将程序补充完整。
Dim sum as integer
Dim i as integer
Sum=0
i=11
While i<=100
   Sum=sum+i
                 
End while
35、为下面类的定义添加属性。
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
36、阅读程序，将其补充完整。
   Dim cn As New SqlConnection
    cn.ConnectionString = "Data Source=(local); " & _
Initial  Catalog=Northwind;" &  "Integrated Security = SSPI;"
    Dim strSql = "select ProductID, ProductName,UnitPrice from Products"
       Dim da As New SqlDataAdapter(strSql, cn)
       Dim ds As New DataSet
       cn.Open()
        ___________________ 
     DataGrid1.DataSource = ds.Tables("Products")
       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("2!+5!+7!+10!=" & SUM)
End Sub
End Class
38、阅读程序，将其补充完整
 <% @ Page  Language="VB"  %>
<HTML>
          <body>
            <% Dim I AS Integer
              For  I=1  TO  4  %>
               <font  size="<%I%>"> HELLO WORD! </font>  <br>
             <% Next %>
        </body> 
        
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("2+4+...+200=" + 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
69. 运行文件START.HTML后，在网页上输入用户名和密码，点击“登录”按钮，如果输入的用户名和密码分别为“PENGYOU”和“123“，则登录后的网页上会显示“OK,PENGYOU。键入的密码正确！”；否则会显示“SORRY,PENGYOU。您无权登录该网站！”
START.HTML文件代码：
<HTML>
<TITLE>FORM ACTION TEST PAGE</TITLE>
   <BODY>
    <CENTER><H3>登陆站点</H3></CENTER>
     <HR>
      <FORM ACTION=" VALIDATE.ASPX" METHOD="POST">
        姓名:<INPUT TYPE="TEXT" NAME="USERNAME" SIZE=15> <BR>
        密码:<INPUT TYPE="PASSWORD" NAME="USERPASSWORD" SIZE=15><BR>
     <INPUT TYPE="SUBMIT" VALUE="登录">
    </FORM>
</BODY>
</HTML>
VALIDATE.ASPS文件代码：
<%
IF REQUEST.FORM("USERNAME").TOLOWER ="PENGYOU" AND REQUEST.FORM("USERPASSWORD") ="123"  THEN
   _______________________________  
   RESPONSE.WRITE("。键入的密码正确！")
ELSE
_______________________________  
    RESPONSE.WRITE("。您无权登陆该网站！" )
END IF
%>

VB.NET模拟试题3

一、概念题（20分，每题2分）
1、 什么是.NET框架？
2、 .NET框架在什么平台上运行？
3、 .NET框架支持何种编程语言？
4、 什么是Visual Basic .NET？
5、 “类”包含的要素有哪些？“类”的特性有哪些？
1、 简述VB.NET中类与对象的概念。
2、 简述重载与重写的差异？
3、 简述.NET数据提供程序的四个核心类
4、 简述ASP.NET的工作原理。
10、简述ASP.NET中REQUEST对象和RESPONSE对象的用途。

二、选择题（30分，每题1.5分）
1、VB.NET中的各种窗体，可以实现（ 1 ）。
A．自动隐藏 
B．自动隐藏、任意停放 
C．自动隐藏、任意停放、多重监视功能 
D．不能任意停放，并且某个时刻只能选择一种监视方式。

2、Visual Studio.NET 中提供了（ 2 ）。 
A．Web设计器及Windows Forms设计器。
B．C#、VC++、VB三种集成开发环境。
C．Windows Forms设计器
D．Web设计器、Windows Forms设计器、XML设计器 、ASP.NET设计器、控制台应用程序等组件。

3、解决方案资源管理器的主要功能是 （ 3 ）。
A．提供某个项目所有文件的直观视图，是用户和解决方案之间的双向接口。
B．监视受控文件的当前状态。
C．设置首选取项、阅读产品新闻、联系开发伙伴及访问其它信息。
D．提供当前使用文件的有关信息。

4、在VB.NET中要把属性窗口打开，可以选择（ 4 ）。
A． 按F5键打开属性窗口。
B．“解决方案资源管理器”窗口中的“属性”菜单项。
C．“视图”菜单中的“属性窗口”或F4键。
D．“编辑”菜单中的“属性窗口”。

5、要使窗体的标题为“演示实例”，应修改窗体的（ 5 ）属性。
A．Caption  B．Tip  C．Item   D．Text

6、表达式 Num+=3代表的意思是（ 6 ）。
A．Num=3   B．Num=Num+3  C．Num+3=Num   D． 3=Num

7、  数据类型为Long的数据在内存中占用的字节数为（ 7 ），其类型标识符为（ 8 ）。
（1）A．2      B． 4     C．4     D． 8  
（2）A．%     B． &     C．!     D． #

8、声明一个窗体级变量时，可以在代码窗口中用（ 9 ）来声明。
A．只能用Dim语句声明 
B．只能用Private语句声明。   
C．可以用Dim语句、Private语句、 Public语句进行声明。
D．可能用Dim语句、Private语句、 Public语句、Static语句进行声明。

9、以下定义常量不正确的语句是（ 10 ）。
A．Const  Num  As  Integer=200
B．Const  Num1  As  Long=200, Sstr$=”World”
C．Const  Sstr$=”World”
D．Const  Num$=#World#

10、标签控件的作用是（  11  ）。
A．输入文本信息      B．  编辑文本信息      
C．显示文本信息      D．  相当于文本编辑器

11、如果要使文本框能够多行显示，则应使（ 12 ）属性设为True。
A． MultiLine   B． MaxLength    C． SelLength   D． Locked

12、．如果要使命令按钮以图片形式显示，则应使（  13  ）属性装入图片。
A． BackGroundImage   B． Image    C． ImageList   D． ImageAlign

13、如果FOR语句中的步长值为正，则循环正常结束时（  14  ）。
A．  循环变量的终值>初值     B．  循环变量的终值<初值        
C．  循环变量的终值=初值     D．  都错

14、VB的对象相互独立，当添加一个对象后，设计阶段可通过（ 15  ）设置其属性。
A. 对象浏览器     B. 属性窗口     C. 项目窗口     D.代码窗口

15、图片框控件可显示图像，若想使图片框自动改变大小，以适应装入的图片，应修改SizeMode属性值为（  16  ）。
A.  Normal     B. AutoSize    C. StretchImage    D. CenterImage

16、在VB.net中对字符串连接时，建议使用“&”而避免使用“+”，执行下面的代码后A与B的值分别为（ 17  ）。
Dim X As String
Dim Y As Integer
Dim A As String
Dim B As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        X = 123 : Y = 123 : A = X + Y : B = X & Y
        MsgBox(A)
        MsgBox(B)
    End Sub
A. “246”、“123123”     B. 246、“123123”   
C.  123123、“123123”    D.“123123”、“123123”

17、在程序运行过程中要改变文本框中字体的大小，使用不正确的语句是（ 18 ）。
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!)
D． TextBox1.Font= New Font("宋体", 14.0!)

18、要使文本框成为密码输入框，一般应修改文本框的（ 19 ）属性。
A．PasswordChar属性和MaxLength属性，并且 MultiLine属性值只能为False。
B．PasswordChar属性和MaxLength属性，并且Lines属性值只能为False。
C．只修改PasswordChar属性值就可以了,其它属性可以不修改。
D．PasswordChar属性和MaxLength属性， MultiLine属性值可以为True。

19、向列表框中填加一个新项目,正确的语句是（ 20）。
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?”)

三、判断下列程序的运行结果（共20分，每题5分）
1、窗体上有一个名为Button1的命令按钮和一个标签框，然后编写如下事件过程：
Private Overloads Sub Button1_Click(ByVal sender As System.Object, ByVal e As_
                             System.EventArgs) Handles Button1.Click
        Dim num As Integer
        num = 1
        Do Until num > 6
            Label1.Text = num
            num = num + 2.4
        Loop
End Sub
程序运行后，单击命令按钮，则在标签框上显示的内容是 (  1  )。
A.  5.8        B.  5    
C.  7          D. 无数据输出

2、以下能够正确计算5!的程序是（  2  ） 。
A.   
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim N As Integer
        Dim X As Integer
        Dim I As Integer
        N = 5 : X = 1
        Do
            X = X * I : I = I + 1
        Loop While I < N
        Label1.Text = X
End Sub
B.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim N As Integer
        Dim X As Integer
        Dim I As Integer
        N = 5 : X = 1 : I = 1
        Do
            X = X * I : I = I + 1
        Loop While I < N
        Label1.Text = X
End Sub
C.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim N As Integer
        Dim X As Integer
        Dim I As Integer
        N = 5 : X = 1 : I = 1
        Do
            X = X * I : I = I + 1
        Loop While I <= N
        Label1.Text = X
End Sub
D.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim N As Integer
        Dim X As Integer
        Dim I As Integer
        N = 5 : X = 1 : I = 1
        Do
            X = X * I : I = I + 1
        Loop While I > N
        Label1.Text = X
End Sub
3、窗体中有一个名称为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)
            For j = 1 To i
                x = x + 1
            Next j
        Next i
        Label1.Text = CStr(x)
End Sub
程序运行后，单击命令按钮，如果输入3，则在Label1显示的内容是   (  3  )   。
A.  3    B.   4     C.  5     D.  6

4、在窗体上放入一个名称为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中显示的内容是（  4  ） 。
A. 10   B.  20    C.  30     D.  40