VB.NET 实验报告详细解析
VB.NET（Visual Basic .NET）是Microsoft开发的一种面向对象的编程语言，基于.NET Framework，广泛应用于开发Windows桌面应用程序。本实验报告旨在通过一系列实际操作，帮助学生熟悉VB.NET的基本环境、操作流程以及常用控件的使用。
一、实验目的：
1. 理解VB.NET对计算机系统的需求，包括软硬件配置。
2. 掌握启动和关闭VB.NET集成开发环境（IDE）的方法。
3. 学习创建、编辑和执行VB.NET应用程序的基本步骤。
二、实验环境：
1. 操作系统：Windows XP
2. 开发工具：VB.NET应用软件
三、实验内容与步骤：
1. 创建“欢迎学习 VB.NET”的应用程序。这涉及到启动VB.NET IDE，新建一个Windows应用程序项目，添加一个Label显示“欢迎学习 VB.NET”，一个TextBox供用户输入姓名，另一个Label用于显示输入的姓名。核心代码如下：
```vb.net
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Label2.Text = TextBox1.Text
End Sub
```
2. 随机生成三个正整数并计算平均值。使用Random类生成随机数，并进行数学运算。界面设计包含一个Button，用于触发计算，结果显示在Label中。部分核心代码：
```vb.net
Dim num1 As Integer = CInt(Rnd() * 9) + 1 ' 一位数
Dim num2 As Integer = CInt(Rnd() * 99) + 10 ' 两位数
Dim num3 As Integer = CInt(Rnd() * 999) + 100 ' 三位数
Dim avg As Double = (num1 + num2 + num3) / 3.0
Label2.Text = String.Format("平均值: {0:F2}", avg)
```
3. 解决“鸡兔同笼”问题。利用两个TextBox获取M和N的值，通过逻辑判断计算鸡和兔的数量。核心代码：
```vb.net
Dim chickens As Integer
Dim rabbits As Integer
'...计算过程...
If (chickens * 2 + rabbits * 4 <> M Or chickens + rabbits <> N) Then
MessageBox.Show("输入错误！")
End If
```
4. 设计“个人简历表”程序。利用多个TextBox、ComboBox和Button来收集和展示用户信息。实现递交和重置功能，主要涉及控件的事件处理。部分代码：
```vb.net
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Label2.Text = "姓名：" & TextBox1.Text & vbCrLf & "年龄：" & TextBox2.Text & vbCrLf & "性别：" & ComboBox1.SelectedItem & vbCrLf & "职业：" & ComboBox2.SelectedItem & vbCrLf & "学历：" & ComboBox3.SelectedItem & vbCrLf & "爱好：" & ComboBox4.SelectedItem
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
ComboBox1.SelectedIndex = -1
ComboBox2.SelectedIndex = -1
ComboBox3.SelectedIndex = -1
ComboBox4.SelectedIndex = -1
Label2.Text = ""
End Sub
```
5. 使用循环绘制有规律图形。例如，使用For循环控制Button事件，每次循环改变窗体背景色。部分核心代码：
```vb.net
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For i As Integer = 0 To 255 Step 10
Me.BackColor = Color.FromArgb(i, i, i)
Threading.Thread.Sleep(100)
Next
End Sub
```
6. 创建倒计时程序。结合TextBox获取倒计时分钟数，ProgressBar显示进度，Timer控制倒计时。核心代码：
```vb.net
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim minutes As Integer = CInt(TextBox1.Text)
Timer1.Interval = 1000 ' 每秒更新
Timer1.Start()
ProgressBar1.Maximum = minutes * 60
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
ProgressBar1.Value -= 1
Label2.Text = "倒计时：" & (ProgressBar1.Maximum - ProgressBar1.Value) \ 60 & ":" & (ProgressBar1.Maximum - ProgressBar1.Value) Mod 60
If ProgressBar1.Value = 0 Then
Timer1.Stop()
Label2.Text = "倒计时结束"
End If
End Sub
```
通过以上六个实验步骤，学生能够深入理解VB.NET的基本编程概念，包括控件的使用、事件处理、逻辑运算以及与用户交互的设计。这不仅锻炼了学生的编程技能，也为后续更复杂的项目开发打下了坚实的基础。
