Visual Basic NET程序设计(巩政)教材各章节习题解答

教材各章节习题解答

习 题 1

1.1. 答

①完全支持面向对象编程

②使用ADO.NET进行数据访问

③能够方便地进行Web应用程序的开发 1.2. 答

①解决方案和项目

项目是独立的编程单位。在项目中，通过逻辑方式管理、生成和调试构成应用程序的项(包括创建应用程序所需的引用、数据连接、文件夹和文件)。不同的项目包含的项各不相同。每个项目包含一个项目文件，用于存储该项目的元数据，包括项目及其包含项的集合指定配置和生成配置。

Visual Studio解决方案可以包含一个或多个项目。解决方案管理Visual Studio配置、生成和部署相关项目集的方式。

②设计器/编辑器

设计器/编辑器通常有两个视图：设计视图和源视图。

设计视图允许在用户界面或网页上指定控件和其它项的位置。可以从“工具箱”中拖动控件，将其置于设计图面上。可以任意改变控件的大小，移动控件到窗体中的任何位置。

源视图用于显示、编辑文件或文档的源代码。 ③工具箱

“工具箱”中包含VB.NET的工具控件。 ④属性窗口

属性窗口用来显示和设置对象的属性。 1.3. 答

包括：解决方案定义文件（.sln）和解决方案生成配置（.suo）文件。 1.4. 答

包括：标题栏、控件内容、属性名、属性值等。 主要功能是用于显示和设置对象的属性。 1.5. 略 1.6. 略 1.7. 略 1.8. 答

程序代码如下： Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a!, b!, c%, n!, i% a = Val(TextBox1.Text) b = Val(TextBox2.Text) c = Val(TextBox3.Text) n = a

For i = 1 To c n = n + a * b

Next

TextBox4.Text = n End Sub End Class

程序运行界面如图3-1所示。

图3-1 习题1. 8的运行界面

1.9. 答

程序代码如下： Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox1.BackColor = Color.Red End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

TextBox1.BackColor = Color.Blue End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox1.BackColor = Color.Green End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

TextBox1.BackColor = Color.Black End Sub End Class

程序运行界面如图3-2所示。

图3-2 习题1.9的运行界面

1.10. 答

程序代码如下：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Button1.Click

Button1.Enabled = False Button2.Enabled = True Button3.Enabled = True Button4.Enabled = True End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Button4.Enabled = False Button2.Enabled = True Button3.Enabled = True Button1.Enabled = True End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Button2.Enabled = False Button1.Enabled = True Button3.Enabled = True Button4.Enabled = True End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Button3.Enabled = False Button2.Enabled = True Button1.Enabled = True Button4.Enabled = True End Sub

程序运行界面如图3-3所示。

图3-3 习题1.10的运行界面

1.11. 答

程序代码如下： Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick

TextBox2.Text = TextBox1.Text TextBox1.Text = \

TextBox1.BackColor = Color.White End Sub

Private Sub TextBox2_MouseClick(ByVal sender As Object, ByVal

e As

e As