实验二基本控制结构.doc

实验题目 基本控制结构 小组合作 姓名 班级 学 号 实验目的 掌握表达式、赋值语句的正确书写规则 掌握常用函数的使用 掌握情况语句的使用及与多分支条件语句的区别 掌握单选框、复选框、框架选择控件的使用 二．实验环境 硬件：装有windows系统的计算机一台 软件： Microsoft Visual Studio 2012 实验内容与步骤 2.1、分别随机生成三个正整数，其中一个一位数，一个两位数，一个三位数，计算他们的平均 值，保留两位小数。 原图 “产生”效果图 “计算”效果图 源代码如下所示： Public Class sy2_1 Public Class Form4 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click TextBox1.Text = Int(Rnd() * (9 - 0 + 1) + 0) TextBox2.Text = Int(Rnd() * (99 - 10 + 1) + 10) TextBox3.Text = Int(Rnd() * (999 - 100 + 1) + 100) End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim X X = (Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text)) / 3 Label4.Text = 三个数的平均值为： Format(X, 0.00) End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Me.Close() End Sub End Class D:\Program Files (x86)\Microsoft Visual Studio 11.0\Common7\IDE 2.7、窗体上有两个命令按钮，第一个按钮显示“VB.NET”和图标、第二个按钮显示画图，如下图所示。 原图 画图 VS.NET运行界面 源代码如下： Public Class Form5 Private Sub Button1_Click(sender As Object, e As EventArgs) Shell(D:\Program Files (x86)\Microsoft Visual Studio 11.0\Common7\IDE\devenv.exe, 1) End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Shell(C:\Windows\system32\mspaint.exe, 1) End Sub End Class 3.5、利用计算机解决古代数学问题“鸡兔同笼问题”。既已知在同意笼子里有M只鸡和兔，鸡和兔的总脚数为N只求鸡和兔共有多少只？ 正确结果 输入脚数错误 未输入脚数 未输入头数 Public Class sy3_5 Public Class _3 Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged Dim M, N, x, y As Integer M = Val(TextBox1.Text) N = Val(TextBox2.Text) If N Mod 2 0 Then MsgBox(输入的应为