当使用文本交互方式，我无法为您直接提供详细的编程代码和实测结果。但我可以为您提供每个实例的基本编程思路和关键代码片段，您可以在您的开发环境中尝试并进行测试。
实例1：简单计算器应用
编程思路：
1.创建一个Windows Forms应用程序。
2.在界面上添加按钮和文本框，用于输入数字和操作符，以及显示计算结果。
3.编写按钮的点击事件处理程序，根据操作符进行相应的计算。
关键代码片段：
```vb
'按钮点击事件
Private Sub btnCalculate_Click(sender As Object,e As EventArgs)Handles btnCalculate.Click
Dim num1 As Double=Double.Parse(txtNum1.Text)
Dim num2 As Double=Double.Parse(txtNum2.Text)
Dim result As Double=0
If rdbAdd.Checked Then
result=num1+num2
ElseIf rdbSubtract.Checked Then
result=num1-num2
ElseIf rdbMultiply.Checked Then
result=num1*num2
ElseIf rdbDivide.Checked Then
If num2<>0 Then
result=num1/num2
Else
MessageBox.Show(Cannot divide by zero.)
End If
End If
lblResult.Text=Result:&result.ToString()
End Sub
```
实例2：学生成绩管理系统
编程思路：
1.创建一个Windows Forms应用程序。
2.在界面上添加文本框和按钮，用于输入学生信息和成绩。
3.使用集合（如List或Dictionary）来存储学生信息和成绩。
4.编写按钮的点击事件处理程序，用于录入学生成绩、排名和查询。
关键代码片段：
```vb
'学生类
Public Class Student
Public Property Name As String
Public Property Score As Double
End Class
'学生列表
Private students As New List(Of Student)
'添加学生成绩
Private Sub btnAdd_Click(sender As Object,e As EventArgs)Handles btnAdd.Click
Dim newStudent As New Student()
newStudent.Name=txtName.Text
newStudent.Score=Double.Parse(txtScore.Text)
students.Add(newStudent)
RefreshStudentList()
End Sub
'刷新学生列表
Private Sub RefreshStudentList()
lstStudents.Items.Clear()
For Each student In students
lstStudents.Items.Add(student.Name&-&student.Score)
Next
End Sub
```
实例3：个人日程安排应用
编程思路：
1.创建一个Windows Forms应用程序。
2.在界面上添加文本框、日期选择器和按钮，用于输入任务信息。
3.使用集合（如List或Array）来存储任务信息。
4.编写按钮的点击事件处理程序，用于添加任务、显示日程和筛选任务。
关键代码片段：
```vb
'任务类
Public Class Task
Public Property Title As String
Public Property Description As String
Public Property DueDate As DateTime
Public Property Status As String
End Class
'任务列表
Private tasks As New List(Of Task)
'添加任务
Private Sub btnAddTask_Click(sender As Object,e As EventArgs)Handles btnAddTask.Click
Dim newTask As New Task()
newTask.Title=txtTitle.Text
newTask.Description=txtDescription.Text
newTask.DueDate=dtpDueDate.Value
newTask.Status=Pending
tasks.Add(newTask)
RefreshTaskList()
End Sub
'刷新任务列表
Private Sub RefreshTaskList()
lstTasks.Items.Clear()
For Each task In tasks
lstTasks.Items.Add(task.Title&-&task.Status)
Next
End Sub
```
请注意，以上代码片段是基于假设的示例代码，并可能需要根据您的实际需求进行适当的修改和扩展。要在实际环境中成功测试这些示例，您需要在您的开发环境中创建新的Windows Forms应用程序，将代码片段添加到相应的事件处理程序中，并根据界面上的控件进行适当的连接。
