VB第三次作业1

《VB.NET程序设计》作业三

一、 单项选择题

1．引用列表框（ListBox1）最后一个数据项应使用 B 。

A. ListBox1.Items(Listbox1.items.count)

B. Listbox1.Items(Listbox1.items.count-1) C. Listbox1.Text

D. Listbox1.Items(Listbox1.SelectedIndex)

2．假定有一个窗体类Form2，则将它实例化并显示的正确语句为 D 。

A．Form2.Show B．Form2.showDialog C．Dim f2 as Form2 f2.show（）

D．dim f2 as new Form2 f2.show（）

3．在下列关于键盘事件的说法中，正确的是 C 。

A． 按下键盘的任意一个键都会引发KeyPress事件

B． 按下大键盘上“1”键和数字键盘的“1”键的e.KeyCode的值相同 C． KeyDown/KeyUp事件过程中可使用e.KeyChar

D． 大键盘上“4”键上的上档字符是“$”,当同时按下Shift和大键盘上的“4”键时，KeyPress事件过程中的e.KeyChar为“$”

4．在下列代码段中，正确的是 A 。

A． Class Test Private x As Integer End Class

Public Class From1 ……

Dim t As New Test t.x=10 ……

End Class

B． Class Test

Public x As Integer End Class

Public Class From1 ……

Dim t As Test t.x=5 ……

End Class

C. Class Test

Protected x As Integer

1

End Class

Public Class From1 ……

Dim t As New Test t.x=10 ……

End Class

D． Class Test

Public x As Integer End Class

Public Class Form1 ??

Dim t As New Test t.x=5 ??

End Class

5．在下列关于构造函数的说法中，错误的是 C 。

A．构造函数实质上是名称为New的Sub过程 B．一个类中可以有多个构造函数

C．构造函数在对象实例化时由系统自动调用，程序不能直接调用D．用户在定义类时必须在其中定义构造函数

6．在下面的程序代码中，正确的是 D 。

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 Class B．Class Test Private x As Double Public Property xx() Set(ByVal Value As Double) x = Value End Set End Property End Class C．Class Test

Private x As Double

Public ReadOnly Property xx() As Double

2

Get Return x End Get End Property End Class D．Class Test

Private x As Double

Public Property xx() As Double Set(ByVal Value As Double) x = Value End Set End Property End Class

7．在下列关于继承的说法中，错误的是 A 。

A．派生类可以继承基类中除了构造函数以外的所有成员

B．基类是派生类的一个子集

C．一个基类可以有多个派生类

D．在VB.NET中，派生类只能有一个基类

8．在下面关于随机文件的描述中，不正确的是 C 。

A．每条记录的长度必须相同 B．一个文件中记录号必须相同

C．可通过编程对文件中的某条记录方便地修改 D．文件的组织结构比顺序文件复杂

9．若要在磁盘上新建一个文件名为“C:\\T1.txt”顺序文件，则应用下列 B 程序段打开文件。

A． Dim F As String F = \

FileOpen(2, F, OpenMode.Append) B． Dim F As String F = \

FileOpen(2, “F”, OpenMode.OutPut) C． FileOpen(2, C:\\T1.txt, OpenMode.Append) D． FileOpen(2, “C:\\T1.txt”, OpenMode.Append)

10．以下构造Graphics类的实例语句，正确的是（B）

A． Dim g As Graphics = New Graphics( )

B． Dim g As Graphics = New Me.CreateGraphics( ) C． Dim g As Graphics = Me.CreateGraphics( ) D． Dim g As Graphics = New Graphics(Color.Blue)

11．GDI+位于 D 命名空间。

A．System.Drawing B． System.IO C．System.Exception D．System.Math

3

12．在程序执行中要将画笔P的颜色改为红色，以下语句中正确的是 C 。

A．Dimp As New Pen(Color.Red) B．p.Color = New Color.red C．p.Color = red D．p.Color = Color.Red

13．下列属性和事件中，属于滚动条和进度条共有的是 B 。

A．Scroll B．ValueChanged C．LargeChange D．Maximum

14．下列关于定时器的说法中，正确的是 A 。

A． 当Enabled的属性为False时，不产生Tick事件 B． 在程序运行时不可见，这是因为Visible属性为False C． 当Interval属性为0，则Tick事件不会发生 D． 通过适当的设置可以将Interval属性的单位改为秒

15．若有如下定义，下面语句正确的是___C______。

Structure student Dim name As String Dim score As Integer End Structure Dim s as Student A．Student.name=\B．s.score=78 C．score=78 D．Student=s

二．填空题

1． 。如果要每个15秒产生一个计时器时间，则Interval属性应设置为 timer.interval=15000 2．在菜单的Text中，若输入 &热键字母(如&A) ，则该字符成为热键。

3．在多重窗体中，除了可以指定某个窗体作为启动对象以外，还可以制定 sub main() 作为启动对象。

4．面向对象程序设计具有封装性、 继承性 和多态性。 5．构造函数的名称为 Public Sub New()...End Sub 。 6．将绘图对象g上内容清除为白色使用的指令是 g.cls 。

三．算法分析题

1．下面程序的功能是统计文件file2.txt中数字符号出现的次数。

程序的思想是：每次从文件中读取一个字符，判断是否是数字字符。若是数字字符，计数器加1。

Private Sub Button1_Click(?) Handles Button1.Click Dim a As Integer, c As Char

(1) (3, \

a = 0

Do While Not EOF(3)

c = InputString( 3 ，1 ) ' 读取一个字符，

If (2) Then c >= \ a= (3) ' 计数器加1 a+1 End If

4

Loop

FileClose (3)

TextBox1.Text= \数字字符出现的次数:\End Sub

2．求n的阶乘。类Fac用于求n的阶乘，类Form1中Button1_Click事件过程利用了类Fac

求5的阶乘。 Public Class Form1

Inherits System.Windows.Forms.Form

Private Sub Button1_Click(??) Handles Button1.Click Dim a as New Fac(5) (1) CalFac() a.Display() End Sub End Class Class Fac

Private n, f As Integer

Public Sub New(ByVal n1 As Integer) n = n1 f = 1 End Sub

Public Sub CalFac() Dim k As Integer = n Do While k > 1 f = f * k

(2) k=k-1 Loop

5

本文来源：https://www.bwwdw.com/article/oz9v.html