VB.NET作业

一、 单项选择题1．引用列表框（ListBox1）最后一个数据项应使用 。A. ListBox1.Items(Listbox1.items.count) B. Listbox1.Items(Listbox1.items.count-1) C. Listbox1.Text D. Listbox1.Items(Listbox1.SelectedIndex) 2．假定有一个窗体类Form2，则将它实例化并显示的正确语句为 。DA．Form2.ShowB．Form2.showDialogC．Dim f2 as Form2 f2.show（）D．dim f2 as new Form2 f2.show（）3．在下列关于键盘事件的说法中，正确的是 。 DA． 按下键盘的任意一个键都会引发KeyPress事件B． 按下大键盘上“1”键和数字键盘的“1”键的e.KeyCode的值相同C． KeyDown/KeyUp事件过程中可使用e.KeyCharD． 大键盘上“4”键上的上档字符是“$”,当同时按下Shift和大键盘上的“4”键时，KeyPress事件过程中的e.KeyChar为“$”3．在下列代码段中，正确的是 。 A． Class Test Private x As Integer End Class Public Class From1 …… Dim t As New Test t.x=10 …… End ClassB． Class Test Public x As Integer End Class Public Class From1 …… Dim t As Test t.x=5 …… End ClassC. Class Test Protected x As Integer End Class Public Class From1 …… Dim t As New Test t.x=10 …… End ClassD． Class Test Public x As Integer End Class Public Class Form1 …… Dim t As New Test t.x=5 …… End Class4．在下列关于构造函数的说法中，错误的是 。A．构造函数实质上是名称为New的Sub过程B．一个类中可以有多个构造函数C．构造函数在对象实例化时由系统自动调用，程序不能直接调用D．用户在定义类时必须在其中定义构造函数5．在下面的程序代码中，正确的是 。A． Class Test Private x As Double Public Property xx() As Double Get Return x End Get Set(ByVal Value) x = Value End Set End Property End ClassB．Class Test Private x As Double Public Property xx() Set(ByVal Value As Double) x = Value End Set End Property End ClassC．Class Test Private x As Double Public ReadOnly Property xx() As Double Get Return x End Get End Property End ClassD．Class Test Private x As Double Public Property xx() As Double Set(ByVal Value As Double) x = Value End Set End Property End Class6．在下列关于继承的说法中，错误的是 。A．派生类可以继承基类中除了构造函数以外的所有成员B．基类是派生类的一个子集C．一个基类可以有多个派生类D．在VB.NET中，派生类只能有一个基类7．在下面关于随机文件的描述中，不正确的是 。BA．每条记录的长度必须相同B．一个文件中记录号必须相同C．可通过编程对文件中的某条记录方便地修改D．文件的组织结构比顺序文件复杂8．若要在磁盘上新建一个文件名为“C:\T1.txt”顺序文件，则应用下列 程序段打开文件。A． Dim F As String F = "c:\T1.txt"FileOpen(2, F, OpenMode.Append)B． Dim F As String F = "c:\T1.txt"FileOpen(2, “F”, OpenMode.OutPut)C． FileOpen(2, C:\T1.txt, OpenMode.Append)D． FileOpen(2, “C:\T1.txt”, OpenMode.Append)9．以下构造Graphics类的实例语句，正确的是（）A． Dim g As Graphics = New Graphics( )B． Dim g As Graphics = New Me.CreateGraphics( )C． Dim g As Graphics = Me.CreateGraphics( 收起