环境和基本控制结构程序设计实验.docVIP

甘肃政法学院 本科学生实验报告 （一） 姓名 学院 计算机科学学院 专业 计算机科学与技术 班级 12级专升本班 实验课程名称 visual basic.NET 试验时间 2013 年 11 月 13 日 指导教师及职称 付向东 实验成绩 开课时间 2013—2014 学年 第一 学期 甘肃政法学院实验管理中心印制 实验题目 .NET环境和基本控股结构程序设计 小组合作 否 姓 名 班 级 12级专升本 学 号 一、实验目的： 1、了解VB.NET系统对计算机软、硬件的要求； 2、掌握启动与退出VB.NET的方法； 3、掌握建立、编辑和运行一个简单的VB.NET应用程序的全过程。 二、实验环境： 1、操作系统：Windows XP 2、VB.NET应用软件 三、实验内容与步骤： 1、启动VB.NET,创建一个“windows 应用程序”类型的应用程序，要求：在屏幕上显示“欢迎学习VB.NET ”，在文本框中输入你的姓名，在标签中显示输入的姓名。 设计界面如下： Button事件核心代码： Label3.Text = TextBox1.Text 运行结果如下： 2、分别随机生成3个正整数，其中一个一位数，一个两位数，一个三位数，计算它们的平均值，保留两位小数。 界面设计如下： 部分Button核心代码： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = Int(Rnd() * 20 + 0) TextBox2.Text = Int(Rnd() * 80 + 10) TextBox3.Text = Int(Rnd() * (999 - 100 + 1) + 100) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim avg! avg = (Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text)) / 3 Label4.Text = 三个数的平均值为： Format(avg, 0.00) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox1.Text = TextBox2.Text = TextBox3.Text = Label4.Text = 三个数的平均值为： End Sub End Class 运行结果如下： 3、利用计算机解决古代数学问题“鸡兔同笼”，即已知在同一个笼子里有总数为M只鸡兔，鸡和兔的总脚数为N,求鸡和兔各有多少只？ 设计界面为： 部分核心代码为： Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged Dim x, y, m, n As Integer m = Val(TextBox1.Text) If m 0 Then MsgBox(头数必须大于0，请从新输入：, 48 + 0) TextBox1.Text = TextBox1.Focus() Else Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged Di