环境和基本控制结构程序.doc
文本预览下载声明
实验题目 .NET环境和基本控制结构程序设计 小组合作 否 姓 名 班 级 学 号 实验目的：
1.掌握表达式、赋值语句的正确书写规则、常用函数的使用、inputbox、MsgBox的使用。
2.掌握逻辑表达式的正确书写方式、单分支与双分支条件语句的使用、情况语句的使用及与多分支条件语句的区别、单选框、复选框、框架选择控件的使用。
3.掌握For语句的使用、Do语句各种形式的使用、如何控制循环结构、防止死循环或不循环、滚动条、进度条和定时器控件的使用。 实验要求：
认真阅读和掌握本实验相关的知识点。
上机实现软件的基本操作。
得到实验结果，并加以分析生成实验报告。
实验环境：
装有Visual Studio 2008软件的计算机。 实验内容与步骤：
【实验步骤】
（1） 建立用户界面需要的控件对象；
（2） 设置对象属性；
（3） 编写对象事件过程；
（4） 保存文件（窗体文件和工程文件及其它）；
（5） 调试运行程序。
【实验内容】
1. 在屏幕上显示“欢迎学习VB.NET”，在文本框中输入你的姓名，在标签中显示输入的姓名。
运行结果：
相关代码如下：
Label3.Text = TextBox1.Text
2. 分别随机生成3个正整数，其中一个1位数，一个2位数，一个3位数，计算它们的平均值，保留2位小数。
运行结果：
相关代码如下：
Public Class Form5
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = Int(Rnd() * (10 + 0))
TextBox2.Text = Int(Rnd() * (90 + 10))
TextBox4.Text = Int(Rnd() * (900 + 100))
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label5.Text = Format((Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox4.Text)) / 3, 0.00)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Close()
End Sub
Private Sub 实验2_1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
TextBox1.Focus()
End Sub
End Class
3. 利用计算机解决古代数学问题“鸡兔同笼问题”。即已知在同一笼子里有总数为M鸡和兔，鸡和兔的总脚数为N只，求鸡和兔各有多少只？
运行结果：
相关代码如下：
Public Class 实验3_5
Dim M%, N%, x%, y%
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
M = Val(TextBox8.Text)
N = Val(TextBox6.Text)
TextBox4.Text = 2 * M - N / 2
TextBox7.Text = N / 2 - M
End Sub
Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
M = Val(TextBox8.Text)
End Sub
Private Sub TextBox6_Ch
显示全部